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

577 lines
17 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_op_seae_mscbc;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, iWebPDFEditorLib_TLB, ExtCtrls,
Buttons, DB, ADODB, bsSkinCtrls, DBCtrls, bsdbctrls, StdCtrls, RxLookup,
wwdbedit, Wwdotdot, Wwdbcomb, wwdbdatetimepicker, Mask, wwdblook,
ComCtrls, bsSkinTabs, Wwdbigrd, Wwdbgrid, Grids, DBGridEh, cxControls,
cxSplitter, Menus, ToolWin, ImgList, kbmMemTable,shellapi,
IdAttachmentFile,IdText, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdMessageClient, IdSMTPBase, IdSMTP,IdMessage,IdAttachment, RXSplit,
dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, SHDocVw;
type
TfrmOpSeae_mscbc = class(TForm)
pnl1: TPanel;
qry_op_seae: TADOQuery;
ds_op_seae2: TDataSource;
lbl38: TLabel;
lbl39: TLabel;
lbl40: TLabel;
lbl41: TLabel;
lbl42: TLabel;
lbl43: TLabel;
lbl44: TLabel;
lbl45: TLabel;
lbl47: TLabel;
lbl48: TLabel;
dbtxt1: TDBText;
btn5: TbsSkinSpeedButton;
lbl50: TLabel;
bsknpnl1: TbsSkinPanel;
lbldc: TLabel;
dbedt3: TDBEdit;
dbedt4: TDBEdit;
dbedt5: TDBEdit;
dbedt6: TDBEdit;
dbedt7: TDBEdit;
dbedt8: TDBEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
dbedt9: TDBEdit;
dbedt11: TDBEdit;
dbedt12: TDBEdit;
dbedt13: TDBEdit;
scrlbx2: TScrollBox;
bsknpnl4: TbsSkinPanel;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
lbl8: TLabel;
lbl9: TLabel;
lbl10: TLabel;
lbl11: TLabel;
lbl12: TLabel;
lbl15: TLabel;
lbl16: TLabel;
lbl17: TLabel;
lbl18: TLabel;
lbl19: TLabel;
lbl20: TLabel;
lbl22: TLabel;
lbl24: TLabel;
lbl25: TLabel;
lbl30: TLabel;
lbl31: TLabel;
lbl14: TLabel;
lbl21: TLabel;
lbl23: TLabel;
lbl26: TLabel;
lbl27: TLabel;
lbl28: TLabel;
lbl29: TLabel;
lbl4: TLabel;
lbl32: TLabel;
lbl33: TLabel;
lbl34: TLabel;
lbl35: TLabel;
lbl36: TLabel;
lbl37: TLabel;
dbedt1: TDBEdit;
wdbdtmpckr1: TwwDBDateTimePicker;
wdbdtmpckr2: TwwDBDateTimePicker;
wdbdtmpckr4: TwwDBDateTimePicker;
wdbdtmpckr5: TwwDBDateTimePicker;
bskndbchckrdbx1: TbsSkinDBCheckRadioBox;
dbmmo4: TDBMemo;
dbmmo5: TDBMemo;
dbmmo6: TDBMemo;
dbmmo7: TDBMemo;
dbmmo8: TDBMemo;
dbedt2: TDBEdit;
dbmmo9: TDBMemo;
cxspltr1: TcxSplitter;
pnl4_jjx: TPanel;
bsknpnl2: TbsSkinPanel;
wdblkpcmb1: TwwDBLookupCombo;
bsknpnl3: TbsSkinPanel;
lbl52: TLabel;
dbtxtTEU: TDBText;
lbl53: TLabel;
dbtxt2: TDBText;
dbtxt3: TDBText;
lbl54: TLabel;
dbtxt4: TDBText;
lbl55: TLabel;
lbl56: TLabel;
dbtxt5: TDBText;
dbedt14: TDBEdit;
dbedt15: TDBEdit;
dbedt16: TDBEdit;
dbedt17: TDBEdit;
dbedt18: TDBEdit;
dbedt19: TDBEdit;
dbedt20: TDBEdit;
dbedt21: TDBEdit;
dbedt22: TDBEdit;
dbedt23: TDBEdit;
dbedt24: TDBEdit;
dbedt26: TDBEdit;
dbedt29: TDBEdit;
dbedt30: TDBEdit;
dbedt32: TDBEdit;
dbedt33: TDBEdit;
dbedt35: TDBEdit;
dbmmo3: TDBMemo;
lbl3: TLabel;
lbl2: TLabel;
dbmmo2: TDBMemo;
lbl1: TLabel;
dbmmo1: TDBMemo;
dbedt34: TDBEdit;
dbedt36: TDBEdit;
dbedt27: TDBEdit;
dbedt28: TDBEdit;
dbedt31: TDBEdit;
pm1_tsk_vcMenu: TPopupMenu;
mni_mniN1Confirm: TMenuItem;
mni_mniN2ConfirmAndFinish: TMenuItem;
il1: TImageList;
tlb1: TToolBar;
btn2Confirm: TToolButton;
btnCancelTask: TToolButton;
btn12: TToolButton;
wwDBGrid1: TwwDBGrid;
lbl57: TLabel;
il2_taskmenu: TImageList;
ds_op_ctn1: TDataSource;
qry_op_ctn: TADOQuery;
mailSend: TkbmMemTable;
strngfldSendStringField: TStringField;
strngfldSendField: TStringField;
strngfldSendField2: TStringField;
strngfldSendField3: TStringField;
strngfldSendField4: TStringField;
strngfldSendField5: TStringField;
strngfldSendField6: TStringField;
strngfldSendField7: TStringField;
bsknpnl2_right: TbsSkinPanel;
scrlbx1: TScrollBox;
bsknpnl6_left: TbsSkinPanel;
cxspltr2: TcxSplitter;
spl2: TSplitter;
lbl75: TLabel;
lbl79: TLabel;
dbmmo10: TDBMemo;
lbl83: TLabel;
dbedt37: TDBEdit;
WebBrowser1: TWebBrowser;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton2: TbsSkinButton;
t_op_task_fieldvalue: TADOQuery;
t_op_task_fieldvalue1: TDataSource;
bsSkinButton50: TbsSkinButton;
Label1: TLabel;
DBEdit1: TDBEdit;
procedure FormShow(Sender: TObject);
procedure btnCoseClick(Sender: TObject);
procedure btnCancelTaskClick(Sender: TObject);
procedure mniN1ConfirmClick(Sender: TObject);
procedure mni_mniN2ConfirmAndFinishClick(Sender: TObject);
procedure btn1pdfDownloadClick(Sender: TObject);
procedure cxspltr2Moved(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton50Click(Sender: TObject);
private
{ Private declarations }
m_pdfFileName:string;
m_bsno:string;
m_qryTask:TADOQuery;
procedure InitialBusiData();
procedure openpdfFile();
function sendmail( mailSendTbl: TkbmMemTable;mailtype,bsno:string;ishtml:Boolean):Boolean;
procedure InitialTDWindow();
procedure InitialCh_fee_edi_Window();
public
{ Public declarations }
public procedure InitialData( qryTask:TADOQuery; bsno1,pdfpath:string);
end;
var
frmOpSeae_mscbc: TfrmOpSeae_mscbc;
implementation
{$R *.dfm}
uses my_sys_function,u_main, u_tree_main, u_data_share, u_sys_progress,
u_op_seae_TaskContrast_TD, u_ch_fee_edi, u_op_letter;
/// <summary>
/// <20><>ʱĿ¼
/// </summary>
function GetWinTempPath: string;
var
TempDir: array[0..255] of char;
begin
GetTempPath(255, @TempDir);
Result := strPas(TempDir);
end;
procedure TfrmOpSeae_mscbc.InitialData( qryTask:TADOQuery; bsno1,pdfpath:string );
var
state,tasktype,strtmp:string;
strsql:string;
begin
m_qryTask:=qryTask;
m_bsno:=bsno1;
m_pdfFileName:=pdfpath;
tasktype:= m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
state:=m_qryTask.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString;
//״̬<D7B4><CCAC><EFBFBD><EFBFBD>
btnCancelTask.Enabled:=False;
btn2Confirm.Enabled:=False;
mni_mniN1Confirm.Visible:=false;
mni_mniN2ConfirmAndFinish.Visible:=False;
if(m_qryTask.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger<1) then
begin
btnCancelTask.Enabled:=true;
mni_mniN2ConfirmAndFinish.Visible:=true;
btn2Confirm.Enabled:=True;
if(state<>'PENDING') then
mni_mniN1Confirm.Visible:=True;
//btn1Forword.Enabled:=True;
end ;
end;
procedure TfrmOpSeae_mscbc.InitialBusiData();
var
strtmp,strtmp1:string;
begin
//ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD>Ż<EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
qry_op_seae.Close;
qry_op_seae.SQL.clear;
qry_op_seae.SQL.Add('select *,''<27><><EFBFBD><EFBFBD>'' BLTYPE from t_op_seae where <20><><EFBFBD><EFBFBD>='''+ m_bsno + '''');
qry_op_seae.open;
if (qry_op_seae.IsEmpty) then begin
qry_op_seae.Close;
qry_op_seae.SQL.clear;
qry_op_seae.SQL.Add('SELECT AS_ID <20><><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.ҵ<><D2B5>״̬,bl.<2E><><EFBFBD><EFBFBD>״̬,bl.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>,bl.<2E>ܴ<EFBFBD>,bl.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,bl.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,bl.ί<>б<EFBFBD><D0B1><EFBFBD>');
qry_op_seae.SQL.Add(',bl.װ<>˷<EFBFBD>ʽ,bl.ί<>е<EFBFBD>λ,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E>ջ<EFBFBD><D5BB><EFBFBD>,bl.֪ͨ<CDA8><D6AA>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>,bl.<2E>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>,bl.֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
qry_op_seae.SQL.Add(',bl.<2E><>վ,bl.<2E><><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>,bl.Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD>˸<EFBFBD>,bl.װ<><D7B0><EFBFBD><EFBFBD>,bl.װ<>۴<EFBFBD><DBB4><EFBFBD>,bl.ж<><D0B6><EFBFBD><EFBFBD>,bl.ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
qry_op_seae.SQL.Add(',bl.<2E><><EFBFBD≯ۿ<CCB8>,bl.<2E><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>,bl.<2E><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>,bl.Ŀ<>ĵ<EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>,bl.ǩ<><C7A9><EFBFBD><EFBFBD>ʽ,bl.ǩ<><C7A9><EFBFBD>ص<EFBFBD>,bl.ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD>ѷ<EFBFBD>ʽ');
qry_op_seae.SQL.Add(',bl.Ԥ<><D4A4><EFBFBD>ص<EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><>ͷ,bl.<2E><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>');
qry_op_seae.SQL.Add(',bl.<2E><>װ,bl.<2E><><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д,bl.<2E><><EFBFBD><EFBFBD>1,bl.<2E><><EFBFBD><EFBFBD>2,bl.<2E><><EFBFBD><EFBFBD>3,bl.<2E><><EFBFBD><EFBFBD>4,bl.<2E><><EFBFBD><EFBFBD>5,bl.<2E><><EFBFBD><EFBFBD>6,bl.<2E><><EFBFBD><EFBFBD>7,bl.<2E><><EFBFBD><EFBFBD>8,bl.<2E><><EFBFBD><EFBFBD>9');
qry_op_seae.SQL.Add(',bl.<2E><><EFBFBD><EFBFBD>10,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><>TEU,bl.<2E><>װ<EFBFBD><D7B0>,bl.¼<><C2BC><EFBFBD><EFBFBD>,bl.¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>Ա,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E>ͷ<EFBFBD>Ա,bl.<2E><><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>˾,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾');
qry_op_seae.SQL.Add(',bl.<2E><>ע,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>,bl.<2E>ֵ<EFBFBD><D6B5>б<EFBFBD>,bl.<2E>Ʒѱ<C6B7>׼,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>Ա,bl.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>,bl.<2E><>Ʊ<EFBFBD><C6B1>,bl.<2E><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>,bl.Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
qry_op_seae.SQL.Add(',bl.Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>,bl.<2E>¶ȵ<C2B6>λ,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ,bl.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
qry_op_seae.SQL.Add(',bl.Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>,bl.<2E><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD≯ۿ<CCB8>,bl.<2E><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>,bl.<2E><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>һ,bl.<2E><><EFBFBD><EFBFBD><EFBFBD>ֶζ<D6B6>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>');
qry_op_seae.SQL.Add(',bl.<2E><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>,bl.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.Ŀ<>ĵش<C4B5><D8B4><EFBFBD>,bl.<2E><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>');
qry_op_seae.SQL.Add(',bl.<2E><><EFBFBD><EFBFBD><EFBFBD>˱<EFBFBD><CBB1><EFBFBD>,bl.<2E><><EFBFBD>䷽ʽ,bl.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bl.<2E>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>,b.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.ʪ<><CAAA>,b.<2E>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>,b.<2E><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>,b.<2E>Ƿ<EFBFBD><C7B7><EFBFBD>ǩ,b.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>');
qry_op_seae.SQL.Add(',b.<2E><>Դ<EFBFBD><D4B4>ϸ,bl.EDI<44><49>ע,bl.<2E>ڶ<EFBFBD>֪ͨ<CDA8><D6AA>,''<27>ֵ<EFBFBD>'' BLTYPE FROM t_op_seae_assistant bl left join t_op_seae b on (b.<2E><><EFBFBD><EFBFBD>=bl.<2E><><EFBFBD><EFBFBD>) where AS_ID='''+ m_bsno + '''');
qry_op_seae.open;
qry_op_ctn.Close;
qry_op_ctn.SQL.Add('select * from t_op_ctn_fendan where AS_ID=:<3A><><EFBFBD><EFBFBD>');
qry_op_ctn.Open;
end else begin
qry_op_ctn.Active:=False;
qry_op_ctn.Active:=True;
end;
t_op_task_fieldvalue.Close;
t_op_task_fieldvalue.SQL.clear;
t_op_task_fieldvalue.SQL.Add('select * from t_op_task_fieldvalue where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
t_op_task_fieldvalue.open;
end;
/// <summary>
///
/// </summary>
procedure TfrmOpSeae_mscbc.openpdfFile();
begin
end;
procedure TfrmOpSeae_mscbc.FormShow(Sender: TObject);
begin
InitialBusiData();
end;
procedure TfrmOpSeae_mscbc.btnCoseClick(Sender: TObject);
begin
close();
end;
procedure TfrmOpSeae_mscbc.btnCancelTaskClick(Sender: TObject);
var
sql:string;
begin
if( Application.MessageBox(PChar('<27><>ȷʵҪֱ<D2AA>ӽ<EFBFBD><D3BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'+#13#10+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>ӹر<D3B9><D8B1><EFBFBD><EFBFBD><EFBFBD>!,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
Exit;
//
try
//** m_qryTask.Connection.BeginTrans;
m_qryTask.Edit;
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
m_qryTask.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD>';
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
m_qryTask.Post;
//
sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
sql:=Format(sql,[m_qryTask.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'<27><><EFBFBD><EFBFBD>',employee] );
m_qryTask.Connection.Execute(sql);
//** m_qryTask.Connection.CommitTrans;
m_qryTask.Requery();
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
close();
except
on e:Exception do
begin
// on except
//* m_qryTask.Connection.RollbackTrans;
m_qryTask.Cancel();
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
end;
end;
end;
/// <summary>
///
/// </summary>
procedure TfrmOpSeae_mscbc.mniN1ConfirmClick(Sender: TObject);
var
sql:string;
optype:string;
begin
//ȷ<><C8B7> ORIGINAL FTP
//if(m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='ORIGINAL') and (m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ').AsString='FTP' ) then
begin
//
optype:='PENDING';
try
//** m_qryTask.Connection.BeginTrans;
m_qryTask.Edit;
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
//m_qryTask.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:=optype;
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
m_qryTask.Post;
//
sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
sql:=Format(sql,[m_qryTask.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,optype,employee] );
m_qryTask.Connection.Execute(sql);
//** m_qryTask.Connection.CommitTrans;
m_qryTask.Requery();
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
close();
except
on e:Exception do
begin
// on except
//** m_qryTask.Connection.RollbackTrans;
m_qryTask.Cancel();
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
end;
end;
end;
end;
/// <summary>
/// ȷ<>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
/// </summary>
procedure TfrmOpSeae_mscbc.mni_mniN2ConfirmAndFinishClick(
Sender: TObject);
var
sql,strtmp:string;
mainno,bsno,filename,filetype:string;
optype:string;
isok:Boolean;
remark:string;
begin
//ȷ<><C8B7> ORIGINAL FTP
//if(m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='ORIGINAL') and (m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ').AsString='FTP' ) then
//
mainno:=m_qryTask.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString;
bsno:=m_qryTask.fieldbyname('SEA<45><41><EFBFBD><EFBFBD>').AsString;
strtmp:=m_qryTask.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
filename:=m_qryTask.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString;
remark:=m_qryTask.fieldbyname('<27><>ע').AsString;
//<2F><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD>
optype:='<27><><EFBFBD><EFBFBD>';
isok:=true;
try
if (strtmp='MSC BCL') then begin
qry_op_ctn.First;
while not qry_op_ctn.Eof do
qry_op_ctn.Delete;
qry_op_seae.Delete;
end;
//<2F>ҵ<EFBFBD>
if (isok=true) then
begin
m_qryTask.Edit;
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
m_qryTask.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:=optype;
m_qryTask.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
m_qryTask.Post;
//
sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
sql:=Format(sql,[m_qryTask.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,optype,employee] );
m_qryTask.Connection.Execute(sql);
m_qryTask.Requery();
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
close();
end ;
except
on e:Exception do
begin
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
end;
end;
//
end;
function TfrmOpSeae_mscbc.sendmail( mailSendTbl: TkbmMemTable;mailtype,bsno:string;ishtml:Boolean):Boolean;
begin
end;
procedure TfrmOpSeae_mscbc.btn1pdfDownloadClick(Sender: TObject);
begin
//
try
frm_tree_main.ConnectDownServer();
except on ex: Exception do
begin
;//s
end;
end;
openpdfFile();
end;
procedure TfrmOpSeae_mscbc.InitialTDWindow();
begin
end;
procedure TfrmOpSeae_mscbc.InitialCh_fee_edi_Window();
begin
end;
procedure TfrmOpSeae_mscbc.cxspltr2Moved(Sender: TObject);
begin
if cxspltr2.Left<200 then
begin
bsknpnl2_right.Left:=200+cxspltr2.Width;
cxspltr2.Left:=200;
end;
end;
procedure TfrmOpSeae_mscbc.bsSkinButton2Click(Sender: TObject);
var
aQuery,aQueryBl:TADOQuery;
begin
if (t_op_task_fieldvalue.IsEmpty) then begin
ShowMessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>');
exit;
end;
aQuery:=CreateAdoQuery;
aQueryBl:=CreateAdoQuery;
try
aQueryBl.Close;
aQueryBl.SQL.Clear;
aQueryBl.SQL.Add('update t_op_seae_assistant set <20><><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>=<3D><><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>');
aQuery.Close;
aQuery.SQL.Clear;
aQuery.SQL.Add('update t_op_seae set <20>ܴ<EFBFBD>=<3D>ܴ<EFBFBD>');
t_op_task_fieldvalue.First;
while not t_op_task_fieldvalue.Eof do begin
if (t_op_task_fieldvalue.FieldByName('<27>ֶ<EFBFBD>').AsString='<27><>װ<EFBFBD><D7B0>') then begin
end else begin
aQuery.SQL.Add(','+t_op_task_fieldvalue.FieldByName('<27>ֶ<EFBFBD>').AsString+'='''+t_op_task_fieldvalue.FieldByName('ֵ').AsString+'''');
aQueryBl.SQL.Add(','+t_op_task_fieldvalue.FieldByName('<27>ֶ<EFBFBD>').AsString+'='''+t_op_task_fieldvalue.FieldByName('ֵ').AsString+'''');
if (t_op_task_fieldvalue.FieldByName('<27>ֶ<EFBFBD>').AsString='<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>') then begin
aQuery.SQL.Add(',<2C><><EFBFBD><EFBFBD>=isnull((select top 1 <20><><EFBFBD><EFBFBD> from t_code_trade_msc where MSC<53><43><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ t_op_task_fieldvalue.FieldByName('ֵ').AsString +'''),<2C><><EFBFBD><EFBFBD>) ');
end;
end;
t_op_task_fieldvalue.Next;
end;
aQuery.SQL.Add(' WHERE <20><><EFBFBD><EFBFBD>='''+qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
aQueryBl.SQL.Add(' WHERE AS_ID='''+qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
aQueryBl.ExecSQL;
aQuery.ExecSQL;
finally
FreeAndNil(aQuery);
FreeAndNil(aQueryBl);
end;
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɣ<EFBFBD>');
end;
procedure TfrmOpSeae_mscbc.bsSkinButton50Click(Sender: TObject);
var
tmpfile:string;
begin
try
tmpfile:=m_qryTask.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').asstring ;
ShellExecute(Handle, nil, pchar(tmpfile), nil, nil, SW_NORMAL);
except
showmessage('<27><><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡');
end ;
end;
end.