You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2691 lines
97 KiB
Plaintext
2691 lines
97 KiB
Plaintext
{$INCLUDE t_main.inc}
|
|
|
|
unit u_op_close_select;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs,ADODB, BusinessSkinForm, bsSkinCtrls, DB, StdCtrls,inifiles,
|
|
wwdbdatetimepicker;
|
|
|
|
type
|
|
Tfrm_op_close_select = class(TForm)
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
|
|
bsSkinButton1: TbsSkinButton;
|
|
bsSkinButton5: TbsSkinButton;
|
|
yewu: TDataSource;
|
|
accept: TDataSource;
|
|
pay: TDataSource;
|
|
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
procedure select_feng_all(); //费用和业务同时封帐
|
|
procedure select_feng_op(); //业务封帐
|
|
procedure select_feng_fee(); //费用封帐
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
gdo,xdo,xetddo:smallint;
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_op_close_select: Tfrm_op_close_select;
|
|
close_select_num:integer;
|
|
|
|
implementation
|
|
|
|
uses u_main, u_op_seae_close, u_op_seai_close,
|
|
my_sys_function{$IFDEF JGCHE}{$ENDIF};
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_op_close_select.select_feng_all();
|
|
var
|
|
i,rc:integer;
|
|
can_do:boolean;
|
|
bookmark:tbookmark;
|
|
begin
|
|
case close_select_num of
|
|
1:
|
|
begin
|
|
rc:=0;
|
|
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
//根据费用状态判断
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
//会计期间的更改
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then
|
|
begin
|
|
if gdo=1 then
|
|
begin
|
|
if yewu.DataSet['开船日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['开船日期'];
|
|
end;
|
|
end
|
|
else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then
|
|
begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
{
|
|
if xdo=1 then
|
|
begin
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end;
|
|
}
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改') then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改') then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['开船日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['开船日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
end;
|
|
end;
|
|
yewu.DataSet.post;
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
end;
|
|
2:
|
|
begin
|
|
rc:=0;
|
|
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运进口业务封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'41',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['进口日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['进口日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
{
|
|
if xdo=1 then begin
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end; }
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运进口费用封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'42',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运进口业务封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'41',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['进口日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['进口日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
{if xdo=1 then begin
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end;}
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运进口费用封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'42',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
|
|
end;
|
|
3:
|
|
begin
|
|
{
|
|
rc:=0;
|
|
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['一程开航日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['一程开航日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['一程开航日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['一程开航日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
}
|
|
end;
|
|
4:
|
|
begin
|
|
{
|
|
rc:=0;
|
|
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['进口日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['进口日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['进口日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['进口日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
}
|
|
end;
|
|
{$IFDEF JGCHE}
|
|
5:
|
|
begin
|
|
rc:=0;
|
|
{
|
|
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['发车日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['发车日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['发车日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['发车日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
}
|
|
end;
|
|
{$ENDIF}
|
|
|
|
6:
|
|
begin
|
|
{
|
|
rc:=0;
|
|
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_railway_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['发车日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['发车日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
yewu.DataSet.post;
|
|
end;
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['发车日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['发车日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
}
|
|
end;
|
|
|
|
|
|
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_op_close_select.select_feng_op();
|
|
var
|
|
i:integer;
|
|
bookmark:tbookmark;
|
|
begin
|
|
case close_select_num of
|
|
1:
|
|
begin
|
|
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运出口业务封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'41',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
end;
|
|
end;
|
|
2:
|
|
begin
|
|
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运进口业务封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'41',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
end;
|
|
end;
|
|
3:
|
|
begin
|
|
{
|
|
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
yewu.DataSet.post;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
end;
|
|
}
|
|
end;
|
|
4:
|
|
begin
|
|
{
|
|
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
end;
|
|
}
|
|
end;
|
|
{$IFDEF JGCHE}
|
|
5:
|
|
begin
|
|
{
|
|
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
|
|
end;
|
|
end;
|
|
}
|
|
end;
|
|
{$ENDIF}
|
|
|
|
6:
|
|
begin
|
|
{
|
|
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_railway_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('业务状态').asstring<>'业务封帐' then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['业务状态']:='业务封帐';
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
yewu.DataSet.post;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
end;
|
|
}
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_op_close_select.select_feng_fee();
|
|
var
|
|
i,rc:integer;
|
|
can_do:boolean;
|
|
bookmark:tbookmark;
|
|
begin
|
|
case close_select_num of
|
|
1:
|
|
begin
|
|
rc:=0;
|
|
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
|
|
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改') then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['开船日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['开船日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
{if xdo=1 then begin
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end;}
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运出口费用封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'42',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['开船日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['开船日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
{if xdo=1 then begin
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end;}
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运出口费用封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'42',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
|
|
end;
|
|
2:
|
|
begin
|
|
rc:=0;
|
|
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['进口日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['进口日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
{if xdo=1 then begin
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end;}
|
|
end;
|
|
end;
|
|
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运进口费用封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'42',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['进口日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['进口日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
{if xdo=1 then begin
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end;}
|
|
end;
|
|
end;
|
|
|
|
|
|
yewu.DataSet.post;
|
|
{
|
|
Send_op_do('海运进口费用封帐,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
|
|
+',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'42',
|
|
yewu.DataSet.fieldbyname('操作员').AsString,
|
|
yewu.DataSet.fieldbyname('客服员').AsString,
|
|
yewu.DataSet.fieldbyname('揽货人').AsString);
|
|
}
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
|
|
end;
|
|
3:
|
|
begin
|
|
{
|
|
rc:=0;
|
|
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['一程开航日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['一程开航日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['一程开航日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['一程开航日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
}
|
|
end;
|
|
4:
|
|
begin
|
|
{
|
|
rc:=0;
|
|
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['进口日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['进口日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['进口日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['进口日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
}
|
|
end;
|
|
{$IFDEF JGCHE}
|
|
5:
|
|
begin
|
|
rc:=0;
|
|
{
|
|
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['发车日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['发车日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['发车日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['发车日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
}
|
|
end;
|
|
{$ENDIF}
|
|
|
|
6:
|
|
begin
|
|
{
|
|
rc:=0;
|
|
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
|
|
begin
|
|
bookmark:=yewu.dataset.GetBookmark;
|
|
try
|
|
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
|
|
begin
|
|
yewu.DataSet.GotoBookmark(pointer(frm_op_railway_close.dxdbgrid1.selectedrows[i]));
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['发车期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['发车日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=rc+1;
|
|
end;
|
|
end;
|
|
finally
|
|
TAdoQuery(yewu.DataSet).requery;
|
|
yewu.DataSet.GotoBookmark(bookmark);
|
|
end;
|
|
|
|
end
|
|
else
|
|
begin
|
|
if yewu.DataSet.fieldbyname('费用状态').asstring<>'费用封帐' then
|
|
begin
|
|
can_do:=true;
|
|
accept.DataSet.close;
|
|
accept.DataSet.open;
|
|
accept.DataSet.first;
|
|
while not accept.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (accept.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(accept.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
accept.DataSet.next;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
pay.DataSet.close;
|
|
pay.DataSet.open;
|
|
pay.DataSet.first;
|
|
while not pay.DataSet.eof do
|
|
begin
|
|
if can_do then
|
|
begin
|
|
if (pay.DataSet.FieldByName('费用状态').asstring<>'审核通过') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'部分结算') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'结算完毕') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止删除') and
|
|
(pay.DataSet.FieldByName('费用状态').asstring<>'禁止修改')then
|
|
begin
|
|
can_do:=false;
|
|
end;
|
|
end;
|
|
pay.DataSet.next;
|
|
end;
|
|
end;
|
|
if can_do then
|
|
begin
|
|
yewu.DataSet.edit;
|
|
yewu.DataSet['费用状态']:='费用封帐';
|
|
yewu.DataSet['费用封帐日期']:=Now;
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
yewu.DataSet['会计期间']:=wwDBDateTimePicker1.date;
|
|
|
|
if (gdo<>0) or (xdo<>0) then begin
|
|
if trim(yewu.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin
|
|
if gdo=1 then begin
|
|
if yewu.DataSet['发车日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['发车日期'];
|
|
end;
|
|
end else if trim(yewu.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin
|
|
if xdo=1 then
|
|
begin
|
|
if xetddo=0 then
|
|
if yewu.DataSet['录入日期']>Logininfo.endday then
|
|
yewu.DataSet['会计期间']:=yewu.DataSet['录入日期'];
|
|
end
|
|
else //0
|
|
begin
|
|
if xetddo=1 then
|
|
AmendAccDate(yewu.DataSet.name,yewu);
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
yewu.DataSet.post;
|
|
|
|
end else rc:=1;
|
|
end;
|
|
TAdoQuery(yewu.DataSet).Refresh;
|
|
end;
|
|
if rc<>0 then
|
|
MessageDlg('封帐完毕,其中有'+inttostr(rc)+'票业务没有被费用封帐,请注意！',mtWarning,[mbyes],0);
|
|
}
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_op_close_select.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_op_close_select.bsSkinButton1Click(Sender: TObject);
|
|
var
|
|
inifile1:tinifile ;
|
|
begin
|
|
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
|
|
if bsSkinCheckRadioBox4.Checked then begin
|
|
if (wwDBDateTimePicker1.text='') then
|
|
begin
|
|
showmessage('请输入新的会计期间！！');
|
|
exit;
|
|
end;
|
|
inifile1.WriteBool('other','closeusedate',true);
|
|
inifile1.WriteDate('other','closedate',wwDBDateTimePicker1.Date);
|
|
end else begin
|
|
inifile1.WriteBool('other','closeusedate',false);
|
|
|
|
end;
|
|
inifile1.free;
|
|
|
|
if bsSkinCheckRadioBox3.Checked then
|
|
begin
|
|
frm_op_close_select.select_feng_all();
|
|
close;
|
|
exit;
|
|
end;
|
|
if bsSkinCheckRadioBox1.Checked then
|
|
begin
|
|
frm_op_close_select.select_feng_op();
|
|
close;
|
|
exit;
|
|
end;
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
begin
|
|
frm_op_close_select.select_feng_fee();
|
|
close;
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_op_close_select.FormShow(Sender: TObject);
|
|
var
|
|
inifile1:tinifile ;
|
|
ab:boolean;
|
|
begin
|
|
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
|
|
ab:=inifile1.readBool('other','closeusedate',false);
|
|
bsSkinCheckRadioBox4.Checked:=ab;
|
|
if ab then
|
|
wwDBDateTimePicker1.Date:=inifile1.readDate('other','closedate',date);
|
|
inifile1.free;
|
|
|
|
gdo:=strtoint(get_parameters_value(137,'0'));
|
|
xdo:=strtoint(get_parameters_value(138,'0'));
|
|
xetddo:=strtoint(get_parameters_value(158,'0'));
|
|
end;
|
|
|
|
end.
|