unit u_op_letter; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,DateUtils, Dialogs, DB, ADODB, bsSkinCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, ActiveX, dxDBGrid, StdCtrls, Mask, DBCtrls, Menus, wwdbdatetimepicker, Grids,IdHTTP,superobject, DBGrids, XPMenu, RxLookup, bsdbctrls, ExtCtrls, DBCtrlsEh, bsSkinBoxCtrls,Clipbrd, kbmMemTable; type TDsThread = class(TThread) protected PostUrl:string; JSONSTR:string; ScriptPath:string; procedure Execute; override; public constructor create(mPostUrl, mJSONSTR, mScriptPath: string);virtual; destructor destroy; override; end; Tfrm_op_letter = class(TForm) t_op_letter1: TDataSource; t_op_letter_cq: TADOQuery; t_op_letter_cq1: TDataSource; t_op_letter_cz: TADOQuery; t_op_letter_cz1: TDataSource; t_op_letter_df: TADOQuery; t_op_letter_df1: TDataSource; t_op_letter_dq: TADOQuery; t_op_letter_dq1: TDataSource; t_op_letter_gg: TADOQuery; t_op_letter_gg1: TDataSource; t_op_letter_hc: TADOQuery; t_op_letter_hc1: TDataSource; t_op_letter_pc: TADOQuery; t_op_letter_pc1: TDataSource; t_op_letter_rh: TADOQuery; t_op_letter_rh1: TDataSource; t_op_letter_yj1: TDataSource; t_op_letter_yj: TADOQuery; bsSkinPanel2: TbsSkinPanel; bsSkinPanel1: TbsSkinPanel; bsSkinButton1: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinButton3: TbsSkinButton; dxDBGrid1: TdxDBGrid; dxDBGrid1Column1: TdxDBGridMaskColumn; dxDBGrid1HEAD_TO: TdxDBGridMaskColumn; dxDBGrid1Column4: TdxDBGridColumn; dxDBGrid1Column5: TdxDBGridColumn; bsSkinButton9: TbsSkinButton; bsSkinPanel3: TbsSkinPanel; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; PopupMenu1: TPopupMenu; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; DBEdit3: TDBEdit; DataSource1: TDataSource; PopupMenu2: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N20: TMenuItem; t_op_letter: TADOQuery; XPMenu1: TXPMenu; N21: TMenuItem; N22: TMenuItem; t_op_letter_hd: TADOQuery; t_op_letter_hd1: TDataSource; N23: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; bsSkinNotebook1: TbsSkinNotebook; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; DBMemo1: TDBMemo; DBMemo2: TDBMemo; DBMemo3: TDBMemo; DBMemo4: TDBMemo; DBMemo5: TDBMemo; Label8: TLabel; Label9: TLabel; DBEdit4: TDBEdit; DBMemo6: TDBMemo; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBMemo7: TDBMemo; Label14: TLabel; Label15: TLabel; DBEdit8: TDBEdit; DBMemo8: TDBMemo; Label16: TLabel; Label17: TLabel; Label18: TLabel; DBMemo9: TDBMemo; DBMemo10: TDBMemo; DBMemo11: TDBMemo; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; Label26: TLabel; Label27: TLabel; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit12: TDBEdit; DBEdit13: TDBEdit; DBEdit15: TDBEdit; DBEdit16: TDBEdit; DBMemo12: TDBMemo; wwDBDateTimePicker1: TwwDBDateTimePicker; wwDBDateTimePicker2: TwwDBDateTimePicker; Label29: TLabel; Label30: TLabel; Label31: TLabel; Label32: TLabel; Label33: TLabel; Label28: TLabel; Label34: TLabel; Label35: TLabel; Label36: TLabel; Label37: TLabel; Label38: TLabel; Label39: TLabel; Label49: TLabel; Label50: TLabel; DBEdit14: TDBEdit; DBEdit17: TDBEdit; DBEdit18: TDBEdit; DBEdit19: TDBEdit; DBEdit20: TDBEdit; DBEdit11: TDBEdit; DBEdit21: TDBEdit; DBEdit22: TDBEdit; DBEdit23: TDBEdit; DBEdit24: TDBEdit; DBEdit25: TDBEdit; DBMemo13: TDBMemo; Button1: TButton; Button2: TButton; Button3: TButton; DBEdit31: TDBEdit; DBEdit32: TDBEdit; Label40: TLabel; Label41: TLabel; Label42: TLabel; Label43: TLabel; Label44: TLabel; Label51: TLabel; DBEdit26: TDBEdit; DBEdit27: TDBEdit; DBEdit29: TDBEdit; DBMemo14: TDBMemo; Button4: TButton; DBEdit33: TDBEdit; DBComboBox1: TDBComboBox; Label45: TLabel; Label46: TLabel; DBEdit30: TDBEdit; DBMemo15: TDBMemo; Label47: TLabel; Label48: TLabel; DBMemo16: TDBMemo; DBMemo17: TDBMemo; Label52: TLabel; RxDBLookupCombo1: TRxDBLookupCombo; t_crm_client_cd: TADOQuery; t_crm_client_cd1: TDataSource; DBEdit28: TDBEdit; Label53: TLabel; DBEdit34: TDBEdit; Label54: TLabel; Label55: TLabel; DBEdit35: TDBEdit; Label56: TLabel; DBEdit36: TDBEdit; Label57: TLabel; DBMemo18: TDBMemo; Label58: TLabel; DBMemo19: TDBMemo; Label59: TLabel; DBEdit37: TDBEdit; DBMemo20: TDBMemo; Label60: TLabel; Label61: TLabel; DBMemo21: TDBMemo; Label62: TLabel; Label63: TLabel; Label64: TLabel; DBEdit38: TDBEdit; DBEdit39: TDBEdit; DBEdit40: TDBEdit; Label65: TLabel; bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox; DBEdit41: TDBEdit; Label66: TLabel; bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox; DBEdit42: TDBEdit; DBEdit43: TDBEdit; t_op_letter_bgmx: TADOQuery; t_op_letter_bgmx1: TDataSource; DBMemo22: TDBMemo; Label67: TLabel; N27: TMenuItem; N28: TMenuItem; DBEdit44: TDBEdit; Label68: TLabel; DBEdit45: TDBEdit; Label69: TLabel; Button5: TButton; DBComboBox2: TDBComboBox; N29: TMenuItem; N30: TMenuItem; bsSkinStdLabel1: TbsSkinStdLabel; bsSkinStdLabel2: TbsSkinStdLabel; bsSkinStdLabel3: TbsSkinStdLabel; bsSkinStdLabel4: TbsSkinStdLabel; bsSkinStdLabel5: TbsSkinStdLabel; bsSkinStdLabel6: TbsSkinStdLabel; bsSkinStdLabel7: TbsSkinStdLabel; bsSkinStdLabel8: TbsSkinStdLabel; bsSkinStdLabel9: TbsSkinStdLabel; bsSkinStdLabel10: TbsSkinStdLabel; bsSkinStdLabel11: TbsSkinStdLabel; bsSkinStdLabel12: TbsSkinStdLabel; bsSkinStdLabel13: TbsSkinStdLabel; bsSkinStdLabel14: TbsSkinStdLabel; bsSkinDBEdit1: TbsSkinDBEdit; bsSkinDBEdit2: TbsSkinDBEdit; bsSkinDBEdit3: TbsSkinDBEdit; bsSkinDBEdit4: TbsSkinDBEdit; bsSkinDBEdit5: TbsSkinDBEdit; bsSkinDBEdit6: TbsSkinDBEdit; bsSkinDBEdit7: TbsSkinDBEdit; bsSkinDBEdit8: TbsSkinDBEdit; bsSkinDBEdit9: TbsSkinDBEdit; bsSkinDBEdit10: TbsSkinDBEdit; bsSkinDBEdit11: TbsSkinDBEdit; bsSkinDBEdit12: TbsSkinDBEdit; bsSkinDBEdit13: TbsSkinDBEdit; bsSkinDBEdit14: TbsSkinDBEdit; bsSkinStdLabel15: TbsSkinStdLabel; bsSkinDBMemo1: TbsSkinDBMemo; t_op_railway_cnt: TADOQuery; t_op_railway_cnt1: TDataSource; Label70: TLabel; DBEdit2: TDBEdit; Label71: TLabel; DBEdit46: TDBEdit; Label72: TLabel; DBEdit47: TDBEdit; Label73: TLabel; DBEdit48: TDBEdit; Label74: TLabel; DBEdit49: TDBEdit; t_sys_op: TADOQuery; t_sys_op1: TDataSource; DataSource2: TDataSource; mailSend: TkbmMemTable; mailSendStringField: TStringField; mailSendField: TStringField; mailSendField2: TStringField; mailSendField3: TStringField; mailSendField4: TStringField; mailSendField5: TStringField; mailSendField6: TStringField; mailSendField7: TStringField; DBEdit50: TDBEdit; Button6: TButton; Label75: TLabel; Button7: TButton; procedure bsSkinButton1Click(Sender: TObject); procedure DBEdit3Change(Sender: TObject); procedure t_op_letterAfterInsert(DataSet: TDataSet); procedure N3Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure t_op_letter_yjBeforeInsert(DataSet: TDataSet); procedure t_op_letter_cqAfterInsert(DataSet: TDataSet); procedure t_op_letter_czAfterInsert(DataSet: TDataSet); procedure t_op_letter_dfAfterInsert(DataSet: TDataSet); procedure t_op_letter_dqAfterInsert(DataSet: TDataSet); procedure t_op_letter_ggAfterInsert(DataSet: TDataSet); procedure t_op_letter_hcAfterInsert(DataSet: TDataSet); procedure t_op_letter_pcAfterInsert(DataSet: TDataSet); procedure t_op_letter_rhAfterInsert(DataSet: TDataSet); procedure t_op_letter_yjAfterInsert(DataSet: TDataSet); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure t_op_letterBeforeInsert(DataSet: TDataSet); procedure N20Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinPanel1Resize(Sender: TObject); procedure N21Click(Sender: TObject); procedure t_op_letter_hdAfterInsert(DataSet: TDataSet); procedure N23Click(Sender: TObject); procedure DBEdit1KeyPress(Sender: TObject; var Key: Char); procedure DBEdit2KeyPress(Sender: TObject; var Key: Char); procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); procedure DBEdit5KeyPress(Sender: TObject; var Key: Char); procedure DBEdit6KeyPress(Sender: TObject; var Key: Char); procedure DBEdit7KeyPress(Sender: TObject; var Key: Char); procedure DBEdit8KeyPress(Sender: TObject; var Key: Char); procedure DBEdit9KeyPress(Sender: TObject; var Key: Char); procedure DBEdit10KeyPress(Sender: TObject; var Key: Char); procedure DBEdit12KeyPress(Sender: TObject; var Key: Char); procedure DBEdit13KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char); procedure DBEdit15KeyPress(Sender: TObject; var Key: Char); procedure DBEdit16KeyPress(Sender: TObject; var Key: Char); procedure DBEdit14KeyPress(Sender: TObject; var Key: Char); procedure DBEdit17KeyPress(Sender: TObject; var Key: Char); procedure DBEdit18KeyPress(Sender: TObject; var Key: Char); procedure DBEdit19KeyPress(Sender: TObject; var Key: Char); procedure DBEdit20KeyPress(Sender: TObject; var Key: Char); procedure DBEdit11KeyPress(Sender: TObject; var Key: Char); procedure DBEdit21KeyPress(Sender: TObject; var Key: Char); procedure DBEdit22KeyPress(Sender: TObject; var Key: Char); procedure DBEdit23KeyPress(Sender: TObject; var Key: Char); procedure DBEdit24KeyPress(Sender: TObject; var Key: Char); procedure DBEdit25KeyPress(Sender: TObject; var Key: Char); procedure DBEdit26KeyPress(Sender: TObject; var Key: Char); procedure DBEdit27KeyPress(Sender: TObject; var Key: Char); procedure DBEdit28KeyPress(Sender: TObject; var Key: Char); procedure DBEdit29KeyPress(Sender: TObject; var Key: Char); procedure DBEdit30KeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure DBEdit31KeyPress(Sender: TObject; var Key: Char); procedure DBEdit32KeyPress(Sender: TObject; var Key: Char); procedure dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure N26Click(Sender: TObject); procedure t_op_letterBeforeEdit(DataSet: TDataSet); procedure DBComboBox1Change(Sender: TObject); procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char); procedure DBEdit33KeyPress(Sender: TObject; var Key: Char); procedure N28Click(Sender: TObject); procedure t_op_letter_bgmxAfterInsert(DataSet: TDataSet); procedure DBComboBox2DropDown(Sender: TObject); procedure bsSkinPanel3Resize(Sender: TObject); procedure N30Click(Sender: TObject); procedure DBComboBox2Change(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); private function GetNewId():string; function getYTCode(yard:string):string; { Private declarations } public { Public declarations } bsTypeid:Integer; carrs,trucks,ships,txxp:string; function GetCorpCName(SName:string):string; end; var frm_op_letter: Tfrm_op_letter; frm_op_letter_insert:boolean; implementation uses u_main, my_sys_function, u_data_share, u_code_truck_client, u_code_truck_changzhan, u_code_send_head, u_op_letter_his; {$R *.dfm} function Tfrm_op_letter.GetCorpCName(SName:string):string; var AdoQuery:TAdoQuery; begin Result:=''; AdoQuery:=CreateAdoQuery; with AdoQuery do try Close;SQL.Clear; SQL.Add('Select 客户全称 From t_crm_Client'); SQL.Add('Where 客户简称='+''''+SName+''''); Open; if not IsEmpty then Result:=FieldByName('客户全称').AsString else Result:=''; finally FreeAndNil(AdoQuery); end; end; procedure Tfrm_op_letter.bsSkinButton1Click(Sender: TObject); var Pnt:Tpoint; begin Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height)); PopupMenu1.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_op_letter.DBEdit3Change(Sender: TObject); begin DataSource1.Enabled:=false; if t_op_letter.IsEmpty then begin bsSkinNotebook1.PageIndex:=9; end else if DBEdit3.Text='报关明细单' then begin bsSkinNotebook1.PageIndex:=11; DataSource1.Enabled:=false; DataSource1.DataSet:=t_op_letter_bgmx; end else if DBEdit3.Text='重签保函' then begin bsSkinNotebook1.PageIndex:=0; DataSource1.Enabled:=false; DataSource1.DataSet:=t_op_letter_cq; end else if DBEdit3.Text='超重保函' then begin bsSkinNotebook1.PageIndex:=1; DataSource1.DataSet:=t_op_letter_cz; end else if DBEdit3.Text='电放保函' then begin bsSkinNotebook1.PageIndex:=2; DataSource1.DataSet:=t_op_letter_df; end else if DBEdit3.Text='倒签保函' then begin bsSkinNotebook1.PageIndex:=3; DataSource1.DataSet:=t_op_letter_dq; end else if DBEdit3.Text='更改通知' then begin bsSkinNotebook1.PageIndex:=4; DataSource1.DataSet:=t_op_letter_gg; end else if DBEdit3.Text='换船通知' then begin bsSkinNotebook1.PageIndex:=5; DataSource1.DataSet:=t_op_letter_hc; end else if DBEdit3.Text='派车通知' then begin bsSkinNotebook1.PageIndex:=6; DataSource1.DataSet:=t_op_letter_pc; end else if DBEdit3.Text='入货通知' then begin bsSkinNotebook1.PageIndex:=7; DataSource1.DataSet:=t_op_letter_rh; end else if DBEdit3.Text='预借保函' then begin bsSkinNotebook1.PageIndex:=8; DataSource1.DataSet:=t_op_letter_yj; end else if DBEdit3.Text='业务函电' then begin bsSkinNotebook1.PageIndex:=10; DataSource1.DataSet:=t_op_letter_hd; end else if DBEdit3.Text='内贸派车' then begin bsSkinNotebook1.PageIndex:=12; DataSource1.DataSet:=t_op_letter_pc; end; DataSource1.Enabled:=true; end; procedure Tfrm_op_letter.t_op_letterAfterInsert(DataSet: TDataSet); begin t_op_letter['编号']:=t_op_letter.DataSource.DataSet['编号']; t_op_letter['签发人']:=employee; t_op_letter['签发日期']:=date; //ShowMessage(N3.Caption); t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('委托单位').asstring); frm_op_letter_insert:=false; end; procedure Tfrm_op_letter.N3Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N3.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('承运车队').asstring); t_op_letter.Post; t_op_letter_pc.insert; end; procedure Tfrm_op_letter.N7Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N7.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('委托单位').asstring); t_op_letter.Post; t_op_letter_rh.insert; end; procedure Tfrm_op_letter.N5Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N5.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('委托单位').asstring); t_op_letter.Post; t_op_letter_hc.insert; end; procedure Tfrm_op_letter.N9Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N9.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('船公司').asstring); t_op_letter.Post; t_op_letter_gg.insert; end; procedure Tfrm_op_letter.N11Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N11.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('船公司').asstring); t_op_letter.Post; t_op_letter_yj.insert; end; procedure Tfrm_op_letter.N13Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N13.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('船公司').asstring); t_op_letter.Post; t_op_letter_dq.insert; end; procedure Tfrm_op_letter.N19Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N19.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('船公司').asstring); t_op_letter.Post; t_op_letter_cq.insert; end; procedure Tfrm_op_letter.N17Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N17.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('船公司').asstring); t_op_letter.Post; t_op_letter_cz.insert; end; procedure Tfrm_op_letter.N15Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N15.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('船公司').asstring); t_op_letter.Post; t_op_letter_df.insert; end; procedure Tfrm_op_letter.bsSkinButton2Click(Sender: TObject); begin if (t_op_letter.State=dsinsert)or(t_op_letter.State=dsedit) then t_op_letter.post; if DataSource1.DataSet=nil then exit; if (DataSource1.DataSet.State=dsinsert)or(DataSource1.DataSet.State=dsedit) then DataSource1.DataSet.post; end; procedure Tfrm_op_letter.bsSkinButton3Click(Sender: TObject); begin if DataSource1.DataSet=nil then exit; if (DataSource1.DataSet.State=dsinsert)or(DataSource1.DataSet.State=dsedit) then DataSource1.DataSet.cancel; if (t_op_letter.State=dsinsert)or(t_op_letter.State=dsedit) then t_op_letter.cancel; end; procedure Tfrm_op_letter.bsSkinButton4Click(Sender: TObject); begin if t_op_letter.IsEmpty then exit; if DataSource1.DataSet=nil then exit; if application.MessageBox('您确定要删除数据吗?','警告:',MB_OKCANCEL)=IDOK then begin if not DataSource1.DataSet.IsEmpty then DataSource1.DataSet.Delete; t_op_letter.delete; end; end; procedure Tfrm_op_letter.t_op_letter_yjBeforeInsert(DataSet: TDataSet); begin if (t_op_letter.DataSource.DataSet.FieldByName('业务状态').AsString='业务封帐') then begin showmessage('业务已经封帐，不能修改！！'); abort; end; if (t_op_letter.State=dsinsert)or(t_op_letter.State=dsedit) then t_op_letter.post; end; procedure Tfrm_op_letter.t_op_letter_cqAfterInsert(DataSet: TDataSet); begin t_op_letter_cq['LE_ID']:=t_op_letter['LE_ID']; end; procedure Tfrm_op_letter.t_op_letter_czAfterInsert(DataSet: TDataSet); begin t_op_letter_cz['LE_ID']:=t_op_letter['LE_ID']; end; procedure Tfrm_op_letter.t_op_letter_dfAfterInsert(DataSet: TDataSet); begin t_op_letter_df['LE_ID']:=t_op_letter['LE_ID']; end; procedure Tfrm_op_letter.t_op_letter_dqAfterInsert(DataSet: TDataSet); begin t_op_letter_dq['LE_ID']:=t_op_letter['LE_ID']; end; procedure Tfrm_op_letter.t_op_letter_ggAfterInsert(DataSet: TDataSet); begin t_op_letter_gg['LE_ID']:=t_op_letter['LE_ID']; end; procedure Tfrm_op_letter.t_op_letter_hcAfterInsert(DataSet: TDataSet); begin t_op_letter_hc['LE_ID']:=t_op_letter['LE_ID']; t_op_letter_hc['原船名']:=t_op_letter.DataSource.DataSet['船名']; t_op_letter_hc['原航次']:=t_op_letter.DataSource.DataSet['航次']; t_op_letter_hc['原船期']:=t_op_letter.DataSource.DataSet['开船日期']; t_op_letter_hc['原提单号']:=t_op_letter.DataSource.DataSet['主提单号']; end; procedure Tfrm_op_letter.t_op_letter_pcAfterInsert(DataSet: TDataSet); begin t_op_letter_pc['LE_ID']:=t_op_letter['LE_ID']; t_op_letter_pc['箱型箱量']:=t_op_letter.DataSource.DataSet.fieldbyname('集装箱').asstring; if frm_data_share.t_code_truck_client.Locate('厂家名称',t_op_letter.DataSource.DataSet.fieldbyname('委托单位').asstring,[])then begin t_op_letter_pc['厂家地址']:=frm_data_share.t_code_truck_client['厂家地址']; t_op_letter_pc['厂家联系人']:=frm_data_share.t_code_truck_client['厂家联系人']; t_op_letter_pc['厂家联系电话']:=frm_data_share.t_code_truck_client['厂家联系电话']; end else begin if frm_data_share.t_crm_client.Locate('客户简称',t_op_letter.DataSource.DataSet.fieldbyname('委托单位').asstring,[])then begin t_op_letter_pc['厂家地址']:=frm_data_share.t_crm_client['通讯地址']; t_op_letter_pc['厂家联系人']:=frm_data_share.t_crm_client['海运联系人']; t_op_letter_pc['厂家联系电话']:=frm_data_share.t_crm_client['海运电话']; end; end; t_op_letter_pc['背箱场站']:=t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring; t_op_letter_pc['返箱地址']:=t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring; if frm_data_share.t_code_truck_changzhan.Locate('场站名称',t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring,[])then begin t_op_letter_pc['背箱场站']:=frm_data_share.t_code_truck_changzhan['场站名称']; t_op_letter_pc['场站联系人']:=frm_data_share.t_code_truck_changzhan['场站联系人']; t_op_letter_pc['场站电话']:=frm_data_share.t_code_truck_changzhan['场站电话']; t_op_letter_pc['返箱地址']:=frm_data_share.t_code_truck_changzhan['场站名称']; t_op_letter_pc['返箱联系人']:=frm_data_share.t_code_truck_changzhan['场站联系人']; t_op_letter_pc['返箱联系电话']:=frm_data_share.t_code_truck_changzhan['场站电话']; end else begin if frm_data_share.t_crm_client.Locate('场站名称',t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring,[])then begin t_op_letter_pc['背箱场站']:=t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring; t_op_letter_pc['场站联系人']:=frm_data_share.t_crm_client['海运联系人']; t_op_letter_pc['场站电话']:=frm_data_share.t_crm_client['海运电话']; t_op_letter_pc['返箱地址']:=t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring; t_op_letter_pc['返箱联系人']:=frm_data_share.t_crm_client['海运联系人']; t_op_letter_pc['返箱联系电话']:=frm_data_share.t_crm_client['海运电话']; end; end; { if frm_data_share.t_crm_client.Locate('客户简称',t_op_letter.DataSource.DataSet.fieldbyname('委托单位').asstring,[])then begin t_op_letter_pc['厂家地址']:=frm_data_share.t_crm_client['通讯地址']; t_op_letter_pc['厂家联系人']:=frm_data_share.t_crm_client['海运联系人']; t_op_letter_pc['厂家联系电话']:=frm_data_share.t_crm_client['海运电话']; end; t_op_letter_pc['背箱场站']:=t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring; t_op_letter_pc['返箱地址']:=t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring; if frm_data_share.t_crm_client.Locate('场站名称',t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring,[])then begin t_op_letter_pc['背箱场站']:=t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring; t_op_letter_pc['场站联系人']:=frm_data_share.t_crm_client['海运联系人']; t_op_letter_pc['场站电话']:=frm_data_share.t_crm_client['海运电话']; t_op_letter_pc['返箱地址']:=t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring; t_op_letter_pc['返箱联系人']:=frm_data_share.t_crm_client['海运联系人']; t_op_letter_pc['返箱联系电话']:=frm_data_share.t_crm_client['海运电话']; end; } end; procedure Tfrm_op_letter.t_op_letter_rhAfterInsert(DataSet: TDataSet); var aQuery,bQuery:TADOQuery; Hour, Min, Sec, MSec: Word; aDateTime:TDateTime; begin t_op_letter_rh['LE_ID']:=t_op_letter['LE_ID']; t_op_letter_rh['入货场站']:=t_op_letter.DataSource.DataSet['场站']; aDateTime:=t_op_letter.DataSource.DataSet.FieldByName('截港日期').AsDateTime; DecodeTime(aDateTime,Hour, Min, Sec, MSec); if t_op_letter.DataSource.DataSet['截港日期']<>null then if Hour<>0 then t_op_letter_rh['入货截至时间']:=FormatDateTime('YYYY-MM-DD hh:mm',t_op_letter.DataSource.DataSet['截港日期']) else t_op_letter_rh['入货截至时间']:=FormatDateTime('YYYY-MM-DD',t_op_letter.DataSource.DataSet['截港日期']) else t_op_letter_rh['入货截至时间']:=FormatDateTime('YYYY-MM-DD',Now); bQuery:=CreateAdoQuery; with bQuery do try Close;SQL.Clear; SQL.Add('Select voy.截单日期'); SQL.Add('From t_code_voyage voy'); SQL.Add('Left join t_code_vessel vsl on (voy.vs_id=vsl.vs_id)'); SQL.Add('Where vsl.英文船名=:VSL and voy.航次=:Voy'); Parameters.ParamByName('VSL').Value:=t_op_letter.DataSource.DataSet.FieldByName('船名').AsString; Parameters.ParamByName('Voy').Value:=t_op_letter.DataSource.DataSet.FieldByName('航次').AsString; Open; if not IsEmpty then begin aDateTime:=FieldByName('截单日期').AsDateTime; end; finally FreeAndNil(bQuery); end; DecodeTime(aDateTime,Hour, Min, Sec, MSec); if YearOf(aDateTime)<>1899 then if Hour<>0 then t_op_letter_rh['截单时间']:=FormatDateTime('YYYY-MM-DD hh:mm',aDateTime) else t_op_letter_rh['截单时间']:=FormatDateTime('YYYY-MM-DD',aDateTime) else t_op_letter_rh['截单时间']:=FormatDateTime('YYYY-MM-DD hh:mm',Now); if not t_op_letter.DataSource.DataSet.FieldByName('截单日期').IsNull then t_op_letter_rh['截单时间']:=FormatDateTime('YYYY-MM-DD hh:mm',t_op_letter.DataSource.DataSet['截单日期']); DBComboBox1.Items.Clear; if frm_data_share.t_crm_client_changzhan.Locate('客户简称',t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring,[])then begin t_op_letter_rh['场站地址']:=frm_data_share.t_crm_client_changzhan['通讯地址']; t_op_letter_rh['场站联系电话']:=frm_data_share.t_crm_client_changzhan['电话']; try aQuery:=CreateAdoQuery; with aQuery do begin Close;SQL.Clear; SQL.Add('Select 姓名,办公电话,家庭电话 from t_crm_client_linkman where 客户简称='''+t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring+''''); if t_op_letter.DataSource.DataSet.fieldbyname('场站联系人').asstring<>'' then SQL.Add('and 姓名 ='''+t_op_letter.DataSource.DataSet.fieldbyname('场站联系人').asstring+''''); Open; if not IsEmpty then begin while not Eof do begin DBComboBox1.Items.Add(FieldByName('姓名').AsString); Next; end; t_op_letter_rh['场站联系人']:=FieldByName('姓名').AsString; t_op_letter_rh['场站联系电话']:=FieldByName('办公电话').AsString; t_op_letter_rh['场站联系传真']:=FieldByName('家庭电话').AsString; end; end; finally FreeAndNil(aQuery); end; end; if t_op_letter.DataSource.DataSet.fieldbyname('场站联系人').asstring<>'' then t_op_letter_rh['场站联系人']:=t_op_letter.DataSource.DataSet.fieldbyname('场站联系人').asstring; Button6.OnClick(nil); end; procedure Tfrm_op_letter.t_op_letter_yjAfterInsert(DataSet: TDataSet); begin t_op_letter_yj['LE_ID']:=t_op_letter['LE_ID']; end; procedure Tfrm_op_letter.FormClose(Sender: TObject; var Action: TCloseAction); begin frm_op_letter.Hide; frm_op_letter.ManualFloat(frm_op_letter.BoundsRect ); action:=cafree; frm_op_letter:=nil; end; procedure Tfrm_op_letter.FormShow(Sender: TObject); begin bsSkinNotebook1.PageIndex:=9; if (not t_op_letter.Active) then t_op_letter.Open; t_op_letter_cq.Open; t_op_letter_cz.Open; t_op_letter_df.Open; t_op_letter_dq.Open; t_op_letter_gg.Open; t_op_letter_hc.Open; t_op_letter_pc.Open; if (not t_op_letter_rh.Active) then t_op_letter_rh.Open; t_op_letter_yj.Open; t_op_letter_hd.Open; t_op_letter_bgmx.Open; t_crm_client_cd.Open ; // carrs:=GetCorpCName('船公司'):string; // trucks:=GetCorpCName(''):string; // ships:=GetCorpCName('委托单位'):string; bsSkinButton1.Width:=round(bsSkinPanel1.Width/5); bsSkinButton2.Width:=round(bsSkinPanel1.Width/5); bsSkinButton3.Width:=round(bsSkinPanel1.Width/5); bsSkinButton4.Width:=round(bsSkinPanel1.Width/5); DBEdit1.Width:=bsSkinPanel3.Width-DBEdit1.Left-6; // DBComboBox2.Width:=DBEdit1.Width-20; N26.Visible:=false; //历史引入 N25.Visible:=false; //--- N23.Visible:=false; //'业务函电' N24.Visible:=false; // '-' N3.Visible:=false; // '派车通知' N4.Visible:=false; // '-' N5.Visible:=false; // '换船通知' N6.Visible:=false; // '-' N7.Visible:=false; //'入货通知' N8.Visible:=false; // '-' N9.Visible:=false; //'更改通知' N27.Visible:=false; // '-' N28.Visible:=false; //'报关明细单' N10.Visible:=false; // '-' N11.Visible:=false; //'预借保函' N12.Visible:=false; // '-' N13.Visible:=false; //'倒签保函' N14.Visible:=false; // '-' N15.Visible:=false; //'电放保函' N16.Visible:=false; //'-' N17.Visible:=false; //'超重保函' N18.Visible:=false; // '-' N19.Visible:=false; //'重签保函' N29.Visible:=false; // '-' N30.Visible:=false; //'内贸派车' case bsTypeid of 0: begin N26.Visible:=True; //历史引入 N25.Visible:=True; //--- N23.Visible:=True; //'业务函电' N24.Visible:=True; // '-' N3.Visible:=True; // '派车通知' N4.Visible:=True; // '-' N5.Visible:=True; // '换船通知' N6.Visible:=True; // '-' N7.Visible:=True; //'入货通知' N8.Visible:=True; // '-' N9.Visible:=True; //'更改通知' N27.Visible:=True; // '-' N28.Visible:=True; //'报关明细单' N10.Visible:=True; // '-' N11.Visible:=True; //'预借保函' N12.Visible:=True; // '-' N13.Visible:=True; //'倒签保函' N14.Visible:=True; // '-' N15.Visible:=True; //'电放保函' N16.Visible:=True; //'-' N17.Visible:=True; //'超重保函' N18.Visible:=True; // '-' N19.Visible:=True; //'重签保函' end; 1: begin N29.Visible:=True; // '-' N30.Visible:=True; //'内贸派车' end; end; if (bsTypeid=3) then N7Click(Sender); end; procedure Tfrm_op_letter.t_op_letterBeforeInsert(DataSet: TDataSet); begin if (t_op_letter.DataSource.DataSet.FieldByName('业务状态').AsString='业务封帐') then begin showmessage('业务已经封帐，不能修改！！'); abort; end; if t_op_letter.DataSource.DataSet.State=dsinsert then t_op_letter.DataSource.DataSet.post; if not frm_op_letter_insert then abort; end; procedure Tfrm_op_letter.N20Click(Sender: TObject); var book1:Tbookmark; aQuery:TADOQuery; str:string; begin if t_op_letter.IsEmpty then exit; if (t_op_letter.State=dsinsert)or(t_op_letter.State=dsedit) then t_op_letter.post; if (DataSource1.DataSet.State=dsinsert)or(DataSource1.DataSet.State=dsedit) then DataSource1.DataSet.post; with t_op_railway_cnt do begin Close;SQL.Clear; sql.Add('select * from t_op_railway'); sql.Add('where 主编号=:bsno and 主编号<>编号'); Parameters.ParamByName('bsno').Value:=t_op_letter.FieldByName('编号').AsString; Open; end; with t_sys_op do begin Close;SQL.Clear; sql.Add('select * from t_sys_employee'); sql.Add('where 姓名=:SNAME'); Parameters.ParamByName('SNAME').Value:=t_op_letter.DataSource.dataset.FieldByName('操作员').AsString; Open; end; try t_op_letter.DataSource.DataSet.DisableControls; // book1:=t_op_letter.GetBookmark; t_op_letter.DisableControls; if DBEdit3.Text='入货通知' then begin if t_op_letter.DataSource.DataSet.FieldByName('客户邮件方案').AsString<>'' then begin aQuery:=CreateAdoQuery; try with aQuery do begin close;sql.Clear; SQL.Add('select * from t_code_cust_mailproject_detail where 方案代码='''+t_op_letter.DataSource.DataSet.FieldByName('客户邮件方案').AsString+''' and 单据类型=''入货通知'' '); Open; if not IsEmpty then begin mailSend.EmptyTable; mailSend.Open; mailSend.Insert; mailSend.FieldByName('收件人').AsString:=fieldbyname('收件人').AsString; str:=fieldbyname('主题模板').AsString; str:=StringReplace(str,'[主提单号]',t_op_letter.DataSource.DataSet.fieldbyname('主提单号').AsString,[]); // 补充委托编号 程建波 2017-07-20 str:=StringReplace(str,'[委托编号]',t_op_letter.DataSource.DataSet.fieldbyname('委托编号').AsString,[]); str:=StringReplace(str,'[船名]',t_op_letter.DataSource.DataSet.fieldbyname('船名').AsString,[]); str:=StringReplace(str,'[航次]',t_op_letter.DataSource.DataSet.fieldbyname('航次').AsString,[]); str:=StringReplace(str,'[委托单位]',t_op_letter.DataSource.DataSet.fieldbyname('委托单位').AsString,[]); mailSend.FieldByName('邮件主题').AsString:=str; str:=fieldbyname('邮件内容').AsString; str:=StringReplace(str,'[主提单号]',t_op_letter.DataSource.DataSet.fieldbyname('主提单号').AsString,[]); // 补充委托编号 程建波 2017-07-20 str:=StringReplace(str,'[委托编号]',t_op_letter.DataSource.DataSet.fieldbyname('委托编号').AsString,[]); str:=StringReplace(str,'[船名]',t_op_letter.DataSource.DataSet.fieldbyname('船名').AsString,[]); str:=StringReplace(str,'[航次]',t_op_letter.DataSource.DataSet.fieldbyname('航次').AsString,[]); str:=StringReplace(str,'[委托单位]',t_op_letter.DataSource.DataSet.fieldbyname('委托单位').AsString,[]); str:=StringReplace(str,'[提箱小票地址]',t_op_letter_rh.fieldbyname('提箱小票地址').AsString,[]); mailSend.FieldByName('邮件内容').AsString:=str; frm_data_share.t_sys_employee.Locate('姓名',employee,[]); mailSend.FieldByName('邮件签名').AsString:=MailSignName;//frm_data_share.t_sys_employee.fieldbyname('邮件签名').AsString; str:=fieldbyname('附件名称').AsString; str:=StringReplace(str,'[主提单号]',t_op_letter.DataSource.DataSet.fieldbyname('主提单号').AsString,[]); // 补充委托编号 程建波 2017-07-22 str:=StringReplace(str,'[委托编号]',t_op_letter.DataSource.DataSet.fieldbyname('委托编号').AsString,[]); str:=StringReplace(str,'[船名]',t_op_letter.DataSource.DataSet.fieldbyname('船名').AsString,[]); str:=StringReplace(str,'[航次]',t_op_letter.DataSource.DataSet.fieldbyname('航次').AsString,[]); str:=StringReplace(str,'[委托单位]',t_op_letter.DataSource.DataSet.fieldbyname('委托单位').AsString,[]); mailSend.FieldByName('附件名称').AsString:=str; mailSend.FieldByName('单据类型').AsString:=fieldbyname('单据类型').AsString; mailSend.FieldByName('编号').AsString:=t_op_letter.DataSource.DataSet.fieldbyname('编号').AsString; mailSend.FieldByName('主提单号').AsString:=t_op_letter.DataSource.DataSet.fieldbyname('主提单号').AsString; mailSend.Post; sys_print('海运出口'+DBEdit3.Text,2,t_op_letter.DataSource,t_op_letter1,DataSource1,t_op_railway_cnt1,t_sys_op1,nil,nil,nil,nil,nil,nil,True,'',nil,nil,mailSend); end else sys_print('海运出口'+DBEdit3.Text,2,t_op_letter.DataSource,t_op_letter1,DataSource1,t_op_railway_cnt1,t_sys_op1,nil,nil,nil,nil,nil,nil); end; finally FreeAndNil(aQuery); end; end else begin sys_print('海运出口'+DBEdit3.Text,2,t_op_letter.DataSource,t_op_letter1,DataSource1,t_op_railway_cnt1,t_sys_op1,nil,nil,nil,nil,nil,nil); end; end else sys_print('海运出口'+DBEdit3.Text,2,t_op_letter.DataSource,t_op_letter1,DataSource1,t_op_railway_cnt1,t_sys_op1,nil,nil,nil,nil,nil,nil); finally t_op_letter.DataSource.DataSet.EnableControls; // t_op_letter.GotoBookmark(book1); t_op_letter.EnableControls; end; end; procedure Tfrm_op_letter.N1Click(Sender: TObject); var book1:Tbookmark; begin if t_op_letter.IsEmpty then exit; if (t_op_letter.State=dsinsert)or(t_op_letter.State=dsedit) then t_op_letter.post; if (DataSource1.DataSet.State=dsinsert)or(DataSource1.DataSet.State=dsedit) then DataSource1.DataSet.post; with t_op_railway_cnt do begin Close;SQL.Clear; sql.Add('select * from t_op_railway'); sql.Add('where 主编号=:bsno and 主编号<>编号'); Parameters.ParamByName('bsno').Value:=t_op_letter.FieldByName('编号').AsString; Open; end; with t_sys_op do begin Close;SQL.Clear; sql.Add('select * from t_sys_employee'); sql.Add('where 姓名=:SNAME'); Parameters.ParamByName('SNAME').Value:=t_op_letter.DataSource.dataset.FieldByName('操作员').AsString; Open; end; try // book1:=t_op_letter.GetBookmark; t_op_letter.DisableControls; t_op_letter.DataSource.DataSet.DisableControls; sys_print('海运出口'+DBEdit3.Text,1,t_op_letter.DataSource,t_op_letter1,DataSource1,t_op_railway_cnt1,t_sys_op1,nil,nil,nil,nil,nil,nil); finally t_op_letter.DataSource.DataSet.EnableControls; // t_op_letter.GotoBookmark(book1); t_op_letter.EnableControls; end; end; procedure Tfrm_op_letter.bsSkinButton9Click(Sender: TObject); var Pnt:Tpoint; begin Pnt:=bsSkinButton9.ClientToScreen(Point(0,bsSkinButton9.Height)); PopupMenu2.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_op_letter.bsSkinPanel1Resize(Sender: TObject); begin bsSkinButton1.Width:=round(bsSkinPanel1.Width/5); bsSkinButton2.Width:=round(bsSkinPanel1.Width/5); bsSkinButton3.Width:=round(bsSkinPanel1.Width/5); bsSkinButton4.Width:=round(bsSkinPanel1.Width/5); end; procedure Tfrm_op_letter.N21Click(Sender: TObject); var book1:Tbookmark; begin if t_op_letter.IsEmpty then exit; if (t_op_letter.State=dsinsert)or(t_op_letter.State=dsedit) then t_op_letter.post; if (DataSource1.DataSet.State=dsinsert)or(DataSource1.DataSet.State=dsedit) then DataSource1.DataSet.post; with t_op_railway_cnt do begin Close;SQL.Clear; sql.Add('select * from t_op_railway'); sql.Add('where 主编号=:bsno and 主编号<>编号'); Parameters.ParamByName('bsno').Value:=t_op_letter.FieldByName('编号').AsString; Open; end; with t_sys_op do begin Close;SQL.Clear; sql.Add('select * from t_sys_employee'); sql.Add('where 姓名=:SNAME'); Parameters.ParamByName('SNAME').Value:=t_op_letter.DataSource.dataset.FieldByName('操作员').AsString; Open; end; try // book1:=t_op_letter.GetBookmark; t_op_letter.DataSource.DataSet.DisableControls; t_op_letter.DisableControls; sys_print('海运出口'+DBEdit3.Text,3,t_op_letter.DataSource,t_op_letter1,DataSource1,t_op_railway_cnt1,t_sys_op1,nil,nil,nil,nil,nil,nil); finally t_op_letter.DataSource.DataSet.EnableControls; // t_op_letter.GotoBookmark(book1); t_op_letter.EnableControls; end; end; procedure Tfrm_op_letter.t_op_letter_hdAfterInsert(DataSet: TDataSet); begin t_op_letter_hd['LE_ID']:=t_op_letter['LE_ID']; end; procedure Tfrm_op_letter.N23Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N23.Caption; t_op_letter['Head_To']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('船公司').AsString); t_op_letter.Post; t_op_letter_hd.insert; end; procedure Tfrm_op_letter.DBEdit1KeyPress(Sender: TObject; var Key: Char); begin key_DBComboBox(Key,DBComboBox2); end; procedure Tfrm_op_letter.DBEdit2KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; bsSkinNotebook1.SetFocus; end; end; procedure Tfrm_op_letter.DBEdit4KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo6); end; procedure Tfrm_op_letter.DBEdit5KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit6); end; procedure Tfrm_op_letter.DBEdit6KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit7); end; procedure Tfrm_op_letter.DBEdit7KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo7); end; procedure Tfrm_op_letter.DBEdit8KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo8); end; procedure Tfrm_op_letter.DBEdit9KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit10); end; procedure Tfrm_op_letter.DBEdit10KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit12); end; procedure Tfrm_op_letter.DBEdit12KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit13); end; procedure Tfrm_op_letter.DBEdit13KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker1); end; procedure Tfrm_op_letter.wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker2); end; procedure Tfrm_op_letter.wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit15); end; procedure Tfrm_op_letter.DBEdit15KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit16); end; procedure Tfrm_op_letter.DBEdit16KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo12); end; procedure Tfrm_op_letter.DBEdit14KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit31); end; procedure Tfrm_op_letter.DBEdit17KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit18); end; procedure Tfrm_op_letter.DBEdit18KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit19); end; procedure Tfrm_op_letter.DBEdit19KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit20); end; procedure Tfrm_op_letter.DBEdit20KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit11); end; procedure Tfrm_op_letter.DBEdit11KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit21); end; procedure Tfrm_op_letter.DBEdit21KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit22); end; procedure Tfrm_op_letter.DBEdit22KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit23); end; procedure Tfrm_op_letter.DBEdit23KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit24); end; procedure Tfrm_op_letter.DBEdit24KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit25); end; procedure Tfrm_op_letter.DBEdit25KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo13); end; procedure Tfrm_op_letter.DBEdit26KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit27); end; procedure Tfrm_op_letter.DBEdit27KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit28); end; procedure Tfrm_op_letter.DBEdit28KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; DBComboBox1.SetFocus; end; end; procedure Tfrm_op_letter.DBEdit29KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit33); end; procedure Tfrm_op_letter.DBEdit30KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo15); end; procedure Tfrm_op_letter.Button1Click(Sender: TObject); begin if t_op_letter_pc.IsEmpty then exit; try frm_code_truck_client:=tfrm_code_truck_client.Create (self); code_truck_client_num:=1; frm_code_truck_client.ShowModal; finally frm_code_truck_client.Free; frm_code_truck_client:=nil; end; end; procedure Tfrm_op_letter.Button2Click(Sender: TObject); begin if t_op_letter_pc.IsEmpty then exit; try frm_code_truck_changzhan:=tfrm_code_truck_changzhan.Create (self); code_truck_changzhan_num:=1; frm_code_truck_changzhan.ShowModal; finally frm_code_truck_changzhan.Free; frm_code_truck_changzhan:=nil; end; end; procedure Tfrm_op_letter.Button3Click(Sender: TObject); begin if t_op_letter_pc.IsEmpty then exit; try frm_code_truck_changzhan:=tfrm_code_truck_changzhan.Create (self); code_truck_changzhan_num:=2; frm_code_truck_changzhan.ShowModal; finally frm_code_truck_changzhan.Free; frm_code_truck_changzhan:=nil; end; end; procedure Tfrm_op_letter.Button4Click(Sender: TObject); begin if t_op_letter_rh.IsEmpty then exit; try frm_code_truck_changzhan:=tfrm_code_truck_changzhan.Create (self); code_truck_changzhan_num:=3; frm_code_truck_changzhan.ShowModal; finally frm_code_truck_changzhan.Free; frm_code_truck_changzhan:=nil; end; end; procedure Tfrm_op_letter.Button5Click(Sender: TObject); begin if t_op_letter.isempty then exit; { if not if_open('144') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; } try frm_code_send_head:=tfrm_code_send_head.Create (self); code_send_head_num:=1; frm_code_send_head.ShowModal; finally frm_code_send_head.Free; frm_code_send_head:=nil; end; end; procedure Tfrm_op_letter.DBEdit31KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit32); end; procedure Tfrm_op_letter.DBEdit32KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit17); end; procedure Tfrm_op_letter.dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort(Column,t_op_letter,'LF'); end; procedure Tfrm_op_letter.N26Click(Sender: TObject); begin try if not assigned(frm_op_letter_his) then frm_op_letter_his:=tfrm_op_letter_his.Create (self); frm_op_letter_his.ShowModal; finally frm_op_letter_his.free; frm_op_letter_his:=nil; end; end; procedure Tfrm_op_letter.t_op_letterBeforeEdit(DataSet: TDataSet); begin if (t_op_letter.DataSource.DataSet.FieldByName('业务状态').AsString='业务封帐') then begin showmessage('业务已经封帐，不能修改！！'); abort; end; if (not txxp='1') then begin if not do_data('0001',t_op_letter.FieldByName('签发人').asstring,'','','','','') then begin showmessage('对不起此函电您无权修改！！'); abort; end; end; end; procedure Tfrm_op_letter.DBComboBox1Change(Sender: TObject); var aQuery:TADOQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('Select 姓名,办公电话 from t_crm_client_linkman where 客户简称='''+t_op_letter.DataSource.DataSet.fieldbyname('场站').asstring+''' AND 姓名='''+DBComboBox1.Text+''''); Open; if not IsEmpty then begin t_op_letter_rh['场站联系电话']:=FieldByName('办公电话').AsString; end; end; finally FreeAndNil(aQuery); end; end; procedure Tfrm_op_letter.DBComboBox1KeyPress(Sender: TObject; var Key: Char); begin key_DBEdit(Key,DBEdit29); end; procedure Tfrm_op_letter.DBEdit33KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo14); end; procedure Tfrm_op_letter.N28Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N28.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('委托单位').asstring); t_op_letter.Post; t_op_letter_bgmx.insert; end; procedure Tfrm_op_letter.t_op_letter_bgmxAfterInsert(DataSet: TDataSet); begin t_op_letter_bgmx['LE_ID']:=t_op_letter['LE_ID']; end; procedure Tfrm_op_letter.DBComboBox2DropDown(Sender: TObject); var aAdoQuery:TAdoQuery; begin aAdoQuery:=createAdoQuery; with aAdoQuery do try Close;Sql.Clear; Sql.Add('Select 姓名,办公电话,家庭电话 From t_crm_client_linkman'); Sql.Add('Where 客户简称=:客户简称'); Parameters.ParamByName('客户简称').Value:=t_op_letter.DataSource.DataSet.FieldByName('委托单位').AsString; Open;First; DBComboBox2.Clear; while not eof do begin DBComboBox2.Items.Add(FieldByName('姓名').AsString); Next; end; finally FreeAndNil(aAdoQuery); end; end; procedure Tfrm_op_letter.bsSkinPanel3Resize(Sender: TObject); begin DBEdit1.Width:=bsSkinPanel3.Width-DBEdit1.left-6; // DBComboBox2.Width:=DBEdit1.Width-20; // Button5.Left:=DBComboBox2.left+DBComboBox2.Width; end; procedure Tfrm_op_letter.N30Click(Sender: TObject); begin frm_op_letter_insert:=true; t_op_letter.Insert; t_op_letter['函电名称']:=N30.Caption; t_op_letter['HEAD_TO']:=GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('委托单位').asstring); t_op_letter.Post; t_op_letter_pc.insert; end; procedure Tfrm_op_letter.DBComboBox2Change(Sender: TObject); var aAdoQuery:TAdoQuery; begin aAdoQuery:=createAdoQuery; with aAdoQuery do try Close;Sql.Clear; Sql.Add('Select 姓名,办公电话,家庭电话,邮箱 From t_crm_client_linkman'); Sql.Add('Where 客户简称=:客户简称 and 姓名=:姓名'); Parameters.ParamByName('客户简称').Value:=t_op_letter.DataSource.DataSet.FieldByName('委托单位').AsString; Parameters.ParamByName('姓名').Value:=Trim(DBComboBox2.Text); Open;First; if not IsEmpty then begin t_op_letter.FieldByName('HEAD_TEL').AsString:=FieldByName('办公电话').AsString; t_op_letter.FieldByName('HEAD_FAX').AsString:=FieldByName('家庭电话').AsString; t_op_letter.FieldByName('HEAD_MAIL').AsString:=FieldByName('邮箱').AsString; end; finally FreeAndNil(aAdoQuery); end; end; procedure Tfrm_op_letter.Button6Click(Sender: TObject); var IdHttp : TIdHTTP; PostUrl,Url,StrL,JSONSTR,errmsg,userid,UserName,userpsw,WebUserName,Webuserpsw,NEWID,YARD,CTNSTR,str,AgentName : string;//请求地址 ResponseStream : TStringStream; //返回信息 ResponseStr: string; RequestStr : string; //请求信息 RequestStream : TStringStream; jo: ISuperObject; i,k:Integer; aAdoQuery:TADOQuery; isfirst:Boolean; // sl:TStrings; begin Url:=get_parameters_value(2114,''); UserName:=get_parameters_value(2112,''); userpsw:=get_parameters_value(2113,''); // sl:=TStringList.create(); aAdoQuery:=CreateAdoQuery; with aAdoQuery do begin close;SQL.Clear; sql.add('SELECT 提箱小票账号,提箱小票密码 from t_crm_client ' +' where 客户简称='+''''+t_op_letter.DataSource.dataset.FieldByName('船公司').AsString+''''); open; if not IsEmpty then begin WebUserName:=fieldbyname('提箱小票账号').asstring; Webuserpsw:=fieldbyname('提箱小票密码').asstring; end; close;SQL.Clear; sql.add('SELECT 大简云代码 from t_crm_emloyee_djy ' +' where 姓名='+''''+employee+''''); open; if not IsEmpty then begin userid:=fieldbyname('大简云代码').asstring; end; end; { if (frm_data_share.t_crm_client.Locate('客户简称',t_op_letter.DataSource.dataset.FieldByName('船公司').AsString,[])) then begin WebUserName:=frm_data_share.t_crm_client.fieldbyname('提箱小票账号').asstring; Webuserpsw:=frm_data_share.t_crm_client.fieldbyname('提箱小票密码').asstring; end; } if(WebUserName='') then begin WebUserName:=get_parameters_value(2110,''); Webuserpsw:=get_parameters_value(2111,''); end; PostUrl:=get_parameters_value(2115,''); AgentName:=frm_data_share.t_sys_company.fieldbyname('全称').AsString; with aAdoQuery do begin close;SQL.Clear; sql.add('SELECT TXXPGID from t_op_seae_txxp ' +' where 编号='+''''+t_op_letter.DataSource.dataset.FieldByName('编号').AsString+''''); open; if not IsEmpty then begin NEWID:=Fieldbyname('TXXPGID').AsString; end; end; if (Trim(NEWID)='') then begin NEWID:=GetNewId(); NEWID:=StringReplace(NEWID,'{','',[]); NEWID:=StringReplace(NEWID,'}','',[]); with aAdoQuery do begin close;SQL.Clear; sql.add('insert into t_op_seae_txxp (编号,录入人,录入日期,TXXPGID) ' +' Values ('''+t_op_letter.DataSource.dataset.FieldByName('编号').AsString+''','''+employee+''','''+FormatDateTime('YYYY-MM-DD hh:mm:ss',now)+''','''+NEWID+''')'); ExecSQL; end; end; { if (Trim(t_op_letter_rh.FieldByName('提箱小票地址').AsString)<>'') then begin NEWID:=StringReplace(Trim(t_op_letter_rh.FieldByName('提箱小票地址').AsString),Url,'',[]); end else begin //end; } YARD:=getYTCode(t_op_letter.DataSource.dataset.FieldByName('场站').AsString); if (YARD='') then begin ShowMessage('请先设置场站易通代码！'); Exit; end; with t_sys_op do begin Close;SQL.Clear; sql.Add('select * from t_sys_employee'); sql.Add('where 姓名=:SNAME'); Parameters.ParamByName('SNAME').Value:=t_op_letter.DataSource.dataset.FieldByName('操作员').AsString; Open; end; with aAdoQuery do begin close;SQL.Clear; sql.add('SELECT 尺寸,箱型,表现形式,sum(数量) 箱量 from t_op_ctn ' +' where 编号='+''''+t_op_letter.DataSource.dataset.FieldByName('编号').AsString+'''' +' group by 尺寸,箱型,表现形式'); open; end; str:=str+'{'; str:=str+'"billOrderId":"'+ NEWID+'"'; str:=str+',"sendOrderCode":"'+t_op_letter.DataSource.dataset.FieldByName('主提单号').AsString+'"'; str:=str+',"userId":"'+userid+'"'; str:=str+',"userName":"'+UserName+'"'; str:=str+',"userPassword":"'+userpsw+'"'; str:=str+',"AgentName":"'+AgentName+'"'; str:=str+',"CustomerName":"'+t_op_letter.DataSource.dataset.FieldByName('委托单位').AsString+'"'; str:=str+',"operatorName":"'+ t_op_letter.DataSource.dataset.FieldByName('操作员').AsString+'"'; str:=str+',"depotCode":""'; str:=str+',"depotName":"'+ YARD+'"'; str:=str+',"linkName":"'+ t_op_letter.DataSource.dataset.FieldByName('操作员').AsString+'"'; str:=str+',"linkMobile":"'+ t_sys_op.FieldByName('固定电话').AsString+'"'; str:=str+',"CarrierCode":"'+ getYTCode(t_op_letter.DataSource.dataset.FieldByName('船公司').AsString)+'"'; str:=str+',"portdischarge":"'+ t_op_letter.DataSource.dataset.FieldByName('卸货港').AsString+'"'; str:=str+',"portdischargeCode":"'+ t_op_letter.DataSource.dataset.FieldByName('卸货代码').AsString+'"'; str:=str+',"ShipName":"'+ t_op_letter.DataSource.dataset.FieldByName('船名').AsString+'"'; str:=str+',"VoyNo":"'+ t_op_letter.DataSource.dataset.FieldByName('航次').AsString+'"'; str:=str+',"EtdTimeStr":"'+ t_op_letter.DataSource.dataset.FieldByName('开船日期').AsString+'"'; str:=str+',"memo":""'; str:=str+',boxInfo:['; isfirst:=true; while not aAdoQuery.Eof do begin if (isfirst) then str:=str+'{' else str:=str+',{'; CTNSTR:=aAdoQuery.FieldByName('尺寸').AsString+aAdoQuery.FieldByName('箱型').AsString; CTNSTR:=StringReplace(CTNSTR,'20GP','20ST',[rfReplaceAll]); CTNSTR:=StringReplace(CTNSTR,'40GP','40ST',[rfReplaceAll]); str:=str+'"boxType":"'+ CTNSTR+'"'; str:=str+',"boxCount":"'+aAdoQuery.FieldByName('箱量').AsString+'"'; str:=str+'}'; isfirst:=false; aAdoQuery.Next; end; str:=str+']'; str:=str+',"sysLoginName":"'+webUserName+'"'; str:=str+',"sysPsssword":"'+webuserpsw+'"'; str:=str+',"SystemCode":"dongsheng6"'; str:=str+'}'; // sl.add(str); // sl.SaveToFile('d:\11.txt'); TDsThread.create(PostUrl,str,''); txxp:='1'; if not (t_op_letter_rh.State in [dsinsert,dsedit]) then t_op_letter_rh.Edit; t_op_letter_rh.FieldByName('提箱小票地址').AsString:=Url+NEWID; t_op_letter_rh.Post; txxp:='0'; { try IdHttp := TIdHTTP.Create(nil); IdHTTP.HTTPOptions := IdHTTP.HTTPOptions + [hoKeepOrigProtocol]; //必须有这行才使设置协议版本生效 IdHTTP.ProtocolVersion := pv1_1; IdHttp.Request.UserAgent:='Mozilla/3.0 (compatible; Indy Library)'; idhttp.Request.ContentType:='application/json;charset=UTF-8'; ResponseStream := TStringStream.Create(''); RequestStream := TStringStream.Create(''); jo := SO(str); if (UserName<>'') and (userpsw<>'') then try try RequestStr:=jo.AsJSon(True); //孙小华 RequestStream.WriteString(RequestStr); IdHttp.post(PostUrl,RequestStream,ResponseStream); except on e : Exception do begin errmsg:=e.Message; end; end; ResponseStr := ResponseStream.DataString; ResponseStr := UTF8Decode(ResponseStr); if Pos('"status":true',ResponseStr)>0 then begin if not (t_op_letter_rh.State in [dsinsert,dsedit]) then t_op_letter_rh.Edit; t_op_letter_rh.FieldByName('提箱小票地址').AsString:=Url+NEWID; t_op_letter_rh.Post; end else begin i:= Pos('"Message":' ,ResponseStr); errmsg :=Copy(ResponseStr ,i+11,Length(ResponseStr)-i-11); MessageDlg('创建失败,'+errmsg,mtWarning,[mbOk],0); end; finally IdHttp.Free; RequestStream.Free; ResponseStream.Free; end; finally end; } end; function Tfrm_op_letter.GetNewId: string; var aQuery:TADOQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Text:='SELECT NEWID() ID'; Open; Result:=Fieldbyname('ID').AsString; end; finally FreeAndNil(aQuery); end; end; function Tfrm_op_letter.getYTCode(yard:string): string; var aQuery:TADOQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('Select 易通代码 EDI代码 from T_CRM_CLIENT where 客户简称='''+yard+''''); Open; if not IsEmpty then Result:=Trim(FieldByName('EDI代码').asstring) else Result:=''; end; finally FreeAndNil(aQuery); end; end; procedure Tfrm_op_letter.Button7Click(Sender: TObject); begin Clipboard.SetTextBuf(PChar(t_op_letter_rh.FieldByName('提箱小票地址').AsString)); end; { TDsThread } constructor TDsThread.create(mPostUrl, mJSONSTR, mScriptPath: string); begin inherited Create(True); PostUrl:=mPostUrl; JSONSTR:=mJSONSTR; ScriptPath:=mScriptPath; FreeOnTerminate:=True; Resume; end; destructor TDsThread.destroy; begin inherited; end; procedure TDsThread.Execute; var IdHttp : TIdHTTP; errmsg : string;//请求地址 ResponseStream : TStringStream; //返回信息 ResponseStr: string; RequestStr : string; //请求信息 RequestStream : TStringStream; jo: ISuperObject; i,k:Integer; begin inherited; CoInitialize(Nil); try IdHttp := TIdHTTP.Create(nil); IdHTTP.HTTPOptions := IdHTTP.HTTPOptions + [hoKeepOrigProtocol]; //必须有这行才使设置协议版本生效 IdHTTP.ProtocolVersion := pv1_1; IdHttp.Request.UserAgent:='Mozilla/3.0 (compatible; Indy Library)'; idhttp.Request.ContentType:='application/json;charset=UTF-8'; ResponseStream := TStringStream.Create(''); RequestStream := TStringStream.Create(''); jo := SO(JSONSTR); try try RequestStr:=jo.AsJSon(True); //孙小华 RequestStream.WriteString(RequestStr); IdHttp.post(PostUrl,RequestStream,ResponseStream); except IdHttp.post(PostUrl,RequestStream,ResponseStream); { on e : Exception do begin errmsg:=e.Message; end; } end; ResponseStr := ResponseStream.DataString; ResponseStr := UTF8Decode(ResponseStr); if Pos('"status":true',ResponseStr)>0 then begin { if not (t_op_letter_rh.State in [dsinsert,dsedit]) then t_op_letter_rh.Edit; t_op_letter_rh.FieldByName('提箱小票地址').AsString:=Url+NEWID; t_op_letter_rh.Post; } end else begin i:= Pos('"message":' ,ResponseStr); errmsg :=Copy(ResponseStr ,i+11,Length(ResponseStr)-i-11); errmsg :=Copy(errmsg ,0,Pos('"' ,errmsg)); Application.MessageBox(pchar('上传小票链接失败!"'+errmsg),'提示',MB_OK+MB_IconInformation); if not (frm_op_letter.t_op_letter_rh.State in [dsedit,dsinsert]) then begin frm_op_letter.t_op_letter_rh.Edit; end; frm_op_letter.t_op_letter_rh.FieldByName('提箱小票地址').AsString:=''; frm_op_letter.t_op_letter_rh.Post; // MessageDlg('创建失败,'+errmsg,mtWarning,[mbOk],0); end; finally IdHttp.Free; RequestStream.Free; ResponseStream.Free; end; finally CoUninitialize; end; end; end.