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

财务替换畅优

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-17 14:27:41 +08:00
parent dfa93ccaff
commit a5b135ceb3
70 changed files with 5987 additions and 14176 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,7 @@ uses
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_ReceivableList in 'U_ReceivableList.pas' {frmReceivableList},
U_CollectList in 'U_CollectList.pas' {frmCollectList},
U_InvoiceOutList in 'U_InvoiceOutList.pas' {frmInvoiceOutList},
U_InvoiceOutSQList in 'U_InvoiceOutSQList.pas' {frmInvoiceOutSQList},
U_CustStatement in 'U_CustStatement.pas' {frmCustStatement},
U_CustStatementWriteOff in 'U_CustStatementWriteOff.pas' {frmCustStatementWriteOff},
U_PayableList in 'U_PayableList.pas' {frmPayableList},
@ -39,7 +39,7 @@ uses
U_BankFlowList in 'U_BankFlowList.pas' {frmBankFlowList},
U_BankFlowTotalList in 'U_BankFlowTotalList.pas' {frmBankFlowTotalList},
U_ReceivableInput in 'U_ReceivableInput.pas' {frmReceivableInput},
U_InvoiceOutInPut in 'U_InvoiceOutInPut.pas' {frmInvoiceOutInPut},
U_InvoiceOutSQInPut in 'U_InvoiceOutSQInPut.pas' {frmInvoiceOutSQInPut},
U_PayInput in 'U_PayInput.pas' {frmPayInput},
U_InvoiceInInPut in 'U_InvoiceInInPut.pas' {frmInvoiceInInPut},
U_PayableInput in 'U_PayableInput.pas' {frmPayableInput},
@ -58,7 +58,10 @@ uses
U_BankSel in '..\A00ͨÓô°Ìå\U_BankSel.pas' {frmBankSel},
U_ReceivableValueSel in 'U_ReceivableValueSel.pas' {frmReceivableValueSel},
U_CompanySel in '..\A00ͨÓô°Ìå\U_CompanySel.pas' {frmCompanySel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_FinTradePlanSel in 'U_FinTradePlanSel.pas' {frmFinTradePlanSel},
U_FinTradeSalesContractSel in 'U_FinTradeSalesContractSel.pas' {frmFinTradeSalesContractSel},
U_RPFun in '..\..\..\public10\ThreeFun\Fun\U_RPFun.pas';
{$R *.res}

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

@ -124,7 +124,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10myXushang\A09财务通用管理\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10myChangyou\A09财务通用管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -194,8 +194,8 @@
<Form>frmCollectList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_InvoiceOutList.pas">
<Form>frmInvoiceOutList</Form>
<DCCReference Include="U_InvoiceOutSQList.pas">
<Form>frmInvoiceOutSQList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_CustStatement.pas">
@ -238,8 +238,8 @@
<Form>frmReceivableInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_InvoiceOutInPut.pas">
<Form>frmInvoiceOutInPut</Form>
<DCCReference Include="U_InvoiceOutSQInPut.pas">
<Form>frmInvoiceOutSQInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_PayInput.pas">
@ -307,6 +307,15 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_FinTradePlanSel.pas">
<Form>frmFinTradePlanSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_FinTradeSalesContractSel.pas">
<Form>frmFinTradeSalesContractSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RPFun.pas"/>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

2
A09财务通用管理/Financial.skincfg
View File

@ -1,5 +1,5 @@
[ExpressSkins]
Default=0
Default=1
ShowNotifications=1
Enabled=1
dxSkinBasic=0

2
A09财务通用管理/Financial_project.tvsconfig Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0"?>
<TgConfig Version="3" SubLevelDisabled="False" />

2
A09财务通用管理/ProjectGroup1_prjgroup.tvsconfig Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0"?>
<TgConfig Version="3" SubLevelDisabled="False" />

3
A09财务通用管理/SYSTEMSET.ini
View File

@ -5,4 +5,5 @@
软件名称=睿特版本库
登陆标题=sss
[窗口设置]
字体大小=10
字体大小=10
design=1

4
A09财务通用管理/U_BankFlowInInput.pas
View File

@ -345,7 +345,7 @@ begin
if ShowModal = 1 then
begin
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -368,7 +368,7 @@ begin
FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;

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

@ -320,7 +320,7 @@ begin
if ShowModal = 1 then
begin
OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally

8
A09财务通用管理/U_CollectImport.pas
View File

@ -299,7 +299,7 @@ begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
@ -339,9 +339,9 @@ begin
begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -360,7 +360,7 @@ begin
begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally

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

@ -4,7 +4,7 @@ object frmCollectInput: TfrmCollectInput
Caption = #25910#27454#30331#35760
ClientHeight = 428
ClientWidth = 1172
Color = clBtnFace
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -60,7 +60,9 @@ object frmCollectInput: TfrmCollectInput
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label18: TLabel
@ -72,7 +74,7 @@ object frmCollectInput: TfrmCollectInput
end
object Label19: TLabel
Left = 274
Top = 62
Top = 61
Width = 64
Height = 21
Caption = #23545#26041#36134#21495
@ -101,9 +103,9 @@ object frmCollectInput: TfrmCollectInput
object Label20: TLabel
Left = 766
Top = 15
Width = 67
Width = 64
Height = 21
Caption = #26085' '#26399
Caption = #21457#29983#26085#26399
end
object Label22: TLabel
Left = 274
@ -114,14 +116,14 @@ object frmCollectInput: TfrmCollectInput
end
object Label23: TLabel
Left = 37
Top = 107
Top = 109
Width = 68
Height = 21
Caption = #21512' '#21516' '#21495
end
object Label24: TLabel
Left = 522
Top = 109
Top = 61
Width = 62
Height = 21
Caption = #25688' '#35201
@ -135,7 +137,7 @@ object frmCollectInput: TfrmCollectInput
end
object Label3: TLabel
Left = 276
Top = 156
Top = 153
Width = 62
Height = 21
Caption = #37329' '#39069
@ -149,14 +151,28 @@ object frmCollectInput: TfrmCollectInput
end
object Label1: TLabel
Left = 524
Top = 158
Top = 109
Width = 64
Height = 21
Caption = #25910#27454#31867#22411
end
object Label26: TLabel
Left = 769
Top = 61
Width = 64
Height = 21
Caption = #23545#36134#26085#26399
end
object Label4: TLabel
Left = 524
Top = 153
Width = 48
Height = 21
Caption = #21457#31080#21495
end
object OurCoName: TcxButtonEdit
Left = 107
Top = 12
Top = 11
Properties.Buttons = <
item
Default = True
@ -170,8 +186,8 @@ object frmCollectInput: TfrmCollectInput
Width = 151
end
object OppCoName: TcxButtonEdit
Left = 345
Top = 12
Left = 344
Top = 11
Properties.Buttons = <
item
Default = True
@ -186,7 +202,7 @@ object frmCollectInput: TfrmCollectInput
end
object OppParentCoName: TcxButtonEdit
Left = 594
Top = 12
Top = 11
Properties.Buttons = <
item
Default = True
@ -201,14 +217,14 @@ object frmCollectInput: TfrmCollectInput
end
object FFTime: TcxDateEdit
Left = 838
Top = 12
Top = 11
Properties.ShowTime = False
TabOrder = 3
Width = 151
end
object OurBankName: TcxButtonEdit
Left = 107
Top = 58
Top = 57
Properties.Buttons = <
item
Default = True
@ -222,8 +238,8 @@ object frmCollectInput: TfrmCollectInput
Width = 151
end
object OppBankName: TcxButtonEdit
Left = 345
Top = 59
Left = 344
Top = 57
Properties.Buttons = <
item
Default = True
@ -238,7 +254,7 @@ object frmCollectInput: TfrmCollectInput
end
object ConNo: TcxButtonEdit
Left = 107
Top = 104
Top = 105
Properties.Buttons = <
item
Default = True
@ -268,7 +284,7 @@ object frmCollectInput: TfrmCollectInput
end
object FFAbstract: TcxButtonEdit
Left = 594
Top = 105
Top = 57
Hint = 'FFAbstract/'#25688#35201
Properties.Buttons = <
item
@ -284,7 +300,7 @@ object frmCollectInput: TfrmCollectInput
end
object PayMent: TcxButtonEdit
Left = 107
Top = 150
Top = 149
Hint = 'PayMent/'#20184#27454#26041#24335
Properties.Buttons = <
item
@ -300,14 +316,14 @@ object frmCollectInput: TfrmCollectInput
end
object Amount: TcxCurrencyEdit
Left = 345
Top = 152
Top = 149
Properties.AssignedValues.DisplayFormat = True
TabOrder = 10
Width = 84
end
object Currency: TcxComboBox
Left = 432
Top = 152
Top = 149
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'CNY'
@ -326,7 +342,7 @@ object frmCollectInput: TfrmCollectInput
end
object CollectPayType: TcxButtonEdit
Left = 594
Top = 152
Top = 105
Hint = 'CollectPayType/'#25910#20184#27454#31867#22411
Properties.Buttons = <
item
@ -338,8 +354,30 @@ object frmCollectInput: TfrmCollectInput
Style.ButtonStyle = btsDefault
TabOrder = 13
OnDblClick = OurCoNameDblClick
Width = 395
end
object ReconciliationDate: TcxDateEdit
Left = 838
Top = 57
Properties.ShowTime = False
TabOrder = 14
Width = 151
end
object IVNo: TcxButtonEdit
Left = 594
Top = 149
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 15
OnDblClick = OurCoNameDblClick
Width = 395
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink

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

@ -53,6 +53,10 @@ type
Note: TcxMemo;
Label1: TLabel;
CollectPayType: TcxButtonEdit;
Label26: TLabel;
ReconciliationDate: TcxDateEdit;
Label4: TLabel;
IVNo: TcxButtonEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -77,13 +81,14 @@ type
procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FFAbstractPropertiesBttonClick(Sender: TObject; AButtonIndex: Integer);
procedure CollectTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
procedure InitGrid();
function SaveData(): Boolean;
public
{ Public declarations }
FFFID: string;
FFFID, FAuthority: string;
CopyFlag: Integer;
end;
@ -94,7 +99,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_FinTradePlanSel,
U_FinTradeSalesContractSel, U_CompanyBankSel;
U_FinTradeSalesContractSel, U_CompanyBankSel, U_InvoiceOutSel;
{$R *.dfm}
@ -123,6 +128,7 @@ begin
else
begin
FFTime.Date := SGetServerDateTime(ADOQueryTemp);
ReconciliationDate.Date := SGetServerDateTime(ADOQueryTemp);
end;
finally
@ -177,9 +183,9 @@ begin
FCoType := '¿Í»§';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -195,11 +201,13 @@ begin
with frmCompanySel do
begin
FCoType := '¿Í»§';
if Self.FAuthority = '低权限' then
FAuthority := '理单业务';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
end;
@ -218,7 +226,7 @@ begin
FCoType := '¿Í»§';
if ShowModal = 1 then
begin
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -236,7 +244,7 @@ begin
FCoType := '¿Í»§';
if ShowModal = 1 then
begin
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -272,6 +280,8 @@ begin
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
with frmFinTradePlanSel do
begin
if Self.FAuthority = '低权限' then
FAuthority := '拥有者';
if ShowModal = 1 then
begin
with frmFinTradePlanSel.CDS_1 do
@ -331,7 +341,7 @@ begin
FCoType := 'ÎÒ˾';
if ShowModal = 1 then
begin
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OurCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -424,6 +434,8 @@ begin
frmFinTradeSalesContractSel := TfrmFinTradeSalesContractSel.Create(Application);
with frmFinTradeSalesContractSel do
begin
if Self.FAuthority = '低权限' then
FAuthority := '拥有者';
if ShowModal = 1 then
begin
self.ConNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
@ -435,6 +447,24 @@ begin
end;
end;
procedure TfrmCollectInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmInvoiceOutSel := TfrmInvoiceOutSel.Create(Application);
with frmInvoiceOutSel do
begin
if Self.FAuthority = '低权限' then
canshu1 := '录入';
if ShowModal = 1 then
begin
Self.IVNo.Text := Trim(frmInvoiceOutSel.CDS_Invoice.fieldbyname('IVNo').AsString);
end;
end;
finally
frmInvoiceOutSel.Free;
end;
end;
procedure TfrmCollectInput.FFAbstractPropertiesBttonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;

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

@ -4,7 +4,6 @@ inherited frmCollectList: TfrmCollectList
Caption = #25910#27454#31649#29702
ClientHeight = 590
ClientWidth = 1625
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
@ -77,16 +76,32 @@ inherited frmCollectList: TfrmCollectList
ImageIndex = 5
OnClick = btnDelClick
end
object btnChk: TToolButton
object btnTJ: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
OnClick = btnTJClick
end
object btnCXTJ: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #25764#38144#25552#20132
ImageIndex = 11
OnClick = btnCXTJClick
end
object btnChk: TToolButton
Left = 600
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = btnChkClick
end
object btnReChk: TToolButton
Left = 497
Left = 671
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@ -94,7 +109,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = btnReChkClick
end
object ToolButton7: TToolButton
Left = 600
Left = 774
Top = 0
AutoSize = True
Caption = #26680#38144
@ -102,7 +117,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton7Click
end
object ToolButton8: TToolButton
Left = 671
Left = 845
Top = 0
AutoSize = True
Caption = #26680#38144#26085#24535
@ -110,7 +125,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton8Click
end
object ToolButton1: TToolButton
Left = 774
Left = 948
Top = 0
AutoSize = True
Caption = #23548#20837
@ -118,7 +133,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 845
Left = 1019
Top = 0
AutoSize = True
Caption = #23548#20986
@ -126,7 +141,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton4Click
end
object ToolButton9: TToolButton
Left = 916
Left = 1090
Top = 0
AutoSize = True
Caption = #38468#20214
@ -134,7 +149,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton9Click
end
object ToolButton5: TToolButton
Left = 987
Left = 1161
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -142,7 +157,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 1090
Left = 1264
Top = 0
AutoSize = True
Caption = #20851#38381
@ -158,10 +173,9 @@ inherited frmCollectList: TfrmCollectList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
ExplicitLeft = -1
object Label3: TLabel
Left = 24
Top = 52
@ -210,7 +224,6 @@ inherited frmCollectList: TfrmCollectList
Top = 46
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 0
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object F_Name: TcxTextEdit
@ -264,32 +277,26 @@ inherited frmCollectList: TfrmCollectList
Width = 1621
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 6
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1621
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
@ -299,12 +306,6 @@ inherited frmCollectList: TfrmCollectList
Width = 1625
Height = 411
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
@ -344,6 +345,7 @@ inherited frmCollectList: TfrmCollectList
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object Tv1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
@ -351,7 +353,7 @@ inherited frmCollectList: TfrmCollectList
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 55
Width = 44
end
object v2CRTime: TcxGridDBColumn
Tag = 7
@ -363,7 +365,7 @@ inherited frmCollectList: TfrmCollectList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
@ -371,7 +373,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 116
end
object v2FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
@ -379,7 +381,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 99
end
object v2OrderNo: TcxGridDBColumn
Tag = 7
@ -388,7 +390,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 106
end
object Tv1Column1: TcxGridDBColumn
Caption = #25105#26041#36134#25143
@ -396,7 +398,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #23545#26041#36134#25143
@ -404,7 +406,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 86
end
object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335
@ -412,7 +414,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 81
end
object Tv1Column10: TcxGridDBColumn
Caption = #25910#27454#31867#22411
@ -420,7 +422,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 87
end
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
@ -428,7 +430,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column20: TcxGridDBColumn
Caption = #35746#21333#21495
@ -436,14 +438,14 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 75
end
object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 55
Width = 84
end
object Tv1Column4: TcxGridDBColumn
Caption = #25688#35201
@ -451,7 +453,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 72
end
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
@ -459,7 +461,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181
@ -467,7 +469,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #26680#38144#37329#39069
@ -475,7 +477,15 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 117
end
object Tv1Column11: TcxGridDBColumn
Caption = #21457#31080#21495
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column6: TcxGridDBColumn
Caption = #22791#27880
@ -483,7 +493,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 89
end
object Tv1Column7: TcxGridDBColumn
Caption = #38468#20214
@ -492,7 +502,7 @@ inherited frmCollectList: TfrmCollectList
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 51
end
object Tv1Column8: TcxGridDBColumn
Caption = #24067#31181
@ -500,7 +510,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #21152#24037#21035
@ -508,7 +518,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 82
end
end
object cxGridLevel1: TcxGridLevel
@ -526,49 +536,56 @@ inherited frmCollectList: TfrmCollectList
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#26410#25552#20132
#24453#23457#26680
#24050#23457#26680
#20840#37096)
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 355
Top = 360
ExplicitLeft = 355
ExplicitTop = 360
end
inherited cxProgressBar2: TcxProgressBar
Left = 482
Top = 283
ExplicitLeft = 482
ExplicitTop = 283
Left = 355
Top = 293
ExplicitLeft = 355
ExplicitTop = 293
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 262
Top = 288
Left = 632
Top = 219
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 92
Top = 252
Left = 715
Top = 219
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 197
Top = 433
Left = 964
Top = 219
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 101
Top = 433
Left = 798
Top = 219
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 293
Top = 433
Left = 881
Top = 219
end
object RM1: TRMGridReport
ThreadPrepareReport = True
@ -586,35 +603,35 @@ inherited frmCollectList: TfrmCollectList
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 232
Top = 288
Left = 632
Top = 343
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
Left = 168
Top = 280
Left = 964
Top = 281
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 472
Top = 360
Left = 715
Top = 281
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 611
Top = 363
Left = 798
Top = 281
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 544
Top = 360
Left = 632
Top = 281
end
object PopupMenu1: TPopupMenu
Left = 544
Top = 288
Left = 881
Top = 281
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click

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

@ -85,6 +85,9 @@ type
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
ToolButton2: TToolButton;
btnTJ: TToolButton;
btnCXTJ: TToolButton;
Tv1Column11: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -109,11 +112,9 @@ type
procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnTJClick(Sender: TObject);
procedure btnCXTJClick(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -137,6 +138,16 @@ begin
btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除
btnChk.Enabled := false; //审核
btnReChk.Enabled := false; //撤销
btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除
btnTJ.Enabled := false; //修改
btnCXTJ.Enabled := false; //删除
// if Trim(FAuthority) = '管理' then
begin
btnAdd.Enabled := true;
@ -145,16 +156,22 @@ begin
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
btnChk.Enabled := true;
btnTJ.Enabled := true;
end;
1:
begin
btnReChk.Enabled := true;
btnCXTJ.Enabled := true;
btnChk.Enabled := true;
end;
2:
begin
btnReChk.Enabled := true;
end;
3:
begin
end;
end;
end;
end;
@ -168,17 +185,29 @@ begin
SqlStr := ' select A.* ';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''财务流水'' and X.WBID=A.FFID)>0 THEN 1 ELSE 0 END) AS BIT)';
SqlStr := SqlStr + ' from Finance_Flow A ';
if FAuthority = '低权限' then
SqlStr := SqlStr + ' left join Bs_Company B on A.OppCoNo=B.CoCode ';
SqlStr := SqlStr + ' where A.FFType=''收款登记'' ';
if FAuthority = '低权限' then
SqlStr := SqlStr + ' and CHARINDEX(' + quotedstr(DCode) + ',(ISNULL(SalesId, '''') +'',''+ISNULL(TallyId, '''')+'',''+A.FillId) ) > 0 ';
SqlStr := SqlStr + ' and A.FFTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.FFTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''1'' ';
end;
2:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end;
end;
@ -208,6 +237,12 @@ begin
Action := caFree;
end;
procedure TfrmCollectList.FormCreate(Sender: TObject);
begin
inherited;
FAuthority := Trim(Self.fParameters1);
end;
procedure TfrmCollectList.TBCloseClick(Sender: TObject);
begin
@ -275,41 +310,6 @@ begin
InitGrid();
end;
procedure TfrmCollectList.cxButton1Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmCollectList.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid();
end;
procedure TfrmCollectList.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid();
end;
procedure TfrmCollectList.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmCollectList.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmCollectList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@ -492,6 +492,7 @@ begin
with frmCollectInput do
begin
FFFID := '';
FAuthority := Self.FAuthority;
if ShowModal = 1 then
begin
InitGrid();
@ -527,6 +528,8 @@ begin
with frmCollectInput do
begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
CopyFlag := 99;
FAuthority := Self.FAuthority;
if ShowModal = 1 then
begin
InitGrid();
@ -537,6 +540,52 @@ begin
end;
end;
procedure TfrmCollectList.btnTJClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''提交'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('提交成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmCollectList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
@ -559,6 +608,51 @@ begin
WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
end;
procedure TfrmCollectList.btnCXTJClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销提交'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('撤销提交成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmCollectList.btnEditClick(Sender: TObject);
begin
try
@ -584,6 +678,7 @@ begin
with frmCollectInput do
begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
FAuthority := Self.FAuthority;
if ShowModal = 1 then
begin
InitGrid();
@ -677,8 +772,6 @@ end;
procedure TfrmCollectList.OppCoNamePropertiesChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
end;

105
A09财务通用管理/U_CustStatement.dfm
View File

@ -3,12 +3,11 @@ inherited frmCustStatement: TfrmCustStatement
Top = 189
Caption = #24212#25910#24050#25910#27719#24635
ClientHeight = 520
ClientWidth = 1253
Color = clBtnFace
ClientWidth = 1436
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1269
ExplicitWidth = 1452
ExplicitHeight = 559
PixelsPerInch = 96
TextHeight = 21
@ -16,7 +15,7 @@ inherited frmCustStatement: TfrmCustStatement
Tag = 1
Left = 0
Top = 0
Width = 1253
Width = 1436
Height = 30
AutoSize = True
ButtonHeight = 30
@ -98,68 +97,62 @@ inherited frmCustStatement: TfrmCustStatement
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1253
Height = 83
Width = 1436
Height = 99
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
object Label3: TLabel
Left = 23
Top = 48
Left = 45
Top = 58
Width = 64
Height = 21
Caption = #23545#26041#21333#20301
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 93
Top = 45
Left = 115
Top = 54
TabOrder = 0
Width = 264
Width = 265
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1249
Width = 1432
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1249
ExplicitWidth = 1432
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 142
Width = 1253
Height = 378
Top = 158
Width = 1436
Height = 362
Align = alClient
TabOrder = 2
object Tv2: TcxGridDBTableView
@ -259,6 +252,8 @@ inherited frmCustStatement: TfrmCustStatement
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 30
object v2Column6: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
@ -273,8 +268,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #19978#26399#27424#27454
DataBinding.FieldName = 'SQJYAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 96
@ -283,8 +278,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #26412#26399#24212#25910
DataBinding.FieldName = 'BQYSAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 106
@ -293,8 +288,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #26412#26399#25910#27454
DataBinding.FieldName = 'BQSKAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 108
@ -303,8 +298,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #26412#26399#27424#27454
DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 104
@ -313,6 +308,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #26412#26399#27424#31080
DataBinding.FieldName = 'BQWKTaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
@ -321,6 +318,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #26412#26399#24320#31080
DataBinding.FieldName = 'BQYKTaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -332,8 +331,8 @@ inherited frmCustStatement: TfrmCustStatement
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 113
Width = 1253
Top = 129
Width = 1436
Height = 29
Align = alTop
TabOrder = 3
@ -349,11 +348,17 @@ inherited frmCustStatement: TfrmCustStatement
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 496
Top = 275
ExplicitLeft = 496
ExplicitTop = 275
end
inherited cxProgressBar2: TcxProgressBar
Left = 872
Top = 384
ExplicitLeft = 872
ExplicitTop = 384
Left = 496
Top = 240
ExplicitLeft = 496
ExplicitTop = 240
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery

