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_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_ReceivableList in 'U_ReceivableList.pas' {frmReceivableList}, U_ReceivableList in 'U_ReceivableList.pas' {frmReceivableList},
U_CollectList in 'U_CollectList.pas' {frmCollectList}, 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_CustStatement in 'U_CustStatement.pas' {frmCustStatement},
U_CustStatementWriteOff in 'U_CustStatementWriteOff.pas' {frmCustStatementWriteOff}, U_CustStatementWriteOff in 'U_CustStatementWriteOff.pas' {frmCustStatementWriteOff},
U_PayableList in 'U_PayableList.pas' {frmPayableList}, U_PayableList in 'U_PayableList.pas' {frmPayableList},
@ -39,7 +39,7 @@ uses
U_BankFlowList in 'U_BankFlowList.pas' {frmBankFlowList}, U_BankFlowList in 'U_BankFlowList.pas' {frmBankFlowList},
U_BankFlowTotalList in 'U_BankFlowTotalList.pas' {frmBankFlowTotalList}, U_BankFlowTotalList in 'U_BankFlowTotalList.pas' {frmBankFlowTotalList},
U_ReceivableInput in 'U_ReceivableInput.pas' {frmReceivableInput}, 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_PayInput in 'U_PayInput.pas' {frmPayInput},
U_InvoiceInInPut in 'U_InvoiceInInPut.pas' {frmInvoiceInInPut}, U_InvoiceInInPut in 'U_InvoiceInInPut.pas' {frmInvoiceInInPut},
U_PayableInput in 'U_PayableInput.pas' {frmPayableInput}, U_PayableInput in 'U_PayableInput.pas' {frmPayableInput},
@ -58,7 +58,10 @@ uses
U_BankSel in '..\A00ͨÓô°Ìå\U_BankSel.pas' {frmBankSel}, U_BankSel in '..\A00ͨÓô°Ìå\U_BankSel.pas' {frmBankSel},
U_ReceivableValueSel in 'U_ReceivableValueSel.pas' {frmReceivableValueSel}, U_ReceivableValueSel in 'U_ReceivableValueSel.pas' {frmReceivableValueSel},
U_CompanySel in '..\A00ͨÓô°Ìå\U_CompanySel.pas' {frmCompanySel}, 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} {$R *.res}

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

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <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> <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> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -194,8 +194,8 @@
<Form>frmCollectList</Form> <Form>frmCollectList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_InvoiceOutList.pas"> <DCCReference Include="U_InvoiceOutSQList.pas">
<Form>frmInvoiceOutList</Form> <Form>frmInvoiceOutSQList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_CustStatement.pas"> <DCCReference Include="U_CustStatement.pas">
@ -238,8 +238,8 @@
<Form>frmReceivableInput</Form> <Form>frmReceivableInput</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_InvoiceOutInPut.pas"> <DCCReference Include="U_InvoiceOutSQInPut.pas">
<Form>frmInvoiceOutInPut</Form> <Form>frmInvoiceOutSQInPut</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_PayInput.pas"> <DCCReference Include="U_PayInput.pas">
@ -307,6 +307,15 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <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"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -1,5 +1,5 @@
[ExpressSkins] [ExpressSkins]
Default=0 Default=1
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinBasic=0 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" />

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

@ -6,3 +6,4 @@
登陆标题=sss 登陆标题=sss
[窗口设置] [窗口设置]
字体大小=10 字体大小=10
design=1

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

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

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

@ -320,7 +320,7 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); 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;
end; end;
finally finally

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

