|
|
unit u_op_seae_add;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker, DB,ADODB;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_seae_add = class(TForm)
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
|
|
|
Label1: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
data1: TDataSource;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
OpenDialog1: TOpenDialog;
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_seae_add: Tfrm_op_seae_add;
|
|
|
frm_op_seae_add_num:integer;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_op_seae, my_sys_function, u_data_share;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_op_seae_add.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_add.bsSkinButton1Click(Sender: TObject);
|
|
|
var
|
|
|
i: Integer;
|
|
|
function GetPortEdiID(Port: String): String;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select EDI´úÂë from t_code_disport where Ó¢ÎÄÃû='''+Port+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then
|
|
|
Result:=Trim(FieldByName('EDI´úÂë').asstring)
|
|
|
else
|
|
|
Result:='CNTAO';
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
begin
|
|
|
if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then
|
|
|
begin
|
|
|
data1.DataSet.append;
|
|
|
for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do
|
|
|
begin
|
|
|
data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:=
|
|
|
data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName];
|
|
|
end;
|
|
|
if bsSkinCheckRadioBox1.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox1.Caption;
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox2.Caption;
|
|
|
if bsSkinCheckRadioBox3.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox3.Caption;
|
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox4.Caption;
|
|
|
if bsSkinCheckRadioBox5.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox5.Caption;
|
|
|
if bsSkinCheckRadioBox6.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox6.Caption;
|
|
|
if bsSkinCheckRadioBox7.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox7.Caption;
|
|
|
if bsSkinCheckRadioBox8.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox8.Caption;
|
|
|
|
|
|
|
|
|
data1.DataSet['ÒµÎñ±àºÅ']:='';
|
|
|
data1.DataSet['Ö÷±àºÅ']:='';
|
|
|
data1.DataSet['񅧏']:=get_id;
|
|
|
data1.DataSet['ÏäÐÍ1']:=0;
|
|
|
data1.DataSet['ÏäÐÍ2']:=0;
|
|
|
data1.DataSet['ÏäÐÍ3']:=0;
|
|
|
data1.DataSet['ÏäÐÍ4']:=0;
|
|
|
data1.DataSet['ÏäÐÍ5']:=0;
|
|
|
data1.DataSet['ÏäÐÍ6']:=0;
|
|
|
data1.DataSet['ÏäÐÍ7']:=0;
|
|
|
data1.DataSet['ÏäÐÍ8']:=0;
|
|
|
data1.DataSet['ÏäÐÍ9']:=0;
|
|
|
data1.DataSet['ÏäÐÍ10']:=0;
|
|
|
data1.DataSet['ÆäËûÏäÐÍ']:=0;
|
|
|
data1.DataSet['ÏäTEU']:=0;
|
|
|
data1.DataSet['¼¯×°Ïä']:='';
|
|
|
data1.DataSet['ÏäÊý´óд']:='';
|
|
|
data1.DataSet['¼Æ·Ñ±ê×¼']:='';
|
|
|
data1.DataSet['±¨¹ØÈÕÆÚ']:=null;
|
|
|
data1.DataSet['±¨¹ØÔ±']:='';
|
|
|
data1.DataSet['±¨¹Øµ¥ºÅ']:='';
|
|
|
data1.DataSet['ºËÏúµ¥ºÅ']:='';
|
|
|
data1.DataSet['ÊÖ²áºÅ']:='';
|
|
|
data1.DataSet['ÊÇ·ñÍËË°']:=0;
|
|
|
data1.DataSet['ÍËË°ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÊÇ·ñͨ¹Ø']:=0;
|
|
|
data1.DataSet['ͨ¹ØÈÕÆÚ']:=null;
|
|
|
data1.DataSet['·Öµ¥Áбí']:='';
|
|
|
data1.DataSet['·¢Æ±ºÅ']:='';
|
|
|
data1.DataSet['ÉÌÆ·±àÂë']:='';
|
|
|
data1.DataSet['ÊÇ·ñÇ©µ¥']:=0;
|
|
|
data1.DataSet['ÇëÇóÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÍËË°']:=0;
|
|
|
data1.DataSet['ÊÇ·ñͨ¹Ø']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÇ©µ¥']:=0;
|
|
|
|
|
|
data1.DataSet['ÊÇ·ñ½âËø']:=0;
|
|
|
data1.DataSet['½âËøÈÕÆÚ']:=null;
|
|
|
data1.DataSet['½âËøÈË']:='';
|
|
|
data1.DataSet['Ó¦ÊÕ½ÔË']:=0;
|
|
|
data1.DataSet['Ó¦¸¶Â½ÔË']:=0;
|
|
|
data1.DataSet['½ÔËÀûÈó']:=0;
|
|
|
|
|
|
data1.DataSet['ÒµÎñ״̬']:='½ÓÊÜίÍÐ';
|
|
|
data1.DataSet['·ÑÓÃ״̬']:='¼Èë״̬';
|
|
|
data1.DataSet['Ç©µ¥·½Ê½']:='Õý±¾';
|
|
|
data1.DataSet['¼ÈëÈË']:=employee;
|
|
|
data1.DataSet['¼ÈëÈÕÆÚ']:=date;
|
|
|
data1.DataSet['²Ù×÷Ô±']:=employee;
|
|
|
data1.DataSet['±¨¹Ø²Ù×÷']:=employee;
|
|
|
data1.DataSet['±¨¼ì²Ù×÷']:=employee;
|
|
|
data1.DataSet['»á¼ÆÆÚ¼ä']:=wwDBDateTimePicker1.date;
|
|
|
data1.DataSet['ÖÜ´Î']:=WeekofYear(wwDBDateTimePicker1.date);
|
|
|
data1.DataSet['²ÆÎñ']:=0;
|
|
|
data1.DataSet['²ÆÎñƾ֤']:='';
|
|
|
|
|
|
data1.DataSet['¼þÊý°ü×°']:='';
|
|
|
data1.DataSet['»õÎïÖØÁ¿']:='';
|
|
|
data1.DataSet['»õÎï³ßÂë']:='';
|
|
|
data1.DataSet['»õÎïÃèÊö']:='';
|
|
|
data1.DataSet['·Öµ¥Áбí']:='';
|
|
|
|
|
|
data1.DataSet['±¸°¸ºÅ']:='';
|
|
|
data1.DataSet['Ô˵ֹú']:='';
|
|
|
data1.DataSet['¾³ÄÚ»õÔ´µØ']:='';
|
|
|
data1.DataSet['Åú×¼ÎĺÅ']:='';
|
|
|
data1.DataSet['³É½»·½Ê½']:='';
|
|
|
data1.DataSet['¾»ÖØ']:=0;
|
|
|
data1.DataSet['µ¥¼Û']:='';
|
|
|
data1.DataSet['×ܼÛ']:='';
|
|
|
data1.DataSet['ÉÌÆ·Ãû³Æ']:='';
|
|
|
data1.DataSet['ÊýÁ¿µ¥Î»']:='';
|
|
|
data1.DataSet['½Óµ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['±¨¼ìÈÕÆÚ']:=null;
|
|
|
data1.DataSet['±¨¼ìµ¥ºÅ']:='';
|
|
|
data1.DataSet['Ñé»õʱ¼ä']:=null;
|
|
|
data1.DataSet['ʵÑéʱ¼ä']:=null;
|
|
|
data1.DataSet['ѬÕôʱ¼ä']:=null;
|
|
|
data1.DataSet['³ö֤ʱ¼ä']:=null;
|
|
|
data1.DataSet['ʵÑéÄÚÈÝ']:='';
|
|
|
data1.DataSet['±ÒÖÆ']:='';
|
|
|
data1.DataSet['Æ´ÏäÀàÐÍ']:='ºÏƱµ¥Æ±';
|
|
|
data1.DataSet['ÒѳöºÅ']:=0;
|
|
|
data1.DataSet['ÒѶ©²Õ']:=0;
|
|
|
data1.DataSet['ÒÑ·ÅÏä']:=0;
|
|
|
data1.DataSet['Òѱ³Ïä']:=0;
|
|
|
data1.DataSet['µÚÈý·½¸¶·Ñ']:='';
|
|
|
data1.DataSet['·½°¸Ãû³Æ']:='';
|
|
|
data1.DataSet['FEE2']:=0;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
data1.DataSet.Insert;
|
|
|
if bsSkinCheckRadioBox1.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox1.Caption;
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox2.Caption;
|
|
|
if bsSkinCheckRadioBox3.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox3.Caption;
|
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox4.Caption;
|
|
|
if bsSkinCheckRadioBox5.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox5.Caption;
|
|
|
if bsSkinCheckRadioBox6.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox6.Caption;
|
|
|
if bsSkinCheckRadioBox7.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox7.Caption;
|
|
|
if bsSkinCheckRadioBox8.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox8.Caption;
|
|
|
|
|
|
data1.DataSet['»á¼ÆÆÚ¼ä']:=wwDBDateTimePicker1.date;
|
|
|
data1.DataSet['ÖÜ´Î']:=WeekofYear(wwDBDateTimePicker1.date);
|
|
|
data1.DataSet['񅧏']:=get_id;
|
|
|
data1.DataSet['¼ÈëÈË']:=employee;
|
|
|
data1.DataSet['¼ÈëÈÕÆÚ']:=date;
|
|
|
data1.DataSet['²Ù×÷Ô±']:=employee;
|
|
|
data1.DataSet['±¨¹Ø²Ù×÷']:=employee;
|
|
|
data1.DataSet['±¨¼ì²Ù×÷']:=employee;
|
|
|
data1.DataSet['º½Ïß²Ù×÷']:=employee;
|
|
|
// data1.DataSet['À¿»õÈË']:=employee;
|
|
|
data1.DataSet['¿Í·þÔ±']:=employee;
|
|
|
data1.DataSet['ÏúÊÛ²¿ÃÅ']:=department;
|
|
|
data1.DataSet['²Ù×÷²¿ÃÅ']:=department;
|
|
|
data1.DataSet['ÒµÎñÀ´Ô´']:='×ÔÀ¿»õ';
|
|
|
data1.DataSet['ÆðÔ˸Û']:=get_parameters_value(14,'QINGDAO,CHINA');
|
|
|
data1.DataSet['×°»õ¸Û']:=get_parameters_value(16,'QINGDAO,CHINA');
|
|
|
data1.DataSet['×°¸Û´úÂë']:=GetPortEdiID(data1.DataSet['×°»õ¸Û']);
|
|
|
data1.DataSet['Ìáµ¥·ÝÊý']:=get_parameters_value(20,'THREE');
|
|
|
data1.DataSet['Ç©µ¥·½Ê½']:='Õý±¾';
|
|
|
|
|
|
if copy(data1.DataSet.fieldbyname('×°ÔË·½Ê½').asstring,1,4)='Æ´Ïä'then
|
|
|
data1.DataSet['ÔËÊäÌõ¿î']:=get_parameters_value(48,'CFS-CFS')
|
|
|
else
|
|
|
data1.DataSet['ÔËÊäÌõ¿î']:=get_parameters_value(21,'CY-CY');
|
|
|
data1.DataSet['ßéÍ·']:=get_parameters_value(22,'N/M');
|
|
|
data1.DataSet['¸¶·Ñ·½Ê½']:=get_parameters_value(23,'FREIGHT PREPAID');
|
|
|
data1.DataSet['Ç©µ¥µØµã']:=get_parameters_value(49,'QINGDAO,CHINA');
|
|
|
data1.DataSet['Ô¤¸¶µØµã']:=get_parameters_value(50,'QINGDAO,CHINA');
|
|
|
data1.DataSet['ÍËË°ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['Ç©µ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÅɳµÈÕÆÚ']:=null;
|
|
|
data1.DataSet['¼Äµ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÊÇ·ñ¼Äµ¥']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÍËË°']:=0;
|
|
|
data1.DataSet['ÊÇ·ñͨ¹Ø']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÇ©µ¥']:=0;
|
|
|
data1.DataSet['ÇëÇóÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñ½âËø']:=0;
|
|
|
data1.DataSet['½âËøÈÕÆÚ']:=null;
|
|
|
data1.DataSet['½âËøÈË']:='';
|
|
|
data1.DataSet['Ó¦ÊÕ½ÔË']:=0;
|
|
|
data1.DataSet['Ó¦¸¶Â½ÔË']:=0;
|
|
|
data1.DataSet['½ÔËÀûÈó']:=0;
|
|
|
data1.DataSet['²ÆÎñ']:=0;
|
|
|
data1.DataSet['²ÆÎñƾ֤']:='';
|
|
|
data1.DataSet['Æ´ÏäÀàÐÍ']:='ºÏƱµ¥Æ±';
|
|
|
data1.DataSet['ÒѳöºÅ']:=0;
|
|
|
data1.DataSet['ÒѶ©²Õ']:=0;
|
|
|
data1.DataSet['ÒÑ·ÅÏä']:=0;
|
|
|
data1.DataSet['Òѱ³Ïä']:=0;
|
|
|
data1.DataSet['µÚÈý·½¸¶·Ñ']:='';
|
|
|
data1.DataSet['·½°¸Ãû³Æ']:='';
|
|
|
data1.DataSet['FEE2']:=0;
|
|
|
end;
|
|
|
frm_op_seae.DBEdit8.ReadOnly:=false;
|
|
|
frm_op_seae.DBEdit9.ReadOnly:=false;
|
|
|
frm_op_seae.wwDBDateTimePicker2.Enabled:=True;
|
|
|
frm_op_seae.RxDBLookupCombo1.Enabled:=True;
|
|
|
|
|
|
frm_op_seae.wwDBComboBox8.Enabled:=True;
|
|
|
|
|
|
if frm_op_seae_add_num=1 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÁбí';
|
|
|
end;
|
|
|
if frm_op_seae_add_num=2 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÖ÷Ʊ';
|
|
|
end;
|
|
|
if frm_op_seae_add_num=3 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÖ÷Ʊ';
|
|
|
frm_op_seae.t_op_seae2.Enabled:=false;
|
|
|
frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
|
|
|
frm_op_seae.t_op_seae2.Enabled:=true;
|
|
|
end;
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_add.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
wwDBDateTimePicker1.Date:=date;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_add.bsSkinButton3Click(Sender: TObject);
|
|
|
var
|
|
|
afield : variant;
|
|
|
i: Integer;
|
|
|
aQuery:TAdoQuery;
|
|
|
oldbsno,OrgBSNO:string;
|
|
|
isonlysft:Boolean;
|
|
|
begin
|
|
|
isonlysft:=false;
|
|
|
if data1.DataSet.IsEmpty then
|
|
|
begin
|
|
|
showmessage('ûÓи´ÖÆĸÌ壬²»Äܸ´ÖÆн¨£¡');
|
|
|
exit;
|
|
|
end;
|
|
|
if (get_parameters_value(511,'false')='true') then
|
|
|
isonlysft:=True;
|
|
|
|
|
|
oldbsno:=data1.DataSet.FieldByName('񅧏').AsString;
|
|
|
afield := vararraycreate([0,data1.DataSet.fieldcount-1],varvariant);
|
|
|
for i := 0 to (data1.DataSet.fieldcount-1) do
|
|
|
begin
|
|
|
afield[i] :=data1.DataSet.fields[i].value ;
|
|
|
end;
|
|
|
data1.DataSet.append;
|
|
|
for i := 0 to (data1.DataSet.fieldcount-1) do
|
|
|
begin
|
|
|
if isonlysft then begin
|
|
|
if (data1.DataSet.fields[i].FieldName='·¢»õÈË´úÂë') or (data1.DataSet.fields[i].FieldName='ÊÕ»õÈË´úÂë') or (data1.DataSet.fields[i].FieldName='֪ͨÈË´úÂë')
|
|
|
or (data1.DataSet.fields[i].FieldName='×°ÔË·½Ê½')or (data1.DataSet.fields[i].FieldName='×°¸Û´úÂë')or (data1.DataSet.fields[i].FieldName='×°»õ¸Û')
|
|
|
or (data1.DataSet.fields[i].FieldName='Ç©µ¥µØµã')or (data1.DataSet.fields[i].FieldName='Ô¤¸¶µØµã')or (data1.DataSet.fields[i].FieldName='ίÍе¥Î»')
|
|
|
or (data1.DataSet.fields[i].FieldName='²Ù×÷Ô±')or (data1.DataSet.fields[i].FieldName='º½Ïß²Ù×÷') or (data1.DataSet.fields[i].FieldName='ÔËÊ䷽ʽ')
|
|
|
or (data1.DataSet.fields[i].FieldName='·¢»õÈ˱àºÅ') or (data1.DataSet.fields[i].FieldName='¸¨Öú×Ö¶ÎÒ»')
|
|
|
or (data1.DataSet.fields[i].FieldName='EDI±¸×¢') or (data1.DataSet.fields[i].FieldName='¶©²ÕÈË˵Ã÷')
|
|
|
then
|
|
|
data1.DataSet.fields[i].value := afield[i] ;
|
|
|
end else
|
|
|
data1.DataSet.fields[i].value := afield[i] ;
|
|
|
end;
|
|
|
|
|
|
data1.DataSet['ÖÜ´Î']:=WeekofYear(wwDBDateTimePicker1.date);
|
|
|
if bsSkinCheckRadioBox1.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox1.Caption;
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox2.Caption;
|
|
|
if bsSkinCheckRadioBox3.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox3.Caption;
|
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox4.Caption;
|
|
|
if bsSkinCheckRadioBox5.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox5.Caption;
|
|
|
if bsSkinCheckRadioBox6.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox6.Caption;
|
|
|
if bsSkinCheckRadioBox7.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox7.Caption;
|
|
|
if bsSkinCheckRadioBox8.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox8.Caption;
|
|
|
data1.DataSet['ÒµÎñ±àºÅ']:='';
|
|
|
data1.DataSet['Ö÷±àºÅ']:='';
|
|
|
OrgBSNO:=get_id;
|
|
|
data1.DataSet['񅧏']:=OrgBSNO;
|
|
|
// data1.DataSet['񅧏']:=get_id;
|
|
|
data1.DataSet['ÏäÐÍ1']:=0;
|
|
|
data1.DataSet['ÏäÐÍ2']:=0;
|
|
|
data1.DataSet['ÏäÐÍ3']:=0;
|
|
|
data1.DataSet['ÏäÐÍ4']:=0;
|
|
|
data1.DataSet['ÏäÐÍ5']:=0;
|
|
|
data1.DataSet['ÏäÐÍ6']:=0;
|
|
|
data1.DataSet['ÏäÐÍ7']:=0;
|
|
|
data1.DataSet['ÏäÐÍ8']:=0;
|
|
|
data1.DataSet['ÏäÐÍ9']:=0;
|
|
|
data1.DataSet['ÏäÐÍ10']:=0;
|
|
|
data1.DataSet['ÆäËûÏäÐÍ']:=0;
|
|
|
data1.DataSet['ÏäTEU']:=0;
|
|
|
data1.DataSet['Æ´ÏäÀàÐÍ']:='ºÏƱµ¥Æ±';
|
|
|
|
|
|
//hxt HECHUAN
|
|
|
if bsSkinCheckRadioBox1.Checked then begin
|
|
|
if data1.DataSet['¼¯×°Ïä']<>null then begin
|
|
|
if Pos('R',data1.DataSet['¼¯×°Ïä'])>0 then begin
|
|
|
data1.DataSet['»õÎïÃû³Æ']:='';
|
|
|
data1.DataSet['»õÎïÃèÊö']:='';
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
data1.DataSet['¼¯×°Ïä']:='';
|
|
|
data1.DataSet['ÏäÊý´óд']:='';
|
|
|
data1.DataSet['¼Æ·Ñ±ê×¼']:='';
|
|
|
data1.DataSet['±¨¹ØÈÕÆÚ']:=null;
|
|
|
//HXT
|
|
|
data1.DataSet['ÌáÏä·µ³¡×´Ì¬']:='';
|
|
|
data1.DataSet['СƱ½Øֹʱ¼ä']:='';
|
|
|
data1.DataSet['±¨¹ØÐÐ']:='';
|
|
|
data1.DataSet['³ÐÔ˳µ¶Ó']:='';
|
|
|
data1.DataSet['±¨¹ØÔ±']:='';
|
|
|
data1.DataSet['±¨¹Øµ¥ºÅ']:='';
|
|
|
data1.DataSet['ºËÏúµ¥ºÅ']:='';
|
|
|
data1.DataSet['ÊÖ²áºÅ']:='';
|
|
|
data1.DataSet['ÊÇ·ñÍËË°']:=0;
|
|
|
data1.DataSet['ÍËË°ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÊÇ·ñͨ¹Ø']:=0;
|
|
|
data1.DataSet['ͨ¹ØÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ΣÏÕÆ··ÖÀà']:='';
|
|
|
data1.DataSet['ΣÏÕÆ·±àºÅ']:=null;
|
|
|
data1.DataSet['Àä²Øͨ·çÁ¿']:='';
|
|
|
data1.DataSet['ζȵ¥Î»']:='';
|
|
|
data1.DataSet['ÉèÖÃζÈ']:='';
|
|
|
data1.DataSet['×îµÍζÈ']:='';
|
|
|
data1.DataSet['×î¸ßζÈ']:='';
|
|
|
data1.DataSet['»õÎï±êʶ']:='';
|
|
|
data1.DataSet['¶þ³Ì¿ª´¬ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['¶þ³Ì¸Û¿Ú']:='';
|
|
|
data1.DataSet['¶þ³Ì´¬Ãû']:='';
|
|
|
data1.DataSet['¶þ³Ìº½´Î']:='';
|
|
|
data1.DataSet['ÏäºÅ·âºÅ']:='';
|
|
|
data1.DataSet['±¸×¢']:='';
|
|
|
data1.DataSet['·Öµ¥Áбí']:='';
|
|
|
data1.DataSet['·¢Æ±ºÅ']:='';
|
|
|
data1.DataSet['ÉÌÆ·±àÂë']:='';
|
|
|
data1.DataSet['ÊÇ·ñÇ©µ¥']:=0;
|
|
|
data1.DataSet['Ç©»ØÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÇëÇóÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÅɳµ']:=0;
|
|
|
data1.DataSet['ÅɳµÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÊÇ·ñ½âËø']:=0;
|
|
|
data1.DataSet['½âËøÈÕÆÚ']:=null;
|
|
|
data1.DataSet['½âËøÈË']:='';
|
|
|
data1.DataSet['Ó¦ÊÕ½ÔË']:=0;
|
|
|
data1.DataSet['Ó¦¸¶Â½ÔË']:=0;
|
|
|
data1.DataSet['½ÔËÀûÈó']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÍËË°']:=0;
|
|
|
data1.DataSet['ÊÇ·ñͨ¹Ø']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÇ©µ¥']:=0;
|
|
|
data1.DataSet['ÍËË°ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['Ç©µ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÅɳµÈÕÆÚ']:=null;
|
|
|
data1.DataSet['¼Äµ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÊÇ·ñ¼Äµ¥']:=0;
|
|
|
|
|
|
data1.DataSet['ÒµÎñ״̬']:='½ÓÊÜίÍÐ';
|
|
|
data1.DataSet['·ÑÓÃ״̬']:='¼Èë״̬';
|
|
|
data1.DataSet['¼ÈëÈË']:=employee;
|
|
|
data1.DataSet['¼ÈëÈÕÆÚ']:=date;
|
|
|
data1.DataSet['²Ù×÷Ô±']:=employee;
|
|
|
data1.DataSet['±¨¹Ø²Ù×÷']:=employee;
|
|
|
data1.DataSet['±¨¼ì²Ù×÷']:=employee;
|
|
|
data1.DataSet['º½Ïß²Ù×÷']:=employee;
|
|
|
data1.DataSet['»á¼ÆÆÚ¼ä']:=wwDBDateTimePicker1.date;
|
|
|
data1.DataSet['²ÆÎñ']:=0;
|
|
|
data1.DataSet['²ÆÎñƾ֤']:='';
|
|
|
data1.DataSet['±¸°¸ºÅ']:='';
|
|
|
data1.DataSet['Ô˵ֹú']:='';
|
|
|
data1.DataSet['¾³ÄÚ»õÔ´µØ']:='';
|
|
|
data1.DataSet['Åú×¼ÎĺÅ']:='';
|
|
|
data1.DataSet['³É½»·½Ê½']:='';
|
|
|
data1.DataSet['¾»ÖØ']:=0;
|
|
|
data1.DataSet['µ¥¼Û']:='';
|
|
|
data1.DataSet['×ܼÛ']:='';
|
|
|
data1.DataSet['ÉÌÆ·Ãû³Æ']:='';
|
|
|
data1.DataSet['ÊýÁ¿µ¥Î»']:='';
|
|
|
data1.DataSet['½Óµ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['±¨¼ìÈÕÆÚ']:=null;
|
|
|
data1.DataSet['±¨¼ìµ¥ºÅ']:='';
|
|
|
data1.DataSet['Ñé»õʱ¼ä']:=null;
|
|
|
data1.DataSet['ʵÑéʱ¼ä']:=null;
|
|
|
data1.DataSet['ѬÕôʱ¼ä']:=null;
|
|
|
data1.DataSet['³ö֤ʱ¼ä']:=null;
|
|
|
data1.DataSet['ʵÑéÄÚÈÝ']:='';
|
|
|
data1.DataSet['±ÒÖÆ']:='';
|
|
|
data1.DataSet['Æ´ÏäÀàÐÍ']:='ºÏƱµ¥Æ±';
|
|
|
data1.DataSet['ÒѳöºÅ']:=0;
|
|
|
data1.DataSet['ÒѶ©²Õ']:=0;
|
|
|
data1.DataSet['ÒÑ·ÅÏä']:=0;
|
|
|
data1.DataSet['Òѱ³Ïä']:=0;
|
|
|
data1.DataSet['·½°¸Ãû³Æ']:='';
|
|
|
data1.DataSet['FEE2']:=0;
|
|
|
|
|
|
data1.DataSet['ÒµÎñ½âËø']:=0;
|
|
|
data1.DataSet['ÒµÎñ½âËøÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÒµÎñ½âËøÈË']:='';
|
|
|
|
|
|
|
|
|
data1.DataSet['Ó¦½áÈÕÆÚ']:=null;
|
|
|
data1.DataSet['½á·ÑÀàÐÍ']:='';
|
|
|
|
|
|
data1.DataSet['¿Ûµ¥×´Ì¬']:='';
|
|
|
data1.DataSet['Ô¤µÖÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ETA']:=null;
|
|
|
data1.DataSet['ATA']:=null;
|
|
|
data1.DataSet['ETD']:=null;
|
|
|
|
|
|
|
|
|
// if data1.DataSet.FieldByName('Ç©µ¥·½Ê½').AsString='' then
|
|
|
// data1.DataSet.FieldByName('Ç©µ¥·½Ê½').AsString:='Õý±¾';
|
|
|
|
|
|
|
|
|
{
|
|
|
if data1.DataSet.FieldByName('ίÍе¥Î»').IsNull or (data1.DataSet.FieldByName('ίÍе¥Î»').AsString='') or data1.DataSet.FieldByName('À¿»õÈË').IsNull or (data1.DataSet.FieldByName('À¿»õÈË').AsString='') then begin
|
|
|
end else begin
|
|
|
if frm_data_share.t_crm_client.Locate('¿Í»§¼ò³Æ',data1.DataSet.FieldByName('ίÍе¥Î»').AsString,[]) then
|
|
|
if (Trim(frm_data_share.t_crm_client.FieldByName('¿Í»§ÐÔÖÊ').AsString)='ÆäËû') then begin
|
|
|
|
|
|
end else begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('Select distinct À¿»õÈË from t_crm_client_sales where ¿Í»§¼ò³Æ='''+data1.DataSet.FieldByName('ίÍе¥Î»').AsString+''' and À¿»õÈË='''+data1.DataSet['À¿»õÈË']+''' and ״̬=''ÉóºË'' ');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
|
|
|
end else begin
|
|
|
data1.DataSet['À¿»õÈË']:='';
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
}
|
|
|
data1.DataSet['À¿»õÈË']:='';
|
|
|
data1.DataSet['²Ù×÷Ô±']:='';
|
|
|
data1.DataSet['¿Í·þÔ±']:='';
|
|
|
|
|
|
|
|
|
if copy(data1.DataSet.fieldbyname('×°ÔË·½Ê½').asstring,1,4)='Æ´Ïä'then
|
|
|
begin
|
|
|
if not strtobool(get_parameters_value(52,'false')) then
|
|
|
begin
|
|
|
data1.DataSet['¼þÊý°ü×°']:='';
|
|
|
data1.DataSet['»õÎïÖØÁ¿']:='';
|
|
|
data1.DataSet['»õÎï³ßÂë']:='';
|
|
|
data1.DataSet['»õÎïÃèÊö']:='';
|
|
|
data1.DataSet['·Öµ¥Áбí']:='';
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if not strtobool(get_parameters_value(51,'false')) then
|
|
|
begin
|
|
|
data1.DataSet['¼þÊý°ü×°']:='';
|
|
|
data1.DataSet['»õÎïÖØÁ¿']:='';
|
|
|
data1.DataSet['»õÎï³ßÂë']:='';
|
|
|
data1.DataSet['»õÎïÃèÊö']:='';
|
|
|
data1.DataSet['·Öµ¥Áбí']:='';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
With aQuery do begin
|
|
|
|
|
|
Close;sql.clear;
|
|
|
sql.add('insert into T_OP_AMS(±àºÅ,[·¢»õÈ˹ú¼Ò´úÂë],[ÊÕ»õÈ˹ú¼Ò´úÂë],[֪ͨÈ˹ú¼Ò´úÂë],[·¢»õÈËÁªÏµµç»°],[֪ͨÈË´úÂë],[֪ͨÈËÁªÏµµç»°],[ÊÕ»õÈËÁªÏµµç»°],[·¢»õÈËÆóÒµ´úÂë],[ÊÕ»õÈËÆóÒµ´úÂë]'
|
|
|
+',[֪ͨÈËÆóÒµ´úÂë],[·¢»õÈËÓÊÏä],[ÊÕ»õÈËÓÊÏä],[֪ͨÈËÓÊÏä],·¢»õÈË´úÂë,ÊÕ»õÈË´úÂë)'
|
|
|
+'select '''+OrgBSNO+''',[·¢»õÈ˹ú¼Ò´úÂë],[ÊÕ»õÈ˹ú¼Ò´úÂë],[֪ͨÈ˹ú¼Ò´úÂë],[·¢»õÈËÁªÏµµç»°],[֪ͨÈË´úÂë],[֪ͨÈËÁªÏµµç»°],[ÊÕ»õÈËÁªÏµµç»°],[·¢»õÈËÆóÒµ´úÂë],[ÊÕ»õÈËÆóÒµ´úÂë]'
|
|
|
+',[֪ͨÈËÆóÒµ´úÂë],[·¢»õÈËÓÊÏä],[ÊÕ»õÈËÓÊÏä],[֪ͨÈËÓÊÏä],·¢»õÈË´úÂë,ÊÕ»õÈË´úÂë from T_OP_AMS where ±àºÅ='''+oldbsno+'''');
|
|
|
execsql;
|
|
|
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
|
|
|
frm_op_seae.DBEdit8.ReadOnly:=false;
|
|
|
frm_op_seae.DBEdit9.ReadOnly:=false;
|
|
|
frm_op_seae.wwDBDateTimePicker2.Enabled:=True;
|
|
|
frm_op_seae.RxDBLookupCombo1.Enabled:=True;
|
|
|
frm_op_seae.wwDBComboBox8.Enabled:=True;
|
|
|
|
|
|
|
|
|
if frm_op_seae_add_num=1 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÁбí';
|
|
|
end;
|
|
|
if frm_op_seae_add_num=2 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÖ÷Ʊ';
|
|
|
end;
|
|
|
if frm_op_seae_add_num=3 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÖ÷Ʊ';
|
|
|
frm_op_seae.t_op_seae2.Enabled:=false;
|
|
|
frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
|
|
|
frm_op_seae.t_op_seae2.Enabled:=true;
|
|
|
end;
|
|
|
frm_op_seae.bsSkinTabSheet1.Show;
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_add.bsSkinButton4Click(Sender: TObject);
|
|
|
var
|
|
|
EdiString:TStrings;
|
|
|
FileNames,bsno:String;
|
|
|
i: Integer;
|
|
|
begin
|
|
|
if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then
|
|
|
begin
|
|
|
data1.DataSet.append;
|
|
|
for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do
|
|
|
begin
|
|
|
data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:=
|
|
|
data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName];
|
|
|
end;
|
|
|
if bsSkinCheckRadioBox1.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox1.Caption;
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox2.Caption;
|
|
|
if bsSkinCheckRadioBox3.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox3.Caption;
|
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox4.Caption;
|
|
|
if bsSkinCheckRadioBox5.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox5.Caption;
|
|
|
if bsSkinCheckRadioBox6.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox6.Caption;
|
|
|
if bsSkinCheckRadioBox7.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox7.Caption;
|
|
|
if bsSkinCheckRadioBox8.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox8.Caption;
|
|
|
|
|
|
data1.DataSet['ÒµÎñ±àºÅ']:='';
|
|
|
data1.DataSet['Ö÷±àºÅ']:='';
|
|
|
data1.DataSet['񅧏']:=get_id;;
|
|
|
data1.DataSet['ÏäÐÍ1']:=0;
|
|
|
data1.DataSet['ÏäÐÍ2']:=0;
|
|
|
data1.DataSet['ÏäÐÍ3']:=0;
|
|
|
data1.DataSet['ÏäÐÍ4']:=0;
|
|
|
data1.DataSet['ÏäÐÍ5']:=0;
|
|
|
data1.DataSet['ÏäÐÍ6']:=0;
|
|
|
data1.DataSet['ÏäÐÍ7']:=0;
|
|
|
data1.DataSet['ÏäÐÍ8']:=0;
|
|
|
data1.DataSet['ÏäÐÍ9']:=0;
|
|
|
data1.DataSet['ÏäÐÍ10']:=0;
|
|
|
data1.DataSet['ÆäËûÏäÐÍ']:=0;
|
|
|
data1.DataSet['ÏäTEU']:=0;
|
|
|
data1.DataSet['¼¯×°Ïä']:='';
|
|
|
data1.DataSet['ÏäÊý´óд']:='';
|
|
|
data1.DataSet['¼Æ·Ñ±ê×¼']:='';
|
|
|
data1.DataSet['±¨¹ØÈÕÆÚ']:=null;
|
|
|
data1.DataSet['±¨¹ØÔ±']:='';
|
|
|
data1.DataSet['±¨¹Øµ¥ºÅ']:='';
|
|
|
data1.DataSet['ºËÏúµ¥ºÅ']:='';
|
|
|
data1.DataSet['ÊÖ²áºÅ']:='';
|
|
|
data1.DataSet['ÊÇ·ñÍËË°']:=0;
|
|
|
data1.DataSet['ÍËË°ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÊÇ·ñͨ¹Ø']:=0;
|
|
|
data1.DataSet['ͨ¹ØÈÕÆÚ']:=null;
|
|
|
data1.DataSet['·Öµ¥Áбí']:='';
|
|
|
data1.DataSet['·¢Æ±ºÅ']:='';
|
|
|
data1.DataSet['ÉÌÆ·±àÂë']:='';
|
|
|
data1.DataSet['ÊÇ·ñÇ©µ¥']:=0;
|
|
|
data1.DataSet['ÇëÇóÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÍËË°']:=0;
|
|
|
data1.DataSet['ÊÇ·ñͨ¹Ø']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÇ©µ¥']:=0;
|
|
|
|
|
|
data1.DataSet['ÊÇ·ñ½âËø']:=0;
|
|
|
data1.DataSet['½âËøÈÕÆÚ']:=null;
|
|
|
data1.DataSet['½âËøÈË']:='';
|
|
|
data1.DataSet['Ó¦ÊÕ½ÔË']:=0;
|
|
|
data1.DataSet['Ó¦¸¶Â½ÔË']:=0;
|
|
|
data1.DataSet['½ÔËÀûÈó']:=0;
|
|
|
|
|
|
data1.DataSet['ÒµÎñ״̬']:='½ÓÊÜίÍÐ';
|
|
|
data1.DataSet['·ÑÓÃ״̬']:='¼Èë״̬';
|
|
|
data1.DataSet['Ç©µ¥·½Ê½']:='Õý±¾';
|
|
|
data1.DataSet['¼ÈëÈË']:=employee;
|
|
|
data1.DataSet['¼ÈëÈÕÆÚ']:=date;
|
|
|
data1.DataSet['²Ù×÷Ô±']:=employee;
|
|
|
data1.DataSet['±¨¹Ø²Ù×÷']:=employee;
|
|
|
data1.DataSet['±¨¼ì²Ù×÷']:=employee;
|
|
|
data1.DataSet['»á¼ÆÆÚ¼ä']:=wwDBDateTimePicker1.date;
|
|
|
data1.DataSet['ÖÜ´Î']:=WeekofYear(wwDBDateTimePicker1.date);
|
|
|
data1.DataSet['²ÆÎñ']:=0;
|
|
|
data1.DataSet['²ÆÎñƾ֤']:='';
|
|
|
|
|
|
data1.DataSet['¼þÊý°ü×°']:='';
|
|
|
data1.DataSet['»õÎïÖØÁ¿']:='';
|
|
|
data1.DataSet['»õÎï³ßÂë']:='';
|
|
|
data1.DataSet['»õÎïÃèÊö']:='';
|
|
|
data1.DataSet['·Öµ¥Áбí']:='';
|
|
|
|
|
|
data1.DataSet['±¸°¸ºÅ']:='';
|
|
|
data1.DataSet['Ô˵ֹú']:='';
|
|
|
data1.DataSet['¾³ÄÚ»õÔ´µØ']:='';
|
|
|
data1.DataSet['Åú×¼ÎĺÅ']:='';
|
|
|
data1.DataSet['³É½»·½Ê½']:='';
|
|
|
data1.DataSet['¾»ÖØ']:=0;
|
|
|
data1.DataSet['µ¥¼Û']:='';
|
|
|
data1.DataSet['×ܼÛ']:='';
|
|
|
data1.DataSet['ÉÌÆ·Ãû³Æ']:='';
|
|
|
data1.DataSet['ÊýÁ¿µ¥Î»']:='';
|
|
|
data1.DataSet['½Óµ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['±¨¼ìÈÕÆÚ']:=null;
|
|
|
data1.DataSet['±¨¼ìµ¥ºÅ']:='';
|
|
|
data1.DataSet['Ñé»õʱ¼ä']:=null;
|
|
|
data1.DataSet['ʵÑéʱ¼ä']:=null;
|
|
|
data1.DataSet['ѬÕôʱ¼ä']:=null;
|
|
|
data1.DataSet['³ö֤ʱ¼ä']:=null;
|
|
|
data1.DataSet['ʵÑéÄÚÈÝ']:='';
|
|
|
data1.DataSet['±ÒÖÆ']:='';
|
|
|
data1.DataSet['Æ´ÏäÀàÐÍ']:='ºÏƱµ¥Æ±';
|
|
|
data1.DataSet['ÒѳöºÅ']:=0;
|
|
|
data1.DataSet['ÒѶ©²Õ']:=0;
|
|
|
data1.DataSet['ÒÑ·ÅÏä']:=0;
|
|
|
data1.DataSet['Òѱ³Ïä']:=0;
|
|
|
data1.DataSet['µÚÈý·½¸¶·Ñ']:='';
|
|
|
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
data1.DataSet.Insert;
|
|
|
if bsSkinCheckRadioBox1.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox1.Caption;
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox2.Caption;
|
|
|
if bsSkinCheckRadioBox3.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox3.Caption;
|
|
|
if bsSkinCheckRadioBox4.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox4.Caption;
|
|
|
if bsSkinCheckRadioBox5.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox5.Caption;
|
|
|
if bsSkinCheckRadioBox6.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox6.Caption;
|
|
|
if bsSkinCheckRadioBox7.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox7.Caption;
|
|
|
if bsSkinCheckRadioBox8.Checked then
|
|
|
data1.DataSet['×°ÔË·½Ê½']:=bsSkinCheckRadioBox8.Caption;
|
|
|
|
|
|
data1.DataSet['񅧏']:=get_id;;
|
|
|
data1.DataSet['»á¼ÆÆÚ¼ä']:=wwDBDateTimePicker1.date;
|
|
|
data1.DataSet['ÖÜ´Î']:=WeekofYear(wwDBDateTimePicker1.date);
|
|
|
data1.DataSet['¼ÈëÈË']:=employee;
|
|
|
data1.DataSet['¼ÈëÈÕÆÚ']:=date;
|
|
|
data1.DataSet['²Ù×÷Ô±']:=employee;
|
|
|
data1.DataSet['±¨¹Ø²Ù×÷']:=employee;
|
|
|
data1.DataSet['±¨¼ì²Ù×÷']:=employee;
|
|
|
data1.DataSet['º½Ïß²Ù×÷']:=employee;
|
|
|
// data1.DataSet['À¿»õÈË']:=employee;
|
|
|
data1.DataSet['¿Í·þÔ±']:=employee;
|
|
|
data1.DataSet['ÏúÊÛ²¿ÃÅ']:=department;
|
|
|
data1.DataSet['²Ù×÷²¿ÃÅ']:=department;
|
|
|
data1.DataSet['ÒµÎñÀ´Ô´']:='×ÔÀ¿»õ';
|
|
|
data1.DataSet['ÆðÔ˸Û']:=get_parameters_value(14,'QINGDAO,CHINA');
|
|
|
data1.DataSet['×°¸Û´úÂë']:='CNTAO';
|
|
|
data1.DataSet['×°»õ¸Û']:=get_parameters_value(16,'QINGDAO,CHINA');
|
|
|
data1.DataSet['Ìáµ¥·ÝÊý']:=get_parameters_value(20,'THREE');
|
|
|
data1.DataSet['Ç©µ¥·½Ê½']:='Õý±¾';
|
|
|
|
|
|
if copy(data1.DataSet.fieldbyname('×°ÔË·½Ê½').asstring,1,4)='Æ´Ïä'then
|
|
|
data1.DataSet['ÔËÊäÌõ¿î']:=get_parameters_value(48,'CFS-CFS')
|
|
|
else
|
|
|
data1.DataSet['ÔËÊäÌõ¿î']:=get_parameters_value(21,'CY-CY');
|
|
|
data1.DataSet['ßéÍ·']:=get_parameters_value(22,'N/M');
|
|
|
data1.DataSet['¸¶·Ñ·½Ê½']:=get_parameters_value(23,'FREIGHT PREPAID');
|
|
|
data1.DataSet['Ç©µ¥µØµã']:=get_parameters_value(49,'QINGDAO,CHINA');
|
|
|
data1.DataSet['Ô¤¸¶µØµã']:=get_parameters_value(50,'QINGDAO,CHINA');
|
|
|
data1.DataSet['ÍËË°ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['Ç©µ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÅɳµÈÕÆÚ']:=null;
|
|
|
data1.DataSet['¼Äµ¥ÈÕÆÚ']:=null;
|
|
|
data1.DataSet['ÊÇ·ñ¼Äµ¥']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÍËË°']:=0;
|
|
|
data1.DataSet['ÊÇ·ñͨ¹Ø']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÇ©µ¥']:=0;
|
|
|
data1.DataSet['ÇëÇóÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñÅɳµ']:=0;
|
|
|
data1.DataSet['ÊÇ·ñ½âËø']:=0;
|
|
|
data1.DataSet['½âËøÈÕÆÚ']:=null;
|
|
|
data1.DataSet['½âËøÈË']:='';
|
|
|
data1.DataSet['Ó¦ÊÕ½ÔË']:=0;
|
|
|
data1.DataSet['Ó¦¸¶Â½ÔË']:=0;
|
|
|
data1.DataSet['½ÔËÀûÈó']:=0;
|
|
|
data1.DataSet['²ÆÎñ']:=0;
|
|
|
data1.DataSet['²ÆÎñƾ֤']:='';
|
|
|
data1.DataSet['Æ´ÏäÀàÐÍ']:='ºÏƱµ¥Æ±';
|
|
|
data1.DataSet['ÒѳöºÅ']:=0;
|
|
|
data1.DataSet['ÒѶ©²Õ']:=0;
|
|
|
data1.DataSet['ÒÑ·ÅÏä']:=0;
|
|
|
data1.DataSet['Òѱ³Ïä']:=0;
|
|
|
data1.DataSet['µÚÈý·½¸¶·Ñ']:='';
|
|
|
end;
|
|
|
|
|
|
EdiString:=TStringList.Create;
|
|
|
try
|
|
|
OpenDialog1.Execute;
|
|
|
FileNames:=OpenDialog1.FileName;
|
|
|
if FileNames<>'' then begin
|
|
|
EdiString.LoadFromFile(FileNames);
|
|
|
NewEdiSEAE(EdiString,data1,wwDBDateTimePicker1.date,true);
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(EdiString);
|
|
|
end;
|
|
|
frm_op_seae.DBEdit8.ReadOnly:=false;
|
|
|
frm_op_seae.DBEdit9.ReadOnly:=false;
|
|
|
frm_op_seae.wwDBDateTimePicker2.Enabled:=True;
|
|
|
frm_op_seae.RxDBLookupCombo1.Enabled:=True;
|
|
|
frm_op_seae.wwDBComboBox8.Enabled:=True;
|
|
|
|
|
|
|
|
|
if frm_op_seae_add_num=1 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÁбí';
|
|
|
end;
|
|
|
if frm_op_seae_add_num=2 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÖ÷Ʊ';
|
|
|
end;
|
|
|
if frm_op_seae_add_num=3 then
|
|
|
begin
|
|
|
frm_op_seae.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae.bsSkinButton11.Caption:='·µ»ØÖ÷Ʊ';
|
|
|
frm_op_seae.t_op_seae2.Enabled:=false;
|
|
|
frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
|
|
|
frm_op_seae.t_op_seae2.Enabled:=true;
|
|
|
end;
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
end.
|