135
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,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
FrameDateSel;
FrameDateSel, cxButtons, cxCurrencyEdit;
type
TfrmCustStatement = class(TfrmBaseList)
@ -64,13 +64,10 @@ type
procedure N1Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FAuthority: string;
procedure InitGrid();
public
fmanage, FZKType: string;
@ -81,7 +78,7 @@ type
implementation
uses
U_DataLink, U_RtFun, U_ZDYHelp, U_SingleCustStatement, U_LabelPrint;
U_DataLink, U_RtFun, U_RPFun, U_ZDYHelp, U_SingleCustStatement, U_LabelPrint;
{$R *.dfm}
@ -111,7 +108,10 @@ begin
begin
sql.Add(' ,@Currency=''EUR'' ');
end;
end;
if FAuthority = '低权限' then
sql.Add(' ,@DCode=' + QuotedStr(Trim(DCode)));
Open;
end;
@ -137,6 +137,12 @@ begin
Action := caFree;
end;
procedure TfrmCustStatement.FormCreate(Sender: TObject);
begin
inherited;
FAuthority := Trim(Self.fParameters1);
end;
procedure TfrmCustStatement.TBCloseClick(Sender: TObject);
begin
@ -154,6 +160,7 @@ end;
procedure TfrmCustStatement.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus();
InitGrid();
end;
@ -186,8 +193,8 @@ begin
frmSingleCustStatement := TfrmSingleCustStatement.Create(self);
with frmSingleCustStatement do
begin
frmFrameDateSel1.begdate.Date := self.frmFrameDateSel1.begdate.Date;
frmFrameDateSel1.enddate.Date := self.frmFrameDateSel1.Enddate.Date;
begdate.Date := self.frmFrameDateSel1.begdate.Date;
enddate.Date := self.frmFrameDateSel1.Enddate.Date;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
FZKType := Self.FZKType;
@ -211,86 +218,73 @@ end;
procedure TfrmCustStatement.ToolButton4Click(Sender: TObject);
var
WSql: string;
MFiltration: string;
MPrintJson: string;
begin
if CDS_HZ.IsEmpty then
exit;
WSql := ' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)));
MFiltration := ' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
MFiltration := MFiltration + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)));
case cxTabControl1.TabIndex of
0:
begin
WSql := WSql + ' ,@Currency=''USD'' ';
MFiltration := MFiltration + ' ,@Currency=''USD'' ';
end;
1:
begin
WSql := WSql + ' ,@Currency=''CNY'' ';
MFiltration := MFiltration + ' ,@Currency=''CNY'' ';
end;
2:
begin
WSql := WSql + ' ,@Currency=''EUR'' ';
MFiltration := MFiltration + ' ,@Currency=''EUR'' ';
end;
end;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
IsSql1 := True;
FLMType := 'CustStatement';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
MPrintJson := ' {"LMType": "CustStatement" ';
MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
end;
procedure TfrmCustStatement.ToolButton5Click(Sender: TObject);
var
WSql: string;
MFiltration: string;
MPrintJson: string;
begin
if CDS_HZ.IsEmpty then
exit;
WSql := ' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)));
WSql := WSql + ' ,@OppCoNo=' + QuotedStr(Trim(self.CDS_HZ.fieldbyname('OppCoNo').AsString));
MFiltration := ' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
MFiltration := MFiltration + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)));
MFiltration := MFiltration + ' ,@OppCoNo=' + QuotedStr(Trim(self.CDS_HZ.fieldbyname('OppCoNo').AsString));
case cxTabControl1.TabIndex of
0:
begin
WSql := WSql + ' ,@Currency=''USD'' ';
MFiltration := MFiltration + ' ,@Currency=''USD'' ';
end;
1:
begin
WSql := WSql + ' ,@Currency=''CNY'' ';
MFiltration := MFiltration + ' ,@Currency=''CNY'' ';
end;
2:
begin
WSql := WSql + ' ,@Currency=''EUR'' ';
MFiltration := MFiltration + ' ,@Currency=''EUR'' ';
end;
end;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
IsSql1 := True;
FLMType := 'SingleCustStatement';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
MPrintJson := ' {"LMType": "SingleCustStatement" ';
MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
end;
@ -305,41 +299,6 @@ begin
end;
end;
procedure TfrmCustStatement.cxButton1Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmCustStatement.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid();
end;
procedure TfrmCustStatement.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid();
end;
procedure TfrmCustStatement.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmCustStatement.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmCustStatement.cxTabControl1Change(Sender: TObject);
begin
InitGrid();

525
A09财务通用管理/U_CustStatementWriteOff.dfm
View File

File diff suppressed because it is too large Load Diff

43
A09财务通用管理/U_CustStatementWriteOff.pas
View File

@ -76,40 +76,16 @@ type
TV1Column22: TcxGridDBBandedColumn;
TV1Column23: TcxGridDBBandedColumn;
TV1Column24: TcxGridDBBandedColumn;
TV1Column25: TcxGridDBBandedColumn;
TV1Column26: TcxGridDBBandedColumn;
TV1Column27: TcxGridDBBandedColumn;
TV1Column28: TcxGridDBBandedColumn;
TV1Column29: TcxGridDBBandedColumn;
TV1Column30: TcxGridDBBandedColumn;
TV1Column31: TcxGridDBBandedColumn;
TV1Column32: TcxGridDBBandedColumn;
TV1Column33: TcxGridDBBandedColumn;
TV1Column34: TcxGridDBBandedColumn;
TV1Column35: TcxGridDBBandedColumn;
TV1Column36: TcxGridDBBandedColumn;
TV1Column37: TcxGridDBBandedColumn;
Label5: TLabel;
factoryName: TcxTextEdit;
TV1Column38: TcxGridDBBandedColumn;
OppCoName: TcxTextEdit;
TV1Column39: TcxGridDBBandedColumn;
TV1Column40: TcxGridDBBandedColumn;
ToolButton4: TToolButton;
TV1Column41: TcxGridDBBandedColumn;
Label6: TLabel;
FactoryNo: TcxTextEdit;
Label7: TLabel;
FactType: TcxTextEdit;
TV1Column42: TcxGridDBBandedColumn;
TV1Column43: TcxGridDBBandedColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
ToolButton5: TToolButton;
TV1Column44: TcxGridDBBandedColumn;
TV1Column45: TcxGridDBBandedColumn;
N2: TMenuItem;
chkqm: TCheckBox;
TV1Column46: TcxGridDBBandedColumn;
TV1Column25: TcxGridDBBandedColumn;
TV1Column26: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -118,14 +94,13 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure P_OrderNo_YSK(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure factoryNameChange(Sender: TObject);
procedure FKKPFactoryNameBtnDnClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject);
private
{ Private declarations }
function getNumberFromStr(strIn: string; sFlag: string): string;
@ -310,15 +285,9 @@ begin
TcxGridToExcel(self.Caption, cxgrid2);
end;
procedure TfrmCustStatementWriteOff.OrderNoChange(Sender: TObject);
begin
if Length(Trim(OrderNo.Text)) < 3 then
Exit;
ToolButton2.Click;
end;
procedure TfrmCustStatementWriteOff.MPRTCodeNameChange(Sender: TObject);
procedure TfrmCustStatementWriteOff.OppCoNamePropertiesChange(Sender: TObject);
begin
inherited;
ToolButton2.Click;
end;

22
A09财务通用管理/U_DataLink.pas
View File

@ -5,9 +5,25 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer,
dxSkinsForm, dxCore, cxLocalization, dxLayoutLookAndFeels, dxSkinsCore,
dxSkinsDefaultPainters;
System.ImageList, U_BaseDataLink,
cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm,
dxCore, cxLocalization,
dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters;
type
TMyThread = class(TThread)

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

@ -4,7 +4,7 @@ object frmExpenseInput: TfrmExpenseInput
Caption = #36153#29992#30331#35760
ClientHeight = 501
ClientWidth = 1082
Color = clBtnFace
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -60,7 +60,9 @@ object frmExpenseInput: TfrmExpenseInput
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label18: TLabel
@ -92,14 +94,15 @@ object frmExpenseInput: TfrmExpenseInput
Caption = #25105#26041#21333#20301
end
object Label9: TLabel
Left = 520
Top = 15
Left = 792
Top = 399
Width = 64
Height = 21
Caption = #19978#32423#21333#20301
Visible = False
end
object Label20: TLabel
Left = 766
Left = 520
Top = 15
Width = 67
Height = 21
@ -149,7 +152,7 @@ object frmExpenseInput: TfrmExpenseInput
end
object OurCoName: TcxButtonEdit
Left = 107
Top = 12
Top = 11
Properties.Buttons = <
item
Default = True
@ -164,13 +167,13 @@ object frmExpenseInput: TfrmExpenseInput
end
object OppCoName: TcxButtonEdit
Left = 345
Top = 12
Top = 11
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.ReadOnly = False
Properties.OnButtonClick = OppCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 1
@ -178,8 +181,8 @@ object frmExpenseInput: TfrmExpenseInput
Width = 159
end
object OppParentCoName: TcxButtonEdit
Left = 594
Top = 12
Left = 866
Top = 396
Properties.Buttons = <
item
Default = True
@ -189,13 +192,13 @@ object frmExpenseInput: TfrmExpenseInput
Properties.OnButtonClick = OppParentCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 2
Visible = False
OnDblClick = OurCoNameDblClick
Width = 151
end
object FFTime: TcxDateEdit
Left = 840
Top = 12
Enabled = False
Left = 594
Top = 11
Properties.ShowTime = False
TabOrder = 3
Width = 151

37
A09财务通用管理/U_ExpenseInput.pas
View File

@ -162,22 +162,39 @@ end;
procedure TfrmExpenseInput.OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
// FCoType := '¹©Ó¦ÉÌ';
flag := 'OppCoName1';
flagname := '¶Ô·½µ¥Î»';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppCoName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmCompanySel.Free;
frmZDYHelp.Free;
end;
// try
// frmCompanySel := TfrmCompanySel.Create(Application);
// with frmCompanySel do
// begin
// FCoType := '¹©Ó¦ÉÌ';
// if ShowModal = 1 then
// begin
// OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
// OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
// OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
// OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
// end;
// end;
// finally
// frmCompanySel.Free;
// end;
end;
procedure TfrmExpenseInput.OppParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -189,7 +206,7 @@ begin
// FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
begin
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -272,7 +289,7 @@ begin
FCoType := 'ÎÒ˾';
if ShowModal = 1 then
begin
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OurCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;

73
A09财务通用管理/U_ExpenseList.dfm
View File

@ -4,7 +4,6 @@ inherited frmExpenseList: TfrmExpenseList
Caption = #36153#29992#31649#29702
ClientHeight = 590
ClientWidth = 1625
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
@ -126,19 +125,19 @@ inherited frmExpenseList: TfrmExpenseList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
object Label3: TLabel
Left = 26
Top = 46
Top = 51
Width = 64
Height = 21
Caption = #23545#26041#21333#20301
end
object Label4: TLabel
Left = 265
Top = 46
Top = 51
Width = 32
Height = 21
Caption = #21697#21517
@ -153,13 +152,13 @@ inherited frmExpenseList: TfrmExpenseList
object Label10: TLabel
Left = 474
Top = 85
Width = 68
Width = 48
Height = 21
Caption = #21512' '#21516' '#21495
Caption = #21512#21516#21495
end
object Label11: TLabel
Left = 478
Top = 46
Left = 474
Top = 51
Width = 64
Height = 21
Caption = #23458#25143#21333#21495
@ -174,19 +173,17 @@ inherited frmExpenseList: TfrmExpenseList
object OppCoName: TcxTextEdit
Tag = 2
Left = 92
Top = 42
Top = 47
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 0
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object F_Name: TcxTextEdit
Tag = 2
Left = 299
Top = 42
Top = 47
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 1
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object P_Code: TcxTextEdit
@ -195,7 +192,6 @@ inherited frmExpenseList: TfrmExpenseList
Top = 81
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 2
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object ConNo: TcxTextEdit
@ -204,16 +200,14 @@ inherited frmExpenseList: TfrmExpenseList
Top = 81
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 3
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object BuyConNo: TcxTextEdit
Tag = 2
Left = 543
Top = 42
Top = 47
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 4
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object OppParentCoName: TcxTextEdit
@ -222,7 +216,6 @@ inherited frmExpenseList: TfrmExpenseList
Top = 81
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 5
OnKeyPress = OppCoNameKeyPress
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
@ -231,32 +224,26 @@ inherited frmExpenseList: TfrmExpenseList
Width = 1621
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 6
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1621
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
@ -450,11 +437,17 @@ inherited frmExpenseList: TfrmExpenseList
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 496
Top = 376
ExplicitLeft = 496
ExplicitTop = 376
end
inherited cxProgressBar2: TcxProgressBar
Left = 595
Top = 328
ExplicitLeft = 595
ExplicitTop = 328
Left = 448
Top = 280
ExplicitLeft = 448
ExplicitTop = 280
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery

55
A09财务通用管理/U_ExpenseList.pas
View File

@ -95,12 +95,6 @@ type
procedure N3Click(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure OppCoNameKeyPress(Sender: TObject; var Key: Char);
private
procedure InitGrid();
procedure SetStatus();
@ -167,7 +161,7 @@ begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
end;
end;
// showmessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
end;
@ -263,41 +257,6 @@ begin
end;
procedure TfrmExpenseList.cxButton1Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmExpenseList.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid()
end;
procedure TfrmExpenseList.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid()
end;
procedure TfrmExpenseList.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmExpenseList.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmExpenseList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@ -441,7 +400,7 @@ begin
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''³·ÏúÉóºË'' ');
sql.Add(',@Operation=''撤销审核费用'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
@ -568,18 +527,8 @@ begin
end;
procedure TfrmExpenseList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmExpenseList.OppCoNamePropertiesChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
end;

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

File diff suppressed because it is too large Load Diff

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

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxContainer, cxImageList;
dxSkinsDefaultPainters, dxScrollbarAnnotations;
type
TfrmFinTradePlanSel = class(TfrmBaseHelp)
@ -55,37 +55,29 @@ type
Tv1Column5: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Label3: TLabel;
Label8: TLabel;
OrderNo: TcxTextEdit;
ConNo: TcxTextEdit;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
C_Name: TcxTextEdit;
C_Color: TcxTextEdit;
C_ColorNo: TcxTextEdit;
C_Pattern: TcxTextEdit;
C_Code: TcxTextEdit;
Label1: TLabel;
Label9: TLabel;
GC_Name: TcxTextEdit;
CraftCode: TcxTextEdit;
cxImageList_bar: TcxImageList;
Label8: TLabel;
OrderNo: TEdit;
C_Name: TEdit;
C_Color: TEdit;
C_ColorNo: TEdit;
C_Pattern: TEdit;
C_Code: TEdit;
ConNo: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
procedure OrderNoPropertiesChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
@ -143,6 +135,8 @@ begin
sql.Clear;
sql.Add('select A.* from V_Trade_Plan_Fty A ');
sql.add('where Status=''9'' ');
if Self.FAuthority = 'ÓµÓÐÕß' then
sql.Add(' and exists (select * from [dbo].[f_get_user_dataRight](' + quotedstr(trim(DCode)) + ',''óÒ׼ƻ®µ¥'') X where X.keyno =A.Mainid )');
// ShowMessage(sql.Text);
Open;
end;
@ -154,14 +148,7 @@ begin
end;
end;
procedure TfrmFinTradePlanSel.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
InitGrid();
end;
procedure TfrmFinTradePlanSel.OrderNoPropertiesChange(Sender: TObject);
procedure TfrmFinTradePlanSel.OrderNoChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin

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

File diff suppressed because it is too large Load Diff

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

@ -9,10 +9,9 @@ uses
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxDropDownEdit, cxCheckBox, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxContainer, cxImageList;
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations;
type
TfrmFinTradeSalesContractSel = class(TfrmBaseHelp)
@ -27,6 +26,8 @@ type
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ConNo: TEdit;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository;
@ -73,27 +74,10 @@ type
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label3: TLabel;
OrderNo: TcxTextEdit;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
C_Name: TcxTextEdit;
C_Color: TcxTextEdit;
C_ColorNo: TcxTextEdit;
C_Pattern: TcxTextEdit;
C_Code: TcxTextEdit;
Label1: TLabel;
Label9: TLabel;
GC_Name: TcxTextEdit;
CraftCode: TcxTextEdit;
Label8: TLabel;
ConNo: TcxTextEdit;
cxImageList_bar: TcxImageList;
TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
C_Name: TEdit;
Label3: TLabel;
BuyName: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -105,8 +89,6 @@ type
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure OrderNoPropertiesChange(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private
procedure InitGrid();
{ Private declarations }
@ -175,6 +157,9 @@ begin
sql.Add(' and conNo=' + quotedstr(fconNo));
if trim(fC_Code) <> '' then
sql.Add(' and C_Code=' + quotedstr(fC_Code));
if Self.FAuthority = 'ÓµÓÐÕß' then
sql.Add(' and exists (select * from [dbo].[f_get_user_dataRight](' + quotedstr(trim(DCode)) + ',''ÏúÊÛºÏͬ'') X where X.keyno =A.CONMID )');
// ShowMessage(SQL.Text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
@ -196,23 +181,6 @@ begin
SelOKNo(CDS_1, False);
end;
procedure TfrmFinTradeSalesContractSel.OrderNoKeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13 then
InitGrid();
end;
procedure TfrmFinTradeSalesContractSel.OrderNoPropertiesChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmFinTradeSalesContractSel.FormShow(Sender: TObject);
begin
inherited;

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

@ -4,7 +4,6 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #24212#20184#24050#20184#27719#24635
ClientHeight = 520
ClientWidth = 1247
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
@ -20,7 +19,7 @@ inherited frmFtyStatement: TfrmFtyStatement
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
ButtonWidth = 95
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Financial.ImageList_new32
@ -38,7 +37,7 @@ inherited frmFtyStatement: TfrmFtyStatement
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 71
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
@ -46,7 +45,7 @@ inherited frmFtyStatement: TfrmFtyStatement
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 142
Left = 126
Top = 0
AutoSize = True
Caption = #26597#30475#23545#36134#21333
@ -54,7 +53,7 @@ inherited frmFtyStatement: TfrmFtyStatement
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 261
Left = 225
Top = 0
AutoSize = True
Caption = #24212#20184#27454#27719#24635
@ -62,7 +61,7 @@ inherited frmFtyStatement: TfrmFtyStatement
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 380
Left = 324
Top = 0
AutoSize = True
Caption = #24212#20184#26126#32454#21333
@ -70,7 +69,7 @@ inherited frmFtyStatement: TfrmFtyStatement
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
Left = 499
Left = 423
Top = 0
AutoSize = True
Caption = #26356#26032#25968#25454
@ -78,7 +77,7 @@ inherited frmFtyStatement: TfrmFtyStatement
OnClick = ToolButton6Click
end
object ToolButton1: TToolButton
Left = 602
Left = 510
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -86,27 +85,35 @@ inherited frmFtyStatement: TfrmFtyStatement
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 705
Left = 597
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object ToolButton7: TToolButton
Left = 660
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton7Click
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1247
Height = 86
Height = 83
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
object Label3: TLabel
Left = 25
Left = 20
Top = 51
Width = 64
Height = 21
@ -114,10 +121,10 @@ inherited frmFtyStatement: TfrmFtyStatement
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 93
Top = 45
Left = 88
Top = 47
TabOrder = 0
Width = 264
Width = 200
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
@ -125,40 +132,34 @@ inherited frmFtyStatement: TfrmFtyStatement
Width = 1243
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1243
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 145
Top = 142
Width = 1247
Height = 375
Height = 378
Align = alClient
PopupMenu = PM_1
TabOrder = 2
@ -259,6 +260,8 @@ inherited frmFtyStatement: TfrmFtyStatement
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 60
object v2Column6: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
@ -346,7 +349,7 @@ inherited frmFtyStatement: TfrmFtyStatement
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 116
Top = 113
Width = 1247
Height = 29
Align = alTop
@ -363,7 +366,17 @@ inherited frmFtyStatement: TfrmFtyStatement
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 472
Top = 208
ExplicitLeft = 472
ExplicitTop = 208
end
inherited cxProgressBar2: TcxProgressBar
Left = 499
Top = 267
ExplicitLeft = 499
ExplicitTop = 267
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery

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

@ -16,7 +16,7 @@ uses
dxBarBuiltInMenu, cxPC, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd,
DateUtils, cxContainer, dxCore, cxDateUtils, cxDropDownEdit,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
FrameDateSel;
cxButtons, FrameDateSel;
type
TfrmFtyStatement = class(TfrmBaseList)
@ -57,6 +57,7 @@ type
ToolButton5: TToolButton;
ToolButton6: TToolButton;
frmFrameDateSel1: TfrmFrameDateSel;
ToolButton7: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -70,11 +71,7 @@ type
procedure N1Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -118,7 +115,7 @@ begin
sql.Add(' ,@Currency=''EUR'' ');
end;
end;
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
@ -160,6 +157,7 @@ end;
procedure TfrmFtyStatement.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus();
InitGrid();
end;
@ -192,8 +190,8 @@ begin
frmSingleFtyStatement := TfrmSingleFtyStatement.Create(self);
with frmSingleFtyStatement do
begin
frmFrameDateSel1.begdate.Date := self.frmFrameDateSel1.begdate.Date;
frmFrameDateSel1.Enddate.Date := self.frmFrameDateSel1.Enddate.Date;
begdate.Date := self.frmFrameDateSel1.begdate.Date;
enddate.Date := self.frmFrameDateSel1.Enddate.Date;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
FZKType := Self.FZKType;
@ -307,44 +305,17 @@ begin
Close;
Sql.Clear;
Sql.Add('exec P_Fin_Up_All ');
Open;
execsql;
end;
end;
procedure TfrmFtyStatement.cxButton1Click(Sender: TObject);
procedure TfrmFtyStatement.ToolButton7Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid()
end;
procedure TfrmFtyStatement.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid()
end;
procedure TfrmFtyStatement.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid()
end;
procedure TfrmFtyStatement.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid()
end;
procedure TfrmFtyStatement.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid()
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxgrid2);
end;
procedure TfrmFtyStatement.cxTabControl1Change(Sender: TObject);

44
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_RankingList;
U_RankingList, U_InvoiceOutSQList;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -77,11 +77,15 @@ begin
// user := 'sa';
// pswd := 'rightsoft';
server := '101.132.143.144,7781';
dtbase := 'xushangData';
dtbase := 'changyoudata';
user := 'rtsa';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '¹ÜÀí';
// Parameters1 := '管理';
Parameters1 := '低权限';
// Parameters1 := '完成';
// Parameters1 := '录入';
DCode := '005';
DName := 'ADMIN';
end
else
@ -155,6 +159,18 @@ begin
end;
end;
130: //销项发票申请
begin
with TfrmInvoiceOutSQList.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;
131: //销项发票管理
begin
with TfrmInvoiceOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
@ -179,17 +195,17 @@ begin
end;
end;
// 142: //¿Í»§Äê¶È¶ÔÕ˵¥
// begin
// with TfrmCustStatementWriteOff.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;
142: //客户年度对账单
begin
with TfrmCustStatementWriteOff.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;
211: //应付款登记
begin

50
A09财务通用管理/U_InvoiceInInPut.dfm
View File

@ -1,22 +1,18 @@
object frmInvoiceInInPut: TfrmInvoiceInInPut
inherited frmInvoiceInInPut: TfrmInvoiceInInPut
Left = 484
Top = 189
Caption = #36827#39033#21457#31080#24405#20837
ClientHeight = 504
ClientWidth = 1530
Color = clBtnFace
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnDestroy = FormDestroy
OnShow = FormShow
ExplicitWidth = 1546
ExplicitHeight = 543
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
@ -80,7 +76,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
object cxGrid1: TcxGrid [1]
Left = 0
Top = 30
Width = 1530
@ -203,7 +199,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Width = 80
end
object v1P_CodeName: TcxGridDBColumn
Caption = #33394#24067#21517#31216
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@ -228,7 +224,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
Properties.OnEditValueChanged = v1MoneyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 83
end
@ -251,7 +247,6 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 93
end
@ -260,8 +255,8 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1MoneyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column3: TcxGridDBColumn
@ -269,7 +264,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
DataBinding.FieldName = 'tax'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
Properties.OnEditValueChanged = v1MoneyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -277,8 +272,9 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Caption = #31246#39069
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 53
end
object v1Column4: TcxGridDBColumn
@ -286,8 +282,8 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column8: TcxGridDBColumn
@ -309,11 +305,27 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #23545#26041#21333#20301#20840#31216
DataBinding.FieldName = 'OppCoNameZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object DataSource1: TDataSource
DataSet = CDS_Invoice
Left = 516
@ -328,8 +340,8 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 280
Top = 112
Left = 331
Top = 95
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_Financial.ADOLink

165
A09财务通用管理/U_InvoiceInInPut.pas
View File

@ -4,16 +4,18 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
System.Math, 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,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, U_BaseList,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxScrollbarAnnotations;
dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, U_BaseInput, cxImageList, System.ImageList,
Vcl.ImgList;
type
TfrmInvoiceInInPut = class(TForm)
TfrmInvoiceInInPut = class(TfrmBaseInput)
DataSource1: TDataSource;
CDS_Invoice: TClientDataSet;
GPM_1: TcxGridPopupMenu;
@ -48,6 +50,7 @@ type
ToolButton4: TToolButton;
CDS_LM: TClientDataSet;
OpenDialog1: TOpenDialog;
Tv1Column9: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject);
@ -64,6 +67,8 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure v1MoneyPropertiesEditValueChanged(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
private
procedure initGrid();
procedure SaveDate();
@ -166,6 +171,7 @@ end;
procedure TfrmInvoiceInInPut.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Self.Caption, Tv1, '财务管理');
with CDS_LM do
begin
@ -205,6 +211,97 @@ begin
SaveDate();
end;
procedure TfrmInvoiceInInPut.v1Column5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FTaxFee: 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;
FAmount := FieldbyName('Amount').AsFloat;
FPrice := FieldbyName('Price').AsFloat;
Ftax := FieldbyName('tax').AsFloat;
FTaxFee := FieldbyName('TaxFee').AsFloat;
end;
if FQty <> 0 then
begin
FPrice := strtofloat(format('%.13f', [FAmount / FQty]));
// FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
// FTaxFee := RoundTo((FPrice * FQty * (Ftax / 100)), -2);
end
else
begin
FPrice := 0;
FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
end;
with CDS_Invoice do
begin
Edit;
FieldByName('Price').Value := FPrice;
FieldByName('TaxFee').Value := FTaxFee;
FieldByName('taxAmount').Value := FTaxFee + FAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceInInPut.v1MoneyPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FTaxFee: 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;
FAmount := FieldbyName('Amount').AsFloat;
FPrice := FieldbyName('Price').AsFloat;
Ftax := FieldbyName('tax').AsFloat;
end;
if FQty <> 0 then
begin
FPrice := strtofloat(format('%.13f', [FAmount / FQty]));
// FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
FTaxFee := RoundTo((FPrice * FQty * (Ftax / 100)), -2);
end
else
begin
FPrice := 0;
FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
end;
with CDS_Invoice do
begin
Edit;
FieldByName('Price').Value := FPrice;
FieldByName('TaxFee').Value := FTaxFee;
FieldByName('taxAmount').Value := FTaxFee + FAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceInInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@ -216,8 +313,8 @@ begin
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.CDS_Invoice.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
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
@ -324,7 +421,7 @@ 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);
Self.CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
@ -364,9 +461,10 @@ begin
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('OppCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
Self.CDS_Invoice.FieldByName('OppCoNameZ').Value := Trim(CDS_1.fieldbyname('CoName').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);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -385,7 +483,7 @@ begin
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);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -394,21 +492,42 @@ begin
end;
procedure TfrmInvoiceInInPut.ToolButton1Click(Sender: TObject);
var
maxno: string;
begin
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;
CopyAddRow(Tv1, CDS_Invoice);
with CDS_Invoice do
begin
CDS_Invoice.Edit;
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;
end;
//begin
// 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 TfrmInvoiceInInPut.ToolButton2Click(Sender: TObject);
begin

