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> ʽ <6F> <72> <EFBFBD> <EFBFBD> ,b.<2E> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʽ <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> ʽ
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> ʽ
data1.DataSet.FieldByName('װ<> ˷<EFBFBD> ʽ <> ˷<EFBFBD> ʽ
else
data1.DataSet.FieldByName('װ<> ˷<EFBFBD> ʽ <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> һ <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> ʽ <27> <> <EFBFBD> ѷ<EFBFBD> ʽ
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> ʽ <> <C7A9> <EFBFBD> <EFBFBD> ʽ
data1.DataSet.FieldByName('<27> <> <EFBFBD> ѷ<EFBFBD> ʽ <27> <> <EFBFBD> ѷ<EFBFBD> ʽ
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> ʽ <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> ʽ <27> ۼ<EFBFBD> ';
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.
