|
|
unit u_op_seae_web_order;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
|
|
|
dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask,
|
|
|
DBCtrls, wwdbdatetimepicker, wwdblook, u_op_sate, u_fee, u_op_card, Menus,
|
|
|
dxDBTLCl, dxGrClms, bsdbctrls, XPMenu, wwdbedit, Wwdotdot, Wwdbcomb,
|
|
|
Grids, Wwdbigrd, Wwdbgrid;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_seae_web_order = class(TForm)
|
|
|
Panel2: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
Notebook1: TNotebook;
|
|
|
t_op_seae: TADOQuery;
|
|
|
t_op_seae1: TDataSource;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
XPMenu1: TXPMenu;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label47: TLabel;
|
|
|
Label49: TLabel;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
Edit3: TEdit;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
Label52: TLabel;
|
|
|
Label54: TLabel;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
Label45: TLabel;
|
|
|
wwDBComboBox8: TwwDBComboBox;
|
|
|
wwDBDateTimePicker11: TwwDBDateTimePicker;
|
|
|
Label48: TLabel;
|
|
|
wwDBDateTimePicker13: TwwDBDateTimePicker;
|
|
|
Label50: TLabel;
|
|
|
Panel1: TPanel;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column29: TdxDBGridColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridMemoColumn;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
Label1: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
Label2: TLabel;
|
|
|
DBEdit2: TDBEdit;
|
|
|
Label4: TLabel;
|
|
|
DBEdit4: TDBEdit;
|
|
|
Label3: TLabel;
|
|
|
DBEdit3: TDBEdit;
|
|
|
Label5: TLabel;
|
|
|
DBEdit5: TDBEdit;
|
|
|
Label6: TLabel;
|
|
|
DBEdit6: TDBEdit;
|
|
|
Label7: TLabel;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
Label8: TLabel;
|
|
|
DBMemo3: TDBMemo;
|
|
|
Label9: TLabel;
|
|
|
Label10: TLabel;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
DBMemo1: TDBMemo;
|
|
|
DBMemo4: TDBMemo;
|
|
|
DBMemo5: TDBMemo;
|
|
|
Label11: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label13: TLabel;
|
|
|
DBMemo38: TDBMemo;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
DBMemo2: TDBMemo;
|
|
|
DBEdit9: TDBEdit;
|
|
|
Label16: TLabel;
|
|
|
DBEdit10: TDBEdit;
|
|
|
Label17: TLabel;
|
|
|
Label18: TLabel;
|
|
|
DBEdit11: TDBEdit;
|
|
|
Label19: TLabel;
|
|
|
DBEdit12: TDBEdit;
|
|
|
Label21: TLabel;
|
|
|
DBEdit14: TDBEdit;
|
|
|
Label22: TLabel;
|
|
|
DBEdit15: TDBEdit;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
DBEdit17: TDBEdit;
|
|
|
wwDBComboBox15: TwwDBComboBox;
|
|
|
Label20: TLabel;
|
|
|
DBEdit13: TDBEdit;
|
|
|
Label25: TLabel;
|
|
|
DBEdit16: TDBEdit;
|
|
|
Label26: TLabel;
|
|
|
DBEdit18: TDBEdit;
|
|
|
Label27: TLabel;
|
|
|
DBEdit19: TDBEdit;
|
|
|
Label28: TLabel;
|
|
|
DBEdit20: TDBEdit;
|
|
|
Label29: TLabel;
|
|
|
DBEdit21: TDBEdit;
|
|
|
Label30: TLabel;
|
|
|
DBEdit22: TDBEdit;
|
|
|
Label31: TLabel;
|
|
|
DBEdit23: TDBEdit;
|
|
|
wwDBGrid1: TwwDBGrid;
|
|
|
t_op_ctn1: TDataSource;
|
|
|
t_op_ctn: TADOQuery;
|
|
|
Label32: TLabel;
|
|
|
DBEdit24: TDBEdit;
|
|
|
DBEdit25: TDBEdit;
|
|
|
Label33: TLabel;
|
|
|
Label34: TLabel;
|
|
|
DBEdit26: TDBEdit;
|
|
|
DBEdit27: TDBEdit;
|
|
|
Label35: TLabel;
|
|
|
Label36: TLabel;
|
|
|
DBEdit28: TDBEdit;
|
|
|
DBEdit29: TDBEdit;
|
|
|
Label37: TLabel;
|
|
|
Label38: TLabel;
|
|
|
DBEdit30: TDBEdit;
|
|
|
Label39: TLabel;
|
|
|
DBEdit31: TDBEdit;
|
|
|
DBEdit32: TDBEdit;
|
|
|
Label40: TLabel;
|
|
|
Label41: TLabel;
|
|
|
DBEdit33: TDBEdit;
|
|
|
DBEdit34: TDBEdit;
|
|
|
Label42: TLabel;
|
|
|
Label43: TLabel;
|
|
|
DBEdit35: TDBEdit;
|
|
|
Label44: TLabel;
|
|
|
DBEdit36: TDBEdit;
|
|
|
t_op_seae_insert: TADOQuery;
|
|
|
t_op_seae_insert1: TDataSource;
|
|
|
t_op_ctn_insert: TADOQuery;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure Panel2Resize(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure Notebook1PageChanged(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
procedure setconcolor; //<2F><><EFBFBD>ÿؼ<C3BF><D8BC><EFBFBD><EFBFBD><EFBFBD>ɫ
|
|
|
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_seae_web_order: Tfrm_op_seae_web_order;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main,u_data_share, my_sys_function, u_sys_progress,
|
|
|
u_op_seae_apply_add, u_op_add_code, u_op_date_change, u_op_ctn,
|
|
|
u_op_seae_web_add;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.setconcolor;
|
|
|
|
|
|
begin
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
frm_op_seae_web_order.Hide;
|
|
|
frm_op_seae_web_order.ManualFloat(frm_op_seae_web_order.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_seae_web_order');
|
|
|
action:=cafree;
|
|
|
frm_op_seae_web_order:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.Panel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(Panel2.Width/12);
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڱ<EFBFBD><DAB1>ر<EFBFBD><D8B1><EFBFBD>',2,t_op_seae1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton11Click(Sender: TObject);
|
|
|
var
|
|
|
answer:TModalResult;
|
|
|
begin
|
|
|
if bsSkinButton11.Caption='<27>༭<EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
Notebook1.PageIndex:=0;
|
|
|
bsSkinButton11.Caption:='<27>༭<EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_op_seae.GetBookmark;
|
|
|
t_op_seae.Refresh;
|
|
|
t_op_seae.GotoBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
Notebook1.PageIndex:=0;
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ<C8BA><F2A1A3A1><EFBFBD>';
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=28;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//ί<>б<EFBFBD><D0B1>Ŵ<EFBFBD><C5B4><EFBFBD>
|
|
|
|
|
|
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select B.*,case B.BSSTATUS when ''Create'' then ''¼<><C2BC>'' when ''Confirm'' then ''<27><>ȷ<EFBFBD><C8B7>'' when ''Submit'' then ''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
|
|
|
t_op_seae.SQL.Add('when ''Back'' then ''<27><><EFBFBD><EFBFBD>'' else '''' end BSSTATUSREF ');
|
|
|
t_op_seae.SQL.Add(',u.EMAIL,u.TEL,u.[NAME] CUSTATTN,u.REC_BC_MAIL,CASE WHEN U.IS_ADMIN=1 THEN INFO_CLIENT ELSE (select info_client from SYS_USER where GID=U.PARENT_ID) END ί<>е<EFBFBD>λ');
|
|
|
t_op_seae.SQL.Add(' from OP_SEAE_ORDER B LEFT JOIN SYS_USER U ON (U.GID=B.USERID) where B.BSSTATUS<>''Create'' '
|
|
|
+' order by B.ETD DESC');
|
|
|
t_op_seae.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
loadreggrid(dxdbgrid1,false,caption);
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_progress.close;
|
|
|
frm_sys_progress:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,101);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton8Click(Sender: TObject);
|
|
|
VAR
|
|
|
str:widestring;
|
|
|
begin
|
|
|
|
|
|
if Edit3.text<>''then
|
|
|
str:=str+' and MBLNO like '+''''+'%'+Edit3.text+'%'+'''';
|
|
|
|
|
|
if RxDBLookupCombo2.DisplayValue<>''then
|
|
|
str:=str+' and INFO_CLIENT='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
|
|
|
if wwDBComboBox8.Value<>''then
|
|
|
str:=str+' and BSSTATUS='+''''+wwDBComboBox8.Value+'''';
|
|
|
|
|
|
if (wwDBDateTimePicker9.text<>'') OR (wwDBDateTimePicker12.text<>'') then BEGIN
|
|
|
str:=str+' ORDNO IN (SELECT RELATIVE_ID FROM OP_STATUS_LOG WHERE [STATUS]=''OrderSubmit'' ';
|
|
|
if wwDBDateTimePicker9.text<>''then
|
|
|
str:=str+' and OP_TIME>='+''''+wwDBDateTimePicker9.text+'''';
|
|
|
if wwDBDateTimePicker12.text<>''then
|
|
|
str:=str+' and OP_TIME<='+''''+wwDBDateTimePicker12.text+' 23:59:59'' ';
|
|
|
str:=str+' )';
|
|
|
END;
|
|
|
|
|
|
if wwDBDateTimePicker13.text<>''then
|
|
|
str:=str+' and ETD>='+''''+wwDBDateTimePicker13.text+'''';
|
|
|
if wwDBDateTimePicker11.text<>''then
|
|
|
str:=str+' and ETD<='+''''+wwDBDateTimePicker11.text+'''';
|
|
|
|
|
|
t_op_seae.close;
|
|
|
t_op_seae.sql.clear;
|
|
|
t_op_seae.SQL.Add('select B.*,case B.BSSTATUS when ''Create'' then ''¼<><C2BC>'' when ''Confirm'' then ''<27><>ȷ<EFBFBD><C8B7>'' when ''Submit'' then ''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
|
|
|
t_op_seae.SQL.Add('when ''Back'' then ''<27><><EFBFBD><EFBFBD>'' else '''' end BSSTATUSREF ');
|
|
|
t_op_seae.SQL.Add(',u.EMAIL,u.TEL,u.[NAME] CUSTATTN,u.REC_BC_MAIL,CASE WHEN U.IS_ADMIN=1 THEN INFO_CLIENT ELSE (select info_client from SYS_USER where GID=U.PARENT_ID) END ί<>е<EFBFBD>λ');
|
|
|
t_op_seae.SQL.Add(' from OP_SEAE_ORDER B LEFT JOIN SYS_USER U ON (U.GID=B.USERID) where B.BSSTATUS<>''Create'' ' +str
|
|
|
+' order by B.ETD DESC');
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
Edit3.text:='';
|
|
|
RxDBLookupCombo2.ClearValue;
|
|
|
wwDBDateTimePicker9.text:='';
|
|
|
wwDBDateTimePicker12.text:='';
|
|
|
wwDBDateTimePicker11.text:='';
|
|
|
wwDBDateTimePicker13.text:='';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.Notebook1PageChanged(Sender: TObject);
|
|
|
begin
|
|
|
setconcolor;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
begin
|
|
|
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD>' ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
begin
|
|
|
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_web_order.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('BSSTATUSREF').AsString<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
MessageDlg('<27><>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɶ<EFBFBD><C9B6>գ<EFBFBD>', mtConfirmation, [mbYes],0);
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_op_seae_web_add:=tfrm_op_seae_web_add.Create (self);
|
|
|
frm_op_seae_web_add.data1.Enabled:=false;
|
|
|
frm_op_seae_web_add.data1.DataSet:=t_op_seae_insert;
|
|
|
frm_op_seae_web_add.data1.Enabled:=true;
|
|
|
|
|
|
frm_op_seae_web_add.data2.Enabled:=false;
|
|
|
frm_op_seae_web_add.data2.DataSet:=t_op_seae;
|
|
|
frm_op_seae_web_add.data2.Enabled:=true;
|
|
|
|
|
|
frm_op_seae_web_add.data3.Enabled:=false;
|
|
|
frm_op_seae_web_add.data3.DataSet:=t_op_ctn_insert;
|
|
|
frm_op_seae_web_add.data3.Enabled:=true;
|
|
|
|
|
|
frm_op_seae_web_add.data4.Enabled:=false;
|
|
|
frm_op_seae_web_add.data4.DataSet:=t_op_ctn;
|
|
|
frm_op_seae_web_add.data4.Enabled:=true;
|
|
|
|
|
|
frm_op_seae_web_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_web_add.Free;
|
|
|
frm_op_seae_web_add:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|