61
A09财务通用管理/U_InvoiceInList.dfm
View File

@ -4,7 +4,6 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Caption = #36827#39033#21457#31080#31649#29702
ClientHeight = 626
ClientWidth = 1558
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
@ -37,13 +36,13 @@ inherited frmInvoiceInList: TfrmInvoiceInList
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
OnClick = ToolButton2Click
end
object TADD: TToolButton
Left = 142
@ -143,8 +142,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
object Label3: TLabel
Left = 27
@ -179,51 +178,41 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Top = 85
Width = 64
Height = 21
Caption = #33394#24067#21517#31216
Caption = #20135#21697#21517#31216
end
object F_Name: TcxTextEdit
Tag = 2
Left = 93
Top = 79
Properties.OnChange = IVNoPropertiesChange
TabOrder = 0
OnKeyPress = IVNoKeyPress
Width = 150
end
object IVNo: TcxTextEdit
Tag = 2
Left = 93
Top = 41
Properties.OnChange = IVNoPropertiesChange
TabOrder = 1
OnKeyPress = IVNoKeyPress
Width = 150
end
object F_Spec: TcxTextEdit
Tag = 2
Left = 336
Top = 79
Properties.OnChange = IVNoPropertiesChange
TabOrder = 2
OnKeyPress = IVNoKeyPress
Width = 150
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 336
Top = 41
Properties.OnChange = IVNoPropertiesChange
TabOrder = 3
OnKeyPress = IVNoKeyPress
Width = 150
end
object OurCoName: TcxTextEdit
Tag = 2
Left = 577
Top = 41
Properties.OnChange = IVNoPropertiesChange
TabOrder = 4
OnKeyPress = IVNoKeyPress
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
@ -232,32 +221,26 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Width = 1554
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 5
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1554
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
@ -315,6 +298,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 60
object v1Column3: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
@ -386,7 +371,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Width = 71
end
object v1Column10: TcxGridDBColumn
Caption = #33394#24067#21517#31216
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -493,7 +478,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
Properties.TabIndex = 2
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
@ -505,10 +490,6 @@ inherited frmInvoiceInList: TfrmInvoiceInList
ClientRectTop = 31
end
inherited cxProgressBar2: TcxProgressBar
Left = 490
Top = 362
ExplicitLeft = 490
ExplicitTop = 362
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery

124
A09财务通用管理/U_InvoiceInList.pas
View File

@ -25,7 +25,7 @@ type
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
TBFind: TToolButton;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
@ -89,7 +89,7 @@ type
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure IVNoChange(Sender: TObject);
procedure TADDClick(Sender: TObject);
@ -107,13 +107,6 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure IVNoPropertiesChange(Sender: TObject);
procedure IVNoKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
@ -142,11 +135,12 @@ begin
TUPDATE.Visible := false;
tbdel.Visible := false;
if trim(DParameters1) <> '¸ßȨÏÞ' then
if trim(canshu1) = '¹ÜÀí' then
begin
case cxTabControl1.TabIndex of
0:
begin
tchk.Visible := true;
TUPDATE.Visible := true;
tbdel.Visible := true;
TCHK.Visible := true;
@ -166,7 +160,6 @@ begin
case cxTabControl1.TabIndex of
0:
begin
tchk.Visible := true;
TUPDATE.Visible := true;
tbdel.Visible := true;
TCHK.Visible := true;
@ -185,38 +178,35 @@ begin
end;
procedure TfrmInvoiceInList.InitGrid();
var
Msql, mbegdate, menddate: string;
SqlStr: string;
begin
try
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''½øÏƱ'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)');
sql.Add(' from Finance_Invoice A ');
SqlStr := ' select A.* ';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''½øÏƱ'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)';
SqlStr := SqlStr + ' from Finance_Invoice A ';
SqlStr := SqlStr + 'where IVFlag=''½øÏî'' ';
SqlStr := SqlStr + ' and A.IVDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.IVDate<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date) + ''' ');
sql.Add(' and A.IVDate<''' + formatdateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1) + ''' ');
sql.Add(' and IVFlag=''½øÏî'' ');
case cxTabControl1.TabIndex of
0:
begin
sql.add(' and isnull(A.Status,''0'')=''0''');
end;
1:
begin
sql.add(' and A.Status=''9''');
end;
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
end;
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Invoice);
SInitCDSData(ADOQueryMain, CDS_Invoice);
finally
TV1.DataController.Filter.Clear;
end;
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_Invoice, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'IVId');
end;
procedure TfrmInvoiceInList.FormDestroy(Sender: TObject);
@ -254,7 +244,7 @@ begin
InitGrid();
end;
procedure TfrmInvoiceInList.TBFindClick(Sender: TObject);
procedure TfrmInvoiceInList.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
@ -278,24 +268,7 @@ end;
procedure TfrmInvoiceInList.IVNoChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
end;
procedure TfrmInvoiceInList.IVNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmInvoiceInList.IVNoPropertiesChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
ToolButton2.Click;
end;
procedure TfrmInvoiceInList.TADDClick(Sender: TObject);
@ -390,41 +363,6 @@ begin
end;
end;
procedure TfrmInvoiceInList.cxButton1Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceInList.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceInList.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceInList.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceInList.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceInList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
@ -531,7 +469,7 @@ end;
procedure TfrmInvoiceInList.FormCreate(Sender: TObject);
begin
inherited;
canshu1 := trim(DParameters1);
canshu1 := trim(Self.fParameters1);
end;
procedure TfrmInvoiceInList.N1Click(Sender: TObject);

47
A09财务通用管理/U_InvoiceOutInPut.dfm
View File

@ -1,22 +1,18 @@
object frmInvoiceOutInPut: TfrmInvoiceOutInPut
inherited frmInvoiceOutInPut: TfrmInvoiceOutInPut
Left = 484
Top = 189
Caption = #38144#39033#21457#31080#24405#20837
ClientHeight = 504
ClientWidth = 1530
Color = clBtnFace
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnDestroy = FormDestroy
OnShow = FormShow
ExplicitWidth = 1546
ExplicitHeight = 543
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
@ -88,14 +84,13 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
object cxGrid1: TcxGrid [1]
Left = 0
Top = 30
Width = 1530
Height = 474
Align = alClient
TabOrder = 1
ExplicitLeft = -1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -175,6 +170,13 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Column9: TcxGridDBColumn
Caption = #23545#26041#21333#20301#20840#31216
DataBinding.FieldName = 'OppCoNameZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 111
end
object Tv1Column6: TcxGridDBColumn
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
@ -212,7 +214,7 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
Width = 80
end
object v1P_CodeName: TcxGridDBColumn
Caption = #33394#24067#21517#31216
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@ -260,7 +262,6 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 93
end
@ -269,8 +270,8 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column3: TcxGridDBColumn
@ -286,8 +287,9 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
Caption = #31246#39069
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v1Column4: TcxGridDBColumn
@ -295,8 +297,8 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column8: TcxGridDBColumn
@ -323,6 +325,15 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object DataSource1: TDataSource
DataSet = CDS_Invoice
Left = 516
@ -337,8 +348,8 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 280
Top = 112
Left = 382
Top = 95
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_Financial.ADOLink

188
A09财务通用管理/U_InvoiceOutInPut.pas
View File

