财务
This commit is contained in:
parent
d13f259718
commit
ce7e11ca30
|
|
@ -15,11 +15,11 @@
|
|||
<Transaction>1899/12/30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
|
||||
|
|
@ -41,14 +41,14 @@
|
|||
<Transaction>1899/12/30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.014,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_BatchEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
|
|
@ -71,8 +71,8 @@
|
|||
<Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.256,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPrice.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm</Transaction>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -119,6 +119,7 @@ inherited frmExpenseList: TfrmExpenseList
|
|||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 32
|
||||
object Label3: TLabel
|
||||
Left = 172
|
||||
Top = 13
|
||||
|
|
|
|||
|
|
@ -83,7 +83,7 @@ begin
|
|||
// pswd := 'root';
|
||||
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
DParameters1 := '²éѯ';
|
||||
DParameters1 := '管理';
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -377,6 +377,50 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmhandPayableList.TCHKClick(Sender: TObject);
|
||||
var
|
||||
MFFIDS: string;
|
||||
begin
|
||||
if CDS_Invoice.IsEmpty then
|
||||
exit;
|
||||
|
||||
if not CDS_Invoice.Locate('SSel', True, []) then
|
||||
begin
|
||||
application.MessageBox('请选择数据', '提示');
|
||||
Exit;
|
||||
end;
|
||||
|
||||
with CDS_Invoice do
|
||||
begin
|
||||
// DisableControls;
|
||||
while CDS_Invoice.Locate('SSel', True, []) do
|
||||
begin
|
||||
MFFIDS := MFFIDS + Trim(CDS_Invoice.fieldbyname('FFID').AsString) + ',';
|
||||
CDS_Invoice.Delete;
|
||||
end;
|
||||
// EnableControls;
|
||||
end;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.add('update Finance_Flow set Chker=''' + trim(DName) + ''',Chktime=getdate(),status=''9'' ');
|
||||
sql.add('where FFType=''手工费用登记'' and EXISTS (select * from [dbo].[F_Tool_SplitString]( ''' + trim(MFFIDS) + '''');
|
||||
sql.add(','','') X where X.RTValue=Finance_Flow.FFID) ');
|
||||
// showmessage(sql.text);
|
||||
|
||||
execsql;
|
||||
end;
|
||||
application.MessageBox('审核成功', '提示');
|
||||
// InitGrid();
|
||||
// CDS_Invoice.delete;
|
||||
except
|
||||
application.MessageBox('审核失败', '提示');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmhandPayableList.TNOCHKClick(Sender: TObject);
|
||||
var
|
||||
MFFIDS, MOrderNos: string;
|
||||
begin
|
||||
|
|
@ -406,60 +450,15 @@ begin
|
|||
close;
|
||||
sql.Clear;
|
||||
sql.add('select * from trade_plan_main where OrderNo in (select rtvalue from F_Tool_SplitString(''' + MOrderNos + ''', '','') ) and status in(''10'', ''12'')');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
if not ADOQueryTemp.IsEmpty() then
|
||||
begin
|
||||
application.MessageBox('选择的计划单状态有已完成或已清算的状态，无法审核', '提示');
|
||||
application.MessageBox('选择的计划单状态有已完成或已清算的状态，无法撤销审核', '提示');
|
||||
InitGrid();
|
||||
Exit;
|
||||
end;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.add('update Finance_Flow set Chker=''' + trim(DName) + ''',Chktime=getdate(),status=''9'' ');
|
||||
sql.add('where FFType=''手工费用登记'' and EXISTS (select * from [dbo].[F_Tool_SplitString]( ''' + trim(MFFIDS) + '''');
|
||||
sql.add(','','') X where X.RTValue=Finance_Flow.FFID) ');
|
||||
// showmessage(sql.text);
|
||||
|
||||
execsql;
|
||||
end;
|
||||
application.MessageBox('审核成功', '提示');
|
||||
// InitGrid();
|
||||
// CDS_Invoice.delete;
|
||||
except
|
||||
application.MessageBox('审核失败', '提示');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmhandPayableList.TNOCHKClick(Sender: TObject);
|
||||
var
|
||||
MFFIDS: string;
|
||||
begin
|
||||
if CDS_Invoice.IsEmpty then
|
||||
exit;
|
||||
|
||||
if not CDS_Invoice.Locate('SSel', True, []) then
|
||||
begin
|
||||
application.MessageBox('请选择数据', '提示');
|
||||
Exit;
|
||||
end;
|
||||
|
||||
with CDS_Invoice do
|
||||
begin
|
||||
// DisableControls;
|
||||
while CDS_Invoice.Locate('SSel', True, []) do
|
||||
begin
|
||||
MFFIDS := MFFIDS + Trim(CDS_Invoice.fieldbyname('FFID').AsString) + ',';
|
||||
CDS_Invoice.Delete;
|
||||
end;
|
||||
// EnableControls;
|
||||
end;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user