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 'master'
${ noResults }
DS6JIEFENG/海运业务/u_op_seae_oder_pladd.pas

671 lines
27 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

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>ʽ']:='<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.
Reference in New Issue View Git Blame Copy Permalink