@ -8,13 +8,14 @@ uses
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, U_BaseList,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters;
dxDateRanges, dxBarBuiltInMenu, ComObj, dxScrollbarAnnotations, dxSkinsCore,
math, dxSkinsDefaultPainters, U_BaseInput, cxImageList, System.ImageList,
Vcl.ImgList;
type
TfrmInvoiceOutInPut = class(TForm)
TfrmInvoiceOutInPut = class(TfrmBaseInput)
DataSource1: TDataSource;
CDS_Invoice: TClientDataSet;
GPM_1: TcxGridPopupMenu;
@ -50,6 +51,7 @@ type
OpenDialog1: TOpenDialog;
CDS_LM: TClientDataSet;
ToolButton5: TToolButton;
Tv1Column9: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject);
@ -67,13 +69,14 @@ type
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
private
procedure initGrid();
procedure SaveDate();
{ Private declarations }
public
FIVID: string;
fInvoiceFlag: string;
canshu1, fInvoiceFlag: string;
{ Public declarations }
end;
@ -169,6 +172,7 @@ end;
procedure TfrmInvoiceOutInPut.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Self.Caption, Tv1, '财务管理');
with CDS_LM do
begin
@ -208,6 +212,52 @@ begin
SaveDate();
end;
procedure TfrmInvoiceOutInPut.v1Column5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FTaxFee: 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;
FAmount := FieldbyName('Amount').AsFloat;
FPrice := FieldbyName('Price').AsFloat;
Ftax := FieldbyName('tax').AsFloat;
FTaxFee := FieldbyName('TaxFee').AsFloat;
end;
if FQty <> 0 then
begin
FPrice := strtofloat(format('%.13f', [FAmount / FQty]));
// FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
// FTaxFee := RoundTo((FPrice * FQty * (Ftax / 100)), -2);
end
else
begin
FPrice := 0;
FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
end;
with CDS_Invoice do
begin
Edit;
FieldByName('Price').Value := FPrice;
FieldByName('TaxFee').Value := FTaxFee;
FieldByName('taxAmount').Value := FTaxFee + FAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceOutInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@ -219,8 +269,8 @@ begin
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.CDS_Invoice.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
Self.CDS_Invoice.FieldByName('F_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// Self.CDS_Invoice.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
@ -270,7 +320,7 @@ end;
procedure TfrmInvoiceOutInPut.v1QtyPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FtaxAmount: double;
FQty, FPrice, FAmount, Ftax, FTaxFee: double;
begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText;
@ -284,31 +334,74 @@ begin
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
FQty := FieldbyName('Qty').AsFloat;
FtaxAmount := FieldbyName('taxAmount').AsFloat;
FAmount := FieldbyName('Amount').AsFloat;
FPrice := FieldbyName('Price').AsFloat;
Ftax := FieldbyName('tax').AsFloat;
end;
if FQty <> 0 then
begin
FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
FPrice := strtofloat(format('%.2f', [FAmount / FQty]));
FPrice := strtofloat(format('%.13f', [FAmount / FQty]));
// FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
FTaxFee := RoundTo((FPrice * FQty * (Ftax / 100)), -2);
end
else
begin
FPrice := 0;
FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
end;
with CDS_Invoice do
begin
Edit;
FieldByName('Price').Value := FPrice;
FieldByName('Amount').Value := FAmount;
FieldByName('TaxFee').Value := FtaxAmount - FAmount;
FieldByName('TaxFee').Value := FTaxFee;
FieldByName('taxAmount').Value := FTaxFee + FAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
//procedure TfrmInvoiceOutInPut.v1QtyPropertiesEditValueChanged(Sender: TObject);
//var
// mvalue, FFieldName: string;
// FQty, FPrice, FAmount, Ftax, FtaxAmount: 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;
// FtaxAmount := FieldbyName('taxAmount').AsFloat;
// Ftax := FieldbyName('tax').AsFloat;
// end;
// if FQty <> 0 then
// begin
// FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
// FPrice := strtofloat(format('%.2f', [FAmount / FQty]));
// end
// else
// begin
// FPrice := 0;
// FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
// end;
//
// with CDS_Invoice do
// begin
// Edit;
// FieldByName('Price').Value := FPrice;
// FieldByName('Amount').Value := FAmount;
// FieldByName('TaxFee').Value := FtaxAmount - FAmount;
// Post;
// end;
// tv1.Controller.EditingController.ShowEdit();
//
//end;
procedure TfrmInvoiceOutInPut.FormDestroy(Sender: TObject);
begin
@ -327,7 +420,7 @@ 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);
Self.CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
@ -363,13 +456,16 @@ begin
with frmCompanySel do
begin
FCoType := '客户';
if Self.canshu1 = '录入' then
FAuthority := '理单业务';
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('OppCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
Self.CDS_Invoice.FieldByName('OppCoNameZ').Value := Trim(CDS_1.fieldbyname('CoName').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);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -384,11 +480,13 @@ begin
with frmCompanySel do
begin
FCoType := '客户';
if Self.canshu1 = '录入' then
FAuthority := '理单业务';
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);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -397,21 +495,41 @@ begin
end;
procedure TfrmInvoiceOutInPut.ToolButton1Click(Sender: TObject);
var
maxno: string;
begin
CDS_Invoice.Append;
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;
CopyAddRow(Tv1, CDS_Invoice);
with CDS_Invoice do
begin
CDS_Invoice.Edit;
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;
end;
//begin
// CDS_Invoice.Append;
//
// 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 TfrmInvoiceOutInPut.ToolButton2Click(Sender: TObject);
begin
@ -531,6 +649,8 @@ begin
frmReceivableValueSel := TfrmReceivableValueSel.Create(Application);
with frmReceivableValueSel do
begin
if Self.canshu1 = '录入' then
FAuthority := '低权限';
if showmodal = 1 then
begin
flag := False;
@ -545,13 +665,17 @@ begin
sql.Add('select count(*) as RecordCount from Finance_Invoice where FromFFID=''' + trim(frmReceivableValueSel.CDS_1.Fieldbyname('FFID').AsString) + '''');
open;
end;
if (ADOQueryTmp.FieldByName('RecordCount').AsInteger < 1) and not(CDS_Invoice.Locate('FromFFID', trim(frmReceivableValueSel.CDS_1.Fieldbyname('FFID').AsString), [])) then
if (ADOQueryTmp.FieldByName('RecordCount').AsInteger < 1) and not (CDS_Invoice.Locate('FromFFID', trim(frmReceivableValueSel.CDS_1.Fieldbyname('FFID').AsString), [])) then
begin
Append;
FieldByName('SSel').Value := false;
Fieldbyname('OurCoName').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OurCoName').AsString);
Fieldbyname('OurCoNo').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OurCoNo').AsString);
Fieldbyname('OppCoName').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OppCoName').AsString);
Fieldbyname('OppCoNo').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OppCoNo').AsString);
Fieldbyname('OppParentCoNo').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OppParentCoNo').AsString);
Fieldbyname('OppParentCoName').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OppParentCoName').AsString);
Fieldbyname('F_Code').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('F_Code').AsString);
Fieldbyname('F_Name').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('F_Name').AsString);
Fieldbyname('Qty').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('Qty').AsString);

129
A09财务通用管理/U_InvoiceOutList.dfm
View File

@ -4,7 +4,6 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Caption = #38144#39033#21457#31080#31649#29702
ClientHeight = 626
ClientWidth = 1558
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
@ -37,13 +36,13 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
OnClick = ToolButton2Click
end
object TADD: TToolButton
Left = 142
@ -143,10 +142,9 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
ExplicitLeft = -1
object Label3: TLabel
Left = 26
Top = 46
@ -180,51 +178,41 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Top = 85
Width = 64
Height = 21
Caption = #33394#24067#21517#31216
Caption = #20135#21697#21517#31216
end
object F_Name: TcxTextEdit
Tag = 2
Left = 94
Top = 81
Properties.OnChange = IVNoPropertiesChange
TabOrder = 3
OnKeyPress = IVNoKeyPress
Width = 150
end
object IVNo: TcxTextEdit
Tag = 2
Left = 94
Top = 42
Properties.OnChange = IVNoPropertiesChange
TabOrder = 0
OnKeyPress = IVNoKeyPress
Width = 150
end
object F_Spec: TcxTextEdit
Tag = 2
Left = 319
Top = 81
Properties.OnChange = IVNoPropertiesChange
TabOrder = 4
OnKeyPress = IVNoKeyPress
Width = 150
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 316
Top = 42
Properties.OnChange = IVNoPropertiesChange
TabOrder = 1
OnKeyPress = IVNoKeyPress
Width = 150
end
object OurCoName: TcxTextEdit
Tag = 2
Left = 538
Top = 42
Properties.OnChange = IVNoPropertiesChange
TabOrder = 2
OnKeyPress = IVNoKeyPress
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
@ -233,38 +221,26 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Width = 1554
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 5
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1554
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
@ -322,6 +298,8 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 50
object v1Column3: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
@ -393,7 +371,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Width = 71
end
object v1Column10: TcxGridDBColumn
Caption = #33394#24067#21517#31216
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -469,6 +447,16 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Options.Editing = False
Width = 114
end
object Tv1Column3: TcxGridDBColumn
Caption = #25910#27454
DataBinding.FieldName = 'SKFlag'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 54
end
object Tv1Column1: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
@ -484,6 +472,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
@ -501,7 +490,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Properties.Style = 11
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#24453#23457#26680
#24050#23457#26680
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
@ -509,41 +498,47 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 776
Top = 384
ExplicitLeft = 776
ExplicitTop = 384
end
inherited cxProgressBar2: TcxProgressBar
Left = 648
Top = 304
ExplicitLeft = 648
ExplicitTop = 304
Left = 511
Top = 384
ExplicitLeft = 511
ExplicitTop = 384
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 161
Top = 264
Left = 599
Top = 237
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 161
Top = 201
Left = 682
Top = 237
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 351
Top = 187
Left = 599
Top = 299
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 388
Top = 187
Left = 765
Top = 237
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 417
Top = 189
Left = 848
Top = 237
end
object RM1: TRMGridReport
ThreadPrepareReport = True
@ -561,32 +556,32 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 468
Top = 268
Left = 682
Top = 361
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryTemp
Left = 432
Top = 268
Left = 599
Top = 361
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 440
Top = 324
Left = 765
Top = 299
end
object DS_Invoice: TDataSource
DataSet = CDS_Invoice
Left = 527
Top = 323
Left = 848
Top = 299
end
object CDS_Invoice: TClientDataSet
Aggregates = <>
Params = <>
Left = 488
Top = 324
Left = 682
Top = 299
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
@ -599,12 +594,12 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 504
Top = 268
Left = 765
Top = 361
end
object PopupMenu1: TPopupMenu
Left = 340
Top = 332
Left = 931
Top = 299
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
@ -621,7 +616,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
object ADOQueryPrint: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 381
Top = 269
Left = 931
Top = 237
end
end

131
A09财务通用管理/U_InvoiceOutList.pas
View File

@ -18,14 +18,14 @@ uses
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar;
type
TfrmInvoiceOutList = class(TfrmBaseList)
TfrmInvoiceOutList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
TBFind: TToolButton;
ToolButton2: TToolButton;
F_Name: TcxTextEdit;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
@ -84,12 +84,13 @@ type
ToolButton5: TToolButton;
Tv1Column2: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel;
Tv1Column3: 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 TBFindClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure IVNoChange(Sender: TObject);
procedure TADDClick(Sender: TObject);
@ -107,13 +108,6 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure IVNoKeyPress(Sender: TObject; var Key: Char);
procedure IVNoPropertiesChange(Sender: TObject);
private
{ Private declarations }
@ -185,38 +179,36 @@ begin
end;
procedure TfrmInvoiceOutList.InitGrid();
var
Msql, mbegdate, menddate: string;
SqlStr: string;
begin
try
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''ÏúÏƱ'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)');
sql.Add(' from Finance_Invoice A ');
sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date) + ''' ');
sql.Add(' and A.IVDate<''' + formatdateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1) + ''' ');
sql.Add(' and IVFlag=''ÏúÏî'' ');
case cxTabControl1.TabIndex of
0:
begin
sql.add(' and isnull(A.Status,''0'')=''0''');
end;
1:
begin
sql.add(' and A.Status=''9''');
end;
SqlStr := ' select A.* ';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''ÏúÏƱ'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)';
SqlStr := SqlStr + ',SKFlag=CAST((CASE WHEN (SELECT COUNT(X.IVNo) FROM Finance_Flow X where X.IVNo=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)';
SqlStr := SqlStr + ' from Finance_Invoice A ';
SqlStr := SqlStr + ' left join Bs_Company B on A.OppCoNo=B.CoCode ';
SqlStr := SqlStr + 'where IVFlag=''ÏúÏî'' ';
SqlStr := SqlStr + ' and A.IVDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.IVDate<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end;
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Invoice);
SInitCDSData(ADOQueryMain, CDS_Invoice);
finally
TV1.DataController.Filter.Clear;
end;
if trim(canshu1) = '¼Èë' then
SqlStr := SqlStr + ' and CHARINDEX(' + quotedstr(DCode) + ',(ISNULL(B.SalesId, '''') +'',''+ISNULL(B.TallyId, '''')+'',''+ISNULL(A.FillId, '''') ) ) > 0 ';
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_Invoice, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'IVId');
end;
procedure TfrmInvoiceOutList.FormDestroy(Sender: TObject);
@ -254,7 +246,7 @@ begin
InitGrid();
end;
procedure TfrmInvoiceOutList.TBFindClick(Sender: TObject);
procedure TfrmInvoiceOutList.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
@ -278,24 +270,7 @@ end;
procedure TfrmInvoiceOutList.IVNoChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
end;
procedure TfrmInvoiceOutList.IVNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
initgrid();
end;
end;
procedure TfrmInvoiceOutList.IVNoPropertiesChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
ToolButton2.Click;
end;
procedure TfrmInvoiceOutList.TADDClick(Sender: TObject);
@ -305,7 +280,7 @@ begin
begin
FIVID := '';
FZKType := Self.FZKType;
canshu1 := Self.canshu1;
if showmodal = 1 then
begin
initGrid();
@ -322,7 +297,7 @@ begin
begin
IvNo.Enabled := False;
FIVID := trim(Self.CDS_Invoice.fieldbyname('IVID').asstring);
canshu1 := Self.canshu1;
if showmodal = 1 then
begin
Self.initGrid();
@ -390,41 +365,6 @@ begin
end;
end;
procedure TfrmInvoiceOutList.cxButton1Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceOutList.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceOutList.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceOutList.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceOutList.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmInvoiceOutList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
@ -521,6 +461,7 @@ begin
begin
TSave.Visible := False;
FIvID := trim(Self.CDS_Invoice.fieldbyname('IvID').asstring);
canshu1 := Self.canshu1;
if showmodal = 1 then
begin
@ -531,7 +472,7 @@ end;
procedure TfrmInvoiceOutList.FormCreate(Sender: TObject);
begin
inherited;
canshu1 := trim(DParameters1);
canshu1 := trim(Self.fParameters1);
end;
procedure TfrmInvoiceOutList.N1Click(Sender: TObject);

293
A09财务通用管理/U_InvoiceOutSQInPut.dfm Normal file
View File

@ -0,0 +1,293 @@
object frmInvoiceOutSQInPut: TfrmInvoiceOutSQInPut
Left = 484
Top = 189
Caption = #38144#39033#21457#31080#30003#35831#24405#20837
ClientHeight = 504
ClientWidth = 1530
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1530
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
DisabledImages = DataLink_Financial.cxImageList_bar
Images = DataLink_Financial.cxImageList_bar
List = True
ShowCaptions = True
TabOrder = 0
object TSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TSaveClick
end
object ToolButton5: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #24212#25910#27454
ImageIndex = 49
Visible = False
OnClick = ToolButton5Click
end
object ToolButton1: TToolButton
Left = 158
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 229
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 300
Top = 0
AutoSize = True
Caption = #23548#20837
ImageIndex = 18
OnClick = ToolButton4Click
end
object ToolButton3: TToolButton
Left = 371
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 474
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 30
Width = 1530
Height = 474
Align = alClient
TabOrder = 1
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
Column = v1Qty
end
item
Kind = skSum
Column = v1Money
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object Tv1Column5: TcxGridDBColumn
Caption = #30003#35831#26085#26399
DataBinding.FieldName = 'IVDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 136
end
object Tv1Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 142
end
object Tv1Column4: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column4PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 166
end
object Tv1Column3: TcxGridDBColumn
Caption = #21457#31080#31867#22411
DataBinding.FieldName = 'IVType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 117
end
object v1P_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 177
end
object v1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 83
end
object v1QtyUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1QtyUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Money: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column8: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'CNY'
'USD'
'EUR')
HeaderAlignmentHorz = taCenter
end
object Tv1Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
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
object OpenDialog1: TOpenDialog
Left = 370
Top = 162
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 528
Top = 200
end
end

698
A09财务通用管理/U_InvoiceOutSQInPut.pas Normal file
View File

@ -0,0 +1,698 @@
unit U_InvoiceOutSQInPut;
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,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxScrollbarAnnotations, dxSkinsCore,
math, dxSkinsDefaultPainters;
type
TfrmInvoiceOutSQInPut = class(TForm)
DataSource1: TDataSource;
CDS_Invoice: TClientDataSet;
GPM_1: TcxGridPopupMenu;
ToolBar1: TToolBar;
TSave: TToolButton;
TBClose: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1P_CodeName: TcxGridDBColumn;
v1Qty: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ADOQueryTmp: TADOQuery;
ADOQueryCmd: TADOQuery;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Tv1Column8: TcxGridDBColumn;
ToolButton4: TToolButton;
OpenDialog1: TOpenDialog;
CDS_LM: TClientDataSet;
ToolButton5: TToolButton;
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 v1QtyPropertiesEditValueChanged(Sender: TObject);
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 ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
private
procedure initGrid();
procedure SaveDate();
{ Private declarations }
public
canshu1, FIVID: string;
fInvoiceFlag: string;
{ Public declarations }
end;
var
frmInvoiceOutSQInPut: TfrmInvoiceOutSQInPut;
implementation
uses
U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_ReceivableValueSel;
{$R *.dfm}
procedure TfrmInvoiceOutSQInPut.SaveDate();
var
MaxNo: string;
begin
ADOQueryCmd.Connection.BeginTrans;
try
with CDS_Invoice do
begin
first;
while not eof do
begin
if fieldbyname('IVID').AsString = '' then
begin
if GetLSNo(ADOQueryTmp, MaxNo, 'IJ', 'Finance_Invoice', 4, 1) = False then
raise Exception.Create('取最大号失败！');
end
else
MaxNo := CDS_Invoice.fieldbyname('IVID').AsString;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('select * from Finance_Invoice_Apply where IVID=' + 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_Invoice_Apply', 0);
ADOQueryCmd.fieldbyname('IVID').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('FromFFID').Value := trim(CDS_Invoice.FieldByName('FromFFID').AsString);
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 TfrmInvoiceOutSQInPut.initGrid();
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from Finance_Invoice_Apply where IVID=''' + trim(FIVID) + '''');
// sql.add(' and isnull(status,''0'')=''0''');
open;
end;
SCreateCDS(ADOQueryTmp, CDS_Invoice);
SInitCDSData(ADOQueryTmp, CDS_Invoice);
end;
procedure TfrmInvoiceOutSQInPut.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmInvoiceOutSQInPut.FormShow(Sender: TObject);
begin
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 TfrmInvoiceOutSQInPut.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 TfrmInvoiceOutSQInPut.v1Column5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FTaxFee: 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;
FAmount := FieldbyName('Amount').AsFloat;
FPrice := FieldbyName('Price').AsFloat;
Ftax := FieldbyName('tax').AsFloat;
FTaxFee := FieldbyName('TaxFee').AsFloat;
end;
if FQty <> 0 then
begin
FPrice := strtofloat(format('%.13f', [FAmount / FQty]));
// FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
// FTaxFee := RoundTo((FPrice * FQty * (Ftax / 100)), -2);
end
else
begin
FPrice := 0;
FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
end;
with CDS_Invoice do
begin
Edit;
FieldByName('Price').Value := FPrice;
FieldByName('TaxFee').Value := FTaxFee;
FieldByName('taxAmount').Value := FTaxFee + FAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceOutSQInPut.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('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
//self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceOutSQInPut.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 TfrmInvoiceOutSQInPut.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 TfrmInvoiceOutSQInPut.v1QtyPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FTaxFee: 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;
FAmount := FieldbyName('Amount').AsFloat;
FPrice := FieldbyName('Price').AsFloat;
Ftax := FieldbyName('tax').AsFloat;
end;
if FQty <> 0 then
begin
FPrice := strtofloat(format('%.13f', [FAmount / FQty]));
// FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
FTaxFee := RoundTo((FPrice * FQty * (Ftax / 100)), -2);
end
else
begin
FPrice := 0;
FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
end;
with CDS_Invoice do
begin
Edit;
FieldByName('Price').Value := FPrice;
FieldByName('TaxFee').Value := FTaxFee;
FieldByName('taxAmount').Value := FTaxFee + FAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
//procedure TfrmInvoiceOutInPut.v1QtyPropertiesEditValueChanged(Sender: TObject);
//var
// mvalue, FFieldName: string;
// FQty, FPrice, FAmount, Ftax, FtaxAmount: 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;
// FtaxAmount := FieldbyName('taxAmount').AsFloat;
// Ftax := FieldbyName('tax').AsFloat;
// end;
// if FQty <> 0 then
// begin
// FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
// FPrice := strtofloat(format('%.2f', [FAmount / FQty]));
// end
// else
// begin
// FPrice := 0;
// FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
// end;
//
// with CDS_Invoice do
// begin
// Edit;
// FieldByName('Price').Value := FPrice;
// FieldByName('Amount').Value := FAmount;
// FieldByName('TaxFee').Value := FtaxAmount - FAmount;
// Post;
// end;
// tv1.Controller.EditingController.ShowEdit();
//
//end;
procedure TfrmInvoiceOutSQInPut.FormDestroy(Sender: TObject);
begin
frmInvoiceOutSQInPut := nil;
end;
procedure TfrmInvoiceOutSQInPut.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('CoName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceOutSQInPut.Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'InvoiceType';
flagname := '发票类型';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('IVType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmInvoiceOutSQInPut.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
if Self.canshu1 = '录入' then
FAuthority := '理单业务';
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('CoName').AsString);
Self.CDS_Invoice.FieldByName('OppCoNameZ').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceOutSQInPut.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('CoName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceOutSQInPut.ToolButton1Click(Sender: TObject);
var
maxno: string;
begin
CopyAddRow(Tv1, CDS_Invoice);
with CDS_Invoice do
begin
CDS_Invoice.Edit;
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.FieldByName('IVDate').Value := SGetServerDate(ADOQueryTmp);
CDS_Invoice.Post;
end;
end;
//begin
// CDS_Invoice.Append;
//
// 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 TfrmInvoiceOutSQInPut.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_Invoice_Apply where IvID=''' + trim(CDS_Invoice.fieldbyname('IvID').asstring) + ''' ');
execsql;
end;
CDS_Invoice.delete;
end;
procedure TfrmInvoiceOutSQInPut.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(Self.Caption, Tv1, '财务管理');
end;
procedure TfrmInvoiceOutSQInPut.ToolButton4Click(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_Invoice do
begin
Append;
CDS_LM.First;
while not CDS_LM.Eof do
begin
if CDS_LM.FieldByName('LXH').AsInteger > 0 then
CDS_Invoice.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
CDS_LM.Next;
end;
// CDS_Invoice.fieldbyname('OurCoNo').Value := '91330602MA2JTEXX4B';
// CDS_Invoice.fieldbyname('OurCoName').Value := '圆中圆';
CDS_Invoice.FieldByName('Currency').Value := 'CNY';
Post;
end;
end;
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
except
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
exit;
end;
end;
procedure TfrmInvoiceOutSQInPut.ToolButton5Click(Sender: TObject);
var
flag: Boolean;
begin
// application.MessageBox('1111', '提示信息');
frmReceivableValueSel := TfrmReceivableValueSel.Create(Application);
with frmReceivableValueSel do
begin
if Self.canshu1 = '录入' then
FAuthority := '低权限';
if showmodal = 1 then
begin
flag := False;
while CDS_1.locate('SSel', true, []) do
begin
with self.CDS_Invoice do
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select count(*) as RecordCount from Finance_Invoice_Apply where FromFFID=''' + trim(frmReceivableValueSel.CDS_1.Fieldbyname('FFID').AsString) + '''');
open;
end;
if (ADOQueryTmp.FieldByName('RecordCount').AsInteger < 1) and not (CDS_Invoice.Locate('FromFFID', trim(frmReceivableValueSel.CDS_1.Fieldbyname('FFID').AsString), [])) then
begin
Append;
FieldByName('SSel').Value := false;
Fieldbyname('OurCoName').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OurCoName').AsString);
Fieldbyname('OppCoName').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OppCoName').AsString);
Fieldbyname('OppParentCoName').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OppParentCoName').AsString);
Fieldbyname('F_Code').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('F_Code').AsString);
Fieldbyname('F_Name').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('F_Name').AsString);
Fieldbyname('Qty').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('Qty').AsString);
Fieldbyname('QtyUnit').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('QtyUnit').AsString);
Fieldbyname('Price').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('Price').AsString);
Fieldbyname('Amount').value := frmReceivableValueSel.CDS_1.Fieldbyname('Amount').AsCurrency;
Fieldbyname('TaxAmount').value := frmReceivableValueSel.CDS_1.Fieldbyname('Amount').AsCurrency * 1.13;
FieldByName('tax').Value := 13;
FieldByName('TaxFee').Value := Fieldbyname('TaxAmount').value - Fieldbyname('Amount').value;
Fieldbyname('Currency').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('Currency').AsString);
Fieldbyname('IVDate').value := SGetServerDate(ADOQueryTemp);
Fieldbyname('FromFFID').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('FFID').AsString);
Post;
end
else
begin
flag := True;
end;
end;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
end;
if flag then
begin
application.MessageBox('选取内容中存在重复应收款记录，重复的记录程序没有录入', '提示信息');
end;
end;
free;
end;
end;
end.

563
A09财务通用管理/U_InvoiceOutSQList.dfm Normal file
View File

@ -0,0 +1,563 @@
inherited frmInvoiceOutSQList: TfrmInvoiceOutSQList
Left = 308
Top = 202
Caption = #38144#39033#21457#31080#30003#35831
ClientHeight = 626
ClientWidth = 1558
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1574
ExplicitHeight = 665
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1558
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Financial.cxImageList_bar
Images = DataLink_Financial.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 4
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 TBDEL: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDELClick
end
object TSel: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 4
OnClick = TSelClick
end
object TCHK: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = TCHKClick
end
object TNOCHK: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
OnClick = TNOCHKClick
end
object btnWC: TToolButton
Left = 600
Top = 0
AutoSize = True
Caption = #23436#25104
ImageIndex = 12
OnClick = btnWCClick
end
object btnWCCX: TToolButton
Left = 671
Top = 0
Caption = #25764#38144#23436#25104
ImageIndex = 11
OnClick = btnWCCXClick
end
object ToolButton4: TToolButton
Left = 770
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
Visible = False
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 841
Top = 0
AutoSize = True
Caption = #38468#20214
ImageIndex = 22
OnClick = ToolButton5Click
end
object ToolButton1: TToolButton
Left = 912
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 983
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 1086
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1558
Height = 123
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 5
object Label3: TLabel
Left = 26
Top = 46
Width = 64
Height = 21
Caption = #21457#31080#21495#30721
end
object Label5: TLabel
Left = 248
Top = 46
Width = 64
Height = 21
Caption = #23545#26041#21333#20301
end
object Label7: TLabel
Left = 470
Top = 46
Width = 64
Height = 21
Caption = #25105#26041#21333#20301
end
object Label8: TLabel
Left = 248
Top = 85
Width = 67
Height = 21
Caption = #35268' '#26684
end
object Label9: TLabel
Left = 26
Top = 85
Width = 64
Height = 21
Caption = #20135#21697#21517#31216
end
object F_Name: TcxTextEdit
Tag = 2
Left = 94
Top = 81
TabOrder = 3
Width = 150
end
object IVNo: TcxTextEdit
Tag = 2
Left = 94
Top = 42
TabOrder = 0
Width = 150
end
object F_Spec: TcxTextEdit
Tag = 2
Left = 319
Top = 81
TabOrder = 4
Width = 150
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 316
Top = 42
TabOrder = 1
Width = 150
end
object OurCoName: TcxTextEdit
Tag = 2
Left = 538
Top = 42
TabOrder = 2
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1554
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 5
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1554
ExplicitHeight = 37
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 182
Width = 1558
Height = 444
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 3
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 = v1Column12
end
item
Kind = skSum
Column = v1Column15
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 50
object v1Column3: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 49
end
object v1InvoiceDate: TcxGridDBColumn
Caption = #30003#35831#26085#26399
DataBinding.FieldName = 'IVDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1InvoiceType: TcxGridDBColumn
Caption = #21457#31080#31867#22411
DataBinding.FieldName = 'IVType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object v1Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column8: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 55
end
object v1Column10: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Column12: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 57
end
object v1Column13: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 63
end
object v1Column15: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
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 = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column2: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 153
Width = 1558
Height = 29
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#24453#23457#26680
#24050#23457#26680
#24050#23436#25104
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 365
Top = 304
ExplicitLeft = 365
ExplicitTop = 304
end
inherited cxProgressBar2: TcxProgressBar
Left = 381
Top = 368
ExplicitLeft = 381
ExplicitTop = 368
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 599
Top = 237
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 682
Top = 237
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 599
Top = 299
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 765
Top = 237
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 848
Top = 237
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 = 682
Top = 361
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryTemp
Left = 599
Top = 361
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 765
Top = 299
end
object DS_Invoice: TDataSource
DataSet = CDS_Invoice
Left = 848
Top = 299
end
object CDS_Invoice: TClientDataSet
Aggregates = <>
Params = <>
Left = 682
Top = 299
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 = 765
Top = 361
end
object PopupMenu1: TPopupMenu
Left = 931
Top = 299
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 = 931
Top = 237
end
end

668
A09财务通用管理/U_InvoiceOutSQList.pas Normal file
View File