@ -299,7 +299,7 @@ begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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;
end; end;
@ -339,9 +339,9 @@ begin
begin begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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('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;
end; end;
finally finally
@ -360,7 +360,7 @@ begin
begin begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').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;
end; end;
finally finally

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

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

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

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

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

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

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

@ -85,6 +85,9 @@ type
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
btnTJ: TToolButton;
btnCXTJ: TToolButton;
Tv1Column11: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -109,11 +112,9 @@ type
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject); procedure OppCoNamePropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure cxButton4Click(Sender: TObject); procedure btnTJClick(Sender: TObject);
procedure cxButton1Click(Sender: TObject); procedure btnCXTJClick(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -137,6 +138,16 @@ begin
btnAdd.Enabled := false; //新增 btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改 btnEdit.Enabled := false; //修改
btnDel.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 // if Trim(FAuthority) = '管理' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
@ -145,16 +156,22 @@ begin
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
btnChk.Enabled := true; btnTJ.Enabled := true;
end; end;
1: 1:
begin begin
btnReChk.Enabled := true; btnCXTJ.Enabled := true;
btnChk.Enabled := true;
end; end;
2: 2:
begin
btnReChk.Enabled := true;
end;
3:
begin begin
end; end;
end; end;
end; end;
end; end;
@ -168,17 +185,29 @@ begin
SqlStr := ' select 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.FFID)>0 THEN 1 ELSE 0 END) AS BIT)'; 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 '; 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=''收款登记'' '; 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.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.FFTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + ''''; SqlStr := SqlStr + ' and A.FFTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end; end;
1: 1:
begin 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;
end; end;
@ -208,6 +237,12 @@ begin
Action := caFree; Action := caFree;
end; end;
procedure TfrmCollectList.FormCreate(Sender: TObject);
begin
inherited;
FAuthority := Trim(Self.fParameters1);
end;
procedure TfrmCollectList.TBCloseClick(Sender: TObject); procedure TfrmCollectList.TBCloseClick(Sender: TObject);
begin begin
@ -275,41 +310,6 @@ begin
InitGrid(); InitGrid();
end; 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); procedure TfrmCollectList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -492,6 +492,7 @@ begin
with frmCollectInput do with frmCollectInput do
begin begin
FFFID := ''; FFFID := '';
FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -527,6 +528,8 @@ begin
with frmCollectInput do with frmCollectInput do
begin begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
CopyFlag := 99;
FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -537,6 +540,52 @@ begin
end; end;
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); procedure TfrmCollectList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active = False then if ADOQueryMain.Active = False then
@ -559,6 +608,51 @@ begin
WriteCxGrid(trim(Self.Caption), Tv1, '财务管理'); WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
end; 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); procedure TfrmCollectList.btnEditClick(Sender: TObject);
begin begin
try try
@ -584,6 +678,7 @@ begin
with frmCollectInput do with frmCollectInput do
begin begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -677,8 +772,6 @@ end;
procedure TfrmCollectList.OppCoNamePropertiesChange(Sender: TObject); procedure TfrmCollectList.OppCoNamePropertiesChange(Sender: TObject);
begin begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click; TBFind.Click;
end; end;

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

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

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

@ -16,7 +16,7 @@ uses
dxBarBuiltInMenu, cxPC, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxBarBuiltInMenu, cxPC, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd,
DateUtils, cxContainer, dxCore, cxDateUtils, cxDropDownEdit, DateUtils, cxContainer, dxCore, cxDateUtils, cxDropDownEdit,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
FrameDateSel; FrameDateSel, cxButtons, cxCurrencyEdit;
type type
TfrmCustStatement = class(TfrmBaseList) TfrmCustStatement = class(TfrmBaseList)
@ -64,13 +64,10 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FAuthority: string;
procedure InitGrid(); procedure InitGrid();
public public
fmanage, FZKType: string; fmanage, FZKType: string;
@ -81,7 +78,7 @@ type
implementation implementation
uses 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} {$R *.dfm}
@ -111,7 +108,10 @@ begin
begin begin
sql.Add(' ,@Currency=''EUR'' '); sql.Add(' ,@Currency=''EUR'' ');
end; end;
end; end;
if FAuthority = '低权限' then
sql.Add(' ,@DCode=' + QuotedStr(Trim(DCode)));
Open; Open;
end; end;
@ -137,6 +137,12 @@ begin
Action := caFree; Action := caFree;
end; end;
procedure TfrmCustStatement.FormCreate(Sender: TObject);
begin
inherited;
FAuthority := Trim(Self.fParameters1);
end;
procedure TfrmCustStatement.TBCloseClick(Sender: TObject); procedure TfrmCustStatement.TBCloseClick(Sender: TObject);
begin begin
@ -154,6 +160,7 @@ end;
procedure TfrmCustStatement.TBRafreshClick(Sender: TObject); procedure TfrmCustStatement.TBRafreshClick(Sender: TObject);
begin begin
ToolBar1.SetFocus();
InitGrid(); InitGrid();
end; end;
@ -186,8 +193,8 @@ begin
frmSingleCustStatement := TfrmSingleCustStatement.Create(self); frmSingleCustStatement := TfrmSingleCustStatement.Create(self);
with frmSingleCustStatement do with frmSingleCustStatement do
begin begin
frmFrameDateSel1.begdate.Date := self.frmFrameDateSel1.begdate.Date; begdate.Date := self.frmFrameDateSel1.begdate.Date;
frmFrameDateSel1.enddate.Date := self.frmFrameDateSel1.Enddate.Date; enddate.Date := self.frmFrameDateSel1.Enddate.Date;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString; OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString; FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
FZKType := Self.FZKType; FZKType := Self.FZKType;
@ -211,86 +218,73 @@ end;
procedure TfrmCustStatement.ToolButton4Click(Sender: TObject); procedure TfrmCustStatement.ToolButton4Click(Sender: TObject);
var var
WSql: string; MFiltration: string;
MPrintJson: string;
begin begin
if CDS_HZ.IsEmpty then if CDS_HZ.IsEmpty then
exit; exit;
WSql := ' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date))); MFiltration := ' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1))); MFiltration := MFiltration + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)));
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
WSql := WSql + ' ,@Currency=''USD'' '; MFiltration := MFiltration + ' ,@Currency=''USD'' ';
end; end;
1: 1:
begin begin
WSql := WSql + ' ,@Currency=''CNY'' '; MFiltration := MFiltration + ' ,@Currency=''CNY'' ';
end; end;
2: 2:
begin begin
WSql := WSql + ' ,@Currency=''EUR'' '; MFiltration := MFiltration + ' ,@Currency=''EUR'' ';
end; end;
end; end;
try MPrintJson := ' {"LMType": "CustStatement" ';
frmLabelPrint := TfrmLabelPrint.Create(Application); MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
with frmLabelPrint do MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
begin MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
IsSql1 := True; MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
FLMType := 'CustStatement'; MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
FFiltration1 := WSql; MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" } ] } ';
if ShowModal = 1 then FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end; end;
procedure TfrmCustStatement.ToolButton5Click(Sender: TObject); procedure TfrmCustStatement.ToolButton5Click(Sender: TObject);
var var
WSql: string; MFiltration: string;
MPrintJson: string;
begin begin
if CDS_HZ.IsEmpty then if CDS_HZ.IsEmpty then
exit; exit;
MFiltration := ' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
WSql := ' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date))); MFiltration := MFiltration + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1))); MFiltration := MFiltration + ' ,@OppCoNo=' + QuotedStr(Trim(self.CDS_HZ.fieldbyname('OppCoNo').AsString));
WSql := WSql + ' ,@OppCoNo=' + QuotedStr(Trim(self.CDS_HZ.fieldbyname('OppCoNo').AsString));
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
WSql := WSql + ' ,@Currency=''USD'' '; MFiltration := MFiltration + ' ,@Currency=''USD'' ';
end; end;
1: 1:
begin begin
WSql := WSql + ' ,@Currency=''CNY'' '; MFiltration := MFiltration + ' ,@Currency=''CNY'' ';
end; end;
2: 2:
begin begin
WSql := WSql + ' ,@Currency=''EUR'' '; MFiltration := MFiltration + ' ,@Currency=''EUR'' ';
end; end;
end; end;
try MPrintJson := ' {"LMType": "SingleCustStatement" ';
frmLabelPrint := TfrmLabelPrint.Create(Application); MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
with frmLabelPrint do MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
begin MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
IsSql1 := True; MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
FLMType := 'SingleCustStatement'; MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" }, ';
FFiltration1 := WSql; MPrintJson := MPrintJson + ' { "IsSql": true, "Filtration":" ' + MFiltration + '" } ] } ';
if ShowModal = 1 then FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end; end;
@ -305,41 +299,6 @@ begin
end; end;
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); procedure TfrmCustStatement.cxTabControl1Change(Sender: TObject);
begin begin
InitGrid(); 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; TV1Column22: TcxGridDBBandedColumn;
TV1Column23: TcxGridDBBandedColumn; TV1Column23: TcxGridDBBandedColumn;
TV1Column24: 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; Label5: TLabel;
factoryName: TcxTextEdit; OppCoName: TcxTextEdit;
TV1Column38: TcxGridDBBandedColumn;
TV1Column39: TcxGridDBBandedColumn; TV1Column39: TcxGridDBBandedColumn;
TV1Column40: TcxGridDBBandedColumn; TV1Column40: TcxGridDBBandedColumn;
ToolButton4: TToolButton; ToolButton4: TToolButton;
TV1Column41: TcxGridDBBandedColumn; TV1Column41: TcxGridDBBandedColumn;
Label6: TLabel;
FactoryNo: TcxTextEdit;
Label7: TLabel;
FactType: TcxTextEdit;
TV1Column42: TcxGridDBBandedColumn;
TV1Column43: TcxGridDBBandedColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
ToolButton5: TToolButton; ToolButton5: TToolButton;
TV1Column44: TcxGridDBBandedColumn;
TV1Column45: TcxGridDBBandedColumn;
N2: TMenuItem;
chkqm: TCheckBox; chkqm: TCheckBox;
TV1Column46: TcxGridDBBandedColumn; TV1Column25: TcxGridDBBandedColumn;
TV1Column26: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -118,14 +94,13 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure P_OrderNo_YSK(Sender: TObject); procedure P_OrderNo_YSK(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure factoryNameChange(Sender: TObject); procedure factoryNameChange(Sender: TObject);
procedure FKKPFactoryNameBtnDnClick(Sender: TObject); procedure FKKPFactoryNameBtnDnClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function getNumberFromStr(strIn: string; sFlag: string): string; function getNumberFromStr(strIn: string; sFlag: string): string;
@ -310,15 +285,9 @@ begin
TcxGridToExcel(self.Caption, cxgrid2); TcxGridToExcel(self.Caption, cxgrid2);
end; end;
procedure TfrmCustStatementWriteOff.OrderNoChange(Sender: TObject); procedure TfrmCustStatementWriteOff.OppCoNamePropertiesChange(Sender: TObject);
begin
if Length(Trim(OrderNo.Text)) < 3 then
Exit;
ToolButton2.Click;
end;
procedure TfrmCustStatementWriteOff.MPRTCodeNameChange(Sender: TObject);
begin begin
inherited;
ToolButton2.Click; ToolButton2.Click;
end; end;

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

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

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

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

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

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

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

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

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

@ -95,12 +95,6 @@ type
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(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 private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -167,7 +161,7 @@ begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' '; SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
end; end;
end; end;
// showmessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
end; end;
@ -263,41 +257,6 @@ begin
end; 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); procedure TfrmExpenseList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -441,7 +400,7 @@ begin
sql.Clear; sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus '); sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''³·ÏúÉóºË'' '); sql.Add(',@Operation=''撤销审核费用'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; open;
@ -568,18 +527,8 @@ begin
end; end;
procedure TfrmExpenseList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmExpenseList.OppCoNamePropertiesChange(Sender: TObject); procedure TfrmExpenseList.OppCoNamePropertiesChange(Sender: TObject);
begin begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click; TBFind.Click;
end; 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, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxSkinsCore, System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxContainer, cxImageList; dxSkinsDefaultPainters, dxScrollbarAnnotations;
type type
TfrmFinTradePlanSel = class(TfrmBaseHelp) TfrmFinTradePlanSel = class(TfrmBaseHelp)
@ -55,37 +55,29 @@ type
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Label3: TLabel; Label3: TLabel;
Label8: TLabel;
OrderNo: TcxTextEdit;
ConNo: TcxTextEdit;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
Label5: TLabel; Label5: TLabel;
Label6: TLabel; Label6: TLabel;
Label7: TLabel; Label7: TLabel;
C_Name: TcxTextEdit; Label8: TLabel;
C_Color: TcxTextEdit; OrderNo: TEdit;
C_ColorNo: TcxTextEdit; C_Name: TEdit;
C_Pattern: TcxTextEdit; C_Color: TEdit;
C_Code: TcxTextEdit; C_ColorNo: TEdit;
Label1: TLabel; C_Pattern: TEdit;
Label9: TLabel; C_Code: TEdit;
GC_Name: TcxTextEdit; ConNo: TEdit;
CraftCode: TcxTextEdit;
cxImageList_bar: TcxImageList;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
procedure OrderNoPropertiesChange(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -143,6 +135,8 @@ begin
sql.Clear; sql.Clear;
sql.Add('select A.* from V_Trade_Plan_Fty A '); sql.Add('select A.* from V_Trade_Plan_Fty A ');
sql.add('where Status=''9'' '); 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); // ShowMessage(sql.Text);
Open; Open;
end; end;
@ -154,14 +148,7 @@ begin
end; end;
end; end;
procedure TfrmFinTradePlanSel.OrderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmFinTradePlanSel.OrderNoChange(Sender: TObject);
begin
if Key = #13 then
InitGrid();
end;
procedure TfrmFinTradePlanSel.OrderNoPropertiesChange(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin 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, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
cxDropDownEdit, cxCheckBox, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations;
dxScrollbarAnnotations, cxContainer, cxImageList;
type type
TfrmFinTradeSalesContractSel = class(TfrmBaseHelp) TfrmFinTradeSalesContractSel = class(TfrmBaseHelp)
@ -27,6 +26,8 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
ADOConnection1: TADOConnection; ADOConnection1: TADOConnection;
Panel1: TPanel; Panel1: TPanel;
Label1: TLabel;
ConNo: TEdit;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
ImageList1: TImageList; ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
@ -73,27 +74,10 @@ type
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
Label3: TLabel;
OrderNo: TcxTextEdit;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; C_Name: TEdit;
Label5: TLabel; Label3: TLabel;
Label6: TLabel; BuyName: TEdit;
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;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -105,8 +89,6 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure ConNoChange(Sender: TObject); procedure ConNoChange(Sender: TObject);
procedure OrderNoPropertiesChange(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -175,6 +157,9 @@ begin
sql.Add(' and conNo=' + quotedstr(fconNo)); sql.Add(' and conNo=' + quotedstr(fconNo));
if trim(fC_Code) <> '' then if trim(fC_Code) <> '' then
sql.Add(' and C_Code=' + quotedstr(fC_Code)); 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; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
@ -196,23 +181,6 @@ begin
SelOKNo(CDS_1, False); SelOKNo(CDS_1, False);
end; 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); procedure TfrmFinTradeSalesContractSel.FormShow(Sender: TObject);
begin begin
inherited; inherited;

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

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

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

@ -16,7 +16,7 @@ uses
dxBarBuiltInMenu, cxPC, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxBarBuiltInMenu, cxPC, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd,
DateUtils, cxContainer, dxCore, cxDateUtils, cxDropDownEdit, DateUtils, cxContainer, dxCore, cxDateUtils, cxDropDownEdit,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
FrameDateSel; cxButtons, FrameDateSel;
type type
TfrmFtyStatement = class(TfrmBaseList) TfrmFtyStatement = class(TfrmBaseList)
@ -57,6 +57,7 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
ToolButton6: TToolButton; ToolButton6: TToolButton;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
ToolButton7: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -70,11 +71,7 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -118,7 +115,7 @@ begin
sql.Add(' ,@Currency=''EUR'' '); sql.Add(' ,@Currency=''EUR'' ');
end; end;
end; end;
// ShowMessage(sql.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_HZ); SCreateCDS(ADOQueryMain, CDS_HZ);
@ -160,6 +157,7 @@ end;
procedure TfrmFtyStatement.TBRafreshClick(Sender: TObject); procedure TfrmFtyStatement.TBRafreshClick(Sender: TObject);
begin begin
ToolBar1.SetFocus();
InitGrid(); InitGrid();
end; end;
@ -192,8 +190,8 @@ begin
frmSingleFtyStatement := TfrmSingleFtyStatement.Create(self); frmSingleFtyStatement := TfrmSingleFtyStatement.Create(self);
with frmSingleFtyStatement do with frmSingleFtyStatement do
begin begin
frmFrameDateSel1.begdate.Date := self.frmFrameDateSel1.begdate.Date; begdate.Date := self.frmFrameDateSel1.begdate.Date;
frmFrameDateSel1.Enddate.Date := self.frmFrameDateSel1.Enddate.Date; enddate.Date := self.frmFrameDateSel1.Enddate.Date;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString; OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString; FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
FZKType := Self.FZKType; FZKType := Self.FZKType;
@ -307,44 +305,17 @@ begin
Close; Close;
Sql.Clear; Sql.Clear;
Sql.Add('exec P_Fin_Up_All '); Sql.Add('exec P_Fin_Up_All ');
Open; execsql;
end; end;
end; end;
procedure TfrmFtyStatement.cxButton1Click(Sender: TObject); procedure TfrmFtyStatement.ToolButton7Click(Sender: TObject);
begin begin
inherited; inherited;
frmFrameDateSel1.cxButton1Click(Sender); if ADOQueryMain.IsEmpty then
InitGrid() Exit;
end; TcxGridToExcel(self.Caption, cxgrid2);
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()
end; end;
procedure TfrmFtyStatement.cxTabControl1Change(Sender: TObject); 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_DataLink, U_iniParam, U_ReceivableList, U_CollectList, U_InvoiceOutList,
U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList, U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList,
U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList, U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList,
U_RankingList; U_RankingList, U_InvoiceOutSQList;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -77,11 +77,15 @@ begin
// user := 'sa'; // user := 'sa';
// pswd := 'rightsoft'; // pswd := 'rightsoft';
server := '101.132.143.144,7781'; server := '101.132.143.144,7781';
dtbase := 'xushangData'; dtbase := 'changyoudata';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; 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'; DName := 'ADMIN';
end end
else else
@ -155,6 +159,18 @@ begin
end; end;
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: //销项发票管理 131: //销项发票管理
begin begin
with TfrmInvoiceOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // 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;
end; end;
// 142: //¿Í»§Äê¶È¶ÔÕ˵¥ 142: //客户年度对账单
// begin begin
// with TfrmCustStatementWriteOff.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmCustStatementWriteOff.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
// begin begin
// fFormID := FormID; fFormID := FormID;
// FormStyle := mstyle; FormStyle := mstyle;
// WindowState := mstate; WindowState := mstate;
// BorderStyle := mborderstyle; BorderStyle := mborderstyle;
// mnewHandle := Handle; mnewHandle := Handle;
// end; end;
// end; end;
211: //应付款登记 211: //应付款登记
begin begin

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

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

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

@ -4,16 +4,18 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, System.Math, Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, U_BaseList,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxScrollbarAnnotations; dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, U_BaseInput, cxImageList, System.ImageList,
Vcl.ImgList;
type type
TfrmInvoiceInInPut = class(TForm) TfrmInvoiceInInPut = class(TfrmBaseInput)
DataSource1: TDataSource; DataSource1: TDataSource;
CDS_Invoice: TClientDataSet; CDS_Invoice: TClientDataSet;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
@ -48,6 +50,7 @@ type
ToolButton4: TToolButton; ToolButton4: TToolButton;
CDS_LM: TClientDataSet; CDS_LM: TClientDataSet;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
Tv1Column9: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject); procedure TSaveClick(Sender: TObject);
@ -64,6 +67,8 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure v1MoneyPropertiesEditValueChanged(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
private private
procedure initGrid(); procedure initGrid();
procedure SaveDate(); procedure SaveDate();
@ -166,6 +171,7 @@ end;
procedure TfrmInvoiceInInPut.FormShow(Sender: TObject); procedure TfrmInvoiceInInPut.FormShow(Sender: TObject);
begin begin
inherited;
ReadCxGrid(Self.Caption, Tv1, '财务管理'); ReadCxGrid(Self.Caption, Tv1, '财务管理');
with CDS_LM do with CDS_LM do
begin begin
@ -205,6 +211,97 @@ begin
SaveDate(); SaveDate();
end; 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); procedure TfrmInvoiceInInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
@ -216,8 +313,8 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.CDS_Invoice.Edit; Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').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); // Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end; end;
end; end;
finally finally
@ -324,7 +421,7 @@ begin
Self.CDS_Invoice.Edit; Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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;
end; end;
@ -364,9 +461,10 @@ begin
begin begin
Self.CDS_Invoice.Edit; Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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('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;
end; end;
finally finally
@ -385,7 +483,7 @@ begin
begin begin
Self.CDS_Invoice.Edit; Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').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;
end; end;
finally finally
@ -394,8 +492,13 @@ begin
end; end;
procedure TfrmInvoiceInInPut.ToolButton1Click(Sender: TObject); procedure TfrmInvoiceInInPut.ToolButton1Click(Sender: TObject);
var
maxno: string;
begin begin
CDS_Invoice.Append; CopyAddRow(Tv1, CDS_Invoice);
with CDS_Invoice do
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('IVDate').Value := now(); CDS_Invoice.FieldByName('IVDate').Value := now();
CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg'; CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg';
CDS_Invoice.FieldByName('Amount').Value := 0; CDS_Invoice.FieldByName('Amount').Value := 0;
@ -407,8 +510,24 @@ begin
CDS_Invoice.FieldByName('tax').Value := 13; CDS_Invoice.FieldByName('tax').Value := 13;
CDS_Invoice.FieldByName('Currency').Value := 'CNY'; CDS_Invoice.FieldByName('Currency').Value := 'CNY';
CDS_Invoice.Post; CDS_Invoice.Post;
end;
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); procedure TfrmInvoiceInInPut.ToolButton2Click(Sender: TObject);
begin begin

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

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

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

@ -25,7 +25,7 @@ type
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
Panel1: TPanel; Panel1: TPanel;
TBFind: TToolButton; ToolButton2: TToolButton;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ToolButton1: TToolButton; ToolButton1: TToolButton;
RM1: TRMGridReport; RM1: TRMGridReport;
@ -89,7 +89,7 @@ type
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure IVNoChange(Sender: TObject); procedure IVNoChange(Sender: TObject);
procedure TADDClick(Sender: TObject); procedure TADDClick(Sender: TObject);
@ -107,13 +107,6 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure ToolButton5Click(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
{ Private declarations } { Private declarations }
@ -142,11 +135,12 @@ begin
TUPDATE.Visible := false; TUPDATE.Visible := false;
tbdel.Visible := false; tbdel.Visible := false;
if trim(DParameters1) <> '¸ßȨÏÞ' then if trim(canshu1) = '¹ÜÀí' then
begin begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
tchk.Visible := true;
TUPDATE.Visible := true; TUPDATE.Visible := true;
tbdel.Visible := true; tbdel.Visible := true;
TCHK.Visible := true; TCHK.Visible := true;
@ -166,7 +160,6 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
tchk.Visible := true;
TUPDATE.Visible := true; TUPDATE.Visible := true;
tbdel.Visible := true; tbdel.Visible := true;
TCHK.Visible := true; TCHK.Visible := true;
@ -185,38 +178,35 @@ begin
end; end;
procedure TfrmInvoiceInList.InitGrid(); procedure TfrmInvoiceInList.InitGrid();
var
Msql, mbegdate, menddate: string;
SqlStr: string;
begin 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 case cxTabControl1.TabIndex of
0: 0:
begin begin
sql.add(' and isnull(A.Status,''0'')=''0'''); SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' ';
end; end;
1: 1:
begin begin
sql.add(' and A.Status=''9'''); SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' ';
end; end;
end; end;
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Invoice);
SInitCDSData(ADOQueryMain, CDS_Invoice); // ShowMessage(SqlStr);
finally InitCDSData(ADOQueryMain, CDS_Invoice, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'IVId');
TV1.DataController.Filter.Clear;
end;
end; end;
procedure TfrmInvoiceInList.FormDestroy(Sender: TObject); procedure TfrmInvoiceInList.FormDestroy(Sender: TObject);
@ -254,7 +244,7 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmInvoiceInList.TBFindClick(Sender: TObject); procedure TfrmInvoiceInList.ToolButton2Click(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
@ -278,24 +268,7 @@ end;
procedure TfrmInvoiceInList.IVNoChange(Sender: TObject); procedure TfrmInvoiceInList.IVNoChange(Sender: TObject);
begin begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then ToolButton2.Click;
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;
end; end;
procedure TfrmInvoiceInList.TADDClick(Sender: TObject); procedure TfrmInvoiceInList.TADDClick(Sender: TObject);
@ -390,41 +363,6 @@ begin
end; end;
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); procedure TfrmInvoiceInList.cxTabControl1Change(Sender: TObject);
begin begin
SetStatus(); SetStatus();
@ -531,7 +469,7 @@ end;
procedure TfrmInvoiceInList.FormCreate(Sender: TObject); procedure TfrmInvoiceInList.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
canshu1 := trim(DParameters1); canshu1 := trim(Self.fParameters1);
end; end;
procedure TfrmInvoiceInList.N1Click(Sender: TObject); procedure TfrmInvoiceInList.N1Click(Sender: TObject);

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

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

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

