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 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_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.
Reference in New Issue View Git Blame Copy Permalink