@ -0,0 +1,668 @@
unit U_InvoiceOutSQList;
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, dxDateRanges, U_BaseList,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxScrollbarAnnotations,
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar;
type
TfrmInvoiceOutSQList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
F_Name: TcxTextEdit;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
IVNo: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_Invoice: TDataSource;
CDS_Invoice: TClientDataSet;
TADD: TToolButton;
TUPDATE: TToolButton;
TBDEL: TToolButton;
v1InvoiceType: TcxGridDBColumn;
v1InvoiceDate: TcxGridDBColumn;
v1FactoryName: TcxGridDBColumn;
v1note: TcxGridDBColumn;
F_Spec: TcxTextEdit;
Label5: TLabel;
OppCoName: TcxTextEdit;
TCHK: TToolButton;
TNOCHK: TToolButton;
cxTabControl1: TcxTabControl;
TSel: TToolButton;
v1Column2: TcxGridDBColumn;
RMXLSExport1: TRMXLSExport;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton4: TToolButton;
v1Column3: TcxGridDBColumn;
ADOQueryPrint: TADOQuery;
Label7: TLabel;
OurCoName: TcxTextEdit;
Label8: TLabel;
Label9: TLabel;
v1Column8: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
ToolButton3: TToolButton;
N3: TMenuItem;
Tv1Column1: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1Column2: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel;
btnWC: TToolButton;
btnWCCX: TToolButton;
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 btnWCClick(Sender: TObject);
procedure btnWCCXClick(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_InvoiceOutSQInPut, U_LabelPrint,
U_AttachmentUpload;
{$R *.dfm}
procedure TfrmInvoiceOutSQList.SetStatus();
begin
tchk.Visible := false;
tnochk.Visible := false;
TUPDATE.Visible := false;
tbdel.Visible := false;
btnWC.Visible := false;
btnWCCX.Visible := false;
if trim(canshu1) = '录入' then
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;
if trim(canshu1) = '管理' then
begin
case cxTabControl1.TabIndex of
0:
begin
TUPDATE.Visible := true;
tbdel.Visible := true;
TCHK.Visible := true;
end;
1:
begin
tnochk.Visible := true;
end;
end;
end;
if trim(canshu1) = '完成' then
begin
case cxTabControl1.TabIndex of
1:
begin
btnWC.Visible := true;
end;
2:
begin
btnWCCX.Visible := true;
end;
end;
end;
end;
procedure TfrmInvoiceOutSQList.InitGrid();
var
Msql, mbegdate, menddate: string;
SqlStr: string;
begin
SqlStr := ' select A.* ';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''销项发票'' and X.WBID=A.IVID)>0 THEN 1 ELSE 0 END) AS BIT)';
SqlStr := SqlStr + ' from Finance_Invoice_Apply A ';
SqlStr := SqlStr + ' left join Bs_Company B on A.OppCoNo=B.CoCode ';
SqlStr := SqlStr + 'where IVFlag=''销项'' ';
SqlStr := SqlStr + ' and A.IVDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.IVDate<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end;
2:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''10'' ';
end;
end;
if trim(canshu1) = '录入' then
SqlStr := SqlStr + ' and CHARINDEX(' + quotedstr(DCode) + ',(ISNULL(B.SalesId, '''') +'',''+ISNULL(B.TallyId, '''')+'',''+ISNULL(A.FillId, '''') ) ) > 0 ';
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_Invoice, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'IVId');
end;
procedure TfrmInvoiceOutSQList.FormDestroy(Sender: TObject);
begin
inherited;
// frmInvoiceXX := nil;
end;
procedure TfrmInvoiceOutSQList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmInvoiceOutSQList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmInvoiceOutSQList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption, Tv1, '财务管理');
frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 30;
SetStatus();
InitGrid();
end;
procedure TfrmInvoiceOutSQList.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid();
end;
procedure TfrmInvoiceOutSQList.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 TfrmInvoiceOutSQList.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv1, '财务管理');
end;
procedure TfrmInvoiceOutSQList.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxgrid1);
end;
procedure TfrmInvoiceOutSQList.IVNoChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmInvoiceOutSQList.TADDClick(Sender: TObject);
begin
frmInvoiceOutSQInPut := TfrmInvoiceOutSQInPut.Create(self);
with frmInvoiceOutSQInPut do
begin
FIVID := '';
FZKType := Self.FZKType;
canshu1 := Self.canshu1;
if showmodal = 1 then
begin
initGrid();
end;
free;
end;
end;
procedure TfrmInvoiceOutSQList.TUPDATEClick(Sender: TObject);
begin
frmInvoiceOutSQInPut := TfrmInvoiceOutSQInPut.Create(self);
with frmInvoiceOutSQInPut do
begin
IvNo.Enabled := False;
FIVID := trim(Self.CDS_Invoice.fieldbyname('IVID').asstring);
canshu1 := Self.canshu1;
if showmodal = 1 then
begin
Self.initGrid();
end;
free;
end;
end;
procedure TfrmInvoiceOutSQList.TBDELClick(Sender: TObject);
var
FIVIDS: string;
begin
if CDS_Invoice.IsEmpty then
exit;
if not CDS_Invoice.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
if application.MessageBox('确定要删除发票吗？', '提示', 1) = 2 then
exit;
with CDS_Invoice do
begin
DisableControls;
while CDS_Invoice.Locate('SSel', True, []) do
begin
FIVIDS := FIVIDS + Trim(CDS_Invoice.fieldbyname('IVID').AsString) + ',';
with ADOQueryCmd do
begin
close;
sql.Clear;
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;
CDS_Invoice.Delete;
end;
EnableControls;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('delete from Finance_Invoice_Apply');
sql.add('where IVFlag=''销项'' ');
sql.add('and exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FIVIDS) + ','','') X where X.RTVALUE=Finance_Invoice_Apply.IVID )');
execsql;
end;
application.MessageBox('删除成功', '提示');
except
application.MessageBox('删除失败', '提示');
InitGrid();
end;
end;
procedure TfrmInvoiceOutSQList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
initGrid();
end;
procedure TfrmInvoiceOutSQList.TCHKClick(Sender: TObject);
var
FIVIDS: string;
begin
if CDS_Invoice.IsEmpty then
exit;
if not CDS_Invoice.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
FIVIDS := SelCDSKey(CDS_Invoice, ['IVID'])[0];
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('update Finance_Invoice_Apply set Chker=''' + trim(DName) + ''',Chktime=getdate(),status=''9'' ');
sql.add('where IVFlag=''销项'' ');
sql.add('and exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FIVIDS) + ','','') X where X.RTVALUE=Finance_Invoice_Apply.IVID )');
execsql;
end;
application.MessageBox('审核成功', '提示');
InitGrid();
except
application.MessageBox('审核失败', '提示');
InitGrid();
end;
end;
procedure TfrmInvoiceOutSQList.TNOCHKClick(Sender: TObject);
var
FIVIDS: string;
begin
if CDS_Invoice.IsEmpty then
exit;
if not CDS_Invoice.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
FIVIDS := SelCDSKey(CDS_Invoice, ['IVID'])[0];
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('update Finance_Invoice_Apply set Chker=null,Chktime=null,status=''0'' ');
sql.add('where IVFlag=''销项'' ');
sql.add('and exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FIVIDS) + ','','') X where X.RTVALUE=Finance_Invoice_Apply.IVID )');
execsql;
end;
application.MessageBox('撤销成功', '提示');
InitGrid();
except
application.MessageBox('撤销失败', '提示');
InitGrid();
end;
end;
procedure TfrmInvoiceOutSQList.TSelClick(Sender: TObject);
begin
frmInvoiceOutSQInPut := TfrmInvoiceOutSQInPut.Create(self);
with frmInvoiceOutSQInPut do
begin
TSave.Visible := False;
FIvID := trim(Self.CDS_Invoice.fieldbyname('IvID').asstring);
if showmodal = 1 then
begin
end;
end;
end;
procedure TfrmInvoiceOutSQList.FormCreate(Sender: TObject);
begin
inherited;
canshu1 := trim(self.fParameters1);
end;
procedure TfrmInvoiceOutSQList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Invoice, True);
end;
procedure TfrmInvoiceOutSQList.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Invoice, false);
end;
procedure TfrmInvoiceOutSQList.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_Invoice.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmInvoiceOutSQList.ToolButton4Click(Sender: TObject);
var
MIvID: string;
begin
if CDS_Invoice.IsEmpty then
Exit;
if CDS_Invoice.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MIvID := '';
CDS_Invoice.DisableControls;
with CDS_Invoice do
begin
First;
while CDS_Invoice.Locate('SSel', True, []) do
begin
MIvID := MIvID + ',' + (Trim(CDS_Invoice.fieldbyname('IvID').AsString));
Edit;
FieldByName('SSel').Value := False;
Post;
end;
end;
CDS_Invoice.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'InvoiceOut';
FFiltration1 := MIvID;
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmInvoiceOutSQList.ToolButton5Click(Sender: TObject);
begin
if CDS_Invoice.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
fkeyNO := Trim(Self.CDS_Invoice.fieldbyname('IVID').AsString);
fType := '销项发票';
FEditAuthority := True;
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmInvoiceOutSQList.btnWCClick(Sender: TObject);
var
FIVIDS: string;
begin
if CDS_Invoice.IsEmpty then
exit;
if not CDS_Invoice.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
FIVIDS := SelCDSKey(CDS_Invoice, ['IVID'])[0];
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('update Finance_Invoice_Apply set Comper=''' + trim(DName) + ''',Comptime=getdate(),status=''10'' ');
sql.add('where IVFlag=''销项'' ');
sql.add('and exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FIVIDS) + ','','') X where X.RTVALUE=Finance_Invoice_Apply.IVID )');
execsql;
end;
application.MessageBox('审核成功', '提示');
InitGrid();
except
application.MessageBox('审核失败', '提示');
InitGrid();
end;
end;
procedure TfrmInvoiceOutSQList.btnWCCXClick(Sender: TObject);
var
FIVIDS: string;
begin
if CDS_Invoice.IsEmpty then
exit;
if not CDS_Invoice.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
FIVIDS := SelCDSKey(CDS_Invoice, ['IVID'])[0];
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('update Finance_Invoice_Apply set Comper=null,Comptime=null,status=''9'' ');
sql.add('where IVFlag=''销项'' ');
sql.add('and exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FIVIDS) + ','','') X where X.RTVALUE=Finance_Invoice_Apply.IVID )');
execsql;
end;
application.MessageBox('撤销成功', '提示');
InitGrid();
except
application.MessageBox('撤销失败', '提示');
InitGrid();
end;
end;
procedure TfrmInvoiceOutSQList.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.

512
A09财务通用管理/U_InvoiceOutSel.dfm Normal file
View File

@ -0,0 +1,512 @@
inherited frmInvoiceOutSel: TfrmInvoiceOutSel
Left = 308
Top = 202
Caption = #38144#39033#21457#31080#31649#29702
ClientHeight = 626
ClientWidth = 1558
Font.Height = -16
Position = poMainFormCenter
ExplicitWidth = 1574
ExplicitHeight = 665
PixelsPerInch = 96
TextHeight = 19
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1558
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Financial.cxImageList_bar
Images = DataLink_Financial.cxImageList_bar
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 ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton2Click
end
object btnok: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = btnokClick
end
object ToolButton3: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 316
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1558
Height = 123
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label3: TLabel
Left = 26
Top = 46
Width = 64
Height = 19
Caption = #21457#31080#21495#30721
end
object Label5: TLabel
Left = 248
Top = 46
Width = 64
Height = 19
Caption = #23545#26041#21333#20301
end
object Label7: TLabel
Left = 470
Top = 46
Width = 64
Height = 19
Caption = #25105#26041#21333#20301
end
object Label8: TLabel
Left = 248
Top = 85
Width = 67
Height = 19
Caption = #35268' '#26684
end
object Label9: TLabel
Left = 26
Top = 85
Width = 64
Height = 19
Caption = #20135#21697#21517#31216
end
object F_Name: TcxTextEdit
Tag = 2
Left = 94
Top = 81
TabOrder = 3
Width = 150
end
object IVNo: TcxTextEdit
Tag = 2
Left = 94
Top = 42
TabOrder = 0
Width = 150
end
object F_Spec: TcxTextEdit
Tag = 2
Left = 319
Top = 81
TabOrder = 4
Width = 150
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 316
Top = 42
TabOrder = 1
Width = 150
end
object OurCoName: TcxTextEdit
Tag = 2
Left = 538
Top = 42
TabOrder = 2
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1554
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 5
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1554
ExplicitHeight = 37
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 153
Width = 1558
Height = 473
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
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 = v1Column12
end
item
Kind = skSum
Column = v1Column15
end
item
Kind = skSum
Column = v1Column17
end
item
Kind = skSum
Column = v1Column18
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1InvoiceNo: TcxGridDBColumn
Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object v1InvoiceDate: TcxGridDBColumn
Caption = #21457#31080#26085#26399
DataBinding.FieldName = 'IVDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1InvoiceType: TcxGridDBColumn
Caption = #21457#31080#31867#22411
DataBinding.FieldName = 'IVType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object v1Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column1: TcxGridDBColumn
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
object v1Column8: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object v1Column9: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column10: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object v1Column11: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'F_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column12: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
end
object v1Column13: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v1Column14: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
end
object v1Column15: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 54
end
object v1Column17: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object v1Column18: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column19: TcxGridDBColumn
Caption = #31246#29575'(%)'
DataBinding.FieldName = 'tax'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
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 = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column2: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 599
Top = 237
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 682
Top = 237
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 599
Top = 299
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 765
Top = 237
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 848
Top = 237
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 = 682
Top = 361
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryTemp
Left = 599
Top = 361
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 765
Top = 299
end
object DS_Invoice: TDataSource
DataSet = CDS_Invoice
Left = 848
Top = 299
end
object CDS_Invoice: TClientDataSet
Aggregates = <>
Params = <>
Left = 682
Top = 299
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 = 765
Top = 361
end
object PopupMenu1: TPopupMenu
Left = 931
Top = 299
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 = 931
Top = 237
end
end

239
A09财务通用管理/U_InvoiceOutSel.pas Normal file
View File

@ -0,0 +1,239 @@
unit U_InvoiceOutSel;
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, dxDateRanges, U_BaseHelp,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxScrollbarAnnotations,
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, U_BaseList,
System.ImageList, Vcl.ImgList;
type
TfrmInvoiceOutSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
F_Name: TcxTextEdit;
ADOQueryMain: TADOQuery;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
IVNo: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_Invoice: TDataSource;
CDS_Invoice: TClientDataSet;
v1InvoiceNo: TcxGridDBColumn;
v1InvoiceType: TcxGridDBColumn;
v1InvoiceDate: TcxGridDBColumn;
v1FactoryName: TcxGridDBColumn;
v1note: TcxGridDBColumn;
F_Spec: TcxTextEdit;
Label5: TLabel;
OppCoName: TcxTextEdit;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
RMXLSExport1: TRMXLSExport;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ADOQueryPrint: TADOQuery;
Label7: TLabel;
OurCoName: TcxTextEdit;
Label8: TLabel;
Label9: TLabel;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
ToolButton3: TToolButton;
N3: TMenuItem;
Tv1Column1: TcxGridDBColumn;
btnok: TToolButton;
Tv1Column2: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel;
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 cxTabControl1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure btnokClick(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
procedure SetStatus();
public
FZKType, canshu1, canshu2: string;
{ Public declarations }
end;
var
frmInvoiceOutSel: TfrmInvoiceOutSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmInvoiceOutSel.SetStatus();
begin
end;
procedure TfrmInvoiceOutSel.InitGrid();
var
Msql, mbegdate, menddate: string;
SqlStr: string;
begin
SqlStr := ' select A.* ';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''销项发票'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)';
SqlStr := SqlStr + ' from Finance_Invoice A ';
SqlStr := SqlStr + ' left join Bs_Company B on A.OppCoNo=B.CoCode ';
SqlStr := SqlStr + 'where IVFlag=''销项'' ';
SqlStr := SqlStr + ' and A.IVDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.IVDate<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
if trim(canshu1) = '录入' then
SqlStr := SqlStr + ' and CHARINDEX(' + quotedstr(DCode) + ',(ISNULL(B.SalesId, '''') +'',''+ISNULL(B.TallyId, '''')+'',''+ISNULL(A.FillId, '''') ) ) > 0 ';
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_Invoice, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'IVId');
end;
procedure TfrmInvoiceOutSel.FormDestroy(Sender: TObject);
begin
inherited;
// frmInvoiceXX := nil;
end;
procedure TfrmInvoiceOutSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmInvoiceOutSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmInvoiceOutSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption, Tv1, '财务管理');
frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 30;
SetStatus();
InitGrid();
end;
procedure TfrmInvoiceOutSel.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid();
end;
procedure TfrmInvoiceOutSel.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 TfrmInvoiceOutSel.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv1, '财务管理');
end;
procedure TfrmInvoiceOutSel.Tv1DblClick(Sender: TObject);
begin
btnok.Click;
end;
procedure TfrmInvoiceOutSel.btnokClick(Sender: TObject);
begin
inherited;
ModalResult := 1;
end;
procedure TfrmInvoiceOutSel.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxgrid1);
end;
procedure TfrmInvoiceOutSel.IVNoChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmInvoiceOutSel.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
initGrid();
end;
procedure TfrmInvoiceOutSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Invoice, True);
end;
procedure TfrmInvoiceOutSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Invoice, false);
end;
procedure TfrmInvoiceOutSel.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_Invoice.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
end.

8
A09财务通用管理/U_PayImport.pas
View File

@ -300,7 +300,7 @@ begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
@ -340,9 +340,9 @@ begin
begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -361,7 +361,7 @@ begin
begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally

40
A09财务通用管理/U_PayInput.dfm
View File

@ -4,7 +4,7 @@ object frmPayInput: TfrmPayInput
Caption = #20184#27454#30331#35760
ClientHeight = 526
ClientWidth = 1048
Color = clBtnFace
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -60,7 +60,9 @@ object frmPayInput: TfrmPayInput
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label18: TLabel
@ -161,9 +163,17 @@ object frmPayInput: TfrmPayInput
Height = 21
Caption = #25910#27454#25260#22836
end
object Label25: TLabel
Left = 768
Top = 107
Width = 64
Height = 21
Caption = #23545#36134#26085#26399
end
object OurCoName: TcxButtonEdit
Left = 108
Top = 11
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -179,6 +189,7 @@ object frmPayInput: TfrmPayInput
object OppCoName: TcxButtonEdit
Left = 344
Top = 16
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -194,6 +205,7 @@ object frmPayInput: TfrmPayInput
object OppParentCoName: TcxButtonEdit
Left = 593
Top = 12
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -209,6 +221,7 @@ object frmPayInput: TfrmPayInput
object FFTime: TcxDateEdit
Left = 838
Top = 12
ParentColor = True
Properties.ShowTime = False
TabOrder = 3
Width = 151
@ -216,6 +229,7 @@ object frmPayInput: TfrmPayInput
object OurBankName: TcxButtonEdit
Left = 106
Top = 55
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -231,6 +245,7 @@ object frmPayInput: TfrmPayInput
object OppBankName: TcxButtonEdit
Left = 341
Top = 55
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -246,6 +261,7 @@ object frmPayInput: TfrmPayInput
object ConNo: TcxButtonEdit
Left = 107
Top = 104
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -261,6 +277,7 @@ object frmPayInput: TfrmPayInput
object OrderNo: TcxButtonEdit
Left = 342
Top = 105
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -277,6 +294,7 @@ object frmPayInput: TfrmPayInput
Left = 594
Top = 105
Hint = 'FFAbstract/'#25688#35201
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -293,6 +311,7 @@ object frmPayInput: TfrmPayInput
Left = 107
Top = 150
Hint = 'PayMent/'#20184#27454#26041#24335
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -308,6 +327,7 @@ object frmPayInput: TfrmPayInput
object Amount: TcxCurrencyEdit
Left = 345
Top = 150
ParentColor = True
Properties.AssignedValues.DisplayFormat = True
TabOrder = 10
Width = 84
@ -315,6 +335,7 @@ object frmPayInput: TfrmPayInput
object Currency: TcxComboBox
Left = 432
Top = 150
ParentColor = True
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'CNY'
@ -327,6 +348,7 @@ object frmPayInput: TfrmPayInput
object Note: TcxMemo
Left = 107
Top = 199
ParentColor = True
TabOrder = 12
Height = 127
Width = 886
@ -335,6 +357,7 @@ object frmPayInput: TfrmPayInput
Left = 594
Top = 150
Hint = 'CollectPayType/'#25910#20184#27454#31867#22411
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -351,6 +374,7 @@ object frmPayInput: TfrmPayInput
Left = 591
Top = 55
Hint = 'CollectHeader/'#25910#27454#25260#22836
ParentColor = True
Properties.Buttons = <
item
Default = True
@ -363,19 +387,27 @@ object frmPayInput: TfrmPayInput
OnDblClick = OurCoNameDblClick
Width = 395
end
object ReconciliationDate: TcxDateEdit
Left = 842
Top = 104
ParentColor = True
Properties.ShowTime = False
TabOrder = 15
Width = 151
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 835
Top = 136
Left = 851
Top = 248
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 782
Top = 128
Top = 200
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink

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

@ -55,6 +55,8 @@ type
CollectPayType: TcxButtonEdit;
Label4: TLabel;
CollectHeader: TcxButtonEdit;
Label25: TLabel;
ReconciliationDate: TcxDateEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -173,9 +175,9 @@ begin
FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
end;
@ -194,7 +196,7 @@ begin
FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
begin
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -288,7 +290,7 @@ begin
FCoType := 'ÎÒ˾';
if ShowModal = 1 then
begin
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OurCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;

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

@ -4,7 +4,6 @@ inherited frmPayList: TfrmPayList
Caption = #20184#27454#31649#29702
ClientHeight = 590
ClientWidth = 1540
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
@ -69,16 +68,32 @@ inherited frmPayList: TfrmPayList
ImageIndex = 5
OnClick = btnDelClick
end
object btnChk: TToolButton
object btnTJ: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
OnClick = btnTJClick
end
object btnCXTJ: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #25764#38144#25552#20132
ImageIndex = 11
OnClick = btnCXTJClick
end
object btnChk: TToolButton
Left = 529
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = btnChkClick
end
object btnReChk: TToolButton
Left = 426
Left = 600
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@ -86,7 +101,7 @@ inherited frmPayList: TfrmPayList
OnClick = btnReChkClick
end
object ToolButton9: TToolButton
Left = 529
Left = 703
Top = 0
AutoSize = True
Caption = #38468#20214#19978#20256
@ -94,7 +109,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton9Click
end
object ToolButton1: TToolButton
Left = 632
Left = 806
Top = 0
AutoSize = True
Caption = #23548#20837
@ -102,7 +117,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 703
Left = 877
Top = 0
AutoSize = True
Caption = #23548#20986
@ -110,7 +125,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton4Click
end
object ToolButton2: TToolButton
Left = 774
Left = 948
Top = 0
AutoSize = True
Caption = #38468#20214
@ -118,7 +133,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 845
Left = 1019
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -126,7 +141,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 948
Left = 1122
Top = 0
AutoSize = True
Caption = #20851#38381
@ -142,10 +157,9 @@ inherited frmPayList: TfrmPayList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
ExplicitTop = 29
object Label3: TLabel
Left = 28
Top = 48
@ -191,55 +205,49 @@ inherited frmPayList: TfrmPayList
object OppCoName: TcxTextEdit
Tag = 2
Left = 95
Top = 44
Top = 42
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 0
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object F_Name: TcxTextEdit
Tag = 2
Left = 316
Top = 44
Top = 42
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 1
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object P_Code: TcxTextEdit
Tag = 1
Left = 316
Top = 82
Top = 80
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 2
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object ConNo: TcxTextEdit
Tag = 2
Left = 584
Top = 82
Top = 80
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 3
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object BuyConNo: TcxTextEdit
Tag = 2
Left = 584
Top = 44
Top = 42
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 4
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object OppParentCoName: TcxTextEdit
Tag = 2
Left = 95
Top = 82
Top = 80
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 5
OnKeyPress = OppCoNameKeyPress
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
@ -248,32 +256,26 @@ inherited frmPayList: TfrmPayList
Width = 1536
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 6
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1536
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
@ -321,6 +323,8 @@ inherited frmPayList: TfrmPayList
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 60
object Tv1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
@ -485,7 +489,8 @@ inherited frmPayList: TfrmPayList
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#26410#25552#20132
#24453#23457#26680
#24050#23457#26680
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
@ -493,42 +498,48 @@ inherited frmPayList: TfrmPayList
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 588
Top = 392
ExplicitLeft = 588
ExplicitTop = 392
end
inherited cxProgressBar2: TcxProgressBar
Left = 520
Top = 248
ExplicitLeft = 520
ExplicitTop = 248
Left = 588
Top = 304
ExplicitLeft = 588
ExplicitTop = 304
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 313
Top = 304
Left = 590
Top = 219
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 113
Top = 289
Left = 673
Top = 219
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 197
Top = 433
Left = 922
Top = 219
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 101
Top = 433
Left = 756
Top = 219
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 293
Top = 433
Left = 839
Top = 219
end
object RM1: TRMGridReport
ThreadPrepareReport = True
@ -546,35 +557,35 @@ inherited frmPayList: TfrmPayList
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 232
Top = 288
Left = 590
Top = 343
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
Left = 168
Top = 280
Left = 922
Top = 281
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 472
Top = 360
Left = 673
Top = 281
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 611
Top = 363
Left = 756
Top = 281
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 544
Top = 360
Left = 590
Top = 281
end
object PopupMenu1: TPopupMenu
Left = 544
Top = 288
Left = 839
Top = 281
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click

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

@ -81,6 +81,8 @@ type
frmFrameDateSel1: TfrmFrameDateSel;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
btnTJ: TToolButton;
btnCXTJ: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -102,12 +104,8 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure OppCoNameKeyPress(Sender: TObject; var Key: Char);
procedure btnTJClick(Sender: TObject);
procedure btnCXTJClick(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -130,6 +128,9 @@ begin
btnAdd.Enabled := false; //ÐÂÔö
btnEdit.Enabled := false; //ÐÞ¸Ä
btnDel.Enabled := false; //ɾ³ý
btnTJ.Enabled := false; //修改
btnCXTJ.Enabled := false; //删除
// if Trim(FAuthority) = '¹ÜÀí' then
begin
btnAdd.Enabled := true;
@ -138,16 +139,22 @@ begin
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
btnChk.Enabled := true;
btnTJ.Enabled := true;
end;
1:
begin
btnReChk.Enabled := true;
btnCXTJ.Enabled := true;
btnChk.Enabled := true;
end;
2:
begin
btnReChk.Enabled := true;
end;
3:
begin
end;
end;
end;
end;
@ -167,11 +174,15 @@ begin
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''1'' ';
end;
2:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end;
end;
@ -282,41 +293,6 @@ begin
end;
procedure TfrmPayList.cxButton1Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmPayList.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid();
end;
procedure TfrmPayList.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid();
end;
procedure TfrmPayList.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmPayList.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmPayList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@ -429,6 +405,51 @@ begin
end;
procedure TfrmPayList.btnCXTJClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销提交'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('撤销提交成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmPayList.btnReChkClick(Sender: TObject);
var
FFFIDS: string;
@ -491,6 +512,52 @@ begin
end;
end;
procedure TfrmPayList.btnTJClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''提交'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('提交成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmPayList.btnAddClick(Sender: TObject);
begin
@ -617,18 +684,8 @@ begin
end;
procedure TfrmPayList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmPayList.OppCoNamePropertiesChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
end;

53
A09财务通用管理/U_PayableEdit.dfm
View File

@ -5,15 +5,15 @@ object frmPayableEdit: TfrmPayableEdit
ClientHeight = 127
ClientWidth = 330
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
TextHeight = 21
object Panel1: TPanel
Left = 0
Top = 0
@ -25,40 +25,57 @@ object frmPayableEdit: TfrmPayableEdit
330
127)
object Label1: TLabel
Left = 24
Left = 58
Top = 41
Width = 30
Height = 13
Width = 32
Height = 21
Anchors = []
AutoSize = False
Caption = #21333#20215
end
object Button1: TButton
Left = 208
Top = 38
Width = 75
object Label2: TLabel
Left = 26
Top = 81
Width = 64
Height = 21
Anchors = []
Caption = #23545#36134#26085#26399
end
object Button1: TButton
Left = 240
Top = 35
Width = 75
Height = 34
Caption = #30830#35748
TabOrder = 0
OnClick = Button1Click
end
object Price: TEdit
Left = 64
Left = 96
Top = 37
Width = 121
Height = 21
Height = 29
Anchors = []
TabOrder = 1
end
object Button2: TButton
Left = 208
Top = 76
Left = 240
Top = 74
Width = 75
Height = 25
Caption = #20851#38381
Height = 35
Caption = #30830#35748
TabOrder = 2
OnClick = Button2Click
end
object ReconciliationDate: TcxDateEdit
Left = 96
Top = 75
AutoSize = False
Properties.ImmediatePost = True
Properties.ShowTime = False
TabOrder = 3
Height = 33
Width = 120
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink

