hanxuntao
/
D6HECHUAN
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 '1e33b63851'
${ noResults }
D6HECHUAN/海运业务/u_op_seae_add.~pas

832 lines
28 KiB
Plaintext
Raw 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_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['×°¸Û´úÂë']:='CNTAO';
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['ÊÇ·ñÍËË°']:=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.
Reference in New Issue View Git Blame Copy Permalink