@ -8,13 +8,14 @@ uses
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, U_BaseList,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxDateRanges, dxBarBuiltInMenu, ComObj, dxScrollbarAnnotations, dxSkinsCore,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters; math, dxSkinsDefaultPainters, U_BaseInput, cxImageList, System.ImageList,
Vcl.ImgList;
type type
TfrmInvoiceOutInPut = class(TForm) TfrmInvoiceOutInPut = class(TfrmBaseInput)
DataSource1: TDataSource; DataSource1: TDataSource;
CDS_Invoice: TClientDataSet; CDS_Invoice: TClientDataSet;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
@ -50,6 +51,7 @@ type
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
CDS_LM: TClientDataSet; CDS_LM: TClientDataSet;
ToolButton5: TToolButton; ToolButton5: TToolButton;
Tv1Column9: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject); procedure TSaveClick(Sender: TObject);
@ -67,13 +69,14 @@ type
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
private private
procedure initGrid(); procedure initGrid();
procedure SaveDate(); procedure SaveDate();
{ Private declarations } { Private declarations }
public public
FIVID: string; FIVID: string;
fInvoiceFlag: string; canshu1, fInvoiceFlag: string;
{ Public declarations } { Public declarations }
end; end;
@ -169,6 +172,7 @@ end;
procedure TfrmInvoiceOutInPut.FormShow(Sender: TObject); procedure TfrmInvoiceOutInPut.FormShow(Sender: TObject);
begin begin
inherited;
ReadCxGrid(Self.Caption, Tv1, '财务管理'); ReadCxGrid(Self.Caption, Tv1, '财务管理');
with CDS_LM do with CDS_LM do
begin begin
@ -208,6 +212,52 @@ begin
SaveDate(); SaveDate();
end; 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); procedure TfrmInvoiceOutInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
@ -219,8 +269,8 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.CDS_Invoice.Edit; Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').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); // Self.CDS_Invoice.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end; end;
end; end;
finally finally
@ -270,7 +320,7 @@ end;
procedure TfrmInvoiceOutInPut.v1QtyPropertiesEditValueChanged(Sender: TObject); procedure TfrmInvoiceOutInPut.v1QtyPropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FtaxAmount: double; FQty, FPrice, FAmount, Ftax, FTaxFee: double;
begin begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -284,31 +334,74 @@ begin
FieldByName(FFieldName).Value := Trim(mvalue); FieldByName(FFieldName).Value := Trim(mvalue);
Post; Post;
FQty := FieldbyName('Qty').AsFloat; FQty := FieldbyName('Qty').AsFloat;
FtaxAmount := FieldbyName('taxAmount').AsFloat; FAmount := FieldbyName('Amount').AsFloat;
FPrice := FieldbyName('Price').AsFloat;
Ftax := FieldbyName('tax').AsFloat; Ftax := FieldbyName('tax').AsFloat;
end; end;
if FQty <> 0 then if FQty <> 0 then
begin begin
FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)])); FPrice := strtofloat(format('%.13f', [FAmount / FQty]));
FPrice := strtofloat(format('%.2f', [FAmount / FQty])); // FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
FTaxFee := RoundTo((FPrice * FQty * (Ftax / 100)), -2);
end end
else else
begin begin
FPrice := 0; FPrice := 0;
FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)])); FTaxFee := strtofloat(format('%.2f', [FPrice * FQty * (Ftax / 100)]));
end; end;
with CDS_Invoice do with CDS_Invoice do
begin begin
Edit; Edit;
FieldByName('Price').Value := FPrice; FieldByName('Price').Value := FPrice;
FieldByName('Amount').Value := FAmount; FieldByName('TaxFee').Value := FTaxFee;
FieldByName('TaxFee').Value := FtaxAmount - FAmount; FieldByName('taxAmount').Value := FTaxFee + FAmount;
Post; Post;
end; end;
tv1.Controller.EditingController.ShowEdit(); tv1.Controller.EditingController.ShowEdit();
end; 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); procedure TfrmInvoiceOutInPut.FormDestroy(Sender: TObject);
begin begin
@ -327,7 +420,7 @@ begin
Self.CDS_Invoice.Edit; Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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;
end; end;
@ -363,13 +456,16 @@ begin
with frmCompanySel do with frmCompanySel do
begin begin
FCoType := '客户'; FCoType := '客户';
if Self.canshu1 = '录入' then
FAuthority := '理单业务';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.CDS_Invoice.Edit; Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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('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;
end; end;
finally finally
@ -384,11 +480,13 @@ begin
with frmCompanySel do with frmCompanySel do
begin begin
FCoType := '客户'; FCoType := '客户';
if Self.canshu1 = '录入' then
FAuthority := '理单业务';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.CDS_Invoice.Edit; Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').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;
end; end;
finally finally
@ -397,9 +495,13 @@ begin
end; end;
procedure TfrmInvoiceOutInPut.ToolButton1Click(Sender: TObject); procedure TfrmInvoiceOutInPut.ToolButton1Click(Sender: TObject);
var
maxno: string;
begin begin
CDS_Invoice.Append; CopyAddRow(Tv1, CDS_Invoice);
with CDS_Invoice do
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg'; CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg';
CDS_Invoice.FieldByName('Amount').Value := 0; CDS_Invoice.FieldByName('Amount').Value := 0;
CDS_Invoice.FieldByName('Qty').Value := 0; CDS_Invoice.FieldByName('Qty').Value := 0;
@ -410,8 +512,24 @@ begin
CDS_Invoice.FieldByName('tax').Value := 13; CDS_Invoice.FieldByName('tax').Value := 13;
CDS_Invoice.FieldByName('Currency').Value := 'CNY'; CDS_Invoice.FieldByName('Currency').Value := 'CNY';
CDS_Invoice.Post; CDS_Invoice.Post;
end;
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); procedure TfrmInvoiceOutInPut.ToolButton2Click(Sender: TObject);
begin begin
@ -531,6 +649,8 @@ begin
frmReceivableValueSel := TfrmReceivableValueSel.Create(Application); frmReceivableValueSel := TfrmReceivableValueSel.Create(Application);
with frmReceivableValueSel do with frmReceivableValueSel do
begin begin
if Self.canshu1 = '录入' then
FAuthority := '低权限';
if showmodal = 1 then if showmodal = 1 then
begin begin
flag := False; 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) + ''''); sql.Add('select count(*) as RecordCount from Finance_Invoice where FromFFID=''' + trim(frmReceivableValueSel.CDS_1.Fieldbyname('FFID').AsString) + '''');
open; open;
end; 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 begin
Append; Append;
FieldByName('SSel').Value := false; FieldByName('SSel').Value := false;
Fieldbyname('OurCoName').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OurCoName').AsString); 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('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('OppParentCoName').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('OppParentCoName').AsString);
Fieldbyname('F_Code').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('F_Code').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('F_Name').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('F_Name').AsString);
Fieldbyname('Qty').value := trim(frmReceivableValueSel.CDS_1.Fieldbyname('Qty').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 Caption = #38144#39033#21457#31080#31649#29702
ClientHeight = 626 ClientHeight = 626
ClientWidth = 1558 ClientWidth = 1558
Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
@ -37,13 +36,13 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
ImageIndex = 1 ImageIndex = 1
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object TBFind: TToolButton object ToolButton2: TToolButton
Left = 71 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
ImageIndex = 0 ImageIndex = 0
OnClick = TBFindClick OnClick = ToolButton2Click
end end
object TADD: TToolButton object TADD: TToolButton
Left = 142 Left = 142
@ -143,10 +142,9 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite
ParentBackground = False ParentBackground = False
ParentColor = True
TabOrder = 5 TabOrder = 5
ExplicitLeft = -1
object Label3: TLabel object Label3: TLabel
Left = 26 Left = 26
Top = 46 Top = 46
@ -180,51 +178,41 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Top = 85 Top = 85
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #33394#24067#21517#31216 Caption = #20135#21697#21517#31216
end end
object F_Name: TcxTextEdit object F_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 94 Left = 94
Top = 81 Top = 81
Properties.OnChange = IVNoPropertiesChange
TabOrder = 3 TabOrder = 3
OnKeyPress = IVNoKeyPress
Width = 150 Width = 150
end end
object IVNo: TcxTextEdit object IVNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 94 Left = 94
Top = 42 Top = 42
Properties.OnChange = IVNoPropertiesChange
TabOrder = 0 TabOrder = 0
OnKeyPress = IVNoKeyPress
Width = 150 Width = 150
end end
object F_Spec: TcxTextEdit object F_Spec: TcxTextEdit
Tag = 2 Tag = 2
Left = 319 Left = 319
Top = 81 Top = 81
Properties.OnChange = IVNoPropertiesChange
TabOrder = 4 TabOrder = 4
OnKeyPress = IVNoKeyPress
Width = 150 Width = 150
end end
object OppCoName: TcxTextEdit object OppCoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 316 Left = 316
Top = 42 Top = 42
Properties.OnChange = IVNoPropertiesChange
TabOrder = 1 TabOrder = 1
OnKeyPress = IVNoKeyPress
Width = 150 Width = 150
end end
object OurCoName: TcxTextEdit object OurCoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 538 Left = 538
Top = 42 Top = 42
Properties.OnChange = IVNoPropertiesChange
TabOrder = 2 TabOrder = 2
OnKeyPress = IVNoKeyPress
Width = 150 Width = 150
end end
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
@ -233,38 +221,26 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Width = 1554 Width = 1554
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
ParentBackground = False ParentBackground = False
ParentColor = False
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1554 ExplicitWidth = 1554
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited TimeType: TcxComboBox
Width = 16 ExplicitHeight = 29
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end end
inherited cxButton1: TcxButton inherited jqModel: TcxCheckBox
OnClick = cxButton1Click ExplicitWidth = 84
end ExplicitHeight = 25
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 end
end end
@ -322,6 +298,8 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 50
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
@ -393,7 +371,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Width = 71 Width = 71
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #33394#24067#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name' DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -469,6 +447,16 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Options.Editing = False Options.Editing = False
Width = 114 Width = 114
end 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 object Tv1Column1: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
@ -484,6 +472,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -501,7 +490,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Properties.Style = 11 Properties.Style = 11
Properties.TabIndex = 0 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#23457#26680 #24453#23457#26680
#24050#23457#26680 #24050#23457#26680
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
@ -509,41 +498,47 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
inherited loadProcess: TPanel
Left = 776
Top = 384
ExplicitLeft = 776
ExplicitTop = 384
end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 648 Left = 511
Top = 304 Top = 384
ExplicitLeft = 648 ExplicitLeft = 511
ExplicitTop = 304 ExplicitTop = 384
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Left = 161 Left = 599
Top = 264 Top = 237
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Left = 161 Left = 682
Top = 201 Top = 237
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 351 Left = 599
Top = 187 Top = 299
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Parameters = <> Parameters = <>
Left = 388 Left = 765
Top = 187 Top = 237
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Parameters = <> Parameters = <>
Left = 417 Left = 848
Top = 189 Top = 237
end end
object RM1: TRMGridReport object RM1: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
@ -561,32 +556,32 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 468 Left = 682
Top = 268 Top = 361
ReportData = {} ReportData = {}
end end
object RMDB_Main: TRMDBDataSet object RMDB_Main: TRMDBDataSet
Visible = True Visible = True
DataSet = ADOQueryTemp DataSet = ADOQueryTemp
Left = 432 Left = 599
Top = 268 Top = 361
end end
object cxGridPopupMenu2: TcxGridPopupMenu object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 440 Left = 765
Top = 324 Top = 299
end end
object DS_Invoice: TDataSource object DS_Invoice: TDataSource
DataSet = CDS_Invoice DataSet = CDS_Invoice
Left = 527 Left = 848
Top = 323 Top = 299
end end
object CDS_Invoice: TClientDataSet object CDS_Invoice: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 488 Left = 682
Top = 324 Top = 299
end end
object RMXLSExport1: TRMXLSExport object RMXLSExport1: TRMXLSExport
ShowAfterExport = True ShowAfterExport = True
@ -599,12 +594,12 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
ScaleX = 1.000000000000000000 ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000 ScaleY = 1.000000000000000000
CompressFile = False CompressFile = False
Left = 504 Left = 765
Top = 268 Top = 361
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 340 Left = 931
Top = 332 Top = 299
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click
@ -621,7 +616,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Parameters = <> Parameters = <>
Left = 381 Left = 931
Top = 269 Top = 237
end end
end end

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

@ -25,7 +25,7 @@ type
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
Panel1: TPanel; Panel1: TPanel;
TBFind: TToolButton; ToolButton2: TToolButton;
F_Name: TcxTextEdit; F_Name: TcxTextEdit;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ToolButton1: TToolButton; ToolButton1: TToolButton;
@ -84,12 +84,13 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
Tv1Column3: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure IVNoChange(Sender: TObject); procedure IVNoChange(Sender: TObject);
procedure TADDClick(Sender: TObject); procedure TADDClick(Sender: TObject);
@ -107,13 +108,6 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure ToolButton5Click(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
{ Private declarations } { Private declarations }
@ -185,38 +179,36 @@ begin
end; end;
procedure TfrmInvoiceOutList.InitGrid(); procedure TfrmInvoiceOutList.InitGrid();
var
Msql, mbegdate, menddate: string;
SqlStr: string;
begin 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.* ';
sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date) + ''' '); 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)';
sql.Add(' and A.IVDate<''' + formatdateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1) + ''' ');
sql.Add(' and IVFlag=''ÏúÏî'' '); 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 case cxTabControl1.TabIndex of
0: 0:
begin begin
sql.add(' and isnull(A.Status,''0'')=''0'''); SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end; end;
1: 1:
begin begin
sql.add(' and A.Status=''9'''); SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end; end;
end; end;
if trim(canshu1) = '¼Èë' then
SqlStr := SqlStr + ' and CHARINDEX(' + quotedstr(DCode) + ',(ISNULL(B.SalesId, '''') +'',''+ISNULL(B.TallyId, '''')+'',''+ISNULL(A.FillId, '''') ) ) > 0 ';
Open; // ShowMessage(SqlStr);
end; InitCDSData(ADOQueryMain, CDS_Invoice, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'IVId');
SCreateCDS(ADOQueryMain, CDS_Invoice);
SInitCDSData(ADOQueryMain, CDS_Invoice);
finally
TV1.DataController.Filter.Clear;
end;
end; end;
procedure TfrmInvoiceOutList.FormDestroy(Sender: TObject); procedure TfrmInvoiceOutList.FormDestroy(Sender: TObject);
@ -254,7 +246,7 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmInvoiceOutList.TBFindClick(Sender: TObject); procedure TfrmInvoiceOutList.ToolButton2Click(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
@ -278,24 +270,7 @@ end;
procedure TfrmInvoiceOutList.IVNoChange(Sender: TObject); procedure TfrmInvoiceOutList.IVNoChange(Sender: TObject);
begin begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then ToolButton2.Click;
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;
end; end;
procedure TfrmInvoiceOutList.TADDClick(Sender: TObject); procedure TfrmInvoiceOutList.TADDClick(Sender: TObject);
@ -305,7 +280,7 @@ begin
begin begin
FIVID := ''; FIVID := '';
FZKType := Self.FZKType; FZKType := Self.FZKType;
canshu1 := Self.canshu1;
if showmodal = 1 then if showmodal = 1 then
begin begin
initGrid(); initGrid();
@ -322,7 +297,7 @@ begin
begin begin
IvNo.Enabled := False; IvNo.Enabled := False;
FIVID := trim(Self.CDS_Invoice.fieldbyname('IVID').asstring); FIVID := trim(Self.CDS_Invoice.fieldbyname('IVID').asstring);
canshu1 := Self.canshu1;
if showmodal = 1 then if showmodal = 1 then
begin begin
Self.initGrid(); Self.initGrid();
@ -390,41 +365,6 @@ begin
end; end;
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); procedure TfrmInvoiceOutList.cxTabControl1Change(Sender: TObject);
begin begin
SetStatus(); SetStatus();
@ -521,6 +461,7 @@ begin
begin begin
TSave.Visible := False; TSave.Visible := False;
FIvID := trim(Self.CDS_Invoice.fieldbyname('IvID').asstring); FIvID := trim(Self.CDS_Invoice.fieldbyname('IvID').asstring);
canshu1 := Self.canshu1;
if showmodal = 1 then if showmodal = 1 then
begin begin
@ -531,7 +472,7 @@ end;
procedure TfrmInvoiceOutList.FormCreate(Sender: TObject); procedure TfrmInvoiceOutList.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
canshu1 := trim(DParameters1); canshu1 := trim(Self.fParameters1);
end; end;
procedure TfrmInvoiceOutList.N1Click(Sender: TObject); 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.Edit;
Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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;
end; end;
@ -340,9 +340,9 @@ begin
begin begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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('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;
end; end;
finally finally
@ -361,7 +361,7 @@ begin
begin begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').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;
end; end;
finally finally

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

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

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

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

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

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

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

@ -81,6 +81,8 @@ type
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
btnTJ: TToolButton;
btnCXTJ: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -102,12 +104,8 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject); procedure OppCoNamePropertiesChange(Sender: TObject);
procedure cxButton4Click(Sender: TObject); procedure btnTJClick(Sender: TObject);
procedure cxButton1Click(Sender: TObject); procedure btnCXTJClick(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure OppCoNameKeyPress(Sender: TObject; var Key: Char);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -130,6 +128,9 @@ begin
btnAdd.Enabled := false; //ÐÂÔö btnAdd.Enabled := false; //ÐÂÔö
btnEdit.Enabled := false; //ÐÞ¸Ä btnEdit.Enabled := false; //ÐÞ¸Ä
btnDel.Enabled := false; //ɾ³ý btnDel.Enabled := false; //ɾ³ý
btnTJ.Enabled := false; //修改
btnCXTJ.Enabled := false; //删除
// if Trim(FAuthority) = '¹ÜÀí' then // if Trim(FAuthority) = '¹ÜÀí' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
@ -138,16 +139,22 @@ begin
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
btnChk.Enabled := true; btnTJ.Enabled := true;
end; end;
1: 1:
begin begin
btnReChk.Enabled := true; btnCXTJ.Enabled := true;
btnChk.Enabled := true;
end; end;
2: 2:
begin
btnReChk.Enabled := true;
end;
3:
begin begin
end; end;
end; end;
end; end;
end; end;
@ -167,11 +174,15 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end; end;
1: 1:
begin 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;
end; end;
@ -282,41 +293,6 @@ begin
end; 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); procedure TfrmPayList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -429,6 +405,51 @@ begin
end; 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); procedure TfrmPayList.btnReChkClick(Sender: TObject);
var var
FFFIDS: string; FFFIDS: string;
@ -491,6 +512,52 @@ begin
end; end;
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); procedure TfrmPayList.btnAddClick(Sender: TObject);
begin begin
@ -617,18 +684,8 @@ begin
end; end;
procedure TfrmPayList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmPayList.OppCoNamePropertiesChange(Sender: TObject); procedure TfrmPayList.OppCoNamePropertiesChange(Sender: TObject);
begin begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click; TBFind.Click;
end; end;

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

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

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

@ -4,18 +4,23 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 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 type
TfrmPayableEdit = class(TForm) TfrmPayableEdit = class(TForm)
Panel1: TPanel; Panel1: TPanel;
Button1: TButton; Button1: TButton;
Label1: TLabel; Label1: TLabel;
Button2: TButton;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
Price: TEdit; Price: TEdit;
Label2: TLabel;
Button2: TButton;
ReconciliationDate: TcxDateEdit;
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
private private
@ -34,7 +39,24 @@ implementation
procedure TfrmPayableEdit.Button2Click(Sender: TObject); procedure TfrmPayableEdit.Button2Click(Sender: TObject);
begin begin
try
with ADOQueryCmd do
begin
Close; 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; end;
procedure TfrmPayableEdit.Button1Click(Sender: TObject); procedure TfrmPayableEdit.Button1Click(Sender: TObject);

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

@ -320,7 +320,7 @@ begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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;
end; end;
@ -360,9 +360,9 @@ begin
begin begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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('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;
end; end;
finally finally
@ -381,7 +381,7 @@ begin
begin begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').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;
end; end;
finally finally

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

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

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

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

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

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

179
A09财务通用管理/U_PayableList.pas
View File

@ -15,7 +15,8 @@ uses
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxScrollbarAnnotations, Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxScrollbarAnnotations,
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar; FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
cxCurrencyEdit;
type type
TfrmPayableList = class(TfrmBaseList) TfrmPayableList = class(TfrmBaseList)
@ -87,7 +88,7 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn; Tv1Column25: TcxGridDBColumn;
ToolButton1: TToolButton; btnDJXG: TToolButton;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column26: TcxGridDBColumn; Tv1Column26: TcxGridDBColumn;
@ -102,6 +103,8 @@ type
Tv1Column33: TcxGridDBColumn; Tv1Column33: TcxGridDBColumn;
Tv1Column34: TcxGridDBColumn; Tv1Column34: TcxGridDBColumn;
Tv1Column35: TcxGridDBColumn; Tv1Column35: TcxGridDBColumn;
btnTJ: TToolButton;
btnCXTJ: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -119,16 +122,13 @@ type
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure btnEditClick(Sender: TObject); procedure btnEditClick(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure btnDJXGClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject); procedure OppCoNamePropertiesChange(Sender: TObject);
procedure cxButton4Click(Sender: TObject); procedure btnTJClick(Sender: TObject);
procedure cxButton1Click(Sender: TObject); procedure btnCXTJClick(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -152,6 +152,11 @@ begin
btnAdd.Enabled := false; //新增 btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改 btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除 btnDel.Enabled := false; //删除
btnTJ.Enabled := false; //修改
btnCXTJ.Enabled := false; //删除
btnDJXG.Enabled := false;
// if Trim(FAuthority) = '管理' then // if Trim(FAuthority) = '管理' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
@ -160,16 +165,23 @@ begin
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
btnChk.Enabled := true; btnTJ.Enabled := true;
end; end;
1: 1:
begin begin
btnReChk.Enabled := true; btnCXTJ.Enabled := true;
btnChk.Enabled := true;
end; end;
2: 2:
begin
btnReChk.Enabled := true;
btnDJXG.Enabled := true;
end;
3:
begin begin
end; end;
end; end;
end; end;
end; end;
@ -189,11 +201,15 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end; end;
1: 1:
begin 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;
end; end;
@ -303,47 +319,12 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin begin
application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), '提示信息'); application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), '提示信息');
Exit; // Exit;
end; end;
InitGrid(); InitGrid();
end; 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); procedure TfrmPayableList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -440,6 +421,51 @@ begin
end; 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); procedure TfrmPayableList.btnReChkClick(Sender: TObject);
var var
FFFIDS: string; FFFIDS: string;
@ -485,6 +511,52 @@ begin
end; end;
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); procedure TfrmPayableList.btnAddClick(Sender: TObject);
begin begin
@ -503,7 +575,7 @@ begin
end; end;
end; end;
procedure TfrmPayableList.ToolButton1Click(Sender: TObject); procedure TfrmPayableList.btnDJXGClick(Sender: TObject);
var var
MFFIDS: string; MFFIDS: string;
begin begin
@ -515,9 +587,9 @@ begin
application.MessageBox('请选择数据', '提示'); application.MessageBox('请选择数据', '提示');
Exit; Exit;
end; end;
MFFIDS := SelCDSKey(CDS_1, ['FFID'])[0]; MFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
if FAuthority <> '管理' then
begin
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -535,12 +607,13 @@ begin
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
Exit; Exit;
end; end;
end;
try try
frmPayableEdit := TfrmPayableEdit.Create(Application); frmPayableEdit := TfrmPayableEdit.Create(Application);
with frmPayableEdit do with frmPayableEdit do
begin begin
FFFIDS := MFFIDS; FFFIDS := MFFIDS;
ReconciliationDate.Date := SGetServerDate(ADOQueryTemp);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -646,8 +719,6 @@ end;
procedure TfrmPayableList.OppCoNamePropertiesChange(Sender: TObject); procedure TfrmPayableList.OppCoNamePropertiesChange(Sender: TObject);
begin begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click; TBFind.Click;
end; end;

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

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

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

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

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

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

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

@ -11,13 +11,15 @@ type
Panel1: TPanel; Panel1: TPanel;
Button1: TButton; Button1: TButton;
Label1: TLabel; Label1: TLabel;
Button2: TButton;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
Price: TEdit; Price: TEdit;
procedure Button2Click(Sender: TObject); Label2: TLabel;
Button2: TButton;
Deduction: TEdit;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
@ -32,11 +34,6 @@ implementation
{$R *.dfm} {$R *.dfm}
procedure TfrmReceivableEdit.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TfrmReceivableEdit.Button1Click(Sender: TObject); procedure TfrmReceivableEdit.Button1Click(Sender: TObject);
begin begin
if StrToFloatDef(Price.Text, 0) = 0 then if StrToFloatDef(Price.Text, 0) = 0 then
@ -61,5 +58,29 @@ begin
end; end;
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. end.

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

@ -342,7 +342,7 @@ begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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;
end; end;
@ -382,9 +382,9 @@ begin
begin begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); 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('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;
end; end;
finally finally
@ -403,7 +403,7 @@ begin
begin begin
Self.CDS_Import.Edit; Self.CDS_Import.Edit;
Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').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;
end; end;
finally finally

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

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

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

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

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

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

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

@ -15,7 +15,8 @@ uses
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxScrollbarAnnotations, Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxScrollbarAnnotations,
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar; FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
cxCurrencyEdit;
type type
TfrmReceivableList = class(TfrmBaseList) TfrmReceivableList = class(TfrmBaseList)
@ -43,7 +44,7 @@ type
F_Name: TcxTextEdit; F_Name: TcxTextEdit;
Label4: TLabel; Label4: TLabel;
Label6: TLabel; Label6: TLabel;
F_Code: TcxTextEdit; P_Code: TcxTextEdit;
v2OrderNo: TcxGridDBColumn; v2OrderNo: TcxGridDBColumn;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Label10: TLabel; Label10: TLabel;
@ -86,7 +87,7 @@ type
Tv1Column24: TcxGridDBColumn; Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn; Tv1Column25: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
ToolButton1: TToolButton; btnDJXG: TToolButton;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn; Tv1Column26: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
@ -106,20 +107,12 @@ type
Tv1Column37: TcxGridDBColumn; Tv1Column37: TcxGridDBColumn;
Tv1Column38: TcxGridDBColumn; Tv1Column38: TcxGridDBColumn;
Tv1Column39: TcxGridDBColumn; Tv1Column39: TcxGridDBColumn;
ToolButton6: TToolButton;
Tv1Column40: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
F_BatchNO: TcxTextEdit;
Label5: TLabel;
GC_Name: TcxTextEdit;
Label7: TLabel;
CraftCode: TcxTextEdit;
Label8: TLabel;
OrderNo: TcxTextEdit; OrderNo: TcxTextEdit;
Label9: TLabel; btnTJ: TToolButton;
FromID1: TcxTextEdit; btnCXTJ: TToolButton;
Tv1Column40: TcxGridDBColumn;
Tv1Column41: TcxGridDBColumn; Tv1Column41: TcxGridDBColumn;
Tv1Column42: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -136,18 +129,14 @@ type
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure btnEditClick(Sender: TObject); procedure btnEditClick(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure btnDJXGClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure OppCoNamePropertiesChange(Sender: TObject); procedure OppCoNamePropertiesChange(Sender: TObject);
procedure cxButton4Click(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure cxButton1Click(Sender: TObject); procedure btnTJClick(Sender: TObject);
procedure cxButton5Click(Sender: TObject); procedure btnCXTJClick(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure OppCoNameKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton6Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -159,7 +148,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_ReceivableInput, U_ReceivableEdit, U_DataLink, U_RTFun, U_ZDYHelp, U_ReceivableInput, U_ReceivableEdit,
U_ReceivableImport, U_AttachmentUpload, U_ReceivableEditCF; U_ReceivableImport, U_AttachmentUpload;
{$R *.dfm} {$R *.dfm}
procedure TfrmReceivableList.SetStatus(); procedure TfrmReceivableList.SetStatus();
@ -171,6 +160,11 @@ begin
btnAdd.Enabled := false; //新增 btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改 btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除 btnDel.Enabled := false; //删除
btnTJ.Enabled := false; //修改
btnCXTJ.Enabled := false; //删除
btnDJXG.Enabled := false;
// if Trim(FAuthority) = '管理' then // if Trim(FAuthority) = '管理' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
@ -179,16 +173,24 @@ begin
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
btnChk.Enabled := true; btnTJ.Enabled := true;
btnDJXG.Enabled := true;
end; end;
1: 1:
begin begin
btnReChk.Enabled := true; btnCXTJ.Enabled := true;
btnChk.Enabled := true;
end; end;
2: 2:
begin
btnReChk.Enabled := true;
btnDJXG.Enabled := true;
end;
3:
begin begin
end; end;
end; end;
end; end;
end; end;
@ -199,27 +201,37 @@ var
SqlStr: string; SqlStr: string;
begin 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 + ',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 + ',ConDate=(select top 1 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 + ',DlyNote=(select top 1 DlyNote from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ',ConQty=(select ConQty from Bs_Contract_Sub X where X.ConSid=A.Consid)';
SqlStr := SqlStr + ' from Finance_Flow A '; 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=''应收款登记'' '; 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.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.FFTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + ''''; SqlStr := SqlStr + ' and A.FFTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end; end;
1: 1:
begin 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;
end; end;
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
end; end;
@ -240,18 +252,8 @@ begin
end; end;
procedure TfrmReceivableList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
initgrid();
end;
end;
procedure TfrmReceivableList.OppCoNamePropertiesChange(Sender: TObject); procedure TfrmReceivableList.OppCoNamePropertiesChange(Sender: TObject);
begin begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
Exit;
TBFind.Click; TBFind.Click;
end; end;
@ -261,6 +263,12 @@ begin
Action := caFree; Action := caFree;
end; end;
procedure TfrmReceivableList.FormCreate(Sender: TObject);
begin
inherited;
FAuthority := Trim(Self.fParameters1);
end;
procedure TfrmReceivableList.TBCloseClick(Sender: TObject); procedure TfrmReceivableList.TBCloseClick(Sender: TObject);
begin begin
@ -342,47 +350,12 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin begin
application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), '提示信息'); application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), '提示信息');
Exit; // Exit;
end; end;
InitGrid(); InitGrid();
end; 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); procedure TfrmReceivableList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -446,16 +419,7 @@ begin
Exit; Exit;
end; end;
with CDS_1 do FFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
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 try
with ADOQueryCmd do with ADOQueryCmd do
@ -471,6 +435,7 @@ begin
end; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
InitGrid();
application.MessageBox('审核成功', '提示'); application.MessageBox('审核成功', '提示');
except except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@ -479,6 +444,42 @@ begin
end; 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); procedure TfrmReceivableList.btnReChkClick(Sender: TObject);
var var
FFFIDS: string; FFFIDS: string;
@ -492,16 +493,7 @@ begin
Exit; Exit;
end; end;
with CDS_1 do FFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
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 try
with ADOQueryCmd do with ADOQueryCmd do
@ -517,6 +509,7 @@ begin
end; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
InitGrid();
application.MessageBox('撤销审核成功', '提示'); application.MessageBox('撤销审核成功', '提示');
except except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@ -524,6 +517,44 @@ begin
end; end;
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); procedure TfrmReceivableList.btnAddClick(Sender: TObject);
begin begin
@ -532,6 +563,7 @@ begin
with frmReceivableInput do with frmReceivableInput do
begin begin
FFFID := ''; FFFID := '';
FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -542,7 +574,7 @@ begin
end; end;
end; end;
procedure TfrmReceivableList.ToolButton1Click(Sender: TObject); procedure TfrmReceivableList.btnDJXGClick(Sender: TObject);
var var
MFFIDS: string; MFFIDS: string;
begin begin
@ -557,6 +589,8 @@ begin
MFFIDS := SelCDSKey(CDS_1, ['FFID'])[0]; MFFIDS := SelCDSKey(CDS_1, ['FFID'])[0];
if FAuthority <> '管理' then
begin
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -574,7 +608,7 @@ begin
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
Exit; Exit;
end; end;
end;
try try
frmReceivableEdit := TfrmReceivableEdit.Create(Application); frmReceivableEdit := TfrmReceivableEdit.Create(Application);
with frmReceivableEdit do with frmReceivableEdit do
@ -640,54 +674,6 @@ begin
WriteCxGrid(trim(Self.Caption), Tv1, '财务管理'); WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
end; 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); procedure TfrmReceivableList.btnEditClick(Sender: TObject);
begin begin
try try
@ -713,6 +699,7 @@ begin
with frmReceivableInput do with frmReceivableInput do
begin begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();

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

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

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