28
A09财务通用管理/U_PayableEdit.pas
View File

@ -4,18 +4,23 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, ADODB;
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxContainer, cxEdit, Vcl.ComCtrls, dxCore, cxDateUtils,
dxSkinsCore, dxSkinsDefaultPainters, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxCalendar;
type
TfrmPayableEdit = class(TForm)
Panel1: TPanel;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Price: TEdit;
Label2: TLabel;
Button2: TButton;
ReconciliationDate: TcxDateEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
@ -34,7 +39,24 @@ implementation
procedure TfrmPayableEdit.Button2Click(Sender: TObject);
begin
Close;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' update Finance_Flow ');
sql.Add(' set ReconciliationDate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', ReconciliationDate.Date))));
sql.Add(' where ISNULL(status, ''0'')=''0'' ');
sql.Add(' and EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFIDS) + ','','') X where X.RTValue=Finance_Flow.FFID) ');
// showmessage(sql.text);
ExecSQL;
end;
ModalResult := 1;
except
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
end;
end;
procedure TfrmPayableEdit.Button1Click(Sender: TObject);

8
A09财务通用管理/U_PayableImport.pas
View File

@ -320,7 +320,7 @@ begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
@ -360,9 +360,9 @@ begin
begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -381,7 +381,7 @@ begin
begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally

52
A09财务通用管理/U_PayableInput.dfm
View File

@ -2,9 +2,9 @@ object frmPayableInput: TfrmPayableInput
Left = 261
Top = 149
Caption = #24212#20184#27454#30331#35760
ClientHeight = 568
ClientWidth = 1325
Color = clBtnFace
ClientHeight = 484
ClientWidth = 1109
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -21,7 +21,7 @@ object frmPayableInput: TfrmPayableInput
Tag = 1
Left = 0
Top = 0
Width = 1325
Width = 1109
Height = 30
AutoSize = True
ButtonHeight = 30
@ -54,13 +54,15 @@ object frmPayableInput: TfrmPayableInput
object ScrollBox1: TScrollBox
Left = 0
Top = 30
Width = 1325
Height = 538
Width = 1109
Height = 454
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
OnClick = ScrollBox1Click
@ -125,7 +127,7 @@ object frmPayableInput: TfrmPayableInput
Top = 185
Width = 62
Height = 21
Caption = #25903' '#25968
Caption = #21305' '#25968
end
object Label11: TLabel
Left = 263
@ -227,11 +229,18 @@ object frmPayableInput: TfrmPayableInput
end
object Label19: TLabel
Left = 765
Top = 183
Top = 185
Width = 48
Height = 21
Caption = #23567#32568#36153
end
object Label25: TLabel
Left = 764
Top = 228
Width = 64
Height = 21
Caption = #23545#36134#26085#26399
end
object F_Code: TcxTextEdit
Left = 99
Top = 97
@ -254,7 +263,7 @@ object frmPayableInput: TfrmPayableInput
end
object Price: TcxCurrencyEdit
Left = 578
Top = 182
Top = 181
Properties.AssignedValues.DisplayFormat = True
TabOrder = 3
OnExit = QtyExit
@ -262,7 +271,7 @@ object frmPayableInput: TfrmPayableInput
end
object Qty: TcxCurrencyEdit
Left = 337
Top = 182
Top = 181
Properties.AssignedValues.DisplayFormat = True
TabOrder = 4
OnExit = QtyExit
@ -270,7 +279,7 @@ object frmPayableInput: TfrmPayableInput
end
object Piece: TcxCurrencyEdit
Left = 99
Top = 182
Top = 181
Properties.AssignedValues.DisplayFormat = True
TabOrder = 5
Width = 150
@ -437,7 +446,7 @@ object frmPayableInput: TfrmPayableInput
end
object QtyUnit: TcxComboBox
Left = 440
Top = 182
Top = 181
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
@ -466,27 +475,34 @@ object frmPayableInput: TfrmPayableInput
Top = 224
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#21547#31246
#19981#21547#31246)
#26159
#21542)
TabOrder = 23
Text = #21547#31246
Text = #26159
Width = 151
end
object Note: TcxMemo
Left = 99
Top = 265
Top = 264
TabOrder = 24
Height = 127
Width = 886
end
object OtherFee1: TcxCurrencyEdit
Left = 836
Top = 177
Left = 838
Top = 181
Properties.AssignedValues.DisplayFormat = True
TabOrder = 25
OnExit = QtyExit
Width = 150
end
object ReconciliationDate: TcxDateEdit
Left = 838
Top = 224
Properties.ShowTime = False
TabOrder = 26
Width = 151
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink

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

@ -76,6 +76,8 @@ type
Note: TcxMemo;
Label19: TLabel;
OtherFee1: TcxCurrencyEdit;
Label25: TLabel;
ReconciliationDate: TcxDateEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -126,7 +128,7 @@ begin
MDeduction := Strtofloatdef(Deduction.Text, 0);
MAmount := Strtofloatdef(Amount.Text, 0);
if MQty * MPrice >= 0 then
// if MQty * MPrice >= 0 then
begin
MAmount := RoundFloat((MQty * MPrice + MOtherFee + MOtherFee1 - MDeduction), 2);
@ -177,9 +179,9 @@ begin
FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -197,7 +199,7 @@ begin
FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
begin
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;

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

@ -4,7 +4,6 @@ inherited frmPayableList: TfrmPayableList
Caption = #24212#20184#27454#31649#29702
ClientHeight = 590
ClientWidth = 1625
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
@ -61,13 +60,13 @@ inherited frmPayableList: TfrmPayableList
ImageIndex = 3
OnClick = btnEditClick
end
object ToolButton1: TToolButton
object btnDJXG: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #20462#25913#21333#20215
Caption = #25209#37327#20462#25913
ImageIndex = 3
OnClick = ToolButton1Click
OnClick = btnDJXGClick
end
object btnDel: TToolButton
Left = 387
@ -77,16 +76,32 @@ inherited frmPayableList: TfrmPayableList
ImageIndex = 5
OnClick = btnDelClick
end
object btnChk: TToolButton
object btnTJ: TToolButton
Left = 458
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
OnClick = btnTJClick
end
object btnCXTJ: TToolButton
Left = 529
Top = 0
AutoSize = True
Caption = #25764#38144#25552#20132
ImageIndex = 11
OnClick = btnCXTJClick
end
object btnChk: TToolButton
Left = 632
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = btnChkClick
end
object btnReChk: TToolButton
Left = 529
Left = 703
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@ -94,7 +109,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = btnReChkClick
end
object ToolButton2: TToolButton
Left = 632
Left = 806
Top = 0
AutoSize = True
Caption = #23548#20837
@ -102,7 +117,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 703
Left = 877
Top = 0
AutoSize = True
Caption = #23548#20986
@ -110,7 +125,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton4Click
end
object ToolButton3: TToolButton
Left = 774
Left = 948
Top = 0
AutoSize = True
Caption = #38468#20214
@ -118,7 +133,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton3Click
end
object ToolButton5: TToolButton
Left = 845
Left = 1019
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -126,7 +141,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 948
Left = 1122
Top = 0
AutoSize = True
Caption = #20851#38381
@ -142,8 +157,8 @@ inherited frmPayableList: TfrmPayableList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
object Label3: TLabel
Left = 26
@ -246,32 +261,26 @@ inherited frmPayableList: TfrmPayableList
Width = 1621
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 6
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1621
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
end
@ -323,6 +332,8 @@ inherited frmPayableList: TfrmPayableList
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 50
object Tv1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
@ -330,7 +341,7 @@ inherited frmPayableList: TfrmPayableList
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 63
Width = 77
end
object v2CRTime: TcxGridDBColumn
Tag = 7
@ -342,7 +353,7 @@ inherited frmPayableList: TfrmPayableList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
Width = 77
end
object Tv1Column23: TcxGridDBColumn
Caption = #23545#36134#26085#26399
@ -350,7 +361,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
Width = 77
end
object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
@ -358,7 +369,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object v2FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
@ -366,7 +377,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
Width = 77
end
object v2OrderNo: TcxGridDBColumn
Tag = 7
@ -375,7 +386,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335
@ -383,7 +394,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
@ -399,7 +410,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
Width = 77
end
object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#21333#21495
@ -407,14 +418,14 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
Width = 77
end
object Tv1Column4: TcxGridDBColumn
Caption = #32534#21495
@ -422,7 +433,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column5: TcxGridDBColumn
Caption = #21697#21517
@ -430,7 +441,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column6: TcxGridDBColumn
Caption = #33457#22411
@ -438,7 +449,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column27: TcxGridDBColumn
Caption = #24067#31181
@ -446,7 +457,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
Width = 77
end
object Tv1Column28: TcxGridDBColumn
Caption = #21152#24037#21035
@ -454,7 +465,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
Width = 77
end
object Tv1Column7: TcxGridDBColumn
Caption = #39068#33394
@ -462,7 +473,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column8: TcxGridDBColumn
Caption = #38376#24133
@ -470,7 +481,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column9: TcxGridDBColumn
Caption = #20811#37325
@ -478,7 +489,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column10: TcxGridDBColumn
Caption = #33394#21495
@ -486,7 +497,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
@ -494,7 +505,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column12: TcxGridDBColumn
Caption = #25968#37327
@ -502,7 +513,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column13: TcxGridDBColumn
Caption = #21333#20301
@ -510,15 +521,17 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column14: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column33: TcxGridDBColumn
Caption = #23567#32568#36153
@ -526,7 +539,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
Width = 77
end
object Tv1Column35: TcxGridDBColumn
Caption = #25209#21495
@ -534,6 +547,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column34: TcxGridDBColumn
Caption = #32568#21495
@ -541,7 +555,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
Width = 77
end
object Tv1Column26: TcxGridDBColumn
Caption = #38468#20214
@ -550,7 +564,7 @@ inherited frmPayableList: TfrmPayableList
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 56
Width = 77
end
object Tv1Column15: TcxGridDBColumn
Caption = #20854#20182#36153
@ -558,7 +572,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column16: TcxGridDBColumn
Caption = #20943#20813
@ -566,7 +580,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column2: TcxGridDBColumn
Caption = #26159#21542#21547#31246
@ -574,14 +588,17 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column25: TcxGridDBColumn
Caption = #22791#27880
@ -589,7 +606,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
Width = 77
end
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181
@ -597,7 +614,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 77
end
object Tv1Column1: TcxGridDBColumn
Caption = #26469#28304
@ -605,21 +622,21 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 77
end
object Tv1Column29: TcxGridDBColumn
Caption = #36229#20132
DataBinding.FieldName = 'MoreQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 77
end
object Tv1Column30: TcxGridDBColumn
Caption = #36229#20132#21333#20301
DataBinding.FieldName = 'MoreLessUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 77
end
object Tv1Column32: TcxGridDBColumn
Caption = #23545#26041#32534#21495
@ -627,14 +644,14 @@ inherited frmPayableList: TfrmPayableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 97
Width = 77
end
object Tv1Column31: TcxGridDBColumn
Caption = #30701#20132
DataBinding.FieldName = 'LessQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 77
end
end
object cxGridLevel1: TcxGridLevel
@ -652,7 +669,8 @@ inherited frmPayableList: TfrmPayableList
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#26410#25552#20132
#24453#23457#26680
#24050#23457#26680
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
@ -660,38 +678,44 @@ inherited frmPayableList: TfrmPayableList
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Top = 320
ExplicitTop = 320
end
inherited cxProgressBar2: TcxProgressBar
Top = 264
ExplicitTop = 264
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 233
Top = 176
Left = 632
Top = 219
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 121
Top = 177
Left = 715
Top = 219
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 197
Top = 433
Left = 964
Top = 219
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 101
Top = 433
Left = 798
Top = 219
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 293
Top = 433
Left = 881
Top = 219
end
object RM1: TRMGridReport
ThreadPrepareReport = True
@ -709,35 +733,35 @@ inherited frmPayableList: TfrmPayableList
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 232
Top = 288
Left = 632
Top = 343
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
Left = 168
Top = 280
Left = 964
Top = 281
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 504
Top = 312
Left = 715
Top = 281
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 595
Top = 315
Left = 798
Top = 281
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 552
Top = 336
Left = 632
Top = 281
end
object PopupMenu1: TPopupMenu
Left = 776
Top = 304
Left = 881
Top = 281
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click

209
A09财务通用管理/U_PayableList.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, dxScrollbarAnnotations,
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar;
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
cxCurrencyEdit;
type
TfrmPayableList = class(TfrmBaseList)
@ -87,7 +88,7 @@ type
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
ToolButton1: TToolButton;
btnDJXG: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Tv1Column26: TcxGridDBColumn;
@ -102,6 +103,8 @@ type
Tv1Column33: TcxGridDBColumn;
Tv1Column34: TcxGridDBColumn;
Tv1Column35: TcxGridDBColumn;
btnTJ: TToolButton;
btnCXTJ: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -119,16 +122,13 @@ type
procedure N2Click(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure btnDJXGClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure btnTJClick(Sender: TObject);
procedure btnCXTJClick(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -152,6 +152,11 @@ begin
btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除
btnTJ.Enabled := false; //修改
btnCXTJ.Enabled := false; //删除
btnDJXG.Enabled := false;
// if Trim(FAuthority) = '管理' then
begin
btnAdd.Enabled := true;
@ -160,16 +165,23 @@ begin
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
btnChk.Enabled := true;
btnTJ.Enabled := true;
end;
1:
begin
btnReChk.Enabled := true;
btnCXTJ.Enabled := true;
btnChk.Enabled := true;
end;
2:
begin
btnReChk.Enabled := true;
btnDJXG.Enabled := true;
end;
3:
begin
end;
end;
end;
end;
@ -189,11 +201,15 @@ begin
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''1'' ';
end;
2:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end;
end;
@ -303,47 +319,12 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), '提示信息');
Exit;
// Exit;
end;
InitGrid();
end;
procedure TfrmPayableList.cxButton1Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmPayableList.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid();
end;
procedure TfrmPayableList.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid();
end;
procedure TfrmPayableList.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmPayableList.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmPayableList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@ -440,6 +421,51 @@ begin
end;
procedure TfrmPayableList.btnCXTJClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销提交'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('撤销提交成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmPayableList.btnReChkClick(Sender: TObject);
var
FFFIDS: string;
@ -485,6 +511,52 @@ begin
end;
end;
procedure TfrmPayableList.btnTJClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''提交'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('提交成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmPayableList.btnAddClick(Sender: TObject);
begin
@ -503,7 +575,7 @@ begin
end;
end;
procedure TfrmPayableList.ToolButton1Click(Sender: TObject);
procedure TfrmPayableList.btnDJXGClick(Sender: TObject);
var
MFFIDS: string;
begin
@ -515,32 +587,33 @@ begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
MFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_Judge ');
sql.Add(' @FFIDS=' + QuotedStr(MFFIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
if FAuthority <> '管理' then
begin
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_Judge ');
sql.Add(' @FFIDS=' + QuotedStr(MFFIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
Exit;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
except
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
Exit;
end;
try
frmPayableEdit := TfrmPayableEdit.Create(Application);
with frmPayableEdit do
begin
FFFIDS := MFFIDS;
ReconciliationDate.Date := SGetServerDate(ADOQueryTemp);
if ShowModal = 1 then
begin
InitGrid();
@ -646,8 +719,6 @@ end;
procedure TfrmPayableList.OppCoNamePropertiesChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
end;

29
A09财务通用管理/U_RankingList.dfm
View File

@ -26,7 +26,7 @@ inherited frmRankingList: TfrmRankingList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -64,7 +64,7 @@ inherited frmRankingList: TfrmRankingList
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
TabOrder = 1
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
@ -185,6 +185,11 @@ inherited frmRankingList: TfrmRankingList
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_Financial.SHuangSe
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
Styles.Inactive = DataLink_Financial.SHuangSe
Styles.Selection = DataLink_Financial.SHuangSe
object cxGridDBColumn5: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'OppCoName'
@ -232,6 +237,11 @@ inherited frmRankingList: TfrmRankingList
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_Financial.SHuangSe
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
Styles.Inactive = DataLink_Financial.SHuangSe
Styles.Selection = DataLink_Financial.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'OppCoName'
@ -270,9 +280,6 @@ inherited frmRankingList: TfrmRankingList
object cxTabSheet2: TcxTabSheet
Caption = ' '#20135#21697#25490#34892#27036' '
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Pnl_F1: TPanel
Left = 0
Top = 0
@ -386,6 +393,11 @@ inherited frmRankingList: TfrmRankingList
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_Financial.SHuangSe
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
Styles.Inactive = DataLink_Financial.SHuangSe
Styles.Selection = DataLink_Financial.SHuangSe
object Tv1Column28: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'OppCoName'
@ -447,8 +459,13 @@ inherited frmRankingList: TfrmRankingList
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_Financial.SHuangSe
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
Styles.Inactive = DataLink_Financial.SHuangSe
Styles.Selection = DataLink_Financial.SHuangSe
object cxGridDBColumn3: TcxGridDBColumn
Caption = #33394#24067#21517#31216
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter

21
A09财务通用管理/U_RankingList.pas
View File

@ -13,9 +13,24 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
Vcl.Clipbrd, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils,
cxProgressBar;
cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd,
dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils;
type
TfrmRankingList = class(TfrmBaseList)

31
A09财务通用管理/U_ReceivableEdit.dfm
View File

@ -2,7 +2,7 @@ object frmReceivableEdit: TfrmReceivableEdit
Left = 682
Top = 315
Caption = #24212#25910#21333#20215#20462#25913
ClientHeight = 127
ClientHeight = 239
ClientWidth = 330
Color = clWhite
Font.Charset = DEFAULT_CHARSET
@ -18,21 +18,26 @@ object frmReceivableEdit: TfrmReceivableEdit
Left = 0
Top = 0
Width = 330
Height = 127
Height = 239
Align = alClient
TabOrder = 0
DesignSize = (
330
127)
ExplicitHeight = 127
object Label1: TLabel
Left = 24
Top = 41
Width = 30
Height = 13
Anchors = []
AutoSize = False
Caption = #21333#20215
end
object Label2: TLabel
Left = 24
Top = 81
Width = 30
Height = 13
AutoSize = False
Caption = #20943#20813
end
object Button1: TButton
Left = 208
Top = 38
@ -47,18 +52,24 @@ object frmReceivableEdit: TfrmReceivableEdit
Top = 37
Width = 121
Height = 21
Anchors = []
TabOrder = 1
end
object Button2: TButton
Left = 208
Top = 76
Top = 77
Width = 75
Height = 25
Caption = #20851#38381
Height = 21
Caption = #30830#35748
TabOrder = 2
OnClick = Button2Click
end
object Deduction: TEdit
Left = 64
Top = 77
Width = 121
Height = 21
TabOrder = 3
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink

35
A09财务通用管理/U_ReceivableEdit.pas
View File

@ -11,13 +11,15 @@ type
Panel1: TPanel;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Price: TEdit;
procedure Button2Click(Sender: TObject);
Label2: TLabel;
Button2: TButton;
Deduction: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
@ -32,11 +34,6 @@ implementation
{$R *.dfm}
procedure TfrmReceivableEdit.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TfrmReceivableEdit.Button1Click(Sender: TObject);
begin
if StrToFloatDef(Price.Text, 0) = 0 then
@ -61,5 +58,29 @@ begin
end;
end;
procedure TfrmReceivableEdit.Button2Click(Sender: TObject);
begin
if StrToFloatDef(Deduction.Text, 0) = 0 then
Deduction.Text := '0';
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' update Finance_Flow ');
sql.Add(' set Deduction=' + Deduction.Text);
sql.Add(' ,Amount=Round((Qty * Price + isnull(OtherFee,0)+ isnull(OtherFee1,0) - isnull(' + Deduction.Text + ',0)), 2)');
sql.Add(' where ISNULL(status, ''0'')=''0'' ');
sql.Add(' and EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFIDS) + ','','') X where X.RTValue=Finance_Flow.FFID) ');
// showmessage(sql.text);
ExecSQL;
end;
ModalResult := 1;
except
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
end;
end;
end.

8
A09财务通用管理/U_ReceivableImport.pas
View File

@ -342,7 +342,7 @@ begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
@ -382,9 +382,9 @@ begin
begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
@ -403,7 +403,7 @@ begin
begin
Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally

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

@ -4,7 +4,7 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #24212#25910#27454#30331#35760
ClientHeight = 488
ClientWidth = 1324
Color = clBtnFace
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -60,7 +60,9 @@ object frmReceivableInput: TfrmReceivableInput
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
OnClick = ScrollBox1Click
@ -86,14 +88,14 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #22791' '#27880
end
object Label1: TLabel
Left = 263
Left = 262
Top = 100
Width = 62
Height = 21
Caption = #21697' '#21517
end
object Label8: TLabel
Left = 768
Left = 762
Top = 57
Width = 64
Height = 21
@ -114,7 +116,7 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #19978#32423#21333#20301
end
object Label3: TLabel
Left = 263
Left = 262
Top = 228
Width = 62
Height = 21
@ -128,14 +130,14 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #21305' '#25968
end
object Label11: TLabel
Left = 263
Left = 262
Top = 185
Width = 62
Height = 21
Caption = #25968' '#37327
end
object Label12: TLabel
Left = 505
Left = 504
Top = 185
Width = 62
Height = 21
@ -149,42 +151,42 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #38376' '#24133
end
object Label14: TLabel
Left = 263
Left = 262
Top = 143
Width = 62
Height = 21
Caption = #20811' '#37325
end
object Label15: TLabel
Left = 505
Top = 100
Left = 504
Top = 143
Width = 62
Height = 21
Caption = #33457' '#22411
end
object Label16: TLabel
Left = 769
Left = 504
Top = 100
Width = 62
Height = 21
Caption = #39068' '#33394
end
object Label17: TLabel
Left = 505
Top = 143
Left = 762
Top = 100
Width = 62
Height = 21
Caption = #33394' '#21495
end
object Label4: TLabel
Left = 766
Left = 762
Top = 185
Width = 68
Height = 21
Caption = #20854' '#20182' '#36153
end
object Label20: TLabel
Left = 766
Left = 762
Top = 15
Width = 67
Height = 21
@ -199,21 +201,21 @@ object frmReceivableInput: TfrmReceivableInput
end
object Label22: TLabel
Left = 262
Top = 58
Top = 57
Width = 64
Height = 21
Caption = #35745#21010#21333#21495
end
object Label23: TLabel
Left = 25
Top = 58
Top = 57
Width = 68
Height = 21
Caption = #21512' '#21516' '#21495
end
object Label24: TLabel
Left = 505
Top = 58
Left = 504
Top = 57
Width = 62
Height = 21
Caption = #25688' '#35201
@ -226,29 +228,44 @@ object frmReceivableInput: TfrmReceivableInput
Caption = #26159#21542#21547#31246
end
object Label19: TLabel
Left = 767
Left = 762
Top = 228
Width = 48
Height = 21
Caption = #23567#32568#36153
end
object F_Code: TcxTextEdit
Left = 99
Top = 97
TabOrder = 0
Width = 150
object Label25: TLabel
Left = 762
Top = 143
Width = 62
Height = 21
Caption = #27454' '#21495
end
object Label26: TLabel
Left = 1006
Top = 15
Width = 64
Height = 21
Caption = #24212#25910#26085#26399
end
object Label27: TLabel
Left = 1006
Top = 57
Width = 62
Height = 21
Caption = #27719' '#29575
end
object F_Name: TcxTextEdit
Left = 337
Top = 97
TabOrder = 1
Top = 96
TabOrder = 0
Width = 159
end
object Amount: TcxCurrencyEdit
Left = 337
Top = 222
Top = 224
Properties.AssignedValues.DisplayFormat = True
TabOrder = 2
TabOrder = 1
OnExit = QtyExit
Width = 84
end
@ -256,7 +273,7 @@ object frmReceivableInput: TfrmReceivableInput
Left = 578
Top = 182
Properties.AssignedValues.DisplayFormat = True
TabOrder = 3
TabOrder = 2
OnExit = QtyExit
Width = 150
end
@ -264,7 +281,7 @@ object frmReceivableInput: TfrmReceivableInput
Left = 337
Top = 182
Properties.AssignedValues.DisplayFormat = True
TabOrder = 4
TabOrder = 3
OnExit = QtyExit
Width = 101
end
@ -272,58 +289,58 @@ object frmReceivableInput: TfrmReceivableInput
Left = 99
Top = 182
Properties.AssignedValues.DisplayFormat = True
TabOrder = 5
TabOrder = 4
Width = 150
end
object F_Width: TcxTextEdit
Left = 99
Top = 139
TabOrder = 6
TabOrder = 5
Width = 150
end
object F_GramWeight: TcxTextEdit
Left = 337
Top = 139
TabOrder = 7
TabOrder = 6
Width = 159
end
object F_Pattern: TcxTextEdit
Left = 578
Top = 97
TabOrder = 8
Top = 139
TabOrder = 7
Width = 150
end
object F_Color: TcxTextEdit
Left = 838
Left = 579
Top = 96
TabOrder = 8
Width = 150
end
object F_ColorNo: TcxTextEdit
Left = 835
Top = 96
TabOrder = 9
Width = 150
end
object F_ColorNo: TcxTextEdit
Left = 578
Top = 139
TabOrder = 10
Width = 150
end
object OtherFee: TcxCurrencyEdit
Left = 838
Left = 835
Top = 182
Properties.AssignedValues.DisplayFormat = True
TabOrder = 11
TabOrder = 10
OnExit = QtyExit
Width = 150
end
object Deduction: TcxCurrencyEdit
Left = 99
Top = 222
Top = 224
Properties.AssignedValues.DisplayFormat = True
TabOrder = 12
TabOrder = 11
OnExit = QtyExit
Width = 150
end
object OurCoName: TcxButtonEdit
Left = 99
Top = 12
Top = 11
Properties.Buttons = <
item
Default = True
@ -332,13 +349,13 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = OurCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 13
TabOrder = 12
OnDblClick = OurCoNameDblClick
Width = 151
end
object OppCoName: TcxButtonEdit
Left = 337
Top = 12
Top = 11
Properties.Buttons = <
item
Default = True
@ -347,13 +364,13 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = OppCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 14
TabOrder = 13
OnDblClick = OurCoNameDblClick
Width = 159
end
object OppParentCoName: TcxButtonEdit
Left = 578
Top = 12
Top = 11
Properties.Buttons = <
item
Default = True
@ -362,20 +379,20 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = OppParentCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 15
TabOrder = 14
OnDblClick = OurCoNameDblClick
Width = 151
end
object FFTime: TcxDateEdit
Left = 838
Top = 12
Left = 835
Top = 11
Properties.ShowTime = False
TabOrder = 16
TabOrder = 15
Width = 151
end
object ConNo: TcxButtonEdit
Left = 99
Top = 54
Top = 53
Properties.Buttons = <
item
Default = True
@ -384,13 +401,13 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = ConNoPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 17
TabOrder = 16
OnDblClick = OurCoNameDblClick
Width = 151
end
object OrderNo: TcxButtonEdit
Left = 337
Top = 54
Top = 53
Properties.Buttons = <
item
Default = True
@ -399,13 +416,13 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = OrderNoPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 18
TabOrder = 17
OnDblClick = OurCoNameDblClick
Width = 159
end
object FFAbstract: TcxButtonEdit
Left = 578
Top = 54
Top = 53
Hint = 'FFAbstract/'#25688#35201
Properties.Buttons = <
item
@ -415,13 +432,13 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = FFAbstractPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 19
TabOrder = 18
OnDblClick = OurCoNameDblClick
Width = 151
end
object PayMent: TcxButtonEdit
Left = 838
Top = 54
Left = 835
Top = 53
Hint = 'PayMent/'#20184#27454#26041#24335
Properties.Buttons = <
item
@ -431,7 +448,7 @@ object frmReceivableInput: TfrmReceivableInput
Properties.ReadOnly = True
Properties.OnButtonClick = FFAbstractPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 20
TabOrder = 19
OnDblClick = OurCoNameDblClick
Width = 151
end
@ -445,48 +462,83 @@ object frmReceivableInput: TfrmReceivableInput
'Y'
#20010
#20214)
TabOrder = 21
TabOrder = 20
Text = 'Kg'
Width = 57
end
object Currency: TcxComboBox
Left = 424
Top = 222
Top = 224
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'CNY'
'USD'
'EUR')
TabOrder = 22
TabOrder = 21
Text = 'CNY'
Width = 73
end
object IsInvoice: TcxComboBox
Left = 578
Top = 222
Top = 224
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#21547#31246
#19981#21547#31246)
TabOrder = 23
Text = #21547#31246
#26159
#21542)
TabOrder = 22
Text = #26159
Width = 151
end
object Note: TcxMemo
Left = 99
Top = 265
TabOrder = 24
TabOrder = 23
Height = 127
Width = 886
end
object OtherFee1: TcxCurrencyEdit
Left = 838
Top = 222
Left = 835
Top = 224
Properties.AssignedValues.DisplayFormat = True
TabOrder = 25
TabOrder = 24
OnExit = QtyExit
Width = 150
end
object F_StyleNo: TcxTextEdit
Left = 835
Top = 139
TabOrder = 25
Width = 150
end
object ReconciliationDate: TcxDateEdit
Left = 1076
Top = 11
Properties.ShowTime = False
TabOrder = 26
Width = 151
end
object F_Code: TcxButtonEdit
Left = 99
Top = 96
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = F_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 27
OnDblClick = OurCoNameDblClick
Width = 151
end
object ExchangeRate: TcxCurrencyEdit
Left = 1074
Top = 53
Properties.AssignedValues.DisplayFormat = True
TabOrder = 28
Width = 150
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
@ -505,7 +557,7 @@ object frmReceivableInput: TfrmReceivableInput
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 313
Top = 371
Left = 549
Top = 313
end
end

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

@ -23,13 +23,11 @@ type
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ToolButton3: TToolButton;
ScrollBox1: TScrollBox;
Label2: TLabel;
Label6: TLabel;
Label7: TLabel;
F_Code: TcxTextEdit;
Label1: TLabel;
F_Name: TcxTextEdit;
Label8: TLabel;
@ -76,6 +74,14 @@ type
Note: TcxMemo;
Label19: TLabel;
OtherFee1: TcxCurrencyEdit;
F_StyleNo: TcxTextEdit;
Label25: TLabel;
Label26: TLabel;
ReconciliationDate: TcxDateEdit;
F_Code: TcxButtonEdit;
ADOQueryMain: TADOQuery;
Label27: TLabel;
ExchangeRate: TcxCurrencyEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -95,6 +101,7 @@ type
procedure ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure F_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
procedure InitGrid();
@ -102,7 +109,7 @@ type
function SaveData(): Boolean;
public
{ Public declarations }
FFFID: string;
FFFID, FAuthority: string;
end;
var
@ -112,7 +119,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_FinTradePlanSel,
U_FinTradeSalesContractSel;
U_FinTradeSalesContractSel, U_ClothInfoSel;
{$R *.dfm}
@ -127,7 +134,7 @@ begin
MDeduction := Strtofloatdef(Deduction.Text, 0);
MAmount := Strtofloatdef(Amount.Text, 0);
if MQty * MPrice <> 0 then
// if MQty * MPrice >= 0 then
begin
MAmount := RoundFloat((MQty * MPrice + MOtherFee + MOtherFee1 - MDeduction), 2);
end;
@ -161,6 +168,8 @@ begin
else
begin
FFTime.Date := SGetServerDateTime(ADOQueryTemp);
ReconciliationDate.Date := SGetServerDateTime(ADOQueryTemp);
ExchangeRate.Text := '1';
end;
finally
@ -175,11 +184,15 @@ begin
with frmCompanySel do
begin
FCoType := '¿Í»§';
if self.FAuthority = '低权限' then
FAuthority := '理单业务';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -197,7 +210,7 @@ begin
FCoType := '¿Í»§';
if ShowModal = 1 then
begin
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -233,12 +246,23 @@ begin
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
with frmFinTradePlanSel do
begin
if Self.FAuthority = '低权限' then
FAuthority := '拥有者';
if ShowModal = 1 then
begin
with frmFinTradePlanSel.CDS_1 do
begin
self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.F_Code.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
self.F_Name.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Name').AsString);
self.F_Pattern.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Pattern').AsString);
self.F_Color.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Color').AsString);
self.F_ColorNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_ColorNo').AsString);
self.F_Width.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Width').AsString);
self.F_GramWeight.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
end;
end;
@ -261,6 +285,7 @@ begin
with frmCompanySel do
begin
FCoType := 'ÎÒ˾';
if ShowModal = 1 then
begin
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
@ -336,9 +361,18 @@ begin
frmFinTradeSalesContractSel := TfrmFinTradeSalesContractSel.Create(Application);
with frmFinTradeSalesContractSel do
begin
if Self.FAuthority = '低权限' then
FAuthority := '拥有者';
if ShowModal = 1 then
begin
self.ConNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.F_Code.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString);
self.F_Name.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Name').AsString);
self.F_Pattern.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Pattern').AsString);
self.F_Color.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString);
self.F_ColorNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_ColorNo').AsString);
self.F_Width.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_Width').AsString);
self.F_GramWeight.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').AsString);
end;
end;
finally
@ -399,6 +433,29 @@ begin
InitGrid();
end;
procedure TfrmReceivableInput.F_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
FCTType := '通用';
if ShowModal = 1 then
begin
self.F_Code.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Code').AsString);
self.F_Name.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Name').AsString);
self.F_Pattern.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Pattern').AsString);
self.F_Color.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Color').AsString);
self.F_ColorNo.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_ColorNo').AsString);
self.F_Width.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_Width').AsString);
self.F_GramWeight.Text := Trim(frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString);
end;
end;
finally
frmClothInfoSel.Free;
end;
end;
procedure TfrmReceivableInput.TBRafreshClick(Sender: TObject);
begin
InitGrid();

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

