hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '48f045977c'
${ noResults }
DS6JIEFENG/海运业务/u_op_seae_oder_pladd.~pas

670 lines
27 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_op_seae_oder_pladd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker, DB,
RxLookup,adodb, Mask, DBCtrlsEh,inifiles, DBCtrls;
type
Tfrm_op_seae_order_pladd = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinGroupBox1: TbsSkinGroupBox;
Label1: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
data1: TDataSource;
Label16: TLabel;
Label42: TLabel;
RxDBLookupCombo30: TRxDBLookupCombo;
Label17: TLabel;
data2: TDataSource;
data3: TDataSource;
data4: TDataSource;
data5: TDataSource;
RxDBLookupCombo1: TRxDBLookupCombo;
Label2: TLabel;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
ADOQuery1: TADOQuery;
data7: TDataSource;
Data8: TDataSource;
t_sys_employee: TADOQuery;
t_sys_employee1: TDataSource;
t_sys_employee2: TADOQuery;
t_sys_employee21: TDataSource;
RxDBLookupCombo12: TRxDBLookupCombo;
RxDBLookupCombo2: TRxDBLookupCombo;
t_sys_department: TADOQuery;
t_sys_department1: TDataSource;
procedure FormShow(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure RxDBLookupCombo14Change(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure DBComboBoxEh1DropDown(Sender: TObject);
procedure DBComboBoxEh2DropDown(Sender: TObject);
procedure DBComboBoxEh1Change(Sender: TObject);
procedure DBComboBoxEh2Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure RxDBLookupCombo30Change(Sender: TObject);
procedure RxDBLookupCombo12Enter(Sender: TObject);
procedure RxDBLookupCombo12Exit(Sender: TObject);
procedure RxDBLookupCombo1Change(Sender: TObject);
procedure RxDBLookupCombo12Change(Sender: TObject);
procedure RxDBLookupCombo2Change(Sender: TObject);
private
procedure createbs;
{ Private declarations }
public
{ Public declarations }
function GetLoadPortEdiID(Port:String): String;
function GetPortEdiID(Port:String): String;
function checkctn(aOR_ID:integer):Boolean;
end;
var
frm_op_seae_order_pladd: Tfrm_op_seae_order_pladd;
frm_op_seae_add_num:integer;
implementation
uses u_main, my_sys_function, u_data_share, u_op_seae_weituo;
{$R *.dfm}
function Tfrm_op_seae_order_pladd.GetLoadPortEdiID(Port:String): String;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select EDI<44><49><EFBFBD><EFBFBD> from t_code_loaport where Ӣ<><D3A2><EFBFBD><EFBFBD>='''+Port+'''');
Open;
if not IsEmpty then
Result:=Trim(FieldByName('EDI<44><49><EFBFBD><EFBFBD>').asstring)
else
Result:='';
end;
finally
FreeAndNil(aQuery);
end;
end;
function Tfrm_op_seae_order_pladd.GetPortEdiID(Port:String): String;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select EDI<44><49><EFBFBD><EFBFBD> from t_code_disport where Ӣ<><D3A2><EFBFBD><EFBFBD>='''+Port+'''');
Open;
if not IsEmpty then
Result:=Trim(FieldByName('EDI<44><49><EFBFBD><EFBFBD>').asstring)
else
Result:='';
end;
finally
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_op_seae_order_pladd.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_order_pladd.FormShow(Sender: TObject);
var
inifile1:Tinifile;
begin
t_sys_department.Open;
t_sys_employee.Open;
t_sys_employee2.Open;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
RxDBLookupCombo12.Value:=inifile1.ReadString('seaeorder','op','');
RxDBLookupCombo30.DisplayValue:=inifile1.ReadString('seaeorder','opdept','');
RxDBLookupCombo2.Value:=inifile1.ReadString('seaeorder','kf','');
RxDBLookupCombo1.DisplayValue:=inifile1.ReadString('seaeorder','kfdept','');
bsSkinCheckRadioBox1.Checked:=inifile1.Readbool('seaeorder','savecheck',true);
inifile1.free;
wwDBDateTimePicker1.Date:=date;
end;
function Tfrm_op_seae_order_pladd.checkctn(aOR_ID:integer):Boolean;
var
aQuery:TAdoQuery;
begin
Result:=True;
aQuery:=CreateAdoQuery;
with aQuery do
begin
close;sql.clear;
sql.Add('select a.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ as opor<6F><72><EFBFBD><EFBFBD> ,b.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ from t_opor_ctn a inner join t_code_ctn b on a.<2E><><EFBFBD><EFBFBD>=b.<2E><><EFBFBD><EFBFBD> where a.OR_ID='+inttostr(aOR_ID));
open;
end;
aQuery.First;
while not aQuery.Eof do
begin
if aQuery.FieldByName('opor<6F><72><EFBFBD><EFBFBD>').AsString<> aQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString then
begin
Result:=False;
Break;
end;
aQuery.Next;
end;
end;
procedure Tfrm_op_seae_order_pladd.bsSkinButton3Click(Sender: TObject);
var
i: Integer;
bsno,ywno:String;
aQuery:TAdoQuery;
begin
if frm_op_seae_weituo.dxdbgrid1.SelectedCount>1 then
begin
for i:=0 to frm_op_seae_weituo.dxdbgrid1.SelectedCount-1 do
begin
frm_op_seae_weituo.t_op_seae_order.GotoBookmark(pointer(frm_op_seae_weituo.dxdbgrid1.selectedrows[i]));
createbs;
end;
end else createbs;
close;
end;
procedure Tfrm_op_seae_order_pladd.RxDBLookupCombo14Change(Sender: TObject);
begin
{
if RxDBLookupCombo14.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[]) then
RxDBLookupCombo30.DisplayValue:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
}
end;
procedure Tfrm_op_seae_order_pladd.DBComboBoxEh1DropDown(Sender: TObject);
begin
{
DBComboBoxEh1.items.clear;
if RxDBLookupCombo30.DisplayValue<>'' then begin
AdoQuery1.Close;
AdoQuery1.sql.Clear;
AdoQuery1.SQL.Add('select * from t_sys_employee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo30.DisplayValue+'''');
AdoQuery1.Open;
AdoQuery1.first;
while not AdoQuery1.Eof do begin
DBComboBoxEh1.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
ADOQuery1.Next;
end;
end
else
begin
AdoQuery1.Close;
AdoQuery1.sql.Clear;
AdoQuery1.SQL.Add('select * from t_sys_employee ');
AdoQuery1.Open;
AdoQuery1.first;
while not AdoQuery1.Eof do begin
DBComboBoxEh1.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
ADOQuery1.Next;
end;
end;
}
end;
procedure Tfrm_op_seae_order_pladd.DBComboBoxEh2DropDown(Sender: TObject);
begin
{
DBComboBoxEh2.items.clear;
if RxDBLookupCombo1.DisplayValue<>'' then begin
AdoQuery1.Close;
AdoQuery1.sql.Clear;
AdoQuery1.SQL.Add('select * from t_sys_employee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo1.DisplayValue+'''');
AdoQuery1.Open;
AdoQuery1.first;
while not AdoQuery1.Eof do begin
DBComboBoxEh2.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
ADOQuery1.Next;
end;
end else begin
AdoQuery1.Close;
AdoQuery1.sql.Clear;
AdoQuery1.SQL.Add('select * from t_sys_employee ');
AdoQuery1.Open;
AdoQuery1.first;
while not AdoQuery1.Eof do begin
DBComboBoxEh2.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
ADOQuery1.Next;
end;
end;
}
end;
procedure Tfrm_op_seae_order_pladd.DBComboBoxEh1Change(Sender: TObject);
begin
// if frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',DBComboBoxEh1.Text,[]) then
// RxDBLookupCombo30.DisplayValue:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_op_seae_order_pladd.DBComboBoxEh2Change(Sender: TObject);
begin
// if frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',DBComboBoxEh2.Text,[]) then
// RxDBLookupCombo1.DisplayValue:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_op_seae_order_pladd.FormClose(Sender: TObject;
var Action: TCloseAction);
var
inifile1:Tinifile;
begin
if bsSkinCheckRadioBox1.Checked then begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteString('seaeorder','op',RxDBLookupCombo12.DisplayValue);
inifile1.WriteString('seaeorder','opdept',RxDBLookupCombo30.DisplayValue);
inifile1.WriteString('seaeorder','kf',RxDBLookupCombo2.DisplayValue);
inifile1.WriteString('seaeorder','kfdept',RxDBLookupCombo1.DisplayValue);
inifile1.Writebool('seaeorder','savecheck',bsSkinCheckRadioBox1.Checked);
inifile1.free;
end;
end;
procedure Tfrm_op_seae_order_pladd.RxDBLookupCombo30Change(Sender: TObject);
begin
if (RxDBLookupCombo30.DisplayValue<>'') then begin
t_sys_employee.Close;
t_sys_employee.sql.Clear;
t_sys_employee.SQL.Add('select * from t_sys_employee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo30.DisplayValue+'''');
t_sys_employee.Open;
end;
end;
procedure Tfrm_op_seae_order_pladd.RxDBLookupCombo12Enter(Sender: TObject);
begin
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD>'
end;
procedure Tfrm_op_seae_order_pladd.RxDBLookupCombo12Exit(Sender: TObject);
begin
// TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>'
end;
procedure Tfrm_op_seae_order_pladd.RxDBLookupCombo1Change(Sender: TObject);
begin
if (RxDBLookupCombo1.DisplayValue<>'') then begin
t_sys_employee2.Close;
t_sys_employee2.sql.Clear;
t_sys_employee2.SQL.Add('select * from t_sys_employee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo1.DisplayValue+'''');
t_sys_employee2.Open;
end;
end;
procedure Tfrm_op_seae_order_pladd.RxDBLookupCombo12Change(Sender: TObject);
begin
RxDBLookupCombo30.DisplayValue:=t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_op_seae_order_pladd.RxDBLookupCombo2Change(Sender: TObject);
begin
RxDBLookupCombo1.DisplayValue:=t_sys_employee2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_op_seae_order_pladd.createbs;
var
i: Integer;
bsno,ywno:String;
aQuery:TAdoQuery;
begin
if IsSeaeOrder(frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString) then
begin
MessageDlg('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>,<2C><>ˢ<EFBFBD>£<EFBFBD>', mtConfirmation, [mbYes],0);
exit;
end;
if (RxDBLookupCombo12.DisplayValue='') or (wwDBDateTimePicker1.text='') then begin
MessageDlg('<27><><EFBFBD><EFBFBD>Ա<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ڼ䲻<DABC><E4B2BB>Ϊ<EFBFBD>գ<EFBFBD>', mtConfirmation, [mbYes],0);
exit;
end;
if not checkctn(frm_op_seae_weituo.t_op_seae_order.fieldbyname('OR_ID').AsInteger) then
begin
ShowMessage('<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC><EFBFBD>!');
Exit;
end;
frm_main.db.BeginTrans;
try
if not data1.DataSet.Active then data1.DataSet.Open; //<2F><><EFBFBD><EFBFBD>
if not data3.DataSet.Active then data3.DataSet.Open; //
if not data4.DataSet.Active then data4.DataSet.Open;
data1.DataSet.Insert;
bsno:=get_id;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
if frm_op_seae_weituo.t_op_seae_order.FieldByName('װ<>˷<EFBFBD>ʽ').AsString<>'' then
data1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('װ<>˷<EFBFBD>ʽ').AsString
else
data1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').AsString:='<27><><EFBFBD><EFBFBD>';
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').Value:=wwDBDateTimePicker1.date;
data1.DataSet.FieldByName('<27>ܴ<EFBFBD>').AsInteger:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').AsString:=employee;
data1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=date;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').AsString:=RxDBLookupCombo12.Value;
// data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').AsString:=RxDBLookupCombo2.Value;
data1.DataSet.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=RxDBLookupCombo30.DisplayValue;
data1.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('ί<>е<EFBFBD>λ').AsString;
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',frm_op_seae_weituo.t_op_seae_order.FieldByName('ί<>е<EFBFBD>λ').AsString,[]) then
begin
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>һ').AsString:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><>ע').asstring;
end;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString;
ywno:=get_no(wwDBDateTimePicker1.date,getbsno(Logininfo.SeaExpBsNo,'SE'));
data1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=ywno;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=bsno;
data1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼').AsString:=bsno;
data1.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼').AsString:=bsno;
data1.DataSet.FieldByName('ί<>б<EFBFBD>׼').AsString:=bsno;
data1.DataSet.FieldByName('<27><><EFBFBD>ر<EFBFBD>׼').AsString:=bsno;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼').AsString:=bsno;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼').AsString:=bsno;
data1.DataSet.FieldByName('<27>Ʒѱ<C6B7>׼').AsString:='';
data1.DataSet.FieldByName('ҵ<><D2B5>״̬').AsString:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>ǰ״̬').AsString:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='¼<><C2BC>״̬';
data1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><>ͨ<EFBFBD><CDA8>';
data1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString;
data1.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD>˸<EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('װ<>۴<EFBFBD><DBB4><EFBFBD>').AsString:=GetLoadPortEdiID(trim(frm_op_seae_weituo.t_op_seae_order.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString)); //////??????
data1.DataSet.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').AsString:=get_parameters_value(20,'THREE');
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><>ͷ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><>ͷ').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
data1.DataSet.FieldByName('֪ͨ<CDA8><D6AA>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
data1.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').AsString;
data1.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
data1.DataSet.FieldByName('<27><>װ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><>װ').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString;
data1.DataSet.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
data1.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString;
data1.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=GetPortEdiID(trim(frm_op_seae_weituo.t_op_seae_order.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString));
data1.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString;
data1.DataSet.FieldByName('Ŀ<>ĵش<C4B5><D8B4><EFBFBD>').AsString:=GetPortEdiID(trim(frm_op_seae_weituo.t_op_seae_order.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString));
data1.DataSet.FieldByName('<27><>װ<EFBFBD><D7B0>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><>װ<EFBFBD><D7B0>').AsString;
data1.DataSet.FieldByName('<27><>ע').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><>ע').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>˵<EFBFBD><CBB5>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>').AsString;
data1.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString:=get_parameters_value(50,'QINGDAO,CHINA');
data1.DataSet.FieldByName('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').Value:=null;
data1.DataSet.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=null;
data1.DataSet.FieldByName('<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>').Value:=null;
data1.DataSet.FieldByName('<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>').Value:=null;
data1.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>').Value:=0;
data1.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰').Value:=0;
data1.DataSet.FieldByName('<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>').Value:=0;
data1.DataSet.FieldByName('<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>').Value:=0;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>').Value:=0;
data1.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>').Value:=0;
data1.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=null;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:='';
data1.DataSet.FieldByName('Ӧ<><D3A6>½<EFBFBD><C2BD>').Value:=0;
data1.DataSet.FieldByName('Ӧ<><D3A6>½<EFBFBD><C2BD>').Value:=0;
data1.DataSet.FieldByName('½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=0;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>ƾ֤').Value:='';
data1.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').Value:=0;
data1.DataSet.FieldByName('<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>').Value:=1;
data1.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>').Value:=0;
data1.DataSet['VGM']:=1;
data1.DataSet.FieldByName('<27><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>').Value:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>').Value;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
data1.DataSet.FieldByName('<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>').Value:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>').Value;
data1.DataSet.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').AsString;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>ϵ<EFBFBD><CFB5>').AsString:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>ϵ<EFBFBD><CFB5>').AsString;
data1.DataSet.FieldByName('Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>').AsFloat:=frm_op_seae_weituo.t_op_seae_order.FieldByName('Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>').AsFloat;
data1.DataSet.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>').AsFloat:=frm_op_seae_weituo.t_op_seae_order.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>').AsFloat;
data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
data1.DataSet.FieldByName('<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
data1.DataSet.FieldByName('<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>').Value:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>').Value;
data1.DataSet.FieldByName('<27><><EFBFBD>۸<EFBFBD><DBB8>Ѷ<EFBFBD><D1B6><EFBFBD>').Value:=frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><><EFBFBD>۸<EFBFBD><DBB8>Ѷ<EFBFBD><D1B6><EFBFBD>').Value;
data1.DataSet.FieldByName('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=frm_op_seae_weituo.t_op_seae_order.FieldByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
data1.DataSet.FieldByName('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=now;
data1.DataSet.Post;
if not data5.DataSet.IsEmpty then
begin
data5.dataset.First;
while not data5.DataSet.Eof do
begin
if (Data5.DataSet['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']<>0) then
begin
Data4.DataSet.Insert;
Data4.DataSet['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<>տͻ<D5BF>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:='<27><>';
Data4.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
Data4.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Data5.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['<27><>׼']:=Data5.DataSet['Ӧ<>ձ<EFBFBD>׼'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<>յ<EFBFBD><D5B5><EFBFBD>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>'];
Data4.DataSet['<27>ұ<EFBFBD>']:=Data5.DataSet['Ӧ<>ձұ<D5B1>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<>ջ<EFBFBD><D5BB><EFBFBD>'];
Data4.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=frm_op_seae_weituo.t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['<27><><EFBFBD>뿪Ʊ']:=0;
Data4.DataSet['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
Data4.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
Data4.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['<27>Ƿ<EFBFBD><C7B7>渶']:=0;
Data4.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
Data4.DataSet['<27><><EFBFBD>㵥λ']:='ί<>е<EFBFBD>λ';
Data4.DataSet['˳<><CBB3>']:=0;
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=bsno;
Data4.DataSet.post;
end;
if (Data5.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']<>0) then
begin
Data4.DataSet.Insert;
Data4.DataSet['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:='<27><>';
Data4.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
Data4.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Data5.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['<27><>׼']:=Data5.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD>׼'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['<27>ұ<EFBFBD>']:=Data5.DataSet['Ӧ<><D3A6><EFBFBD>ұ<EFBFBD>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=Data5.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=frm_op_seae_weituo.t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
Data4.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['<27><><EFBFBD>뿪Ʊ']:=0;
Data4.DataSet['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
Data4.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
Data4.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['<27>Ƿ<EFBFBD><C7B7>渶']:=0;
Data4.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
Data4.DataSet['<27><><EFBFBD>㵥λ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾';
Data4.DataSet['˳<><CBB3>']:=0;
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
Data4.DataSet['<27><><EFBFBD><EFBFBD>']:=bsno;
Data4.DataSet.post;
end;
data5.DataSet.Next;
end;
end;
if (frm_op_seae_weituo.t_op_seae_order.FieldByName('<27><>װ<EFBFBD><D7B0>').AsString<>'') then
begin
aQuery:=CreateAdoQuery;
try
Data3.DataSet.Close;
Data3.DataSet.Open;
with aQuery do begin
sql.Add('select * from t_opor_ctn where OR_ID='+frm_op_seae_weituo.t_op_seae_order.fieldbyname('OR_ID').AsString);
Open;First;
while not Eof do
begin
Data3.DataSet.Insert;
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['<27>ߴ<EFBFBD>']:=aQuery['<27>ߴ<EFBFBD>'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['TEU']:=aQuery['TEU'];
Data3.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['<27><>װ']:=aQuery['<27><>װ'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
Data3.DataSet['Ʒ<><C6B7>']:=aQuery['Ʒ<><C6B7>'];
Data3.DataSet['<27><>ͷ']:=aQuery['<27><>ͷ'];
Data3.DataSet['<27><>ע']:=aQuery['<27><>ע'];
Data3.DataSet['<27><><EFBFBD><EFBFBD>']:=bsno;
Data3.DataSet.post;
Next;
end;
end;
finally
freeAndNil(aQuery);
end;
end;
update_ctn(TAdoQuery(Data3.DataSet));
if (frm_op_seae_weituo.t_op_seae_order.fieldbyname('״̬').AsString='<27>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD>')
or (frm_op_seae_weituo.t_op_seae_order.fieldbyname('״̬').AsString='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
or (frm_op_seae_weituo.t_op_seae_order.fieldbyname('״̬').AsString='<27><><EFBFBD><EFBFBD><EFBFBD>ύ') then
begin
frm_op_seae_weituo.t_op_seae_order.Edit;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('״̬').AsString:='<27><><EFBFBD>ܶ<EFBFBD><DCB6><EFBFBD>';
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=ywno;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').Value:=date;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27>ύ<EFBFBD><E1BDBB>').AsString:=employee;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27>ύʱ<E1BDBB><CAB1>').Value:=date;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString:=RxDBLookupCombo12.Value;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString:=RxDBLookupCombo2.Value;
frm_op_seae_weituo.t_op_seae_order.Post;
end
else
if frm_op_seae_weituo.t_op_seae_order.fieldbyname('״̬').AsString='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
begin
frm_op_seae_weituo.t_op_seae_order.Edit;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('״̬').AsString:='<27><><EFBFBD>ܶ<EFBFBD><DCB6><EFBFBD>';
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=ywno;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27>ύ<EFBFBD><E1BDBB>').AsString:=employee;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27>ύʱ<E1BDBB><CAB1>').Value:=date;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString:=RxDBLookupCombo12.Value;
frm_op_seae_weituo.t_op_seae_order.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString:=RxDBLookupCombo2.Value;
frm_op_seae_weituo.t_op_seae_order.Post;
end;
frm_main.db.CommitTrans;
finally
if frm_main.db.InTransaction then
begin
frm_main.db.RollbackTrans;
end;
end;
end;
end.