@ -9,25 +9,10 @@ uses
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
cxDropDownEdit, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations, Vcl.Menus, dxScrollbarAnnotations, FrameDateSel, cxContainer, cxCalendar,
dxSkinsCore, dxSkinsDefaultPainters;
FrameDateSel, cxContainer, cxCalendar;
type type
TfrmReceivableValueSel = class(TfrmBaseHelp) TfrmReceivableValueSel = class(TfrmBaseHelp)
@ -195,14 +180,18 @@ var
begin begin
SqlStr := ' select 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.FFID)>0 THEN 1 ELSE 0 END) AS BIT)'; 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 + ',ConDate=(select top 1 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 + ',DlyNote=(select top 1 DlyNote from Bs_Contract_Main X where X.ConNo=A.ConNo)';
SqlStr := SqlStr + ' from Finance_Flow A '; 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 + ' 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.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.FFTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + ''''; 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'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');
end; end;

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

@ -4,7 +4,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Caption = #24212#25910#23545#36134#20449#24687#34920 Caption = #24212#25910#23545#36134#20449#24687#34920
ClientHeight = 618 ClientHeight = 618
ClientWidth = 1573 ClientWidth = 1573
Color = clBtnFace Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -81,67 +81,64 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1573 Width = 1573
Height = 83 Height = 50
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite
ParentBackground = False ParentBackground = False
ParentColor = True
TabOrder = 1 TabOrder = 1
object Label5: TLabel object Label2: TLabel
Left = 25 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 Width = 64
Height = 21 Height = 21
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
end 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 object OppCoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 93 Left = 420
Top = 45 Top = 8
TabOrder = 0 ParentFont = False
Width = 264 TabOrder = 2
end Width = 155
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
end end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 113 Top = 80
Width = 1573 Width = 1573
Height = 505 Height = 538
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
@ -226,9 +223,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 54 Width = 46
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 6 Position.ColIndex = 7
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column5: TcxGridDBBandedColumn object V1Column5: TcxGridDBBandedColumn
@ -240,9 +237,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 58 Width = 49
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 7 Position.ColIndex = 8
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column6: TcxGridDBBandedColumn object V1Column6: TcxGridDBBandedColumn
@ -254,9 +251,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 59 Width = 51
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 8 Position.ColIndex = 9
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column7: TcxGridDBBandedColumn object V1Column7: TcxGridDBBandedColumn
@ -268,9 +265,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 49 Width = 42
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 11 Position.ColIndex = 12
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column8: TcxGridDBBandedColumn object V1Column8: TcxGridDBBandedColumn
@ -282,9 +279,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 53 Width = 44
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 14 Position.ColIndex = 15
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column9: TcxGridDBBandedColumn object V1Column9: TcxGridDBBandedColumn
@ -338,9 +335,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 88 Width = 75
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 3 Position.ColIndex = 4
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column10: TcxGridDBBandedColumn object V1Column10: TcxGridDBBandedColumn
@ -423,9 +420,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 57 Width = 48
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 5 Position.ColIndex = 6
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column22: TcxGridDBBandedColumn object V1Column22: TcxGridDBBandedColumn
@ -437,23 +434,23 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 45 Width = 37
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 10 Position.ColIndex = 11
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column23: TcxGridDBBandedColumn object V1Column23: TcxGridDBBandedColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'P_Color' DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 42 Width = 36
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 9 Position.ColIndex = 10
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column25: TcxGridDBBandedColumn object V1Column25: TcxGridDBBandedColumn
@ -478,9 +475,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 37 Width = 32
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 13 Position.ColIndex = 14
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column33: TcxGridDBBandedColumn object V1Column33: TcxGridDBBandedColumn
@ -490,9 +487,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 54 Width = 47
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 15 Position.ColIndex = 16
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column34: TcxGridDBBandedColumn object V1Column34: TcxGridDBBandedColumn
@ -514,31 +511,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 30 Width = 26
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 17 Position.ColIndex = 18
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.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column4: TcxGridDBBandedColumn object TV1Column4: TcxGridDBBandedColumn
@ -556,9 +531,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
DataBinding.FieldName = 'F_BatchNO' DataBinding.FieldName = 'F_BatchNO'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 83 Width = 71
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 4 Position.ColIndex = 5
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column6: TcxGridDBBandedColumn object TV1Column6: TcxGridDBBandedColumn
@ -567,9 +542,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 79 Width = 66
Position.BandIndex = 3 Position.BandIndex = 3
Position.ColIndex = 16 Position.ColIndex = 17
Position.RowIndex = 0 Position.RowIndex = 0
end end
object TV1Column7: TcxGridDBBandedColumn object TV1Column7: TcxGridDBBandedColumn
@ -589,8 +564,39 @@ object frmSingleCustStatement: TfrmSingleCustStatement
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 55
Position.BandIndex = 3 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 Position.RowIndex = 0
end end
end end
@ -602,14 +608,14 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 901 Left = 781
Top = 201 Top = 1
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Parameters = <> Parameters = <>
Left = 1021 Left = 885
Top = 305 Top = 1
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
@ -679,7 +685,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Parameters = <> Parameters = <>
Left = 796 Left = 676
Top = 212 Top = 4
end end
end end

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

@ -14,9 +14,25 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxScrollbarAnnotations, cxNavigator, dxDateRanges,
cxContainer, dxCore, cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxBarBuiltInMenu,
FrameDateSel;
dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TfrmSingleCustStatement = class(TForm) TfrmSingleCustStatement = class(TForm)
@ -30,6 +46,8 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Label2: TLabel;
Label6: TLabel;
cxGridPopupMenu2: TcxGridPopupMenu; cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource; DS_HZ: TDataSource;
CDS_HZ: TClientDataSet; CDS_HZ: TClientDataSet;
@ -64,15 +82,17 @@ type
V1Column34: TcxGridDBBandedColumn; V1Column34: TcxGridDBBandedColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
TV1Column1: TcxGridDBBandedColumn; TV1Column1: TcxGridDBBandedColumn;
begdate: TcxDateEdit;
Enddate: TcxDateEdit;
OppCoName: TcxTextEdit; OppCoName: TcxTextEdit;
TV1Column2: TcxGridDBBandedColumn;
TV1Column3: TcxGridDBBandedColumn;
TV1Column4: TcxGridDBBandedColumn; TV1Column4: TcxGridDBBandedColumn;
TV1Column5: TcxGridDBBandedColumn; TV1Column5: TcxGridDBBandedColumn;
TV1Column6: TcxGridDBBandedColumn; TV1Column6: TcxGridDBBandedColumn;
TV1Column7: TcxGridDBBandedColumn; TV1Column7: TcxGridDBBandedColumn;
TV1Column8: TcxGridDBBandedColumn; TV1Column8: TcxGridDBBandedColumn;
frmFrameDateSel1: TfrmFrameDateSel; TV1Column9: TcxGridDBBandedColumn;
TV1Column10: TcxGridDBBandedColumn;
TV1Column11: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -83,11 +103,6 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure ToolButton2Click(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
{ Private declarations } { Private declarations }
@ -116,8 +131,8 @@ begin
SQL.Clear; SQL.Clear;
Filtered := False; Filtered := False;
sql.Add(' exec P_Fin_CustStatementSingle '); sql.Add(' exec P_Fin_CustStatementSingle ');
sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)))); sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.Date))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1)))); sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1))));
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo))); sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));
sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency))); sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency)));
Open; Open;
@ -131,39 +146,6 @@ begin
frmSingleCustStatement := nil; frmSingleCustStatement := nil;
end; 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); procedure TfrmSingleCustStatement.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
Action := caFree; Action := caFree;
@ -183,7 +165,7 @@ end;
procedure TfrmSingleCustStatement.TBRafreshClick(Sender: TObject); procedure TfrmSingleCustStatement.TBRafreshClick(Sender: TObject);
begin begin
toolbar1.SetFocus; begdate.SetFocus;
InitGrid(); InitGrid();
end; end;
@ -206,8 +188,8 @@ end;
procedure TfrmSingleCustStatement.FormCreate(Sender: TObject); procedure TfrmSingleCustStatement.FormCreate(Sender: TObject);
begin begin
frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp); Enddate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date; begdate.Date := Enddate.Date;
end; end;
procedure TfrmSingleCustStatement.ToolButton3Click(Sender: TObject); procedure TfrmSingleCustStatement.ToolButton3Click(Sender: TObject);
@ -217,8 +199,8 @@ begin
if CDS_HZ.IsEmpty then if CDS_HZ.IsEmpty then
exit; exit;
WSql := ' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date))); WSql := ' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.Date)));
WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Enddate.Date + 1))); WSql := WSql + ' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1)));
WSql := WSql + ' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)); WSql := WSql + ' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo));
WSql := WSql + ' ,@Currency=' + QuotedStr(Trim(FCurrency)); 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 Caption = #24212#20184#23545#36134#20449#24687#34920
ClientHeight = 618 ClientHeight = 618
ClientWidth = 1924 ClientWidth = 1924
Color = clBtnFace Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -81,67 +81,117 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1924 Width = 1924
Height = 91 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ParentBackground = False Color = clSkyBlue
ParentColor = True
TabOrder = 1 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 object Label5: TLabel
Left = 25 Left = 377
Top = 51 Top = 10
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
end 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 object OppCoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 93 Left = 445
Top = 45 Top = 4
TabOrder = 0 ParentFont = False
TabOrder = 5
Width = 200 Width = 200
end 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 end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 121 Top = 73
Width = 1924 Width = 1924
Height = 497 Height = 545
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
@ -187,6 +237,8 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
OptionsData.Editing = False OptionsData.Editing = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Header = DataLink_Financial.Default
Styles.BandHeader = DataLink_Financial.Default
Bands = < Bands = <
item item
Width = 473 Width = 473

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

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