1106 lines
34 KiB
ObjectPascal
1106 lines
34 KiB
ObjectPascal
unit U_YGYPInPut_YGXZDJ;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
|
||
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
|
||
cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
|
||
ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg,
|
||
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, Menus, ExtDlgs, cxCurrencyEdit;
|
||
|
||
type
|
||
TfrmYGYPInPut_YGXZDJ = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBClose: TToolButton;
|
||
ADOTemp: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
TBSave: TToolButton;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
DataSource1: TDataSource;
|
||
Order_Sub: TClientDataSet;
|
||
Panel3: TPanel;
|
||
Label4: TLabel;
|
||
Label11: TLabel;
|
||
JSDate: TDateTimePicker;
|
||
FFDate: TDateTimePicker;
|
||
Label6: TLabel;
|
||
TGZFF: TToolButton;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1YGName: TcxGridDBColumn;
|
||
v1GZMoney: TcxGridDBColumn;
|
||
v1KQJMoney: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
v1KOtherMoney: TcxGridDBColumn;
|
||
v1KCDMoney: TcxGridDBColumn;
|
||
v1KGSMoney: TcxGridDBColumn;
|
||
v1JLMoney: TcxGridDBColumn;
|
||
ToolBar2: TToolBar;
|
||
ToolButton3: TToolButton;
|
||
ToolButton4: TToolButton;
|
||
v1KSBMoney: TcxGridDBColumn;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
Label3: TLabel;
|
||
Edit1: TEdit;
|
||
v1XHNo: TcxGridDBColumn;
|
||
v1KFKMeny: TcxGridDBColumn;
|
||
v1FFMoney: TcxGridDBColumn;
|
||
v1XZNote: TcxGridDBColumn;
|
||
Label1: TLabel;
|
||
SSYear: TEdit;
|
||
Label2: TLabel;
|
||
SSMonth: TComboBox;
|
||
PriceUnit: TBtnEditA;
|
||
v1FKSYSTEM: TcxGridDBColumn;
|
||
v1FKType: TcxGridDBColumn;
|
||
Label5: TLabel;
|
||
FKTaiTou: TBtnEditA;
|
||
Label7: TLabel;
|
||
FKType: TComboBox;
|
||
TSYGZ: TToolButton;
|
||
ADOQueryMain: TADOQuery;
|
||
Label8: TLabel;
|
||
ADOQuery1: TADOQuery;
|
||
ADOQuery2: TADOQuery;
|
||
v1JKMoney: TcxGridDBColumn;
|
||
ADOQueryJK: TADOQuery;
|
||
ADOQuery3: TADOQuery;
|
||
FKDept: TBtnEditA;
|
||
v1CJBGZMoney: TcxGridDBColumn;
|
||
v1GLFLMoney: TcxGridDBColumn;
|
||
v1DXGZMoney: TcxGridDBColumn;
|
||
v1XHXJMoney: TcxGridDBColumn;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure TGZFFClick(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure ToolButton4Click(Sender: TObject);
|
||
procedure v1GZMoneyPropertiesEditValueChanged(Sender: TObject);
|
||
procedure v1FKSYSTEMPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v1FKTypePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure FKTaiTouBtnClick(Sender: TObject);
|
||
procedure PriceUnitBtnClick(Sender: TObject);
|
||
procedure TSYGZClick(Sender: TObject);
|
||
procedure Tv1EditKeyDown(Sender: TcxCustomGridTableView;
|
||
AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word;
|
||
Shift: TShiftState);
|
||
procedure Tv1NavigatorButtonsButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer; var ADone: Boolean);
|
||
procedure FKDeptBtnClick(Sender: TObject);
|
||
private
|
||
TPInt:Integer;
|
||
procedure InitData();
|
||
function SaveData():Boolean;
|
||
procedure GLAge();
|
||
procedure saveDataSY();
|
||
procedure JXUPDate();
|
||
procedure YGLiZhi();
|
||
procedure NXZZDate();
|
||
{ Private declarations }
|
||
public
|
||
canshu1:String;
|
||
PState,CopyInt,FXHNO:Integer;
|
||
FMainId,FXZMain,FXZSubid :String;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmYGYPInPut_YGXZDJ: TfrmYGYPInPut_YGXZDJ;
|
||
implementation
|
||
uses
|
||
U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_GRYearPFList_FHDQDJ;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.NXZZDate();
|
||
var MaxNXNo: string;
|
||
FSNXSMoney: double;
|
||
begin
|
||
try
|
||
if SSMonth.Text='1' then
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * ');
|
||
Sql.add('from OA_YG_DangAN_NXJL ');
|
||
sql.add('where YGYear='''+trim(SSYear.Text)+''' ');
|
||
open;
|
||
if isempty then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update OA_YG_DangAn set ');
|
||
sql.add(' NXFFStatus='''' ');
|
||
sql.add('where LiZhiFlag=0 ');
|
||
sql.add('and FHType=''<27><>н<EFBFBD><D0BD>'' ');
|
||
execsql;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * ');
|
||
Sql.add('from OA_YG_DangAn ');
|
||
sql.add('where LiZhiFlag=0 ');
|
||
sql.add('and FHType=''<27><>н<EFBFBD><D0BD>'' ');
|
||
open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * ');
|
||
Sql.add('from OA_YG_DangAN_NXJL ');
|
||
sql.add('where YGYear='''+trim(SSYear.Text)+''' ');
|
||
sql.add('and YGID='''+trim(ADOCmd.fieldbyname('YGID').AsString)+'''');
|
||
open;
|
||
if isempty then
|
||
begin
|
||
if GetLSNo(ADOQuery1,MaxNXNo,'NX','OA_YG_DangAN_NXJL',4,1)=False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
MaxNXNo:=trim(ADOTemp.fieldbyname('NXId').asstring);
|
||
end;
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('select * from OA_YG_DangAN_NXJL ');
|
||
sql.add(' where NXID='''+trim(MaxNXNo)+'''');
|
||
open;
|
||
if isempty then
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update OA_YG_DangAn set ');
|
||
Sql.add(' SYearGZMoney=GRNXMoney');
|
||
sql.add(' where YGID='''+trim(ADOCmd.fieldbyname('YGID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
with ADOQueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update OA_YG_DangAN_NXJL set ');
|
||
if trim(ADOCmd.fieldbyname('GRYearPF').AsString)<>'' then
|
||
Sql.add(' GRYearPF='''+trim(ADOCmd.fieldbyname('GRYearPF').AsString)+'''')
|
||
else
|
||
Sql.add(' GRYearPF=0');
|
||
sql.add(' where YGYear='''+trim(floattostr(strtofloat(SSYear.Text)-1))+''' ');
|
||
sql.add('and YGID='''+trim(ADOCmd.fieldbyname('YGID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
end;
|
||
end;
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('select * from OA_YG_DangAN_NXJL ');
|
||
sql.add(' where NXID='''+trim(MaxNXNo)+'''');
|
||
open;
|
||
if isempty then
|
||
begin
|
||
append;
|
||
end
|
||
else
|
||
edit;
|
||
fieldbyname('NXID').Value:=trim(MaxNXNo);
|
||
fieldbyname('YGYear').Value:=trim(SSYear.Text);
|
||
if ADOCmd.FieldByName('NXFFStatus').AsString='' then
|
||
begin
|
||
if ADOCmd.fieldbyname('NXZZType').AsString<>'<27><><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>' then
|
||
begin
|
||
if (strtocurr(uppercase(formatdatetime('yyyy',ADOCmd.fieldbyname('ZhuanZhengDate').AsDateTime)))<strtocurr(SSYear.Text)) and
|
||
(strtocurr(uppercase(formatdatetime('MM',ADOCmd.fieldbyname('ZhuanZhengDate').AsDateTime)))<=strtocurr(SSMonth.Text)) then
|
||
begin
|
||
if ADOCmd.fieldbyname('GRYearPF').AsFloat>60 then
|
||
begin
|
||
if ADOCmd.fieldbyname('GRNXMoney').AsFloat<=50000 then
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat*1.1;
|
||
end
|
||
else if ADOCmd.fieldbyname('GRNXMoney').AsFloat<=100000 then
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat*1.08;
|
||
end
|
||
else if ADOCmd.fieldbyname('GRNXMoney').AsFloat<=150000 then
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat*1.05;
|
||
end
|
||
else
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat*1.03;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
FSNXSMoney:=ADOCmd.Fieldbyname('GRNXMoney').asfloat;
|
||
end;
|
||
with ADOQuery2 do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update OA_YG_DangAn set NXFFStatus=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
||
sql.add('where YGID='''+trim(ADOCmd.fieldbyname('YGID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
if trim(SSMonth.text)='1' then
|
||
begin
|
||
if ADOCmd.fieldbyname('GRYearPF').AsFloat>60 then
|
||
begin
|
||
if ADOCmd.fieldbyname('GRNXMoney').AsFloat<=50000 then
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat*1.1;
|
||
end
|
||
else if ADOCmd.fieldbyname('GRNXMoney').AsFloat<=100000 then
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat*1.08;
|
||
end
|
||
else if ADOCmd.fieldbyname('GRNXMoney').AsFloat<=150000 then
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat*1.05;
|
||
end
|
||
else
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat*1.03;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat;
|
||
end;
|
||
with ADOQuery2 do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update OA_YG_DangAn set NXFFStatus=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
||
sql.add('where YGID='''+trim(ADOCmd.fieldbyname('YGID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').asfloat;
|
||
end;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
FSNXSMoney:=ADOCmd.fieldbyname('GRNXMoney').AsFloat;
|
||
end;
|
||
fieldbyname('YGNXMoney').AsFloat:=FSNXSMoney;
|
||
fieldbyname('filltime').AsDateTime:=SGetServerDate(ADOQuery1);
|
||
fieldbyname('YGID').Value:=trim(ADOCmd.fieldbyname('YGID').AsString);
|
||
post;
|
||
end;
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update OA_YG_DangAn set GRNXMoney='''+currtostr(FSNXSMoney)+''' ');
|
||
sql.add('where YGID='''+trim(ADOCmd.fieldbyname('YGID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
finally;
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.YGLiZhi();
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn ');
|
||
sql.add('where LiZhiFlag=0 and LiZhiStatus=''<27><>ְͨ<D6B0><CDA8>'' ');
|
||
open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
if FieldByName('SJLiZhiDate').AsDateTime<SGetServerDate(ADOTemp) then
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.add('update OA_YG_DangAn set ');
|
||
sql.add('LiZhiFlag=1,YGType=''<27><>ְ'' ');
|
||
sql.Add(' where YGID='''+trim(ADOCmd.fieldbyname('YGID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.JXUPDate();
|
||
var FNXMoney,FNXZZMoney: double;
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn_JX ');
|
||
sql.add('where JXStatus=''<27><>нͨ<D0BD><CDA8>'' and getdate()>SXJXdate ');
|
||
open;
|
||
end;
|
||
with ADOQueryMain do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn ');
|
||
sql.add('where YGID='''+trim(ADOQueryMain.fieldbyname('YGID').AsString)+'''');
|
||
open;
|
||
end;
|
||
FNXMoney:=ADOTemp.fieldbyname('GRNXMoney').AsFloat;
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAN_NXJL ');
|
||
sql.add('where YGID='''+trim(ADOQueryMain.fieldbyname('YGID').AsString)+'''');
|
||
sql.add(' and YGYear='''+trim(SSYear.Text)+'''');
|
||
open;
|
||
end;
|
||
FNXZZMoney:=ADOTemp.fieldbyname('YGNXMoney').AsFloat;
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update OA_YG_DangAn set GRNXMoney='''+floattostr(FNXMoney+ADOQueryMain.fieldbyname('JXMoney').AsFloat)+''' ');
|
||
sql.add('where YGID='''+trim(ADOQueryMain.fieldbyname('YGID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update OA_YG_DangAN_NXJL set YGNXMoney='''+floattostr(FNXZZMoney+ADOQueryMain.fieldbyname('JXMoney').AsFloat)+''' ');
|
||
sql.add('where YGID='''+trim(ADOQueryMain.fieldbyname('YGID').AsString)+'''');
|
||
sql.add(' and YGYear='''+trim(SSYear.Text)+'''');
|
||
execsql;
|
||
end;
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.add('update OA_YG_DangAn_JX set ');
|
||
sql.add('JXStatus=''<27>Ѽ<EFBFBD>н'' ');
|
||
sql.Add(' where JXID='''+trim(ADOQueryMain.fieldbyname('JXID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.saveDataSY();
|
||
var FYear: string;
|
||
begin
|
||
{FYear:=uppercase(formatdateTime('yyyy',JSDate.datetime);
|
||
with Order_Sub do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_XZFF_Main ');
|
||
open;
|
||
end;
|
||
next;
|
||
end;
|
||
end;}
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.GLAge();
|
||
var FXTGLNF,FYGGLNF,FGLYF: Double;
|
||
begin
|
||
FXTGLNF:=strtofloat(uppercase(formatdateTime('yyyy',JSDate.datetime)));
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select ZhuanZhengDate,YGGL from OA_YG_DangAn where YGType=''<27><>ʽ'' ');
|
||
open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
edit;
|
||
FYGGLNF:=strtofloat(uppercase(formatdateTime('yyyy',ADOCmd.fieldbyname('ZhuanZhengDate').AsDateTime)));
|
||
FGLYF:=strtofloat(uppercase(formatdateTime('MM',ADOCmd.fieldbyname('ZhuanZhengDate').AsDateTime)));
|
||
if (FGLYF>=1) and (FGLYF<=3) then
|
||
fieldbyname('YGGL').AsFloat:=FXTGLNF-FYGGLNF+1;
|
||
if (FGLYF>3) and (FGLYF<=9) then
|
||
fieldbyname('YGGL').AsFloat:=FXTGLNF-FYGGLNF+0.5;
|
||
if (FGLYF>9) and (FGLYF<=12) then
|
||
fieldbyname('YGGL').AsFloat:=FXTGLNF-FYGGLNF;
|
||
next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.InitData();
|
||
begin
|
||
with ADOTemp DO
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.add('select * from OA_YG_XZFF_Main ');
|
||
sql.Add('where XZMain='''+trim(FXZMain)+''' ');
|
||
Open;
|
||
end;
|
||
if ADOTemp.IsEmpty=False then
|
||
begin
|
||
SSYear.Text:=trim(ADOTemp.fieldbyname('SSYear').AsString);
|
||
SSMonth.Text:=trim(ADOTemp.fieldbyname('SSMonth').AsString);
|
||
FFDate.datetime:=ADOTemp.fieldbyname('FFDate').AsDateTime;
|
||
PriceUnit.Text:=trim(ADOTemp.fieldbyname('PriceUnit').asstring);
|
||
FKTaiTou.Text:=trim(ADOTemp.fieldbyname('FKTaiTou').asstring);
|
||
FKDept.Text:=trim(ADOTemp.fieldbyname('FKDept').asstring);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select *,cast(0 as decimal(18,2)) SYearGZMoney from OA_YG_XZFF where XZMain='''+Trim(FXZMain)+''' ');
|
||
sql.add('and isnull(Chkstatus,'''')=''<27><><EFBFBD>ύ''');
|
||
sql.add('Order By XHNo');
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADOCmd,Order_Sub);
|
||
SInitCDSData20(ADOCmd,Order_Sub);
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.FormShow(Sender: TObject);
|
||
begin
|
||
if strtofloat(uppercase(formatdatetime('MM',SGetServerDate(ADOTemp))))=1 then
|
||
begin
|
||
SSYear.Text:=floattostr(strtofloat(uppercase(formatdatetime('yyyy',SGetServerDate(ADOTemp))))-1);
|
||
SSMonth.Text:='12';
|
||
end
|
||
else
|
||
begin
|
||
SSYear.Text:=trim(uppercase(formatdatetime('yyyy',SGetServerDate(ADOTemp))));
|
||
SSMonth.Text:=floattostr(strtofloat(uppercase(formatdatetime('MM',SGetServerDate(ADOTemp))))-1);
|
||
end;
|
||
FFDate.DateTime:=SGetServerDate(ADOTemp);
|
||
InitData();
|
||
end;
|
||
|
||
function TfrmYGYPInPut_YGXZDJ.SaveData():Boolean;
|
||
var
|
||
maxno:String;
|
||
begin
|
||
Result:=False;
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
if trim(FXZMain)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,FXZMain,'FF','OA_YG_XZFF_Main',4,1)=False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_XZFF_Main ');
|
||
sql.add('where XZMain='''+trim(FXZMain)+'''');
|
||
open;
|
||
end;
|
||
if ADOCmd.IsEmpty then
|
||
ADOCmd.append
|
||
else
|
||
ADOCmd.edit;
|
||
ADOCmd.fieldbyname('XZMain').asstring:=trim(FXZMain);
|
||
ADOCmd.fieldbyname('filler').asstring:=trim(DName);
|
||
ADOCmd.fieldbyname('filltime').asdatetime:=SGetServerDate(ADOTemp);
|
||
RTSetsavedata(ADOCmd,'OA_YG_XZFF_Main',Panel3,0);
|
||
ADOCmd.post;
|
||
with Order_Sub do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
if fieldbyname('XZID').AsString='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxno,'XZ','OA_YG_XZFF',4,1)=False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
Maxno:=Order_Sub.fieldbyname('XZID').AsString;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from OA_YG_XZFF where XZID='''+Trim(Maxno)+'''');
|
||
Open;
|
||
if isempty then
|
||
begin
|
||
append;
|
||
fieldbyname('Chkstatus').asstring:='<27><><EFBFBD>ύ';
|
||
end
|
||
else
|
||
begin
|
||
edit;
|
||
fieldbyname('Chkstatus').asstring:=trim(Order_Sub.fieldbyname('Chkstatus').AsString);
|
||
end;
|
||
fieldbyname('XZID').AsString:=trim(maxno);
|
||
fieldbyname('XZMain').asstring:=trim(FXZMain);
|
||
fieldbyname('YGID').AsString:=trim(Order_Sub.fieldbyname('YGID').AsString);
|
||
fieldbyname('XHNo').Value:=Order_Sub.fieldbyname('XHNo').AsFloat;
|
||
fieldbyname('GZMoney').Value:=Order_Sub.fieldbyname('GZMoney').AsFloat;
|
||
fieldbyname('KQJMoney').Value:=Order_Sub.fieldbyname('KQJMoney').AsFloat;
|
||
fieldbyname('KCDMoney').Value:=Order_Sub.fieldbyname('KCDMoney').AsFloat;
|
||
fieldbyname('KOtherMoney').Value:=Order_Sub.fieldbyname('KOtherMoney').AsFloat;
|
||
fieldbyname('KSBMoney').Value:=Order_Sub.fieldbyname('KSBMoney').AsFloat;
|
||
fieldbyname('KGSMoney').Value:=Order_Sub.fieldbyname('KGSMoney').AsFloat;
|
||
fieldbyname('JLMoney').Value:=Order_Sub.fieldbyname('JLMoney').AsFloat;
|
||
fieldbyname('KFKMeny').Value:=Order_Sub.fieldbyname('KFKMeny').AsFloat;
|
||
fieldbyname('FFMoney').Value:=Order_Sub.fieldbyname('FFMoney').AsFloat;
|
||
fieldbyname('JKMoney').Value:=Order_Sub.fieldbyname('JKMoney').AsFloat;
|
||
fieldbyname('DXGZMoney').Value:=Order_Sub.fieldbyname('DXGZMoney').AsFloat;
|
||
RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'OA_YG_XZFF',0);
|
||
post;
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
ADOCmd.Connection.CommitTrans;
|
||
Result:=True;
|
||
except;
|
||
Result:=False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.TBSaveClick(Sender: TObject);
|
||
var
|
||
FSFNO:String;
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
if PriceUnit.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>ֲ<EFBFBD><D6B2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if FKTaiTou.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>̧ͷ<CCA7><CDB7><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if FKType.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>ʽ<EEB7BD><CABD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
//saveDataSY();
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
Modalresult:=1;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.FormDestroy(Sender: TObject);
|
||
begin
|
||
FrmYGYPInPut_YGXZDJ:=nil;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.TGZFFClick(Sender: TObject);
|
||
var FGRMoney,FGZMoney,FJBGZMoney: double;
|
||
begin
|
||
if SSYear.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if SSMonth.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>·ݲ<C2B7><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if FKType.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>ʽ<EEB7BD><CABD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if FKTaiTou.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>̧ͷ<CCA7><CDB7><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if FKDept.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
Panel3.Enabled:=False;
|
||
YGLiZhi();
|
||
//JXUPDate(); //<2F><>н<EFBFBD><D0BD><EFBFBD><EFBFBD>
|
||
//NXZZDate(); //<2F><>н<EFBFBD><D0BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
if Order_Sub.IsEmpty then
|
||
FXHNO:=1;
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.*,MBMoney=cast(0 as decimal(18,2)) ');
|
||
sql.Add(',XHXJMoneyM=(select Sum(C.money) from GZList C where C.YGName=A.YGName and Year(C.CRTime)='''+trim(SSYear.Text)+''' ');
|
||
sql.Add(' and Month(C.CRTime)='''+trim(SSMonth.Text)+''') ');
|
||
sql.Add('from OA_YG_XZFF A ');
|
||
sql.add('inner join OA_YG_XZFF_Main B on B.XZMain=A.XZMain ');
|
||
sql.add('where A.FKSYSTEM='''+trim(FKTaiTou.Text)+''' ');
|
||
sql.add('and isnull(A.FKType,'''')='''+trim(FKType.Text)+''' ');
|
||
sql.add('and isnull(B.FKDept,'''')='''+trim(FKDept.Text)+''' ');
|
||
if trim(SSMonth.Text)='1' then
|
||
begin
|
||
sql.add('and B.SSYear='''+trim(floattostr(strtofloat(SSYear.Text)-1))+''' ');
|
||
sql.add('and B.SSMonth=''12'' ');
|
||
end
|
||
else
|
||
begin
|
||
sql.add('and B.SSYear='''+trim(SSYear.Text)+''' ');
|
||
sql.add('and B.SSMonth='''+trim(floattostr(strtofloat(SSMonth.Text)-1))+'''');
|
||
end;
|
||
open;
|
||
end;
|
||
if ADOCmd.IsEmpty then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.* ');
|
||
sql.Add(',XHXJMoneyM=(select Sum(C.money) from GZList C where C.YGName=A.YGName and Year(C.CRTime)='''+trim(SSYear.Text)+''' ');
|
||
sql.Add(' and Month(C.CRTime)='''+trim(SSMonth.Text)+''') ');
|
||
sql.Add('from OA_YG_DangAn A ');
|
||
sql.Add('left join OA_YG_XZFF B on B.YGName=A.YGName where LiZhiFlag=0');
|
||
open;
|
||
end;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
with ADOQueryJK do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select YGName,CDFKMoney=Sum(case when DATEDIFF(mi,SYDate,convert(varchar,SBDate,8))<5 then 0 else DATEDIFF(mi,SYDate,convert(varchar,SBDate,8)) end)');
|
||
sql.Add(',QJDay=(select Sum(SQDay) from OA_YG_CLGLSW C where C.ZWName=YGName and Year(C.SQBegDate)=NDKDate and Month(C.SQBegDate)=MDKDate and C.SQType=''<27><><EFBFBD><EFBFBD>'')');
|
||
sql.Add(',CQDay=count(MTDay)+isnull((select Sum(SQDay) from OA_YG_CLGLSW C where C.ZWName=YGName and Year(C.SQBegDate)=NDKDate and Month(C.SQBegDate)=MDKDate and C.SQType=''<27><><EFBFBD><EFBFBD>''),0)');
|
||
sql.Add(' from (select A.YGName,Max(DKDate) XBDate,Min(DKDate) SBDate,convert(varchar(10),DKDate,120) MTDay,Year(DKDate) NDKDate,cast(Month(DKDate) as decimal(18,0)) MDKDate ');
|
||
sql.Add(',SYDate=(select Top 1 convert(varchar,B.SYDate,8) from OA_YG_DangAn B where B.YGName=A.YGName)');
|
||
sql.Add(',XBTime=(select Top 1 convert(varchar,B.XBTime,8)from OA_YG_DangAn B where B.YGName=A.YGName)');
|
||
sql.Add(' from OA_YG_KQ A where YGName='''+trim(ADOCmd.fieldbyname('YGName').AsString)+'''');
|
||
sql.Add(' and Year(DKDate)='''+trim(SSYear.Text)+''' and cast(Month(DKDate) as decimal(18,0))='''+trim(SSMonth.Text)+'''');
|
||
sql.Add(' group by A.YGName,convert(varchar(10),DKDate,120),Year(DKDate),cast(Month(DKDate) as decimal(18,0))) AA');
|
||
sql.Add(' group by YGName,NDKDate,MDKDate');
|
||
//ShowMessage(sql.Text);
|
||
open;
|
||
end;
|
||
with Order_Sub do
|
||
begin
|
||
append;
|
||
fieldbyname('XHNo').AsInteger:=FXHNo;
|
||
fieldbyname('YGName').Value:=trim(ADOCmd.fieldbyname('YGName').AsString);
|
||
fieldbyname('DXGZMoney').Value:=ADOCmd.fieldbyname('DXGZMoney').AsFloat;
|
||
fieldbyname('KQJMoney').Value:=ADOQueryJK.fieldbyname('QJDay').AsFloat;
|
||
fieldbyname('KSBMoney').Value:=30.5-ADOQueryJK.fieldbyname('CQDay').AsFloat-ADOQueryJK.fieldbyname('QJDay').AsFloat;
|
||
fieldbyname('KOtherMoney').Value:=ADOQueryJK.fieldbyname('CQDay').AsFloat;
|
||
fieldbyname('GLFLMoney').Value:=ADOCmd.fieldbyname('GLFLMoney').AsFloat;
|
||
fieldbyname('KGSMoney').Value:=ADOCmd.fieldbyname('KGSMoney').AsFloat;
|
||
fieldbyname('KFKMeny').Value:=ADOCmd.fieldbyname('KFKMeny').AsFloat;
|
||
fieldbyname('XHXJMoney').Value:=ADOCmd.fieldbyname('XHXJMoneyM').AsFloat;
|
||
if ADOCmd.fieldbyname('MBMoney').AsFloat=0 then
|
||
begin
|
||
fieldbyname('GZMoney').Value:=ADOCmd.fieldbyname('GZMoney').AsFloat;
|
||
fieldbyname('JBGZMoney').Value:=Format('%.0f',[ADOCmd.fieldbyname('GZMoney').AsFloat/30.5*ADOQueryJK.fieldbyname('CQDay').AsFloat]);
|
||
FGZMoney:=ADOCmd.fieldbyname('GZMoney').AsFloat;
|
||
FJBGZMoney:=StrToFloat(Format('%.0f',[ADOCmd.fieldbyname('GZMoney').AsFloat/30.5*ADOQueryJK.fieldbyname('CQDay').AsFloat]));
|
||
end
|
||
else
|
||
begin
|
||
fieldbyname('GZMoney').Value:=ADOCmd.fieldbyname('MBMoney').AsFloat;
|
||
fieldbyname('JBGZMoney').Value:=Format('%.0f',[ADOCmd.fieldbyname('MBMoney').AsFloat/30.5*ADOQueryJK.fieldbyname('CQDay').AsFloat]);
|
||
FGZMoney:=ADOCmd.fieldbyname('MBMoney').AsFloat;
|
||
FJBGZMoney:=StrToFloat(Format('%.0f',[ADOCmd.fieldbyname('MBMoney').AsFloat/30.5*ADOQueryJK.fieldbyname('CQDay').AsFloat]));
|
||
end;
|
||
fieldbyname('KCDMoney').Value:=ADOQueryJK.fieldbyname('CDFKMoney').AsFloat;
|
||
if FKDept.Text='<27>廨<EFBFBD><E5BBA8>' then
|
||
begin
|
||
if ADOCmd.fieldbyname('XHXJMoneyM').AsFloat>FGZMoney then
|
||
begin
|
||
fieldbyname('FFMoney').Value:=ADOCmd.fieldbyname('XHXJMoneyM').AsFloat;
|
||
end
|
||
else
|
||
begin
|
||
fieldbyname('FFMoney').Value:=FJBGZMoney-ADOQueryJK.fieldbyname('CDFKMoney').AsFloat;
|
||
end;
|
||
end
|
||
else
|
||
fieldbyname('FFMoney').Value:=FJBGZMoney-ADOQueryJK.fieldbyname('CDFKMoney').AsFloat;
|
||
fieldbyname('FKSYSTEM').Value:=trim(FKTaiTou.Text);
|
||
fieldbyname('XZNote').Value:=trim(ADOCmd.fieldbyname('XZNote').AsString);
|
||
fieldbyname('FKType').Value:=trim(FKType.Text);
|
||
post;
|
||
end;
|
||
FXHNo:=FXHNo+1;
|
||
next;
|
||
end;
|
||
end;
|
||
TGZFF.Enabled:=False;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.ToolButton3Click(Sender: TObject);
|
||
var i:integer;
|
||
begin
|
||
if Order_Sub.IsEmpty then
|
||
begin
|
||
FXHNo:=1;
|
||
end
|
||
else
|
||
begin
|
||
Order_Sub.Last;
|
||
FXHNo:=Order_Sub.fieldbyname('XHNo').AsInteger+1;
|
||
end;
|
||
with Order_Sub do
|
||
begin
|
||
append;
|
||
fieldbyname('XHNo').AsInteger:=FXHNo;
|
||
fieldbyname('FKSYSTEM').AsString:=trim(FKTaiTou.Text);
|
||
fieldbyname('FKType').AsString:=trim(FKType.Text);
|
||
post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.ToolButton4Click(Sender: TObject);
|
||
begin
|
||
FXHNo:=Order_Sub.fieldbyname('XHNo').AsInteger;
|
||
with ADOQueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('delete from OA_YG_XZFF where XZID='''+trim(Order_Sub.fieldbyname('XZID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
Order_Sub.Delete;
|
||
with Order_Sub do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
edit;
|
||
if fieldbyname('XHNo').AsInteger>FXHNo then
|
||
begin
|
||
fieldbyname('XHNo').AsInteger:=fieldbyname('XHNo').AsInteger-1;
|
||
end;
|
||
post;
|
||
next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.v1GZMoneyPropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
FName,mvalue:string;
|
||
begin
|
||
FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
with Order_Sub do
|
||
begin
|
||
Edit;
|
||
if Trim(mvalue)='' then
|
||
FieldByName(FName).Value:=null
|
||
else
|
||
FieldByName(FName).Value:=mvalue;
|
||
Post;
|
||
end;
|
||
with Order_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('FFMoney').Value:=FieldByName('GZMoney').AsFloat-FieldByName('KQJMoney').AsFloat-
|
||
FieldByName('KCDMoney').AsFloat-FieldByName('KOtherMoney').AsFloat-
|
||
FieldByName('KSBMoney').AsFloat-FieldByName('KGSMoney').AsFloat+
|
||
FieldByName('JLMoney').AsFloat-FieldByName('KFKMeny').AsFloat-
|
||
fieldbyname('JKMoney').AsFloat;
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.v1FKSYSTEMPropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='FKSYSTEM';
|
||
flagname:='<27><><EFBFBD><EFBFBD>̧ͷ';
|
||
if ShowModal=1 then
|
||
begin
|
||
with Order_Sub do
|
||
begin
|
||
edit;
|
||
fieldbyname('FKSYSTEM').AsString:=trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
|
||
end;
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.v1FKTypePropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='FKType';
|
||
flagname:='<27><><EFBFBD>ʽ';
|
||
if ShowModal=1 then
|
||
begin
|
||
with Order_Sub do
|
||
begin
|
||
edit;
|
||
fieldbyname('FKType').AsString:=trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
|
||
end;
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.FKTaiTouBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='FKSYSTEM';
|
||
flagname:='<27><><EFBFBD><EFBFBD>̧ͷ';
|
||
if ShowModal=1 then
|
||
begin
|
||
FKTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.PriceUnitBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='priceUnit';
|
||
flagname:='<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
PriceUnit.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.TSYGZClick(Sender: TObject);
|
||
var FXHNO: integer;
|
||
FGRMoney: double;
|
||
begin
|
||
if SSYear.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if SSMonth.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>·ݲ<C2B7><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if FKType.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>ʽ<EEB7BD><CABD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if FKTaiTou.Text='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>̧ͷ<CCA7><CDB7><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
Panel3.Enabled:=False;
|
||
FXHNO:=1;
|
||
with ADOCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from OA_YG_DangAn ');
|
||
sql.add('where LiZhiFlag=0 ');
|
||
sql.add('and FKSYSTEM='''+trim(FKTaiTou.Text)+''' ');
|
||
sql.Add('and FHType=''<27><>н<EFBFBD><D0BD>'' and ZhuanZhengDate<>'''' ');
|
||
if FKType.Text='<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
sql.add('and isnull(FKType,'''')<>''<27>ֽ<EFBFBD>'' ');
|
||
end
|
||
else
|
||
begin
|
||
sql.add('and isnull(FKType,'''')<>''<27><><EFBFBD><EFBFBD>''');
|
||
end;
|
||
open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
with Order_Sub do
|
||
begin
|
||
append;
|
||
fieldbyname('XHNo').AsInteger:=FXHNo;
|
||
fieldbyname('YGName').Value:=trim(ADOCmd.fieldbyname('YGName').AsString);
|
||
fieldbyname('XZNo').Value:=trim(ADOCmd.fieldbyname('XZNo').AsString);
|
||
fieldbyname('YGID').Value:=trim(ADOCmd.fieldbyname('YGID').AsString);
|
||
fieldbyname('FKSYSTEM').Value:=trim(ADOCmd.fieldbyname('FKSYSTEM').AsString);
|
||
fieldbyname('SYearGZMoney').Value:=ADOCmd.fieldbyname('SYearGZMoney').AsFloat;
|
||
fieldbyname('FKType').Value:=trim(FKType.Text);
|
||
if ADOCmd.FieldByName('SYearGZMoney').AsFloat<=50000 then
|
||
begin
|
||
FGRMoney:=ADOCmd.FieldByName('SYearGZMoney').AsFloat/14*2;
|
||
end
|
||
else
|
||
begin
|
||
FGRMoney:=ADOCmd.FieldByName('SYearGZMoney').AsFloat/14*0.8*2+ADOCmd.FieldByName('SYearGZMoney').AsFloat*0.2;
|
||
end;
|
||
FieldByName('GZMoney').AsFloat:=FGRMoney;
|
||
post;
|
||
end;
|
||
FXHNo:=FXHNo+1;
|
||
next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.Tv1EditKeyDown(
|
||
Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
|
||
AEdit: TcxCustomEdit; var Key: Word; Shift: TShiftState);
|
||
begin
|
||
inherited;
|
||
if Key=VK_RETURN then
|
||
begin
|
||
if Tv1.Controller.FocusedColumnIndex=Tv1.VisibleColumnCount-1 then
|
||
begin
|
||
with Tv1.DataController do
|
||
begin
|
||
if IsEof then
|
||
begin
|
||
Tv1.DataController.Append;
|
||
end else
|
||
begin
|
||
Tv1.DataController.MoveBy(1);
|
||
end;
|
||
Tv1.Controller.FocusedItemIndex:=-1;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.Tv1NavigatorButtonsButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer; var ADone: Boolean);
|
||
begin
|
||
ToolBar1.Refresh;
|
||
end;
|
||
|
||
procedure TfrmYGYPInPut_YGXZDJ.FKDeptBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='FKDept';
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
|
||
if ShowModal=1 then
|
||
begin
|
||
FKDept.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
end.
|