@ -2,14 +2,13 @@ inherited frmReceivableList: TfrmReceivableList
Left = 315
Top = 101
Caption = #24212#25910#27454#31649#29702
ClientHeight = 538
ClientHeight = 587
ClientWidth = 1540
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 577
ExplicitHeight = 626
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -61,32 +60,40 @@ inherited frmReceivableList: TfrmReceivableList
ImageIndex = 3
OnClick = btnEditClick
end
object ToolButton1: TToolButton
object btnDJXG: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21333#20215#20462#25913
Caption = #25209#37327#20462#25913
ImageIndex = 3
OnClick = ToolButton1Click
end
object ToolButton6: TToolButton
Left = 387
Top = 0
AutoSize = True
Caption = #25286#20998#37329#39069
ImageIndex = 3
OnClick = ToolButton6Click
OnClick = btnDJXGClick
end
object btnDel: TToolButton
Left = 490
Left = 387
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = btnDelClick
end
object btnTJ: TToolButton
Left = 458
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
OnClick = btnTJClick
end
object btnCXTJ: TToolButton
Left = 529
Top = 0
AutoSize = True
Caption = #25764#38144#25552#20132
ImageIndex = 11
OnClick = btnCXTJClick
end
object btnChk: TToolButton
Left = 561
Left = 632
Top = 0
AutoSize = True
Caption = #23457#26680
@ -94,7 +101,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnChkClick
end
object btnReChk: TToolButton
Left = 632
Left = 703
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@ -102,7 +109,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnReChkClick
end
object ToolButton2: TToolButton
Left = 735
Left = 806
Top = 0
AutoSize = True
Caption = #23548#20837
@ -110,7 +117,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 806
Left = 877
Top = 0
AutoSize = True
Caption = #23548#20986
@ -118,7 +125,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton4Click
end
object ToolButton3: TToolButton
Left = 877
Left = 948
Top = 0
AutoSize = True
Caption = #38468#20214
@ -126,7 +133,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton3Click
end
object ToolButton5: TToolButton
Left = 948
Left = 1019
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -134,7 +141,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 1051
Left = 1122
Top = 0
AutoSize = True
Caption = #20851#38381
@ -150,138 +157,104 @@ inherited frmReceivableList: TfrmReceivableList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 5
object Label3: TLabel
Left = 21
Top = 46
Top = 50
Width = 64
Height = 21
Caption = #23545#26041#21333#20301
end
object Label4: TLabel
Left = 877
Top = 46
Left = 267
Top = 50
Width = 32
Height = 21
Caption = #21697#21517
end
object Label6: TLabel
Left = 877
Top = 82
Left = 267
Top = 87
Width = 32
Height = 21
Caption = #32534#21495
end
object Label10: TLabel
Left = 449
Top = 82
Width = 48
Left = 488
Top = 87
Width = 68
Height = 21
Caption = #21512#21516#21495
Caption = #21512' '#21516' '#21495
end
object Label11: TLabel
Left = 449
Top = 46
Left = 488
Top = 50
Width = 64
Height = 21
Caption = #23458#25143#21333#21495
end
object Label2: TLabel
Left = 21
Top = 82
Top = 87
Width = 64
Height = 21
Caption = #19978#32423#21333#20301
end
object Label1: TLabel
Left = 671
Top = 46
Width = 32
Left = 729
Top = 50
Width = 64
Height = 21
Caption = #32568#21495
end
object Label5: TLabel
Left = 243
Top = 46
Width = 32
Height = 21
Caption = #24067#31181
end
object Label7: TLabel
Left = 243
Top = 82
Width = 48
Height = 21
Caption = #21152#24037#21035
end
object Label8: TLabel
Left = 671
Top = 82
Width = 48
Height = 21
Caption = #35746#21333#21495
end
object Label9: TLabel
Left = 1085
Top = 46
Width = 32
Height = 21
Caption = #26469#28304
Caption = #35745#21010#21333#21495
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 89
Top = 42
Top = 46
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 0
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object F_Name: TcxTextEdit
Tag = 2
Left = 913
Top = 42
Left = 302
Top = 46
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 1
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object F_Code: TcxTextEdit
object P_Code: TcxTextEdit
Tag = 1
Left = 913
Top = 78
Left = 302
Top = 83
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 2
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object ConNo: TcxTextEdit
Tag = 2
Left = 517
Top = 78
Left = 561
Top = 83
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 3
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object BuyConNo: TcxTextEdit
Tag = 2
Left = 517
Top = 42
Left = 561
Top = 46
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 4
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object OppParentCoName: TcxTextEdit
Tag = 2
Left = 89
Top = 78
Top = 83
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 5
OnKeyPress = OppCoNameKeyPress
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
@ -290,77 +263,34 @@ inherited frmReceivableList: TfrmReceivableList
Width = 1536
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 6
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1536
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
end
end
object F_BatchNO: TcxTextEdit
Tag = 2
Left = 723
Top = 42
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 7
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object GC_Name: TcxTextEdit
Tag = 2
Left = 295
Top = 42
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 8
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object CraftCode: TcxTextEdit
Tag = 2
Left = 295
Top = 78
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 9
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object OrderNo: TcxTextEdit
Tag = 2
Left = 723
Top = 78
Left = 802
Top = 46
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 10
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object FromID1: TcxTextEdit
Tag = 2
Left = 1121
Top = 42
Properties.OnChange = OppCoNamePropertiesChange
TabOrder = 11
OnKeyPress = OppCoNameKeyPress
TabOrder = 7
Width = 150
end
end
@ -368,7 +298,7 @@ inherited frmReceivableList: TfrmReceivableList
Left = 0
Top = 179
Width = 1540
Height = 359
Height = 408
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -413,6 +343,8 @@ inherited frmReceivableList: TfrmReceivableList
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 50
object Tv1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
@ -420,7 +352,7 @@ inherited frmReceivableList: TfrmReceivableList
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 55
Width = 66
end
object v2CRTime: TcxGridDBColumn
Tag = 7
@ -432,7 +364,7 @@ inherited frmReceivableList: TfrmReceivableList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column23: TcxGridDBColumn
Caption = #24212#25910#26085#26399
@ -440,7 +372,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
@ -448,7 +380,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object v2FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
@ -456,7 +388,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object v2OrderNo: TcxGridDBColumn
Tag = 7
@ -465,7 +397,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335
@ -473,7 +405,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
@ -481,7 +413,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column24: TcxGridDBColumn
Caption = #25688#35201
@ -489,22 +421,22 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column20: TcxGridDBColumn
Caption = #35746#21333#21495
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 55
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #32534#21495
@ -512,7 +444,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #21697#21517
@ -520,7 +452,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #33457#22411
@ -528,7 +460,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #39068#33394
@ -536,7 +468,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column28: TcxGridDBColumn
Caption = #27454#21495
@ -544,7 +476,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #38376#24133
@ -552,7 +484,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #20811#37325
@ -560,7 +492,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column29: TcxGridDBColumn
Caption = #24067#31181
@ -568,7 +500,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column30: TcxGridDBColumn
Caption = #21152#24037#21035
@ -576,7 +508,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #33394#21495
@ -584,7 +516,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column31: TcxGridDBColumn
Caption = #32568#21495
@ -592,7 +524,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column27: TcxGridDBColumn
Caption = #38468#20214
@ -600,7 +532,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
@ -608,7 +540,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column12: TcxGridDBColumn
Caption = #20986#36135#25968#37327
@ -616,7 +548,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column13: TcxGridDBColumn
Caption = #21333#20301
@ -624,15 +556,17 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column14: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column15: TcxGridDBColumn
Caption = #20854#20182#36153
@ -640,29 +574,29 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column39: TcxGridDBColumn
Caption = #23567#32568#36153
DataBinding.FieldName = 'OtherFee1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 55
Options.Editing = False
Width = 66
end
object Tv1Column37: TcxGridDBColumn
Caption = #35746#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column38: TcxGridDBColumn
Caption = #27719#29575
DataBinding.FieldName = 'ExchangeRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 55
Width = 66
end
object Tv1Column16: TcxGridDBColumn
Caption = #20943#20813
@ -670,15 +604,17 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181
@ -686,7 +622,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column25: TcxGridDBColumn
Caption = #26680#38144#37329#39069
@ -694,14 +630,14 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column26: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'IsInvoice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 55
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #26469#28304
@ -709,7 +645,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #22791#27880
@ -717,7 +653,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column32: TcxGridDBColumn
Caption = #36229#20132
@ -725,7 +661,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column34: TcxGridDBColumn
Caption = #36229#20132#21333#20301
@ -733,7 +669,7 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column33: TcxGridDBColumn
Caption = #30701#20132
@ -741,43 +677,35 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Width = 66
end
object Tv1Column36: TcxGridDBColumn
Caption = #21512#21516#20132#26399
DataBinding.FieldName = 'DlyDateSub'
DataBinding.FieldName = 'DlyNote'
DataBinding.IsNullValueType = True
Width = 55
Width = 66
end
object Tv1Column35: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'ConDate'
DataBinding.IsNullValueType = True
Width = 55
Width = 66
end
object Tv1Column40: TcxGridDBColumn
Caption = #19979#21333#20154
DataBinding.FieldName = 'OrderHolder'
Caption = #29702#21333
DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object Tv1Column42: TcxGridDBColumn
Caption = #23457#26680#26102#38388
DataBinding.FieldName = 'Chktime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
Width = 61
end
object Tv1Column41: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
Caption = #31616#31216
DataBinding.FieldName = 'CoAbbrName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
Width = 71
end
end
object cxGridLevel1: TcxGridLevel
@ -795,7 +723,8 @@ inherited frmReceivableList: TfrmReceivableList
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#26410#25552#20132
#24453#23457#26680
#24050#23457#26680
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
@ -803,42 +732,48 @@ inherited frmReceivableList: TfrmReceivableList
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 779
Top = 440
ExplicitLeft = 779
ExplicitTop = 440
end
inherited cxProgressBar2: TcxProgressBar
Left = 697
Top = 368
ExplicitLeft = 697
ExplicitTop = 368
Left = 948
Top = 400
ExplicitLeft = 948
ExplicitTop = 400
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 249
Top = 240
Left = 590
Top = 217
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 121
Top = 209
Left = 673
Top = 217
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 181
Top = 353
Left = 922
Top = 217
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 93
Top = 353
Left = 756
Top = 217
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 269
Top = 369
Left = 839
Top = 217
end
object RM1: TRMGridReport
ThreadPrepareReport = True
@ -856,35 +791,35 @@ inherited frmReceivableList: TfrmReceivableList
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 232
Top = 288
Left = 590
Top = 341
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
Left = 168
Top = 280
Left = 922
Top = 279
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 472
Top = 288
Left = 673
Top = 279
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 611
Top = 267
Left = 756
Top = 279
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 544
Top = 240
Left = 590
Top = 279
end
object PopupMenu1: TPopupMenu
Left = 776
Top = 304
Left = 839
Top = 279
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click

313
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, dxScrollbarAnnotations,
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar;
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
cxCurrencyEdit;
type
TfrmReceivableList = class(TfrmBaseList)
@ -43,7 +44,7 @@ type
F_Name: TcxTextEdit;
Label4: TLabel;
Label6: TLabel;
F_Code: TcxTextEdit;
P_Code: TcxTextEdit;
v2OrderNo: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
Label10: TLabel;
@ -86,7 +87,7 @@ type
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
ToolButton1: TToolButton;
btnDJXG: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
ToolButton2: TToolButton;
@ -106,20 +107,12 @@ type
Tv1Column37: TcxGridDBColumn;
Tv1Column38: TcxGridDBColumn;
Tv1Column39: TcxGridDBColumn;
ToolButton6: TToolButton;
Tv1Column40: TcxGridDBColumn;
Label1: TLabel;
F_BatchNO: TcxTextEdit;
Label5: TLabel;
GC_Name: TcxTextEdit;
Label7: TLabel;
CraftCode: TcxTextEdit;
Label8: TLabel;
OrderNo: TcxTextEdit;
Label9: TLabel;
FromID1: TcxTextEdit;
btnTJ: TToolButton;
btnCXTJ: TToolButton;
Tv1Column40: TcxGridDBColumn;
Tv1Column41: TcxGridDBColumn;
Tv1Column42: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -136,18 +129,14 @@ type
procedure N2Click(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure btnDJXGClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure OppCoNameKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnTJClick(Sender: TObject);
procedure btnCXTJClick(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -159,7 +148,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_ReceivableInput, U_ReceivableEdit,
U_ReceivableImport, U_AttachmentUpload, U_ReceivableEditCF;
U_ReceivableImport, U_AttachmentUpload;
{$R *.dfm}
procedure TfrmReceivableList.SetStatus();
@ -171,6 +160,11 @@ begin
btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除
btnTJ.Enabled := false; //修改
btnCXTJ.Enabled := false; //删除
btnDJXG.Enabled := false;
// if Trim(FAuthority) = '管理' then
begin
btnAdd.Enabled := true;
@ -179,16 +173,24 @@ begin
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
btnChk.Enabled := true;
btnTJ.Enabled := true;
btnDJXG.Enabled := true;
end;
1:
begin
btnReChk.Enabled := true;
btnCXTJ.Enabled := true;
btnChk.Enabled := true;
end;
2:
begin
btnReChk.Enabled := true;
btnDJXG.Enabled := true;
end;
3:
begin
end;
end;
end;
end;
@ -199,27 +201,37 @@ var
SqlStr: string;
begin
SqlStr := ' select A.* ';
SqlStr := ' select A.*,B.Tallyer,B.CoAbbrName ';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''财务流水'' and X.WBID=A.FFID)>0 THEN 1 ELSE 0 END) AS BIT)';
SqlStr := SqlStr + ',ConDate=(select ConDate from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ',DlyDateSub=(select DlyDateSub from Bs_Contract_Sub X where X.ConSid=A.Consid)';
SqlStr := SqlStr + ',ConQty=(select ConQty from Bs_Contract_Sub X where X.ConSid=A.Consid)';
SqlStr := SqlStr + ',ConDate=(select top 1 ConDate from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ',DlyNote=(select top 1 DlyNote from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ' from Finance_Flow A ';
// if FAuthority = '低权限' then
SqlStr := SqlStr + ' left join Bs_Company B on A.OppCoNo=B.CoCode ';
SqlStr := SqlStr + ' where A.FFType=''应收款登记'' ';
if FAuthority = '低权限' then
SqlStr := SqlStr + ' and CHARINDEX(' + quotedstr(DCode) + ',(ISNULL(B.SalesId, '''') +'',''+ISNULL(B.TallyId, '''')+'',''+ISNULL(A.FillId, '''') ) ) > 0 ';
SqlStr := SqlStr + ' and A.FFTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.FFTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end;
1:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''1'' ';
end;
2:
begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end;
end;
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
end;
@ -240,18 +252,8 @@ begin
end;
procedure TfrmReceivableList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
initgrid();
end;
end;
procedure TfrmReceivableList.OppCoNamePropertiesChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click;
end;
@ -261,6 +263,12 @@ begin
Action := caFree;
end;
procedure TfrmReceivableList.FormCreate(Sender: TObject);
begin
inherited;
FAuthority := Trim(Self.fParameters1);
end;
procedure TfrmReceivableList.TBCloseClick(Sender: TObject);
begin
@ -342,47 +350,12 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), '提示信息');
Exit;
// Exit;
end;
InitGrid();
end;
procedure TfrmReceivableList.cxButton1Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmReceivableList.cxButton2Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid();
end;
procedure TfrmReceivableList.cxButton3Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid();
end;
procedure TfrmReceivableList.cxButton4Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmReceivableList.cxButton5Click(Sender: TObject);
begin
inherited;
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmReceivableList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@ -446,16 +419,7 @@ begin
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
FFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
try
with ADOQueryCmd do
@ -471,6 +435,7 @@ begin
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
InitGrid();
application.MessageBox('审核成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@ -479,6 +444,42 @@ begin
end;
procedure TfrmReceivableList.btnCXTJClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
FFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销提交'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
InitGrid();
application.MessageBox('撤销提交成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmReceivableList.btnReChkClick(Sender: TObject);
var
FFFIDS: string;
@ -492,16 +493,7 @@ begin
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
FFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
try
with ADOQueryCmd do
@ -517,6 +509,7 @@ begin
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
InitGrid();
application.MessageBox('撤销审核成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@ -524,6 +517,44 @@ begin
end;
end;
procedure TfrmReceivableList.btnTJClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
FFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''提交'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
InitGrid();
application.MessageBox('提交成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmReceivableList.btnAddClick(Sender: TObject);
begin
@ -532,6 +563,7 @@ begin
with frmReceivableInput do
begin
FFFID := '';
FAuthority := Self.FAuthority;
if ShowModal = 1 then
begin
InitGrid();
@ -542,7 +574,7 @@ begin
end;
end;
procedure TfrmReceivableList.ToolButton1Click(Sender: TObject);
procedure TfrmReceivableList.btnDJXGClick(Sender: TObject);
var
MFFIDS: string;
begin
@ -557,24 +589,26 @@ begin
MFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_Judge ');
sql.Add(' @FFIDS=' + QuotedStr(MFFIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
if FAuthority <> '管理' then
begin
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_Judge ');
sql.Add(' @FFIDS=' + QuotedStr(MFFIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
Exit;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
Exit;
end;
try
frmReceivableEdit := TfrmReceivableEdit.Create(Application);
with frmReceivableEdit do
@ -640,54 +674,6 @@ begin
WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
end;
procedure TfrmReceivableList.ToolButton6Click(Sender: TObject);
var
MFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
MFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
try
frmReceivableEditCF := TfrmReceivableEditCF.Create(Application);
with frmReceivableEditCF do
begin
FFFIDS := MFFIDS;
if ShowModal = 1 then
begin
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_SplitId ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
Sql.Add(',@TargetAmount=' + Trim(frmReceivableEditCF.Amount.Text));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('拆分成功', '提示');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
end;
finally
frmReceivableEditCF.Free;
end;
end;
procedure TfrmReceivableList.btnEditClick(Sender: TObject);
begin
try
@ -713,6 +699,7 @@ begin
with frmReceivableInput do
begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
FAuthority := Self.FAuthority;
if ShowModal = 1 then
begin
InitGrid();

35
A09财务通用管理/U_ReceivableValueSel.dfm
View File

@ -1,9 +1,10 @@
inherited frmReceivableValueSel: TfrmReceivableValueSel
Left = 372
Top = 106
Caption = #24212#25910#27454#36873#25321
Caption = #25253#20215#36873#25321
ClientHeight = 558
ClientWidth = 1436
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
@ -77,9 +78,7 @@ inherited frmReceivableValueSel: TfrmReceivableValueSel
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
ParentColor = True
TabOrder = 1
ExplicitTop = 29
object Label3: TLabel
Left = 25
Top = 48
@ -128,28 +127,40 @@ inherited frmReceivableValueSel: TfrmReceivableValueSel
Width = 1432
Height = 39
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1432
ExplicitHeight = 39
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
Top = 7
ExplicitTop = 7
end
inherited EndDate: TcxDateEdit
Top = 2
ExplicitTop = 2
end
inherited TimeType: TcxComboBox
ExplicitHeight = 29
end
inherited jqModel: TcxCheckBox
ExplicitWidth = 84
ExplicitHeight = 25
end
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 93
Top = 42
ParentColor = True
Properties.OnChange = ConNoChange
TabOrder = 1
Width = 150
@ -158,7 +169,6 @@ inherited frmReceivableValueSel: TfrmReceivableValueSel
Tag = 2
Left = 306
Top = 42
ParentColor = True
Properties.OnChange = ConNoChange
TabOrder = 2
Width = 150
@ -167,7 +177,6 @@ inherited frmReceivableValueSel: TfrmReceivableValueSel
Tag = 2
Left = 306
Top = 79
ParentColor = True
Properties.OnChange = ConNoChange
TabOrder = 3
Width = 150
@ -176,7 +185,6 @@ inherited frmReceivableValueSel: TfrmReceivableValueSel
Tag = 2
Left = 565
Top = 79
ParentColor = True
Properties.OnChange = ConNoChange
TabOrder = 4
Width = 150
@ -185,7 +193,6 @@ inherited frmReceivableValueSel: TfrmReceivableValueSel
Tag = 2
Left = 565
Top = 42
ParentColor = True
Properties.OnChange = ConNoChange
TabOrder = 5
Width = 150
@ -193,8 +200,7 @@ inherited frmReceivableValueSel: TfrmReceivableValueSel
object OppParentCoName: TcxTextEdit
Tag = 2
Left = 95
Top = 79
ParentColor = True
Top = 81
Properties.OnChange = ConNoChange
TabOrder = 6
Width = 150
@ -1153,6 +1159,7 @@ inherited frmReceivableValueSel: TfrmReceivableValueSel
Top = 176
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 416
Top = 272

35
A09财务通用管理/U_ReceivableValueSel.pas
View File

@ -9,25 +9,10 @@ uses
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxDropDownEdit, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations,
FrameDateSel, cxContainer, cxCalendar;
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxScrollbarAnnotations, FrameDateSel, cxContainer, cxCalendar,
dxSkinsCore, dxSkinsDefaultPainters;
type
TfrmReceivableValueSel = class(TfrmBaseHelp)
@ -195,14 +180,18 @@ var
begin
SqlStr := ' select A.* ';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''²ÆÎñÁ÷Ë®'' and X.WBID=A.FFID)>0 THEN 1 ELSE 0 END) AS BIT)';
SqlStr := SqlStr + ',ConDate=(select ConDate from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ',DlyNote=(select DlyNote from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ',ConDate=(select top 1 ConDate from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ',DlyNote=(select top 1 DlyNote from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ' from Finance_Flow A ';
SqlStr := SqlStr + ' left join Bs_Company B on A.OppCoNo=B.CoCode ';
SqlStr := SqlStr + ' where A.FFType=''Ó¦ÊÕ¿îµÇ¼Ç'' ';
SqlStr := SqlStr + ' and A.FFTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.FFTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
if FAuthority = 'µÍȨÏÞ' then
SqlStr := SqlStr + ' and CHARINDEX(' + quotedstr(DCode) + ',(ISNULL(B.SalesId, '''') +'',''+ISNULL(B.TallyId, '''')+'',''+ISNULL(A.FillId, '''') ) ) > 0 ';
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
end;

212
A09财务通用管理/U_SingleCustStatement.dfm
View File

@ -4,7 +4,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Caption = #24212#25910#23545#36134#20449#24687#34920
ClientHeight = 618
ClientWidth = 1573
Color = clBtnFace
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -81,67 +81,64 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Left = 0
Top = 30
Width = 1573
Height = 83
Height = 50
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
ParentColor = True
TabOrder = 1
object Label5: TLabel
object Label2: TLabel
Left = 25
Top = 49
Top = 14
Width = 64
Height = 21
Caption = #23545#36134#26085#26399
end
object Label6: TLabel
Left = 217
Top = 14
Width = 7
Height = 21
Caption = '-'
end
object Label5: TLabel
Left = 352
Top = 14
Width = 64
Height = 21
Caption = #23545#26041#21333#20301
end
object begdate: TcxDateEdit
Left = 93
Top = 8
ParentFont = False
Properties.ShowTime = False
TabOrder = 0
Width = 120
end
object Enddate: TcxDateEdit
Left = 228
Top = 8
ParentFont = False
Properties.ShowTime = False
TabOrder = 1
Width = 120
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 93
Top = 45
TabOrder = 0
Width = 264
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1569
Height = 37
Align = alTop
ParentBackground = False
TabOrder = 1
ExplicitLeft = 1
ExplicitTop = 2
ExplicitWidth = 1569
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
end
Left = 420
Top = 8
ParentFont = False
TabOrder = 2
Width = 155
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 113
Top = 80
Width = 1573
Height = 505
Height = 538
Align = alClient
TabOrder = 2
object TV1: TcxGridDBBandedTableView
@ -226,9 +223,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 54
Width = 46
Position.BandIndex = 3
Position.ColIndex = 6
Position.ColIndex = 7
Position.RowIndex = 0
end
object V1Column5: TcxGridDBBandedColumn
@ -240,9 +237,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 58
Width = 49
Position.BandIndex = 3
Position.ColIndex = 7
Position.ColIndex = 8
Position.RowIndex = 0
end
object V1Column6: TcxGridDBBandedColumn
@ -254,9 +251,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 59
Width = 51
Position.BandIndex = 3
Position.ColIndex = 8
Position.ColIndex = 9
Position.RowIndex = 0
end
object V1Column7: TcxGridDBBandedColumn
@ -268,9 +265,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 49
Width = 42
Position.BandIndex = 3
Position.ColIndex = 11
Position.ColIndex = 12
Position.RowIndex = 0
end
object V1Column8: TcxGridDBBandedColumn
@ -282,9 +279,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 53
Width = 44
Position.BandIndex = 3
Position.ColIndex = 14
Position.ColIndex = 15
Position.RowIndex = 0
end
object V1Column9: TcxGridDBBandedColumn
@ -338,9 +335,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 88
Width = 75
Position.BandIndex = 3
Position.ColIndex = 3
Position.ColIndex = 4
Position.RowIndex = 0
end
object V1Column10: TcxGridDBBandedColumn
@ -423,9 +420,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 57
Width = 48
Position.BandIndex = 3
Position.ColIndex = 5
Position.ColIndex = 6
Position.RowIndex = 0
end
object V1Column22: TcxGridDBBandedColumn
@ -437,23 +434,23 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 45
Width = 37
Position.BandIndex = 3
Position.ColIndex = 10
Position.ColIndex = 11
Position.RowIndex = 0
end
object V1Column23: TcxGridDBBandedColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 42
Width = 36
Position.BandIndex = 3
Position.ColIndex = 9
Position.ColIndex = 10
Position.RowIndex = 0
end
object V1Column25: TcxGridDBBandedColumn
@ -478,9 +475,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 37
Width = 32
Position.BandIndex = 3
Position.ColIndex = 13
Position.ColIndex = 14
Position.RowIndex = 0
end
object V1Column33: TcxGridDBBandedColumn
@ -490,9 +487,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 54
Width = 47
Position.BandIndex = 3
Position.ColIndex = 15
Position.ColIndex = 16
Position.RowIndex = 0
end
object V1Column34: TcxGridDBBandedColumn
@ -514,31 +511,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 30
Width = 26
Position.BandIndex = 3
Position.ColIndex = 17
Position.RowIndex = 0
end
object TV1Column2: TcxGridDBBandedColumn
Caption = #24067#31181
DataBinding.FieldName = 'GC_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
Position.BandIndex = 3
Position.ColIndex = 2
Position.RowIndex = 0
end
object TV1Column3: TcxGridDBBandedColumn
Caption = #21152#24037#21035
DataBinding.FieldName = 'CraftCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
Position.BandIndex = 3
Position.ColIndex = 1
Position.ColIndex = 18
Position.RowIndex = 0
end
object TV1Column4: TcxGridDBBandedColumn
@ -556,9 +531,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
DataBinding.FieldName = 'F_BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 83
Width = 71
Position.BandIndex = 3
Position.ColIndex = 4
Position.ColIndex = 5
Position.RowIndex = 0
end
object TV1Column6: TcxGridDBBandedColumn
@ -567,9 +542,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
Width = 66
Position.BandIndex = 3
Position.ColIndex = 16
Position.ColIndex = 17
Position.RowIndex = 0
end
object TV1Column7: TcxGridDBBandedColumn
@ -589,8 +564,39 @@ object frmSingleCustStatement: TfrmSingleCustStatement
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
Position.BandIndex = 3
Position.ColIndex = 12
Position.ColIndex = 13
Position.RowIndex = 0
end
object TV1Column9: TcxGridDBBandedColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Position.BandIndex = 3
Position.ColIndex = 1
Position.RowIndex = 0
end
object TV1Column10: TcxGridDBBandedColumn
Caption = #27454#21495
DataBinding.FieldName = 'F_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
Position.BandIndex = 3
Position.ColIndex = 2
Position.RowIndex = 0
end
object TV1Column11: TcxGridDBBandedColumn
Caption = #33394#21495
DataBinding.FieldName = 'F_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
Position.BandIndex = 3
Position.ColIndex = 3
Position.RowIndex = 0
end
end
@ -602,14 +608,14 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 901
Top = 201
Left = 781
Top = 1
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 1021
Top = 305
Left = 885
Top = 1
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
@ -679,7 +685,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
object ADOQueryPrint: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 796
Top = 212
Left = 676
Top = 4
end
end

84
A09财务通用管理/U_SingleCustStatement.pas
View File

@ -14,9 +14,25 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxScrollbarAnnotations,
cxContainer, dxCore, cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters,
FrameDateSel;
cxNavigator, dxDateRanges,
dxBarBuiltInMenu,
dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
dxSkinsDefaultPainters;
type
TfrmSingleCustStatement = class(TForm)
@ -30,6 +46,8 @@ type
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
Label6: TLabel;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
@ -64,15 +82,17 @@ type
V1Column34: TcxGridDBBandedColumn;
ToolButton2: TToolButton;
TV1Column1: TcxGridDBBandedColumn;
begdate: TcxDateEdit;
Enddate: TcxDateEdit;
OppCoName: TcxTextEdit;
TV1Column2: TcxGridDBBandedColumn;
TV1Column3: TcxGridDBBandedColumn;
TV1Column4: TcxGridDBBandedColumn;
TV1Column5: TcxGridDBBandedColumn;
TV1Column6: TcxGridDBBandedColumn;
TV1Column7: TcxGridDBBandedColumn;
TV1Column8: TcxGridDBBandedColumn;
frmFrameDateSel1: TfrmFrameDateSel;
TV1Column9: TcxGridDBBandedColumn;
TV1Column10: TcxGridDBBandedColumn;
TV1Column11: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -83,11 +103,6 @@ type
procedure FormCreate(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
private
{ Private declarations }
@ -116,8 +131,8 @@ begin
SQL.Clear;
Filtered := False;
sql.Add(' exec P_Fin_CustStatementSingle ');
sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1))));
sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.Date))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1))));
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));
sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency)));
Open;
@ -131,39 +146,6 @@ begin
frmSingleCustStatement := nil;
end;
procedure TfrmSingleCustStatement.cxButton1Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid();
end;
procedure TfrmSingleCustStatement.cxButton2Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid();
end;
procedure TfrmSingleCustStatement.cxButton3Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid();
end;
procedure TfrmSingleCustStatement.cxButton4Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid();
end;
procedure TfrmSingleCustStatement.cxButton5Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid();
end;
procedure TfrmSingleCustStatement.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
@ -183,7 +165,7 @@ end;
procedure TfrmSingleCustStatement.TBRafreshClick(Sender: TObject);
begin
toolbar1.SetFocus;
begdate.SetFocus;
InitGrid();
end;
@ -206,8 +188,8 @@ end;
procedure TfrmSingleCustStatement.FormCreate(Sender: TObject);
begin
frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date;
Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date;
end;
procedure TfrmSingleCustStatement.ToolButton3Click(Sender: TObject);
@ -217,8 +199,8 @@ begin
if CDS_HZ.IsEmpty then
exit;
WSql := ' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)));
WSql := ' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.Date)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1)));
WSql := WSql + ' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo));
WSql := WSql + ' ,@Currency=' + QuotedStr(Trim(FCurrency));

142
A09财务通用管理/U_SingleFtyStatement.dfm
View File

@ -4,7 +4,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Caption = #24212#20184#23545#36134#20449#24687#34920
ClientHeight = 618
ClientWidth = 1924
Color = clBtnFace
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -81,67 +81,117 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Left = 0
Top = 30
Width = 1924
Height = 91
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
ParentBackground = False
ParentColor = True
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 698
Top = 45
Width = 32
Height = 21
Caption = #21697#21517
end
object Label3: TLabel
Left = 510
Top = 45
Width = 64
Height = 21
Caption = #20986#24211#21333#21495
end
object Label2: TLabel
Left = 22
Top = 10
Width = 64
Height = 21
Caption = #23545#36134#26085#26399
end
object Label6: TLabel
Left = 214
Top = 10
Width = 35
Height = 21
Caption = '-----'
end
object Label4: TLabel
Left = 598
Top = 77
Width = 64
Height = 21
Caption = #25910#27454#36827#24230
end
object Label5: TLabel
Left = 25
Top = 51
Left = 377
Top = 10
Width = 64
Height = 21
Caption = #23545#26041#21333#20301
end
object MPRTCodeName: TEdit
Tag = 2
Left = 726
Top = 41
Width = 120
Height = 29
TabOrder = 1
end
object OrderNo: TEdit
Tag = 2
Left = 558
Top = 41
Width = 120
Height = 29
TabOrder = 0
end
object OrdDefNote3: TComboBox
Tag = 1
Left = 662
Top = 65
Width = 145
Height = 29
TabOrder = 2
Items.Strings = (
#24050#20132#21333
#24050#25215#20817
#24050#25276#27719
#24050#25910#27454
#25276#27719#20013
#20511#27454
''
'')
end
object begdate: TcxDateEdit
Left = 90
Top = 4
ParentFont = False
Properties.ShowTime = False
TabOrder = 3
Width = 120
end
object Enddate: TcxDateEdit
Left = 253
Top = 4
ParentFont = False
Properties.ShowTime = False
TabOrder = 4
Width = 120
end
object OppCoName: TcxTextEdit
Tag = 2
Left = 93
Top = 45
TabOrder = 0
Left = 445
Top = 4
ParentFont = False
TabOrder = 5
Width = 200
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1920
Height = 37
Align = alTop
ParentBackground = False
TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1920
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
OnClick = cxButton3Click
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
end
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 121
Top = 73
Width = 1924
Height = 497
Height = 545
Align = alClient
TabOrder = 2
object TV1: TcxGridDBBandedTableView
@ -187,6 +237,8 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_Financial.Default
Styles.BandHeader = DataLink_Financial.Default
Bands = <
item
Width = 473

81
A09财务通用管理/U_SingleFtyStatement.pas
View File

@ -14,9 +14,24 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxScrollbarAnnotations,
cxContainer, dxCore, cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters,
FrameDateSel;
cxNavigator, dxDateRanges,
dxBarBuiltInMenu,
dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils;
type
TfrmSingleFtyStatement = class(TForm)
@ -26,13 +41,21 @@ type
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
Label1: TLabel;
MPRTCodeName: TEdit;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
Label3: TLabel;
OrderNo: TEdit;
cxGrid2: TcxGrid;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
Label6: TLabel;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
Label4: TLabel;
OrdDefNote3: TComboBox;
Label5: TLabel;
ToolButton3: TToolButton;
RMGridReport1: TRMGridReport;
@ -65,6 +88,8 @@ type
ToolButton2: TToolButton;
TV1Column1: TcxGridDBBandedColumn;
TV1Column2: TcxGridDBBandedColumn;
begdate: TcxDateEdit;
Enddate: TcxDateEdit;
OppCoName: TcxTextEdit;
TV1Column3: TcxGridDBBandedColumn;
TV1Column4: TcxGridDBBandedColumn;
@ -72,7 +97,6 @@ type
TV1Column6: TcxGridDBBandedColumn;
TV1Column7: TcxGridDBBandedColumn;
TV1Column8: TcxGridDBBandedColumn;
frmFrameDateSel1: TfrmFrameDateSel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -83,11 +107,6 @@ type
procedure FormCreate(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
private
{ Private declarations }
@ -116,8 +135,8 @@ begin
SQL.Clear;
Filtered := False;
sql.Add(' exec P_Fin_FtyStatementSingle ');
sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1))));
sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.Date))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1))));
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));
sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency)));
Open;
@ -131,36 +150,6 @@ begin
frmSingleFtyStatement := nil;
end;
procedure TfrmSingleFtyStatement.cxButton1Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton1Click(Sender);
InitGrid()
end;
procedure TfrmSingleFtyStatement.cxButton2Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton2Click(Sender);
InitGrid()
end;
procedure TfrmSingleFtyStatement.cxButton3Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton3Click(Sender);
InitGrid()
end;
procedure TfrmSingleFtyStatement.cxButton4Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton4Click(Sender);
InitGrid()
end;
procedure TfrmSingleFtyStatement.cxButton5Click(Sender: TObject);
begin
frmFrameDateSel1.cxButton5Click(Sender);
InitGrid()
end;
procedure TfrmSingleFtyStatement.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
@ -180,7 +169,7 @@ end;
procedure TfrmSingleFtyStatement.TBRafreshClick(Sender: TObject);
begin
toolbar1.SetFocus;
begdate.SetFocus;
InitGrid();
end;
@ -204,8 +193,8 @@ end;
procedure TfrmSingleFtyStatement.FormCreate(Sender: TObject);
begin
cxGrid2.Align := AlClient;
frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date;
Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date;
end;
procedure TfrmSingleFtyStatement.ToolButton3Click(Sender: TObject);
@ -215,8 +204,8 @@ begin
if CDS_HZ.IsEmpty then
exit;
WSql := ' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)));
WSql := ' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.Date)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1)));
WSql := WSql + ' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo));
WSql := WSql + ' ,@Currency=' + QuotedStr(Trim(FCurrency));