{$INCLUDE t_main.inc} unit u_op_seae; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, dxExEdtr, XPMenu, Menus, DB, ADODB, bsSkinCtrls, bsdbctrls, wwdbedit, Wwdotdot, Wwdbcomb, wwdbdatetimepicker, wwdblook, StdCtrls, DBCtrls, ComCtrls, bsSkinTabs, RxLookup, Mask, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner, ExtCtrls, Dialogs, ExtDlgs, Wwdbdlg, shellapi, Grids, DBGrids,inifiles, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, cxDBEdit, Wwdbigrd, Wwdbgrid; type Tfrm_op_seae = class(TForm) t_op_seae: TADOQuery; t_op_seae1: TDataSource; t_op_seae_fen: TADOQuery; t_op_seae_fen1: TDataSource; t_op_seae2: TDataSource; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N6: TMenuItem; N8: TMenuItem; N19: TMenuItem; N21: TMenuItem; N4: TMenuItem; N20: TMenuItem; N24: TMenuItem; N7: TMenuItem; N22: TMenuItem; EXCEL1: TMenuItem; XPMenu1: TXPMenu; Panel2: TPanel; bsSkinButton7: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton10: TbsSkinButton; bsSkinButton1: TbsSkinButton; bsSkinButton11: TbsSkinButton; bsSkinButton8: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinButton5: TbsSkinButton; Notebook1: TNotebook; bsSkinPanel1: TbsSkinPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label37: TLabel; Label5: TLabel; Label38: TLabel; Label4: TLabel; Label36: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit8: TDBEdit; DBEdit4: TDBEdit; DBEdit9: TDBEdit; RxDBLookupCombo1: TRxDBLookupCombo; DBEdit7: TDBEdit; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet6: TbsSkinTabSheet; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinTabSheet7: TbsSkinTabSheet; bsSkinTabSheet2: TbsSkinTabSheet; bsSkinTabSheet4: TbsSkinTabSheet; Panel3: TPanel; dxDBGrid1: TdxDBGrid; t_ch_fee: TADOQuery; DBEdit18: TDBEdit; Label65: TLabel; bsSkinButton13: TbsSkinButton; Label20: TLabel; RxDBLookupCombo29: TRxDBLookupCombo; Label42: TLabel; RxDBLookupCombo30: TRxDBLookupCombo; PopupMenu2: TPopupMenu; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; PopupMenu3: TPopupMenu; N17: TMenuItem; N18: TMenuItem; N34: TMenuItem; N35: TMenuItem; N36: TMenuItem; N37: TMenuItem; N38: TMenuItem; N39: TMenuItem; N40: TMenuItem; N41: TMenuItem; N42: TMenuItem; N43: TMenuItem; N46: TMenuItem; N47: TMenuItem; N48: TMenuItem; N50: TMenuItem; N51: TMenuItem; N52: TMenuItem; N53: TMenuItem; N54: TMenuItem; N55: TMenuItem; PopupMenu4: TPopupMenu; N27: TMenuItem; N28: TMenuItem; N29: TMenuItem; N61: TMenuItem; t_op_seae_huanhuo1: TDataSource; N25: TMenuItem; N62: TMenuItem; N63: TMenuItem; N64: TMenuItem; dxDBGrid1Column1: TdxDBGridMaskColumn; dxDBGrid1Column2: TdxDBGridMaskColumn; dxDBGrid1Column3: TdxDBGridMaskColumn; dxDBGrid1Column4: TdxDBGridDateColumn; dxDBGrid1Column5: TdxDBGridMaskColumn; dxDBGrid1Column6: TdxDBGridMaskColumn; dxDBGrid1Column7: TdxDBGridMaskColumn; dxDBGrid1Column8: TdxDBGridMaskColumn; dxDBGrid1Column9: TdxDBGridMaskColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridMaskColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; dxDBGrid1Column15: TdxDBGridMaskColumn; dxDBGrid1Column16: TdxDBGridMaskColumn; dxDBGrid1Column17: TdxDBGridMaskColumn; dxDBGrid1Column18: TdxDBGridDateColumn; dxDBGrid1Column19: TdxDBGridDateColumn; dxDBGrid1Column20: TdxDBGridDateColumn; dxDBGrid1Column22: TdxDBGridMaskColumn; dxDBGrid1Column23: TdxDBGridMaskColumn; dxDBGrid1Column28: TdxDBGridMaskColumn; dxDBGrid1Column29: TdxDBGridMaskColumn; dxDBGrid1Column30: TdxDBGridMaskColumn; dxDBGrid1Column31: TdxDBGridMaskColumn; dxDBGrid1Column32: TdxDBGridMaskColumn; dxDBGrid1Column33: TdxDBGridDateColumn; dxDBGrid1Column34: TdxDBGridMaskColumn; dxDBGrid1Column35: TdxDBGridMaskColumn; dxDBGrid1Column36: TdxDBGridMaskColumn; dxDBGrid1Column37: TdxDBGridMaskColumn; dxDBGrid1Column38: TdxDBGridMaskColumn; dxDBGrid1Column39: TdxDBGridMaskColumn; dxDBGrid1Column40: TdxDBGridMaskColumn; dxDBGrid1Column41: TdxDBGridColumn; dxDBGrid1Column42: TdxDBGridColumn; dxDBGrid11: TdxDBGridMaskColumn; dxDBGrid12: TdxDBGridMaskColumn; dxDBGrid13: TdxDBGridMaskColumn; dxDBGrid14: TdxDBGridMaskColumn; dxDBGrid15: TdxDBGridMaskColumn; dxDBGrid16: TdxDBGridMaskColumn; dxDBGrid17: TdxDBGridMaskColumn; dxDBGrid18: TdxDBGridMaskColumn; dxDBGrid19: TdxDBGridMaskColumn; dxDBGrid110: TdxDBGridMaskColumn; dxDBGrid1Column63: TdxDBGridMaskColumn; dxDBGrid1TEU: TdxDBGridMaskColumn; dxDBGrid1Column65: TdxDBGridMaskColumn; dxDBGrid1Column66: TdxDBGridMaskColumn; dxDBGrid1Column67: TdxDBGridDateColumn; dxDBGrid1Column68: TdxDBGridMaskColumn; dxDBGrid1Column69: TdxDBGridMaskColumn; dxDBGrid1Column70: TdxDBGridMaskColumn; dxDBGrid1Column71: TdxDBGridMaskColumn; dxDBGrid1Column72: TdxDBGridMaskColumn; dxDBGrid1Column97: TdxDBGridMaskColumn; N66: TMenuItem; N67: TMenuItem; N68: TMenuItem; N69: TMenuItem; N70: TMenuItem; N71: TMenuItem; N72: TMenuItem; bsSkinButton15: TbsSkinButton; N73: TMenuItem; N74: TMenuItem; bsSkinButton38: TbsSkinButton; N76: TMenuItem; N77: TMenuItem; N78: TMenuItem; N79: TMenuItem; N80: TMenuItem; N81: TMenuItem; N82: TMenuItem; N83: TMenuItem; N84: TMenuItem; bsSkinPanel5: TbsSkinPanel; Label82: TLabel; DBMemo12: TDBMemo; Label83: TLabel; DBEdit23: TDBEdit; Label84: TLabel; RxDBLookupCombo34: TRxDBLookupCombo; Label85: TLabel; RxDBLookupCombo35: TRxDBLookupCombo; Label86: TLabel; RxDBLookupCombo36: TRxDBLookupCombo; dxDBGrid1Column114: TdxDBGridColumn; bsSkinDBText1: TbsSkinDBText; bsSkinPanel6: TbsSkinPanel; Label110: TLabel; wwDBLookupCombo12: TwwDBLookupCombo; N87: TMenuItem; WORD1: TMenuItem; bsSkinPanel9: TbsSkinPanel; Label116: TLabel; Edit1: TEdit; Label131: TLabel; Edit2: TEdit; bsSkinButton44: TbsSkinButton; N90: TMenuItem; N91: TMenuItem; N92: TMenuItem; N93: TMenuItem; N94: TMenuItem; N95: TMenuItem; N96: TMenuItem; N98: TMenuItem; N99: TMenuItem; bsSkinSpeedButton1: TbsSkinSpeedButton; OpenDialog1: TOpenDialog; bsSkinButton45: TbsSkinButton; PopupMenu5: TPopupMenu; N101: TMenuItem; N102: TMenuItem; N103: TMenuItem; dxDBGrid1Column119: TdxDBGridColumn; dxDBGrid1Column120: TdxDBGridColumn; N108: TMenuItem; N113: TMenuItem; N114: TMenuItem; dxDBGrid1Column122: TdxDBGridCheckColumn; dxDBGrid1Column124: TdxDBGridColumn; dxDBGrid1Column125: TdxDBGridColumn; dxDBGrid1Column126: TdxDBGridColumn; SaveDialog1: TSaveDialog; N26: TMenuItem; TabCtn: TbsSkinTabSheet; t_op_ctn: TADOQuery; t_op_ctn1: TDataSource; wwDBLookupCombo13: TwwDBLookupCombo; wwDBLookupCombo14: TwwDBLookupCombo; wwDBGrid1: TwwDBGrid; bsSkinPanel3: TbsSkinPanel; bsSkinButton22: TbsSkinButton; bsSkinButton35: TbsSkinButton; bsSkinButton40: TbsSkinButton; bsSkinButton41: TbsSkinButton; bsSkinButton42: TbsSkinButton; bsSkinButton46: TbsSkinButton; Memo4: TMemo; Memo3: TMemo; Memo2: TMemo; Memo1: TMemo; bsSkinPanel4: TbsSkinPanel; Label19: TLabel; RxDBLookupCombo12: TRxDBLookupCombo; Label134: TLabel; RxDBLookupCombo49: TRxDBLookupCombo; Label16: TLabel; RxDBLookupCombo14: TRxDBLookupCombo; RxDBLookupCombo31: TRxDBLookupCombo; Label41: TLabel; Label17: TLabel; wwDBComboBox9: TwwDBComboBox; wwDBComboBox2: TwwDBComboBox; dxDBGrid1Column81: TdxDBGridColumn; wwDBComboBoxcns: TwwDBComboBox; bsSkinPanel2: TbsSkinPanel; Label11: TLabel; DBEdit10: TDBEdit; Label40: TLabel; wwDBComboBoxwd: TwwDBComboBox; Label47: TLabel; DBEdit15: TDBEdit; Label48: TLabel; DBEdit16: TDBEdit; Label10: TLabel; DBEdit6: TDBEdit; bsSkinPanel7: TbsSkinPanel; Label43: TLabel; DBEdit11: TDBEdit; Label44: TLabel; DBEdit12: TDBEdit; Label45: TLabel; DBEdit13: TDBEdit; Label49: TLabel; DBEdit17: TDBEdit; Label50: TLabel; DBEdit19: TDBEdit; Label51: TLabel; DBEdit20: TDBEdit; bsSkinPanel8: TbsSkinPanel; Label163: TLabel; Label164: TLabel; Label165: TLabel; Label166: TLabel; Label167: TLabel; Label168: TLabel; Label169: TLabel; Label170: TLabel; DBMemo38: TDBMemo; bsSkinButton21: TbsSkinButton; DBMemo39: TDBMemo; DBMemo40: TDBMemo; DBMemo41: TDBMemo; DBMemo42: TDBMemo; DBEdit80: TDBEdit; DBEdit81: TDBEdit; wwDBLookupCombo61: TwwDBLookupCombo; DBEdit82: TDBEdit; DBEdit83: TDBEdit; RxDBLookupCombo11: TRxDBLookupCombo; bsSkinButton16: TbsSkinButton; bsSkinButton18: TbsSkinButton; bsSkinButton19: TbsSkinButton; bsSkinButton20: TbsSkinButton; bsSkinButton12: TbsSkinButton; bsSkinPanel10: TbsSkinPanel; Label13: TLabel; Label122: TLabel; Label121: TLabel; Label123: TLabel; Label6: TLabel; Label125: TLabel; Label126: TLabel; Label124: TLabel; Label7: TLabel; Label146: TLabel; Label145: TLabel; Label15: TLabel; Label25: TLabel; Label18: TLabel; Label73: TLabel; Label32: TLabel; Label21: TLabel; Label35: TLabel; Label26: TLabel; Label27: TLabel; Label30: TLabel; Label31: TLabel; Label28: TLabel; Label9: TLabel; Label12: TLabel; Label119: TLabel; Label22: TLabel; wwDBLookupCombo48: TwwDBLookupCombo; wwDBLookupCombo46: TwwDBLookupCombo; wwDBLookupCombo47: TwwDBLookupCombo; RxDBLookupCombo3: TRxDBLookupCombo; DBEdit5: TDBEdit; DBMemo35: TDBMemo; DBMemo34: TDBMemo; DBMemo33: TDBMemo; RxDBLookupCombo2: TRxDBLookupCombo; RxDBLookupCombo4: TRxDBLookupCombo; RxDBLookupCombo5: TRxDBLookupCombo; DBMemo1: TDBMemo; wwDBLookupCombo49: TwwDBLookupCombo; DBEdit63: TDBEdit; wwDBDateTimePicker2: TwwDBDateTimePicker; wwDBDateTimePicker6: TwwDBDateTimePicker; wwDBDateTimePicker3: TwwDBDateTimePicker; wwDBLookupCombo21: TwwDBLookupCombo; wwDBDateTimePicker4: TwwDBDateTimePicker; DBEdit25: TDBEdit; DBEdit27: TDBEdit; DBEdit26: TDBEdit; RxDBLookupCombo6: TRxDBLookupCombo; RxDBLookupCombo9: TRxDBLookupCombo; bsSkinButton23: TbsSkinButton; bsSkinButton24: TbsSkinButton; bsSkinButton25: TbsSkinButton; bsSkinButton26: TbsSkinButton; RxDBLookupCombo20: TRxDBLookupCombo; RxDBLookupCombo21: TRxDBLookupCombo; RxDBLookupCombo22: TRxDBLookupCombo; RxDBLookupCombo15: TRxDBLookupCombo; RxDBLookupCombo28: TRxDBLookupCombo; Button1: TButton; wwDBLookupCombo7: TwwDBLookupCombo; RxDBLookupCombo43: TRxDBLookupCombo; RxDBLookupCombo7: TRxDBLookupCombo; wwDBComboBoxBLNUM: TwwDBComboBox; wwDBComboBox8: TwwDBComboBox; DBEdit21: TDBEdit; DBEdit22: TDBEdit; DBEdit24: TDBEdit; DBEdit28: TDBEdit; bsSkinPageControl2: TbsSkinPageControl; bsskintabsheet_1: TbsSkinTabSheet; Label23: TLabel; Label24: TLabel; Label29: TLabel; Label33: TLabel; RxDBLookupCombo16: TRxDBLookupCombo; bsSkinButton27: TbsSkinButton; DBMemo3: TDBMemo; bsSkinButton28: TbsSkinButton; RxDBLookupCombo17: TRxDBLookupCombo; DBMemo4: TDBMemo; RxDBLookupCombo18: TRxDBLookupCombo; bsSkinButton29: TbsSkinButton; DBMemo5: TDBMemo; bsSkinButton30: TbsSkinButton; RxDBLookupCombo19: TRxDBLookupCombo; DBMemo6: TDBMemo; wwDBLookupCombo2: TwwDBLookupCombo; wwDBLookupCombo5: TwwDBLookupCombo; wwDBLookupCombo6: TwwDBLookupCombo; wwDBLookupCombo8: TwwDBLookupCombo; bsSkinButton39: TbsSkinButton; bsskintabsheet_2: TbsSkinTabSheet; dxDBGrid2: TdxDBGrid; dxDBGrid2Column1: TdxDBGridMaskColumn; dxDBGrid2Column2: TdxDBGridMaskColumn; dxDBGrid2Column3: TdxDBGridMaskColumn; dxDBGrid2Column4: TdxDBGridMaskColumn; dxDBGrid2Column5: TdxDBGridMaskColumn; dxDBGrid2Column6: TdxDBGridMaskColumn; dxDBGrid2Column7: TdxDBGridDateColumn; dxDBGrid2Column8: TdxDBGridMaskColumn; dxDBGrid2Column9: TdxDBGridMaskColumn; dxDBGrid2Column10: TdxDBGridMaskColumn; dxDBGrid2Column11: TdxDBGridColumn; dxDBGrid2Column12: TdxDBGridColumn; dxDBGrid2Column13: TdxDBGridMaskColumn; dxDBGrid2Column14: TdxDBGridMaskColumn; dxDBGrid2Column15: TdxDBGridMaskColumn; dxDBGrid2Column16: TdxDBGridMaskColumn; Panel1: TPanel; bsSkinButton31: TbsSkinButton; bsSkinButton32: TbsSkinButton; bsSkinButton33: TbsSkinButton; bsSkinButton34: TbsSkinButton; bsSkinButton36: TbsSkinButton; bsSkinButton14: TbsSkinButton; Label14: TLabel; DBMemo2: TDBMemo; bsSkinButton17: TbsSkinButton; bsSkinPanel11: TbsSkinPanel; Label153: TLabel; wwDBLookupCombo11: TwwDBLookupCombo; bsSkinButton37: TbsSkinButton; DBMemo10: TDBMemo; bsSkinGroupBox1: TbsSkinGroupBox; t_op_seae_edi: TADOQuery; Label8: TLabel; wwDBLookupCombo1: TwwDBLookupCombo; Label34: TLabel; Edit7: TEdit; t_op_seae_main: TADOQuery; Label46: TLabel; DBEdit14: TDBEdit; DBEdit29: TDBEdit; Label39: TLabel; Label52: TLabel; RxDBLookupCombo8: TRxDBLookupCombo; DBEdit30: TDBEdit; wwDBComboBoxPackge: TwwDBComboBox; Label53: TLabel; Label54: TLabel; RxDBLookupCombo10: TRxDBLookupCombo; Label55: TLabel; RxDBLookupCombo13: TRxDBLookupCombo; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure bsSkinButton5Click(Sender: TObject); procedure t_op_seaeBeforePost(DataSet: TDataSet); procedure FormShow(Sender: TObject); procedure t_op_seae_fenBeforePost(DataSet: TDataSet); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure wwDBComboBox2Change(Sender: TObject); procedure bsSkinButton11Click(Sender: TObject); procedure bsSkinButton33Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinButton32Click(Sender: TObject); procedure bsSkinButton36Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure t_op_seaeBeforeDelete(DataSet: TDataSet); procedure t_op_seae_fenBeforeDelete(DataSet: TDataSet); procedure bsSkinButton8Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure RxDBLookupCombo2Change(Sender: TObject); procedure RxDBLookupCombo3Change(Sender: TObject); procedure RxDBLookupCombo4Change(Sender: TObject); procedure RxDBLookupCombo16Change(Sender: TObject); procedure RxDBLookupCombo17Change(Sender: TObject); procedure RxDBLookupCombo18Change(Sender: TObject); procedure bsSkinButton26Click(Sender: TObject); procedure bsSkinButton25Click(Sender: TObject); procedure bsSkinButton24Click(Sender: TObject); procedure bsSkinButton23Click(Sender: TObject); procedure bsSkinButton21Click(Sender: TObject); procedure bsSkinButton22Click(Sender: TObject); procedure bsSkinButton16Click(Sender: TObject); procedure bsSkinButton17Click(Sender: TObject); procedure bsSkinButton18Click(Sender: TObject); procedure bsSkinButton19Click(Sender: TObject); procedure bsSkinButton20Click(Sender: TObject); procedure DBMemo40Change(Sender: TObject); procedure DBMemo41Change(Sender: TObject); procedure DBMemo42Change(Sender: TObject); procedure DBMemo41Exit(Sender: TObject); procedure DBMemo42Exit(Sender: TObject); procedure wwDBLookupCombo61Change(Sender: TObject); procedure bsSkinButton37Click(Sender: TObject); procedure DBEdit5Click(Sender: TObject); procedure bsSkinPageControl1Change(Sender: TObject); procedure N2Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N24Click(Sender: TObject); procedure N22Click(Sender: TObject); procedure N27Click(Sender: TObject); procedure N29Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure bsSkinButton34Click(Sender: TObject); procedure RxDBLookupCombo19Change(Sender: TObject); procedure RxDBLookupCombo11Change(Sender: TObject); procedure RxDBLookupCombo5Change(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGrid2Column3CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure EXCEL1Click(Sender: TObject); procedure Panel2Resize(Sender: TObject); procedure DBEdit1KeyPress(Sender: TObject; var Key: Char); procedure DBEdit2KeyPress(Sender: TObject; var Key: Char); procedure DBEdit3KeyPress(Sender: TObject; var Key: Char); procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char); procedure DBEdit8KeyPress(Sender: TObject; var Key: Char); procedure DBEdit9KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo49KeyPress(Sender: TObject; var Key: Char); procedure DBEdit63KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char); procedure wwDBComboBoxBLNUMKeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo15KeyPress(Sender: TObject; var Key: Char); procedure DBEdit26KeyPress(Sender: TObject; var Key: Char); procedure DBEdit27KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char); procedure DBEdit80KeyPress(Sender: TObject; var Key: Char); procedure DBEdit81KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo61KeyPress(Sender: TObject; var Key: Char); procedure DBEdit82KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox2KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo24KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo25KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo27KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo26KeyPress(Sender: TObject; var Key: Char); procedure wwDBComboBox12KeyPress(Sender: TObject; var Key: Char); procedure DBEdit71KeyPress(Sender: TObject; var Key: Char); procedure DBEdit73KeyPress(Sender: TObject; var Key: Char); procedure DBEdit109KeyPress(Sender: TObject; var Key: Char); procedure wwDBComboBox11KeyPress(Sender: TObject; var Key: Char); procedure DBEdit114KeyPress(Sender: TObject; var Key: Char); procedure DBEdit112KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char); procedure DBEdit25KeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); procedure DBEdit18KeyPress(Sender: TObject; var Key: Char); procedure t_op_seae_fenAfterInsert(DataSet: TDataSet); procedure DBEdit3Change(Sender: TObject); procedure DBEdit2Change(Sender: TObject); procedure wwDBLookupCombo46Enter(Sender: TObject); procedure wwDBLookupCombo47Enter(Sender: TObject); procedure wwDBLookupCombo48Enter(Sender: TObject); procedure RxDBLookupCombo2Enter(Sender: TObject); procedure RxDBLookupCombo3Enter(Sender: TObject); procedure RxDBLookupCombo4Enter(Sender: TObject); procedure wwDBLookupCombo46Change(Sender: TObject); procedure wwDBLookupCombo46Exit(Sender: TObject); procedure wwDBLookupCombo47Change(Sender: TObject); procedure wwDBLookupCombo48Change(Sender: TObject); procedure wwDBLookupCombo47Exit(Sender: TObject); procedure wwDBLookupCombo48Exit(Sender: TObject); procedure wwDBLookupCombo46KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo47KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo48KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo18KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo2Exit(Sender: TObject); procedure wwDBLookupCombo5Exit(Sender: TObject); procedure wwDBLookupCombo6Exit(Sender: TObject); procedure wwDBLookupCombo2Change(Sender: TObject); procedure wwDBLookupCombo5Change(Sender: TObject); procedure wwDBLookupCombo6Change(Sender: TObject); procedure RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo12Change(Sender: TObject); procedure RxDBLookupCombo14Change(Sender: TObject); procedure wwDBComboBox3KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox4KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox3KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox5KeyPress(Sender: TObject; var Key: Char); procedure N12Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure N17Click(Sender: TObject); procedure bsSkinButton13Click(Sender: TObject); procedure N34Click(Sender: TObject); procedure N36Click(Sender: TObject); procedure N37Click(Sender: TObject); procedure RxDBLookupCombo1Enter(Sender: TObject); procedure RxDBLookupCombo1Exit(Sender: TObject); procedure RxDBLookupCombo9Enter(Sender: TObject); procedure RxDBLookupCombo6Enter(Sender: TObject); procedure RxDBLookupCombo8Enter(Sender: TObject); procedure RxDBLookupCombo7Enter(Sender: TObject); procedure RxDBLookupCombo10Enter(Sender: TObject); procedure RxDBLookupCombo9Exit(Sender: TObject); procedure RxDBLookupCombo6Exit(Sender: TObject); procedure RxDBLookupCombo8Exit(Sender: TObject); procedure RxDBLookupCombo7Exit(Sender: TObject); procedure RxDBLookupCombo10Exit(Sender: TObject); procedure RxDBLookupCombo2Exit(Sender: TObject); procedure RxDBLookupCombo3Exit(Sender: TObject); procedure RxDBLookupCombo4Exit(Sender: TObject); procedure RxDBLookupCombo5Enter(Sender: TObject); procedure RxDBLookupCombo5Exit(Sender: TObject); procedure RxDBLookupCombo16Enter(Sender: TObject); procedure RxDBLookupCombo17Enter(Sender: TObject); procedure RxDBLookupCombo18Enter(Sender: TObject); procedure RxDBLookupCombo16Exit(Sender: TObject); procedure RxDBLookupCombo17Exit(Sender: TObject); procedure RxDBLookupCombo18Exit(Sender: TObject); procedure RxDBLookupCombo19Enter(Sender: TObject); procedure RxDBLookupCombo19Exit(Sender: TObject); procedure RxDBLookupCombo28Enter(Sender: TObject); procedure RxDBLookupCombo28Exit(Sender: TObject); procedure RxDBLookupCombo15Enter(Sender: TObject); procedure RxDBLookupCombo15Exit(Sender: TObject); procedure RxDBLookupCombo20Enter(Sender: TObject); procedure RxDBLookupCombo20Exit(Sender: TObject); procedure RxDBLookupCombo11Enter(Sender: TObject); procedure RxDBLookupCombo11Exit(Sender: TObject); procedure N40Click(Sender: TObject); procedure N42Click(Sender: TObject); procedure N44Click(Sender: TObject); procedure N46Click(Sender: TObject); procedure Label4Click(Sender: TObject); procedure Label23Click(Sender: TObject); procedure Label24Click(Sender: TObject); procedure Label29Click(Sender: TObject); procedure Label33Click(Sender: TObject); procedure Label12Click(Sender: TObject); procedure Label9Click(Sender: TObject); procedure Label11Click(Sender: TObject); procedure Label10Click(Sender: TObject); procedure wwDBLookupCombo2DblClick(Sender: TObject); procedure Label125Click(Sender: TObject); procedure Label7Click(Sender: TObject); procedure Label35Click(Sender: TObject); procedure Label30Click(Sender: TObject); procedure Label73Click(Sender: TObject); procedure Label164Click(Sender: TObject); procedure wwDBLookupCombo61DblClick(Sender: TObject); procedure bsSkinButton12Click(Sender: TObject); procedure bsSkinButton14Click(Sender: TObject); procedure N55Click(Sender: TObject); procedure N51Click(Sender: TObject); procedure N53Click(Sender: TObject); procedure RxDBLookupCombo31Enter(Sender: TObject); procedure RxDBLookupCombo31Exit(Sender: TObject); procedure bsSkinDBCheckRadioBox9KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox10KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo7Enter(Sender: TObject); procedure wwDBLookupCombo7Exit(Sender: TObject); procedure wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo7Change(Sender: TObject); procedure wwDBLookupCombo8KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo8Change(Sender: TObject); procedure wwDBLookupCombo8Exit(Sender: TObject); procedure bsSkinButton35Click(Sender: TObject); procedure RxDBLookupCombo1Change(Sender: TObject); procedure N62Click(Sender: TObject); procedure N64Click(Sender: TObject); procedure dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGrid2Column2CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); procedure N66Click(Sender: TObject); procedure t_op_seaeAfterPost(DataSet: TDataSet); procedure N68Click(Sender: TObject); procedure N70Click(Sender: TObject); procedure N72Click(Sender: TObject); procedure Notebook1PageChanged(Sender: TObject); procedure bsSkinButton15Click(Sender: TObject); procedure wwDBDateTimePicker14KeyPress(Sender: TObject; var Key: Char); procedure N74Click(Sender: TObject); procedure t_op_seae_fenPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); procedure bsSkinButton38Click(Sender: TObject); procedure N76Click(Sender: TObject); procedure N78Click(Sender: TObject); procedure N80Click(Sender: TObject); procedure wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo11Change(Sender: TObject); procedure wwDBLookupCombo11Exit(Sender: TObject); procedure wwDBLookupCombo11DblClick(Sender: TObject); procedure t_op_seaeBeforeEdit(DataSet: TDataSet); procedure t_op_seae_fenBeforeEdit(DataSet: TDataSet); procedure t_op_seae_fenBeforeCancel(DataSet: TDataSet); procedure t_op_seaeBeforeCancel(DataSet: TDataSet); procedure RxDBLookupCombo32KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo33KeyPress(Sender: TObject; var Key: Char); procedure N82Click(Sender: TObject); procedure N84Click(Sender: TObject); procedure RxDBLookupCombo36Enter(Sender: TObject); procedure RxDBLookupCombo36Exit(Sender: TObject); procedure bsSkinButton39Click(Sender: TObject); procedure bsSkinButton42Click(Sender: TObject); procedure bsSkinButton40Click(Sender: TObject); procedure bsSkinButton41Click(Sender: TObject); procedure dxDBGrid1Column114CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure RxDBLookupCombo43KeyPress(Sender: TObject; var Key: Char); procedure DBEdit11KeyPress(Sender: TObject; var Key: Char); procedure WORD1Click(Sender: TObject); procedure wwDBLookupCombo49Change(Sender: TObject); procedure bsSkinButton44Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure N92Click(Sender: TObject); procedure N93Click(Sender: TObject); procedure N96Click(Sender: TObject); procedure DBEdit41KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo49KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char); procedure N99Click(Sender: TObject); procedure RxDBLookupCombo15Change(Sender: TObject); procedure bsSkinSpeedButton1Click(Sender: TObject); procedure bsSkinButton31Click(Sender: TObject); procedure bsSkinButton45Click(Sender: TObject); procedure wwDBComboBox9DropDown(Sender: TObject); procedure RxDBLookupCombo31Change(Sender: TObject); procedure wwDBComboBox9KeyPress(Sender: TObject; var Key: Char); procedure N103Click(Sender: TObject); procedure N105Click(Sender: TObject); procedure N114Click(Sender: TObject); procedure t_op_fangdanBeforeEdit(DataSet: TDataSet); procedure t_op_fangdanBeforeInsert(DataSet: TDataSet); procedure wwDBLookupCombo16KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo17KeyPress(Sender: TObject; var Key: Char); procedure bsSkinButton47Click(Sender: TObject); procedure EDI1Click(Sender: TObject); procedure bsSkinButton46Click(Sender: TObject); procedure wwDBLookupCombo13Change(Sender: TObject); procedure t_op_ctnAfterPost(DataSet: TDataSet); procedure t_op_ctnAfterInsert(DataSet: TDataSet); procedure t_op_ctnBeforeDelete(DataSet: TDataSet); procedure t_op_ctnBeforeEdit(DataSet: TDataSet); procedure t_op_ctnBeforePost(DataSet: TDataSet); procedure RxDBLookupCombo21Enter(Sender: TObject); procedure RxDBLookupCombo21Exit(Sender: TObject); procedure RxDBLookupCombo21Change(Sender: TObject); procedure RxDBLookupCombo22Change(Sender: TObject); procedure RxDBLookupCombo7Change(Sender: TObject); procedure RxDBLookupCombo43Change(Sender: TObject); procedure wwDBComboBox8Change(Sender: TObject); procedure RxDBLookupCombo8Change(Sender: TObject); procedure Button2Click(Sender: TObject); procedure DBMemo39Change(Sender: TObject); private procedure setconcolor; procedure UpLoadPro(fname:string); //fname包含完整路径、文件名 procedure DownLoadPro(fname:string); //从数据库的表中下载 { Private declarations } public psqlstr:widestring; assup:boolean; { Public declarations } end; var frm_op_seae: Tfrm_op_seae; frm_op_seae_list_type:integer; frm_op_seae_create:boolean; implementation uses u_main,u_data_share, my_sys_function, u_op_seae_add, u_op_ctn, u_op_add_ctn,u_op_seae_excel, u_ch_fee_se, {$IFDEF ZTGENGZONG} u_op_seae_state,u_op_seae_state_up,{$ENDIF} u_op_seae_assistant, u_op_seae_vessel, u_sys_progress, u_ch_fee_zhupiao, u_ch_piliang_seae, u_op_date_change, u_op_seae_print_mul, u_op_seae_edi_hk, u_op_seae_word, u_sys_tab_sort, u_op_seae_history, u_op_letter; {$R *.dfm} procedure Tfrm_op_seae.FormClose(Sender: TObject; var Action: TCloseAction); begin savereggrid(dxdbgrid1,caption); savereggrid(dxdbgrid2,caption+'1'); if assigned(frm_ch_fee_sea) then frm_ch_fee_sea.close; if assigned(frm_op_letter) then frm_op_letter.close; {$IFDEF ZTGENGZONG} if assigned(frm_op_seae_state) then frm_op_seae_state.close; if assigned(frm_op_seae_state_up) then begin frm_op_seae_state_up.close; frm_op_seae_state_up.free; frm_op_seae_state_up:=nil; end; {$ENDIF} if assigned(frm_op_seae_assistant) then frm_op_seae_assistant.close; frm_op_seae.Hide; frm_op_seae.ManualFloat(frm_op_seae.BoundsRect ); frm_main.freeTabs('frm_op_seae'); frm_op_seae_create:=false; action:=cafree; frm_op_seae:=nil; end; procedure Tfrm_op_seae.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_op_seae.t_op_seaeBeforePost(DataSet: TDataSet); var aQuery:TAdoQuery; begin if not EdiAdd then begin table_before_post(t_op_seae,'委托单位'); table_before_post(t_op_seae,'操作员'); table_before_post(t_op_seae,'客服员'); table_before_post(t_op_seae,'开船日期'); table_before_post(t_op_seae,'装运方式'); table_before_post(t_op_seae,'装货港'); // table_before_post(t_op_seae,'卸货港'); // table_before_post(t_op_seae,'业务来源'); if pos('指定',t_op_seae.FieldByName('业务来源').AsString)>0 then begin end else begin // table_before_post(t_op_seae,'揽货人'); // table_before_post(t_op_seae,'销售部门'); end; table_before_post(t_op_seae,'操作部门'); end; if Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='自动取号' then if t_op_seae.FieldByName('委托编号').IsNull or (trim(t_op_seae['委托编号'])='') then if Trim(frm_data_share.t_sys_noset.fieldbyname('日期规则').Asstring)='会计期间' then t_op_seae['委托编号']:=getwtno(1,subComp,department,employee,t_op_seae['会计期间']) else t_op_seae['委托编号']:=getwtno(1,subComp,department,employee,t_op_seae['开船日期']); if not EdiAdd then begin op_empty('t_op_seae',t_op_seae); { if t_op_seae.fieldbyname('设置温度').asstring='' then showmessage('此票业务温度为空！！'); } if t_op_seae.fieldbyname('开船日期').oldvalue<>t_op_seae.fieldbyname('开船日期').asdatetime then if (t_op_seae.fieldbyname('业务类型').asstring<>'更改单') and (Logininfo.endday>=t_op_seae.fieldbyname('开船日期').asdatetime) then begin showmessage('此开船日期所在期间已月末结账,不能添加修改业务！！'); abort; end; { if t_op_seae.fieldbyname('截港日期').asstring<>''then begin if t_op_seae.fieldbyname('截港日期').asdatetime>t_op_seae.fieldbyname('开船日期').asdatetime then begin showmessage('截港日期不能大于开船日期！！'); abort; end; end; } if t_op_seae.fieldbyname('预抵日期').asstring<>''then begin if t_op_seae.fieldbyname('预抵日期').asdatetime''then begin if t_op_seae.fieldbyname('二程开船日期').asdatetimet_op_seae.FieldByName('委托单位').asstring then begin if frm_data_share.t_crm_client_all.Locate('客户简称',t_op_seae.FieldByName('委托单位').asstring,[])then begin if frm_data_share.t_crm_client_all.fieldbyname('客户状态').asstring='封存客户'then begin showmessage('当前业务委托单位已经封存，不能再进行业务合作，如需合作请进行恢复客户操作！'); abort; end; end; end; end; if t_op_seae.State=dsinsert then begin if t_op_seae.fieldbyname('业务编号').asstring=''then begin t_op_seae['业务编号']:=get_no(t_op_seae.fieldbyname('会计期间').AsDateTime,getbsno(Logininfo.SeaExpBsNo,'SE')); t_op_seae['编号']:=get_id; end; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae['业务状态']:='接受委托'; t_op_seae['费用状态']:='录入状态'; end else begin if not EdiAdd then begin if t_op_seae.FieldByName('装运方式').asstring='整箱' then begin // if (Trim(t_op_seae.fieldbyname('业务类型').asstring)<>'更改单') then // table_before_post(t_op_seae,'集装箱'); end; end; end; t_op_seae['英文船期']:=date_eng(t_op_seae.fieldbyname('开船日期').AsDateTime); if strtobool(get_parameters_value(31,'false')) then begin if (trim(t_op_seae.fieldbyname('主提单号').asstring)='') or (Trim(t_op_seae.fieldbyname('业务类型').asstring)='更改单') or (t_op_seae.fieldbyname('装运方式').asstring='拼箱主票') then begin t_op_seae['主提单标准']:=t_op_seae['编号']; end else begin t_op_seae['主提单标准']:=Logininfo.subcompcode+t_op_seae['主提单号']; end; end else begin t_op_seae['主提单标准']:=t_op_seae['编号']; end; if strtobool(get_parameters_value(32,'false')) then begin if (trim(t_op_seae.fieldbyname('分提单号').asstring)='') or (Trim(t_op_seae.fieldbyname('业务类型').asstring)='更改单') then begin t_op_seae['分提单标准']:=t_op_seae['编号']; end else begin t_op_seae['分提单标准']:=Logininfo.subcompcode+t_op_seae['分提单号']; end; end else begin t_op_seae['分提单标准']:=t_op_seae['编号']; end; if strtobool(get_parameters_value(33,'false')) then begin if (trim(t_op_seae.fieldbyname('委托编号').asstring)='') or (t_op_seae.fieldbyname('装运方式').asstring='拼箱主票') or (Trim(t_op_seae.fieldbyname('业务类型').asstring)='更改单') then begin t_op_seae['委托标准']:=t_op_seae['编号']; end else begin t_op_seae['委托标准']:=t_op_seae['委托编号']; end; end else begin t_op_seae['委托标准']:=t_op_seae['编号']; end; end; procedure Tfrm_op_seae.FormShow(Sender: TObject); var inifile1,seabandini:Tinifile; i,j,n:integer; sl:TStrings; begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); frm_sys_progress.bsSkinGauge1.ProgressText:='加载数据请等候。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=35; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; frm_op_seae_list_type:=1; Label37.Caption:=Logininfo.seaewtno; dxDBGrid1Column8.Caption:=Logininfo.seaewtno; { if Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='自动取号' then begin DBEdit8.Width:=119; bsSkinSpeedButton1.Visible:=false; if frm_data_share.t_sys_noset.fieldbyname('是否允许手动编辑').AsBoolean then begin DBEdit8.ReadOnly:=false; end else begin DBEdit8.ReadOnly:=true; end; end else if Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动取号' then begin DBEdit8.Width:=99; bsSkinSpeedButton1.Visible:=true; if frm_data_share.t_sys_noset.fieldbyname('是否允许手动编辑').AsBoolean then begin DBEdit8.ReadOnly:=false; end else begin DBEdit8.ReadOnly:=true; end; end else if Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动编辑' then begin DBEdit8.ReadOnly:=false; DBEdit8.Width:=119; bsSkinSpeedButton1.Visible:=false; end; } // t_op_msg.close; t_op_seae_fen.close; // t_op_seae_huanhuo.close; t_op_seae.Close; t_op_seae.SQL.clear; if strtobool(get_parameters_value(132,'true')) then begin // t_op_seae.SQL.Add('select top 100 * from t_op_seae where 主编号=编号 and 装运方式<>''报关'' and ' t_op_seae.SQL.Add('select top 100 * from t_op_seae where 装运方式<>''分票明细'' and ' +'(录入人='+''''+employee+''''+' or 操作员='+''''+employee+'''' +' or 客服员='+''''+employee+''''+')' +' order by 开船日期 DESC,船名,航次'); end else begin // t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and 装运方式<>''报关'' and ' t_op_seae.SQL.Add('select * from t_op_seae where 装运方式<>''分票明细'' and ' +' SUBSTRING(CONVERT(char(15),开船日期,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and ' +open_data('0001','录入人','操作员','客服员','no','no') +' order by 开船日期 DESC,船名,航次'); end; t_op_seae.open; psqlstr:=''; prnlist:=false; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; t_op_seae_fen.open; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_tiaokuan.open; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; { fra_op_card1.t_op_card.DataSource:=t_op_seae2; fra_op_card1.t_op_card.open; } frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; loadreggrid(dxdbgrid1,true,caption); loadreggrid(dxdbgrid2,false,caption+'1'); frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_op_seae.wwDBComboBox2Change(Sender); frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_op_seae_create:=true; frm_data_share.t_sys_employee.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client_ship.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client_changzhan.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; // frm_data_share.t_crm_client_truck.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; // frm_data_share.t_crm_client_baoguan.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client_weituo.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client_daili.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; // frm_data_share.t_crm_client_huodai.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client_shiper.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client_shouhuo.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client_tongzhi.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_crm_client_other.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_code.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_vessel.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_loaport.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_disport.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_items.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_free.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_signbill.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_goods.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_package.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_fee.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_currency.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_trade.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; // frm_data_share.t_code_card.requery; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_source.requery; if not frm_data_share.t_code_cargo_port.Active then frm_data_share.t_code_cargo_port.open; if not frm_data_share.t_code_cargo_yard.Active then frm_data_share.t_code_cargo_yard.open; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; bsSkinTabSheet2.TabVisible:= if_open('293') or if_open('294'); inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini'); bsSkinPanel9.Visible:=inifile1.Readbool('other','qdisp',false); if bsSkinPanel9.Visible then begin bsSkinPanel9.Visible:=true; bsSkinButton13.Top:=3+bsSkinPanel9.Height; bsSkinButton15.Top:=3+bsSkinPanel9.Height; end; inifile1.free; seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini'); sl:=TStringList.Create; try seabandini.ReadSection('seaexp',sl); for j:=0 to sl.Count-1 do begin n:=seabandini.Readinteger('seaexp',sl[j],0); for i:=0 to bsSkinPageControl1.PageCount-1 do begin if bsSkinPageControl1.Pages[i].Name=sl[j] then begin bsSkinPageControl1.Pages[i].PageIndex:=n; end; end; end; finally freeandnil(seabandini); freeandnil(sl); end; {$IFDEF ZTGENGZONG} if not if_reg(195) then begin bsSkinTabSheet7.TabVisible:=false; N42.Visible:=false; bsSkinButton15.Visible:=false; end; {$ELSE} bsSkinTabSheet7.TabVisible:=false; N42.Visible:=false; bsSkinButton15.Visible:=false; {$ENDIF} assup:=false; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_sys_progress.close; frm_sys_progress:=nil; end; procedure Tfrm_op_seae.t_op_seae_fenBeforePost(DataSet: TDataSet); begin table_before_post(t_op_seae_fen,'委托单位'); table_before_post(t_op_seae_fen,'操作员'); table_before_post(t_op_seae_fen,'客服员'); table_before_post(t_op_seae_fen,'开船日期'); table_before_post(t_op_seae_fen,'装货港'); table_before_post(t_op_seae_fen,'卸货港'); table_before_post(t_op_seae_fen,'业务来源'); if pos('指定',t_op_seae_fen.FieldByName('业务来源').AsString)>0 then begin end else begin table_before_post(t_op_seae_fen,'揽货人'); table_before_post(t_op_seae_fen,'销售部门'); end; table_before_post(t_op_seae_fen,'销售部门'); table_before_post(t_op_seae_fen,'操作部门'); if Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='自动取号' then if t_op_seae_fen['委托编号']='' then if Trim(frm_data_share.t_sys_noset.fieldbyname('日期规则').Asstring)='会计期间' then t_op_seae_fen['委托编号']:=getwtno(1,subComp,department,employee,t_op_seae_fen['会计期间']) else t_op_seae_fen['委托编号']:=getwtno(1,subComp,department,employee,t_op_seae_fen['开船日期']); op_empty('t_op_seae',t_op_seae_fen); if t_op_seae_fen.fieldbyname('开船日期').oldvalue<>t_op_seae_fen.fieldbyname('开船日期').asdatetime then if (t_op_seae_fen.fieldbyname('业务类型').asstring<>'更改单') and (Logininfo.endday>=t_op_seae_fen.fieldbyname('开船日期').asdatetime) then begin showmessage('此开船日期所在期间已月末结账,不能添加修改业务！！'); abort; end; if t_op_seae_fen.fieldbyname('截港日期').asstring<>''then begin if t_op_seae_fen.fieldbyname('截港日期').asdatetime>t_op_seae_fen.fieldbyname('开船日期').asdatetime then begin showmessage('截港日期不能大于开船日期！！'); abort; end; end; if t_op_seae_fen.fieldbyname('预抵日期').asstring<>''then begin if t_op_seae_fen.fieldbyname('预抵日期').asdatetime''then begin if t_op_seae_fen.fieldbyname('二程开船日期').asdatetimet_op_seae_fen.FieldByName('委托单位').asstring then begin if frm_data_share.t_crm_client_all.Locate('客户简称',t_op_seae_fen.FieldByName('委托单位').asstring,[])then begin if frm_data_share.t_crm_client_all.fieldbyname('客户状态').asstring='封存客户'then begin showmessage('当前业务委托单位已经封存，不能再进行业务合作，如需合作请进行恢复客户操作！'); abort; end; end; end; if t_op_seae_fen.State=dsinsert then begin if t_op_seae_fen.fieldbyname('业务编号').asstring=''then begin t_op_seae_fen['业务编号']:=get_no(t_op_seae_fen.fieldbyname('会计期间').AsDateTime,getbsno(Logininfo.SeaExpBsNo,'SE')); t_op_seae_fen['编号']:=get_id; end; t_op_seae_fen['主编号']:=t_op_seae['编号']; t_op_seae_fen['业务状态']:='接受委托'; t_op_seae_fen['费用状态']:='录入状态'; end; t_op_seae_fen['英文船期']:=date_eng(t_op_seae_fen.fieldbyname('开船日期').AsDateTime); if strtobool(get_parameters_value(31,'false')) then begin if (trim(t_op_seae_fen.fieldbyname('主提单号').asstring)='') or (t_op_seae_fen.fieldbyname('业务类型').asstring='更改单') then begin t_op_seae_fen['主提单标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['主提单标准']:=Logininfo.subcompcode+t_op_seae_fen['主提单号']; end; end else begin t_op_seae_fen['主提单标准']:=t_op_seae_fen['编号']; end; if strtobool(get_parameters_value(32,'false')) then begin if (trim(t_op_seae_fen.fieldbyname('分提单号').asstring)='') or (t_op_seae_fen.fieldbyname('业务类型').asstring='更改单') then begin t_op_seae_fen['分提单标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['分提单标准']:=Logininfo.subcompcode+t_op_seae_fen['分提单号']; end; end else begin t_op_seae_fen['分提单标准']:=t_op_seae_fen['编号']; end; if strtobool(get_parameters_value(33,'false')) then begin if (trim(t_op_seae_fen.fieldbyname('委托编号').asstring)='') or (t_op_seae_fen.fieldbyname('业务类型').asstring='更改单') then begin t_op_seae_fen['委托标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['委托标准']:=t_op_seae_fen['委托编号']; end; end else begin t_op_seae_fen['委托标准']:=t_op_seae_fen['编号']; end; end; procedure Tfrm_op_seae.bsSkinButton7Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if not t_op_seae2.DataSet.Bof then t_op_seae2.DataSet.Prior; end; procedure Tfrm_op_seae.bsSkinButton6Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if not t_op_seae2.DataSet.eof then t_op_seae2.DataSet.next; end; procedure Tfrm_op_seae.wwDBComboBox2Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (wwDBComboBox2.text='分票明细') or (wwDBComboBox2.text='合票主票') then bsSkinTabSheet2.TabVisible:=false else bsSkinTabSheet2.TabVisible:=true; if (wwDBComboBox2.text='拼箱主票') or (wwDBComboBox2.text='分票主票') or (wwDBComboBox2.text='合票主票') then begin Label14.Caption:='分单列表'; DBMemo2.DataField:='分单列表'; bsSkinButton37.Visible:=true; wwDBLookupCombo11.Visible:=false; bsSkinPageControl2.Visible:=true; bsSkinButton12.Visible:=true; // bsSkinButton14.Visible:=true; RxDBLookupCombo2.Visible:=false; RxDBLookupCombo3.Visible:=false; RxDBLookupCombo4.Visible:=false; RxDBLookupCombo5.Visible:=false; DBMemo33.Visible:=false; DBMemo34.Visible:=false; DBMemo35.Visible:=false; DBMemo1.Visible:=false; wwDBLookupCombo46.Visible:=false; wwDBLookupCombo47.Visible:=false; wwDBLookupCombo48.Visible:=false; wwDBLookupCombo7.Visible:=false; if strtobool(get_parameters_value(131,'false')) then begin end else begin DBEdit7.Color:=clBtnFace; DBEdit7.ReadOnly:=true; end; end else begin Label14.Caption:='附加条款'; DBMemo2.DataField:='附加条款'; bsSkinButton37.Visible:=false; // wwDBLookupCombo11.Visible:=true; bsSkinPageControl2.Visible:=false; bsSkinButton12.Visible:=false; bsSkinButton14.Visible:=false; RxDBLookupCombo2.Visible:=true; RxDBLookupCombo3.Visible:=true; RxDBLookupCombo4.Visible:=true; RxDBLookupCombo5.Visible:=true; DBMemo33.Visible:=true; DBMemo34.Visible:=true; DBMemo35.Visible:=true; DBMemo1.Visible:=true; wwDBLookupCombo46.Visible:=true; wwDBLookupCombo47.Visible:=true; wwDBLookupCombo48.Visible:=true; wwDBLookupCombo7.Visible:=true; DBEdit7.Color:=clWindow; DBEdit7.ReadOnly:=false; end; end; procedure Tfrm_op_seae.bsSkinButton11Click(Sender: TObject); var answer:TModalResult; begin if bsSkinButton11.Caption='编辑修改' then begin bsSkinButton11.Caption:='返回列表'; Notebook1.PageIndex:=1; exit; end; if bsSkinButton11.Caption='返回列表' then begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then BEGIN answer:=messagedlg( '数据已经修改，是否保存？',mtWarning,mbYesNoCancel,0); if answer=mrYes then begin t_op_seae.post; end; if answer=mrNo then begin t_op_seae.cancel; end; if answer=mrCancel then begin exit; end; END; bsSkinButton11.Caption:='编辑修改'; Notebook1.PageIndex:=0; exit; end; if bsSkinButton11.Caption='返回主票' then begin if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then BEGIN answer:=messagedlg( '数据已经修改，是否保存？',mtWarning,mbYesNoCancel,0); if answer=mrYes then begin t_op_seae_fen.post; end; if answer=mrNo then begin t_op_seae_fen.cancel; end; if answer=mrCancel then begin exit; end; END; bsSkinButton11.Caption:='返回列表'; try t_op_seae2.Enabled:=false; t_op_seae2.DataSet:=t_op_seae; finally t_op_seae2.Enabled:=true; end; Notebook1.PageIndex:=1; exit; end; end; procedure Tfrm_op_seae.bsSkinButton33Click(Sender: TObject); begin bsSkinButton11.Caption:='返回主票'; try t_op_seae2.Enabled:=false; t_op_seae2.DataSet:=t_op_seae_fen; finally t_op_seae2.Enabled:=true; end; end; procedure Tfrm_op_seae.bsSkinButton2Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then t_op_seae2.DataSet.post; end; procedure Tfrm_op_seae.bsSkinButton3Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then t_op_seae2.DataSet.cancel; end; procedure Tfrm_op_seae.bsSkinButton4Click(Sender: TObject); var answer:TModalResult; begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; t_ch_fee.close; t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('编号').asstring; t_ch_fee.open; if not t_ch_fee.IsEmpty then begin application.MessageBox('业务存在费用不能直接删除!','警告:',MB_OKCANCEL); t_ch_fee.close; exit; end; if (t_op_seae2.DataSet.FieldByName('装运方式').asstring='拼箱主票') or (t_op_seae2.DataSet.FieldByName('装运方式').asstring='分票主票') or (t_op_seae2.DataSet.FieldByName('装运方式').asstring='合票分票') then begin if not t_op_seae_fen.IsEmpty then begin showmessage('对不起拼箱主票存在分票信息，不能删除！！'); exit; end; end; if application.MessageBox('您确定要删除数据吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.delete; end; end; procedure Tfrm_op_seae.bsSkinButton32Click(Sender: TObject); begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then t_op_seae_fen.post; try frm_op_seae_add:=tfrm_op_seae_add.Create (self); frm_op_seae_add.data1.Enabled:=false; frm_op_seae_add.data1.DataSet:=t_op_seae_fen; frm_op_seae_add.data1.Enabled:=true; frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true; frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false; frm_op_seae_add_num:=3; frm_op_seae_add.ShowModal; finally frm_op_seae_add.Free; end; end; procedure Tfrm_op_seae.bsSkinButton36Click(Sender: TObject); begin if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then t_op_seae_fen.post; end; procedure Tfrm_op_seae.bsSkinButton1Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then t_op_seae2.DataSet.post; try frm_op_seae_add:=tfrm_op_seae_add.Create (self); if t_op_seae2.DataSet=t_op_seae then begin frm_op_seae_add.data1.Enabled:=false; frm_op_seae_add.data1.DataSet:=t_op_seae; frm_op_seae_add.data1.Enabled:=true; frm_op_seae_add_num:=1; end else begin frm_op_seae_add.data1.Enabled:=false; frm_op_seae_add.data1.DataSet:=t_op_seae_fen; frm_op_seae_add.data1.Enabled:=true; frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true; frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false; frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false; frm_op_seae_add_num:=2; end; if frm_op_seae_add.ShowModal<>mrCancel then begin if not frm_op_seae.bsSkinTabSheet1.Showing then frm_op_seae.bsSkinTabSheet1.Show; end; finally frm_op_seae_add.Free; end; end; procedure Tfrm_op_seae.t_op_seaeBeforeDelete(DataSet: TDataSet); begin op_befor_post(t_op_seae,'0001'); delete_add(1,t_op_seae); if not t_op_seae.FieldByName('委托编号').IsNull then delwtno(t_op_seae['委托编号']); end; procedure Tfrm_op_seae.t_op_seae_fenBeforeDelete(DataSet: TDataSet); begin op_befor_post(t_op_seae_fen,'0001'); delete_add(1,t_op_seae_fen); if not t_op_seae_fen.FieldByName('委托编号').IsNull then delwtno(t_op_seae_fen['委托编号']); end; procedure Tfrm_op_seae.bsSkinButton8Click(Sender: TObject); var Pnt:Tpoint; begin Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height)); PopupMenu1.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_op_seae.bsSkinButton9Click(Sender: TObject); begin sys_print('海运出口单证',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,t_op_ctn1,nil,nil,nil,nil,nil); end; procedure Tfrm_op_seae.RxDBLookupCombo2Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then begin if RxDBLookupCombo2.DisplayValue<>'' then t_op_seae2.DataSet['发货人代码']:=frm_data_share.t_crm_client_shiper.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.RxDBLookupCombo3Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then begin if RxDBLookupCombo3.DisplayValue<>'' then t_op_seae2.DataSet['收货人代码']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.RxDBLookupCombo4Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then begin if RxDBLookupCombo4.DisplayValue<>'' then t_op_seae2.DataSet['通知人代码']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.RxDBLookupCombo16Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then begin if RxDBLookupCombo16.DisplayValue<>'' then t_op_seae2.DataSet['发货人代码']:=frm_data_share.t_crm_client_shiper.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.RxDBLookupCombo17Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then begin if RxDBLookupCombo17.DisplayValue<>'' then t_op_seae2.DataSet['收货人代码']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.RxDBLookupCombo18Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then begin if RxDBLookupCombo17.DisplayValue<>'' then t_op_seae2.DataSet['通知人代码']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.bsSkinButton26Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'发货人代码'); end; procedure Tfrm_op_seae.bsSkinButton25Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'收货人代码'); end; procedure Tfrm_op_seae.bsSkinButton24Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'通知人代码'); end; procedure Tfrm_op_seae.bsSkinButton23Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'代理内容'); end; procedure Tfrm_op_seae.bsSkinButton21Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'唛头'); end; procedure Tfrm_op_seae.bsSkinButton22Click(Sender: TObject); begin t_op_ctn.insert; end; procedure Tfrm_op_seae.bsSkinButton16Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'货物描述'); end; procedure Tfrm_op_seae.bsSkinButton17Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,DBMemo2.DataField); end; procedure Tfrm_op_seae.bsSkinButton18Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'件数包装'); end; procedure Tfrm_op_seae.bsSkinButton19Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'货物重量'); end; procedure Tfrm_op_seae.bsSkinButton20Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'货物尺码'); end; procedure Tfrm_op_seae.DBMemo40Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin t_op_seae2.DataSet['件数']:=total_num(DBMemo40); t_op_seae2.DataSet['包装']:=total_package(dbmemo40); t_op_seae2.DataSet['件数大写'] :='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('件数').asfloat,true) +t_op_seae2.DataSet.FieldByName('包装').asstring+' ONLY.'; end; end; procedure Tfrm_op_seae.DBMemo41Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin t_op_seae2.DataSet['重量']:=total_num(DBMemo41); end; end; procedure Tfrm_op_seae.DBMemo42Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin t_op_seae2.DataSet['尺码']:=total_num(DBMemo42); end; end; procedure Tfrm_op_seae.DBMemo41Exit(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin kgs_cbm(DBMemo41,'KGS'); t_op_seae2.DataSet['货物重量']:=DBMemo41.text; end; end; procedure Tfrm_op_seae.DBMemo42Exit(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin kgs_cbm(DBMemo42,'CBM'); t_op_seae2.DataSet['货物尺码']:=DBMemo42.text; end; end; procedure Tfrm_op_seae.wwDBLookupCombo61Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin t_op_seae2.DataSet['件数大写'] :='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('件数').asfloat,true) +wwDBLookupCombo61.text+' ONLY.'; if frm_data_share.t_code_package.Locate('客户简称',wwDBLookupCombo61.text,[])then begin t_op_seae2.DataSet['包装种类']:=frm_data_share.t_code_package['包装种类']; end; end; end; procedure Tfrm_op_seae.bsSkinButton37Click(Sender: TObject); var if_first:boolean; max,j:integer; begin if t_op_seae.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前拼箱主票业务已经完成，不能加入！！'); exit; end; if not t_op_seae_fen.IsEmpty then begin t_op_seae.Edit; t_op_seae_fen.First; if_first:=true; while not t_op_seae_fen.eof do begin if if_first then begin DBMemo2.text:=t_op_seae_fen.fieldbyname('分提单号').asstring; DBMemo39.text:=t_op_seae_fen.fieldbyname('货物描述').asstring; DBMemo40.text:=t_op_seae_fen.fieldbyname('件数包装').asstring; DBMemo41.text:=t_op_seae_fen.fieldbyname('货物重量').asstring; DBMemo42.text:=t_op_seae_fen.fieldbyname('货物尺码').asstring; if_first:=false; end else begin max:=DBMemo2.Lines.Count; if DBMemo39.Lines.Count>max then max:=DBMemo39.Lines.Count; if DBMemo40.Lines.Count>max then max:=DBMemo40.Lines.Count; if DBMemo41.Lines.Count>max then max:=DBMemo41.Lines.Count; if DBMemo42.Lines.Count>max then max:=DBMemo42.Lines.Count; if max=DBMemo2.Lines.Count then begin DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('分提单号').asstring); end else begin for j:=1 to (max-DBMemo2.Lines.Count) do begin DBMemo2.Lines.Add(' '); end; DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('分提单号').asstring); end; if max=DBMemo39.Lines.Count then begin DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('货物描述').asstring); end else begin for j:=1 to (max-DBMemo39.Lines.Count) do begin DBMemo39.Lines.Add(' '); end; DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('货物描述').asstring); end; if max=DBMemo40.Lines.Count then begin DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('件数包装').asstring); end else begin for j:=1 to (max-DBMemo40.Lines.Count) do begin DBMemo40.Lines.Add(' '); end; DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('件数包装').asstring); end; if max=DBMemo41.Lines.Count then begin DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('货物重量').asstring); end else begin for j:=1 to (max-DBMemo41.Lines.Count) do begin DBMemo41.Lines.Add(' '); end; DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('货物重量').asstring); end; if max=DBMemo42.Lines.Count then begin DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('货物尺码').asstring); end else begin for j:=1 to (max-DBMemo42.Lines.Count) do begin DBMemo42.Lines.Add(' '); end; DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('货物尺码').asstring); end; end; t_op_seae_fen.next; end; t_op_seae['包装']:='PACKAGES'; t_op_seae.post; end; end; procedure Tfrm_op_seae.DBEdit5Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)then t_op_seae2.DataSet.post; if t_op_seae2.DataSet.IsEmpty then exit; { if (t_op_seae2.DataSet.fieldbyname('装运方式').asstring='拼箱分票') or (t_op_seae2.DataSet.fieldbyname('装运方式').asstring='拼箱单票')then exit; } try frm_op_ctn:=tfrm_op_ctn.Create (self); frm_op_ctn.t_op_ctn.DataSource:=t_op_seae2; frm_op_ctn_type:=true; op_ctn_limited:='0001'; frm_op_ctn.ShowModal; finally frm_op_ctn.Free; if t_op_ctn.Active then t_op_ctn.Requery; end; end; procedure Tfrm_op_seae.bsSkinPageControl1Change(Sender: TObject); begin if frm_op_seae_create=false then exit; if bsSkinPageControl1.ActivePage=TabCtn then begin if not t_op_ctn.Active then t_op_ctn.open; Exit; end else begin if t_op_ctn.State in [dsedit,dsinsert] then t_op_ctn.Post; end; { if bsSkinPageControl1.ActivePage=bsSkinTabSheet8 then begin if not t_op_ams.Active then t_op_ams.open; end else begin if t_op_ams.State in [dsedit,dsinsert] then t_op_ams.Post; end; } if t_op_seae2.DataSet.state in [dsedit,dsinsert] then t_op_seae2.DataSet.post; if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 then begin if not assigned(frm_op_letter) then begin frm_op_letter:=tfrm_op_letter.Create (self); frm_op_letter.t_op_letter.DataSource:=t_op_seae2; frm_op_letter.ManualDock(bsSkinGroupBox1,nil,alClient); frm_op_letter.show; end; exit; end; { if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then begin bsSkinGroupBox5.CaptionMode:=false; bsSkinGroupBox6.CaptionMode:=false; bsSkinGroupBox7.CaptionMode:=false; bsSkinGroupBox8.CaptionMode:=false; exit; end; } if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then begin if if_open('293') or if_open('294') then begin if not assigned(frm_ch_fee_sea) then begin frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self); frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient); frm_ch_fee_sea.Show; end; end else begin showmessage('对不起，你无权操作费用！！'); end; exit; end; {$IFDEF ZTGENGZONG} if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then begin if not assigned(frm_op_seae_state) then begin frm_op_seae_state:=tfrm_op_seae_state.Create (self); frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2; frm_op_seae_state.fra_op_state1.t_op_state.open; frm_op_seae_state.fra_op_state1.edit_state.Text:='1'; frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient); frm_op_seae_state.show; end; exit; end; {$ENDIF} if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then begin if not assigned(frm_op_seae_assistant) then begin frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self); frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2; frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient); frm_op_seae_assistant.show; end; exit; end else begin if assigned(frm_op_seae_assistant) then if frm_op_seae_assistant.t_op_seae_assistant.State in [dsedit,dsinsert] then frm_op_seae_assistant.t_op_seae_assistant.Post; end; end; procedure Tfrm_op_seae.N2Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='整箱' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为整箱！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='整箱'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N5Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='报关' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为报关！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='报关'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N6Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='其他' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为其他！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='其他'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N4Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票' then exit; t_op_seae.edit; t_op_seae['装运方式']:='拼箱主票'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N24Click(Sender: TObject); var aQuery:TAdoQuery; begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱分票' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为拼箱分票！！'); exit; end; end; if t_op_seae.FieldByName('集装箱').asstring<>''then begin if MessageDlg('此票业务存在集装箱信息不能更改为拼箱单票，如想更改集装箱信息将删除！',mtWarning,[mbyes,mbno],0)=mrno then exit; aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('delete from t_op_ctn where 编号='''+t_op_seae.fieldbyname('编号').AsString+''''); ExecSQL; end; finally FreeAndNil(aQuery); end; end; t_op_seae.edit; t_op_seae['装运方式']:='拼箱分票'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae['集装箱']:=''; t_op_seae['箱型1']:=0; t_op_seae['箱型2']:=0; t_op_seae['箱型3']:=0; t_op_seae['箱型4']:=0; t_op_seae['箱型5']:=0; t_op_seae['箱型6']:=0; t_op_seae['箱型7']:=0; t_op_seae['箱型8']:=0; t_op_seae['箱型9']:=0; t_op_seae['箱型10']:=0; t_op_seae['其他箱型']:=0; t_op_seae['箱TEU']:=0; t_op_seae['箱数大写']:=''; t_op_seae.post; end; procedure Tfrm_op_seae.N22Click(Sender: TObject); var aQuery:TAdoQuery; begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱单票' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为拼箱单票！！'); exit; end; end; if t_op_seae.FieldByName('集装箱').asstring<>''then begin if MessageDlg('此票业务存在集装箱信息不能更改为拼箱单票，如想更改,集装箱信息将删除！',mtWarning,[mbyes,mbno],0)=mrno then exit; aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('delete from t_op_ctn where 编号='''+t_op_seae.fieldbyname('编号').AsString+''''); ExecSQL; end; finally FreeAndNil(aQuery); end; end; t_op_seae.edit; t_op_seae['装运方式']:='拼箱单票'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae['集装箱']:=''; t_op_seae['箱型1']:=0; t_op_seae['箱型2']:=0; t_op_seae['箱型3']:=0; t_op_seae['箱型4']:=0; t_op_seae['箱型5']:=0; t_op_seae['箱型6']:=0; t_op_seae['箱型7']:=0; t_op_seae['箱型8']:=0; t_op_seae['箱型9']:=0; t_op_seae['箱型10']:=0; t_op_seae['其他箱型']:=0; t_op_seae['箱TEU']:=0; t_op_seae['箱数大写']:=''; t_op_seae.post; end; procedure Tfrm_op_seae.N27Click(Sender: TObject); begin if t_op_seae_fen.IsEmpty then exit; t_op_seae_fen.edit; t_op_seae_fen['主编号']:=t_op_seae_fen['编号']; t_op_seae_fen['装运方式']:='拼箱单票'; t_op_seae_fen.post; t_op_seae_fen.Requery(); end; procedure Tfrm_op_seae.N29Click(Sender: TObject); begin if t_op_seae_fen.IsEmpty then exit; t_op_seae_fen.edit; t_op_seae_fen['主编号']:=t_op_seae_fen['编号']; t_op_seae_fen.post; t_op_seae_fen.Requery(); end; procedure Tfrm_op_seae.N9Click(Sender: TObject); begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_op_add_ctn:=tfrm_op_add_ctn.Create (self); frm_op_add_ctn.ShowModal; finally frm_op_add_ctn.Free; end; end; procedure Tfrm_op_seae.bsSkinButton34Click(Sender: TObject); var Pnt:Tpoint; begin Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height)); PopupMenu4.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_op_seae.RxDBLookupCombo19Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin // if RxDBLookupCombo19.DisplayValue<>'' then // exit; // if trim(t_op_seae2.DataSet.fieldbyname('代理内容').asstring)=''then t_op_seae2.DataSet['代理内容']:=frm_data_share.t_crm_client_daili['快捷代码']; end; end; procedure Tfrm_op_seae.RxDBLookupCombo11Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo11.DisplayValue='' then exit; t_op_seae2.DataSet.fieldbyname('货物描述').asstring:=t_op_seae2.DataSet.fieldbyname('货物描述').asstring+#13#10+frm_data_share.t_code_goods['货物描述']; // if trim(t_op_seae2.DataSet.fieldbyname('货物描述').asstring)=''then // DBMemo39.Lines.Append(frm_data_share.t_code_goods['货物描述']); // TMemoField(t_op_seae2.Fieldbyname('货物描述')). // :=frm_data_share.t_code_goods['货物描述']; end; end; procedure Tfrm_op_seae.RxDBLookupCombo5Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo5.DisplayValue='' then exit; // if trim(t_op_seae2.DataSet.fieldbyname('代理内容').asstring)=''then t_op_seae2.DataSet['代理内容']:=frm_data_share.t_crm_client_daili['快捷代码']; end; end; procedure Tfrm_op_seae.bsSkinButton10Click(Sender: TObject); begin query_seae(1,'0001'); end; procedure Tfrm_op_seae.dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]); AFont.Color:=clblack; end; procedure Tfrm_op_seae.dxDBGrid2Column3CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid2Column3.Index]); AFont.Color:=clblack; end; procedure Tfrm_op_seae.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=frm_close_query(t_op_seae); CanClose:=frm_close_query(t_op_seae_fen); end; procedure Tfrm_op_seae.EXCEL1Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then t_op_seae2.DataSet.post; try frm_op_seae_excel:=tfrm_op_seae_excel.Create (self); frm_op_seae_excel.tradetype:='SEA'; frm_op_seae_excel.ShowModal; finally frm_op_seae_excel.Free; end; end; procedure Tfrm_op_seae.Panel2Resize(Sender: TObject); var i:integer; begin i:=round(Panel2.Width/12); bsSkinButton7.Width:=i; bsSkinButton6.Width:=i; bsSkinButton9.Width:=i; bsSkinButton10.Width:=i; bsSkinButton1.Width:=i; bsSkinButton11.Width:=i; bsSkinButton8.Width:=i; bsSkinButton2.Width:=i; bsSkinButton4.Width:=i; bsSkinButton3.Width:=i; bsSkinButton38.Width:=i; bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20; bsSkinButton15.left:=bsSkinButton13.Left-75; end; procedure Tfrm_op_seae.DBEdit1KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit2); end; procedure Tfrm_op_seae.DBEdit2KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit3); end; procedure Tfrm_op_seae.DBEdit3KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit4); end; procedure Tfrm_op_seae.DBEdit4KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit18); end; procedure Tfrm_op_seae.RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo12); end; procedure Tfrm_op_seae.RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char); begin key_DBedit(Key,DBEDIT8); end; procedure Tfrm_op_seae.DBEdit8KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit9); end; procedure Tfrm_op_seae.DBEdit9KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit7); end; procedure Tfrm_op_seae.RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo46); end; procedure Tfrm_op_seae.RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo8); end; procedure Tfrm_op_seae.wwDBLookupCombo49KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit63); end; procedure Tfrm_op_seae.DBEdit63KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker2); end; procedure Tfrm_op_seae.wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker6); end; procedure Tfrm_op_seae.wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo21); end; procedure Tfrm_op_seae.wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo22); end; procedure Tfrm_op_seae.RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo49); end; procedure Tfrm_op_seae.wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char); begin // key_wwDBComboBox(Key,wwDBComboBox1); end; procedure Tfrm_op_seae.wwDBComboBoxBLNUMKeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo28); end; procedure Tfrm_op_seae.RxDBLookupCombo15KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit26); end; procedure Tfrm_op_seae.DBEdit26KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit27); end; procedure Tfrm_op_seae.DBEdit27KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo20); end; procedure Tfrm_op_seae.RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char); begin // key_RxDBLookupCombo(Key,RxDBLookupCombo8); end; procedure Tfrm_op_seae.RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo6); end; procedure Tfrm_op_seae.RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char); begin key_wwDBComboBox(Key,wwDBComboBox2); end; procedure Tfrm_op_seae.RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo7); end; procedure Tfrm_op_seae.RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo38); end; procedure Tfrm_op_seae.RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo31); end; procedure Tfrm_op_seae.RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo39); end; procedure Tfrm_op_seae.DBEdit80KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit81); end; procedure Tfrm_op_seae.DBEdit81KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo61); end; procedure Tfrm_op_seae.wwDBLookupCombo61KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit82); end; procedure Tfrm_op_seae.DBEdit82KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit83); end; procedure Tfrm_op_seae.wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit12); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox1KeyPress(Sender: TObject; var Key: Char); begin // key_RxDBLookupCombo(Key,RxDBLookupCombo32); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox2KeyPress(Sender: TObject; var Key: Char); begin // key_RxDBLookupCombo(Key,RxDBLookupCombo33); end; procedure Tfrm_op_seae.RxDBLookupCombo24KeyPress(Sender: TObject; var Key: Char); begin // key_RxDBLookupCombo(Key,RxDBLookupCombo25); end; procedure Tfrm_op_seae.RxDBLookupCombo25KeyPress(Sender: TObject; var Key: Char); begin // key_RxDBLookupCombo(Key,RxDBLookupCombo27); end; procedure Tfrm_op_seae.RxDBLookupCombo27KeyPress(Sender: TObject; var Key: Char); begin // key_RxDBLookupCombo(Key,RxDBLookupCombo26); end; procedure Tfrm_op_seae.RxDBLookupCombo26KeyPress(Sender: TObject; var Key: Char); begin // key_wwDBComboBox(Key,wwDBComboBox12); end; procedure Tfrm_op_seae.wwDBComboBox12KeyPress(Sender: TObject; var Key: Char); begin // key_dbedit(Key,DBEdit71); end; procedure Tfrm_op_seae.DBEdit71KeyPress(Sender: TObject; var Key: Char); begin // key_dbedit(Key,DBEdit73); end; procedure Tfrm_op_seae.DBEdit73KeyPress(Sender: TObject; var Key: Char); begin // key_dbedit(Key,DBEdit109); end; procedure Tfrm_op_seae.DBEdit109KeyPress(Sender: TObject; var Key: Char); begin // key_wwDBComboBox(Key,wwDBComboBox11); end; procedure Tfrm_op_seae.wwDBComboBox11KeyPress(Sender: TObject; var Key: Char); begin // key_dbedit(Key,DBEdit114); end; procedure Tfrm_op_seae.DBEdit114KeyPress(Sender: TObject; var Key: Char); begin // key_dbedit(Key,DBEdit112); end; procedure Tfrm_op_seae.DBEdit112KeyPress(Sender: TObject; var Key: Char); begin // key_dbedit(Key,DBEdit111); end; procedure Tfrm_op_seae.wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo15); end; procedure Tfrm_op_seae.RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit25); end; procedure Tfrm_op_seae.DBEdit25KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker4); end; procedure Tfrm_op_seae.Button1Click(Sender: TObject); begin if t_op_seae2.DataSet.IsEmpty then exit; try frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self); frm_op_seae_vessel.v_vessel_voyage.open; frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo49.text; op_seae_vessel_num:=1; frm_op_seae_vessel.ShowModal; finally frm_op_seae_vessel.Free; frm_op_seae_vessel:=nil; end; end; procedure Tfrm_op_seae.DBEdit18KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo1); end; procedure Tfrm_op_seae.t_op_seae_fenAfterInsert(DataSet: TDataSet); begin t_op_seae_fen['场站']:=t_op_seae['场站']; t_op_seae_fen['船名']:=t_op_seae['船名']; t_op_seae_fen['航次']:=t_op_seae['航次']; t_op_seae_fen['开船日期']:=t_op_seae['开船日期']; t_op_seae_fen['截港日期']:=t_op_seae['截港日期']; t_op_seae_fen['预抵日期']:=t_op_seae['预抵日期']; t_op_seae_fen['起运港']:=t_op_seae['起运港']; t_op_seae_fen['装货港']:=t_op_seae['装货港']; t_op_seae_fen['装港代码']:=t_op_seae['装港代码']; t_op_seae_fen['卸货港']:=t_op_seae['卸货港']; t_op_seae_fen['卸货代码']:=t_op_seae['卸货代码']; t_op_seae_fen['二程开船日期']:=t_op_seae['二程开船日期']; t_op_seae_fen['二程港口']:=t_op_seae['二程港口']; t_op_seae_fen['二程船名']:=t_op_seae['二程船名']; t_op_seae_fen['二程航次']:=t_op_seae['二程航次']; t_op_seae_fen['目的地']:=t_op_seae['目的地']; t_op_seae_fen['交货地点']:=t_op_seae['交货地点']; t_op_seae_fen['交货代码']:=t_op_seae['交货代码']; t_op_seae_fen['提单份数']:=t_op_seae['提单份数']; t_op_seae_fen['签单方式']:=t_op_seae['签单方式']; t_op_seae_fen['签单地点']:=t_op_seae['签单地点']; t_op_seae_fen['签单日期']:=t_op_seae['签单日期']; t_op_seae_fen['付费方式']:=t_op_seae['付费方式']; t_op_seae_fen['预付地点']:=t_op_seae['预付地点']; t_op_seae_fen['到付地点']:=t_op_seae['到付地点']; t_op_seae_fen['运输条款']:=t_op_seae['运输条款']; t_op_seae_fen['唛头']:=t_op_seae['唛头']; t_op_seae_fen['箱号封号']:=t_op_seae['箱号封号']; t_op_seae_fen['航线']:=t_op_seae['航线']; t_op_seae_fen['船公司']:=t_op_seae['船公司']; end; procedure Tfrm_op_seae.DBEdit3Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text); end; procedure Tfrm_op_seae.DBEdit2Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; DBEdit2.Color:=dxgrid_color('海运出口',DBEdit2.text); end; procedure Tfrm_op_seae.wwDBLookupCombo46Enter(Sender: TObject); begin with frm_data_share do begin t_code_code.Filtered:=false; t_code_code.Filter:='发货人=1'; t_code_code.Filtered:=true; end; end; procedure Tfrm_op_seae.wwDBLookupCombo47Enter(Sender: TObject); begin with frm_data_share do begin t_code_code.Filtered:=false; t_code_code.Filter:='收货人=1'; t_code_code.Filtered:=true; end; end; procedure Tfrm_op_seae.wwDBLookupCombo48Enter(Sender: TObject); begin with frm_data_share do begin t_code_code.Filtered:=false; t_code_code.Filter:='通知人=1'; t_code_code.Filtered:=true; end; end; procedure Tfrm_op_seae.RxDBLookupCombo2Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo2); end; procedure Tfrm_op_seae.RxDBLookupCombo3Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo3); end; procedure Tfrm_op_seae.RxDBLookupCombo4Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo4); end; procedure Tfrm_op_seae.wwDBLookupCombo46Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo46.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['发货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo46Exit(Sender: TObject); begin wwDBLookupCombo46.Clear; end; procedure Tfrm_op_seae.wwDBLookupCombo47Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo47.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['收货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo48Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo48.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['通知人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo47Exit(Sender: TObject); begin wwDBLookupCombo47.Clear; end; procedure Tfrm_op_seae.wwDBLookupCombo48Exit(Sender: TObject); begin wwDBLookupCombo48.Clear; end; procedure Tfrm_op_seae.wwDBLookupCombo46KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo33); end; procedure Tfrm_op_seae.wwDBLookupCombo47KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo34); end; procedure Tfrm_op_seae.wwDBLookupCombo48KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo35); end; procedure Tfrm_op_seae.RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo47); end; procedure Tfrm_op_seae.RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo48); end; procedure Tfrm_op_seae.wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo3); end; procedure Tfrm_op_seae.wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo4); end; procedure Tfrm_op_seae.wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo5); end; procedure Tfrm_op_seae.RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo2); end; procedure Tfrm_op_seae.RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo5); end; procedure Tfrm_op_seae.RxDBLookupCombo18KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo6); end; procedure Tfrm_op_seae.wwDBLookupCombo2Exit(Sender: TObject); begin wwDBLookupCombo2.Clear; end; procedure Tfrm_op_seae.wwDBLookupCombo5Exit(Sender: TObject); begin wwDBLookupCombo5.Clear; end; procedure Tfrm_op_seae.wwDBLookupCombo6Exit(Sender: TObject); begin wwDBLookupCombo6.Clear; end; procedure Tfrm_op_seae.wwDBLookupCombo2Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo2.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['发货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo5Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo5.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['收货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo6Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo6.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['通知人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo14); end; procedure Tfrm_op_seae.RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo9); end; procedure Tfrm_op_seae.RxDBLookupCombo12Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo12.DisplayValue='' then exit; if frm_data_share.t_sys_employee.locate('姓名',RxDBLookupCombo12.DisplayValue,[]) then t_op_seae2.DataSet['销售部门']:=frm_data_share.t_sys_employee['部门名称']; end; end; procedure Tfrm_op_seae.RxDBLookupCombo14Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo14.DisplayValue='' then exit; if frm_data_share.t_sys_employee.locate('姓名',RxDBLookupCombo14.DisplayValue,[]) then t_op_seae2.DataSet['操作部门']:=frm_data_share.t_sys_employee['部门名称']; end; end; procedure Tfrm_op_seae.wwDBComboBox3KeyPress(Sender: TObject; var Key: Char); begin // key_RxDBLookupCombo(Key,RxDBLookupCombo10); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox4KeyPress(Sender: TObject; var Key: Char); begin // key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox9); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox3KeyPress(Sender: TObject; var Key: Char); begin // key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox5); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox5KeyPress(Sender: TObject; var Key: Char); begin // key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox4); end; procedure Tfrm_op_seae.N12Click(Sender: TObject); begin update_grid(dxdbgrid1,1); end; procedure Tfrm_op_seae.N14Click(Sender: TObject); begin update_grid_view_all(dxdbgrid1); end; procedure Tfrm_op_seae.N10Click(Sender: TObject); begin update_grid_view_no(dxdbgrid1); end; procedure Tfrm_op_seae.N16Click(Sender: TObject); begin grid_save_xls(dxdbgrid1); end; procedure Tfrm_op_seae.dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort(Column,t_op_seae,'业务编号'); end; procedure Tfrm_op_seae.N17Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 主编号 in (select 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态=' +''''+'录入状态'+''''+')) ' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.bsSkinButton13Click(Sender: TObject); var Pnt:Tpoint; begin Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height)); PopupMenu3.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_op_seae.N34Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+'))) ' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.N36Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+'))) ' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.N37Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_op_state where 是否完成<>1)) ' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.RxDBLookupCombo1Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo1); end; procedure Tfrm_op_seae.RxDBLookupCombo1Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo1); end; procedure Tfrm_op_seae.RxDBLookupCombo9Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo9); end; procedure Tfrm_op_seae.RxDBLookupCombo6Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo6); end; procedure Tfrm_op_seae.RxDBLookupCombo8Enter(Sender: TObject); begin // RxLookupComboEnter(RxDBLookupCombo8); end; procedure Tfrm_op_seae.RxDBLookupCombo7Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo7); end; procedure Tfrm_op_seae.RxDBLookupCombo10Enter(Sender: TObject); begin // RxLookupComboEnter(RxDBLookupCombo10); end; procedure Tfrm_op_seae.RxDBLookupCombo9Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo9); end; procedure Tfrm_op_seae.RxDBLookupCombo6Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo6); end; procedure Tfrm_op_seae.RxDBLookupCombo8Exit(Sender: TObject); begin // RxLookupComboExit(RxDBLookupCombo8); end; procedure Tfrm_op_seae.RxDBLookupCombo7Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo7); end; procedure Tfrm_op_seae.RxDBLookupCombo10Exit(Sender: TObject); begin // RxLookupComboExit(RxDBLookupCombo10); end; procedure Tfrm_op_seae.RxDBLookupCombo2Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo2); end; procedure Tfrm_op_seae.RxDBLookupCombo3Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo3); end; procedure Tfrm_op_seae.RxDBLookupCombo4Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo4); end; procedure Tfrm_op_seae.RxDBLookupCombo5Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo5); end; procedure Tfrm_op_seae.RxDBLookupCombo5Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo5); end; procedure Tfrm_op_seae.RxDBLookupCombo16Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo16); end; procedure Tfrm_op_seae.RxDBLookupCombo17Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo17); end; procedure Tfrm_op_seae.RxDBLookupCombo18Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo18); end; procedure Tfrm_op_seae.RxDBLookupCombo16Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo16); end; procedure Tfrm_op_seae.RxDBLookupCombo17Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo17); end; procedure Tfrm_op_seae.RxDBLookupCombo18Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo18); end; procedure Tfrm_op_seae.RxDBLookupCombo19Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo19); end; procedure Tfrm_op_seae.RxDBLookupCombo19Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo19); end; procedure Tfrm_op_seae.RxDBLookupCombo28Enter(Sender: TObject); begin RxDBLookupCombo28.LookupDisplay:='代码;签单方式'; end; procedure Tfrm_op_seae.RxDBLookupCombo28Exit(Sender: TObject); begin RxDBLookupCombo28.LookupDisplay:='签单方式'; end; procedure Tfrm_op_seae.RxDBLookupCombo15Enter(Sender: TObject); begin RxDBLookupCombo15.LookupDisplay:='代码;付费方式'; end; procedure Tfrm_op_seae.RxDBLookupCombo15Exit(Sender: TObject); begin RxDBLookupCombo15.LookupDisplay:='付费方式'; end; procedure Tfrm_op_seae.RxDBLookupCombo20Enter(Sender: TObject); begin RxDBLookupCombo20.LookupDisplay:='航线代码;航线'; end; procedure Tfrm_op_seae.RxDBLookupCombo20Exit(Sender: TObject); begin RxDBLookupCombo20.LookupDisplay:='航线'; end; procedure Tfrm_op_seae.RxDBLookupCombo11Enter(Sender: TObject); begin RxDBLookupCombo11.LookupDisplay:='代码;货物名称'; end; procedure Tfrm_op_seae.RxDBLookupCombo11Exit(Sender: TObject); begin RxDBLookupCombo11.LookupDisplay:='货物名称'; end; procedure Tfrm_op_seae.N40Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; bsSkinTabSheet2.show; if if_open('293') or if_open('294') then begin if not assigned(frm_ch_fee_sea) then begin frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self); frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient); frm_ch_fee_sea.Show; end; end else begin showmessage('对不起，你无权操作费用！！'); end; end; procedure Tfrm_op_seae.N42Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; bsSkinTabSheet7.show; {$IFDEF ZTGENGZONG} if not assigned(frm_op_seae_state) then begin frm_op_seae_state:=tfrm_op_seae_state.Create (self); frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2; frm_op_seae_state.fra_op_state1.t_op_state.open; frm_op_seae_state.fra_op_state1.edit_state.Text:='1'; frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient); frm_op_seae_state.show; end; {$ENDIF} end; procedure Tfrm_op_seae.N44Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; end; procedure Tfrm_op_seae.N46Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; bsSkinTabSheet6.show; if not assigned(frm_op_seae_assistant) then begin frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self); frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2; frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient); frm_op_seae_assistant.show; end; end; procedure Tfrm_op_seae.Label4Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('委托单位').asstring,frm_data_share.t_crm_client_weituo); end; procedure Tfrm_op_seae.Label23Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('发货人').asstring,frm_data_share.t_crm_client_shiper); end; procedure Tfrm_op_seae.Label24Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('收货人').asstring,frm_data_share.t_crm_client_shouhuo); end; procedure Tfrm_op_seae.Label29Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('通知人').asstring,frm_data_share.t_crm_client_tongzhi); end; procedure Tfrm_op_seae.Label33Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('代理').asstring,frm_data_share.t_crm_client_daili); end; procedure Tfrm_op_seae.Label12Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('场站').asstring,frm_data_share.t_crm_client_changzhan); end; procedure Tfrm_op_seae.Label9Click(Sender: TObject); begin // client_view(t_op_seae2.DataSet.fieldbyname('船公司').asstring,frm_data_share.t_crm_client_ship); end; procedure Tfrm_op_seae.Label11Click(Sender: TObject); begin // client_view(t_op_seae2.DataSet.fieldbyname('货代公司').asstring,frm_data_share.t_crm_client_huodai); end; procedure Tfrm_op_seae.Label10Click(Sender: TObject); begin // client_view(t_op_seae2.DataSet.fieldbyname('报关行').asstring,frm_data_share.t_crm_client_baoguan); end; procedure Tfrm_op_seae.wwDBLookupCombo2DblClick(Sender: TObject); begin open_code_edit('016'); end; procedure Tfrm_op_seae.Label125Click(Sender: TObject); begin open_code_edit('097'); end; procedure Tfrm_op_seae.Label7Click(Sender: TObject); begin open_code_edit('011'); end; procedure Tfrm_op_seae.Label35Click(Sender: TObject); begin open_code_edit('071'); end; procedure Tfrm_op_seae.Label30Click(Sender: TObject); begin open_code_edit('015'); end; procedure Tfrm_op_seae.Label73Click(Sender: TObject); begin open_code_edit('012'); end; procedure Tfrm_op_seae.Label164Click(Sender: TObject); begin open_code_edit('007'); end; procedure Tfrm_op_seae.wwDBLookupCombo61DblClick(Sender: TObject); begin open_code_edit('013'); end; procedure Tfrm_op_seae.bsSkinButton12Click(Sender: TObject); begin t_op_seae_fen.first; while not t_op_seae_fen.Eof do begin t_op_seae_fen.edit; t_op_seae_fen['箱号封号']:=t_op_seae['箱号封号']; t_op_seae_fen.post; t_op_seae_fen.next; end; end; procedure Tfrm_op_seae.bsSkinButton14Click(Sender: TObject); begin if not (if_open('293') or if_open('294')) then begin showmessage('对不起，你无权操作费用！！'); exit; end; if not assigned(frm_ch_fee_zhupiao) then frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self); frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seae_fen; with frm_ch_fee_zhupiao do begin if if_open('293') then begin fra_fee_zhu1.t_ch_accept.close; fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('编号').asstring; fra_fee_zhu1.t_ch_accept.open; fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae; fra_fee_zhu1.dxDBGrid1.FullExpand; fra_fee_zhu1.bsSkinPanel3.visible:=true; end else fra_fee_zhu1.bsSkinPanel3.visible:=false; if if_open('294') then begin fra_fee_zhu1.t_ch_pay.close; fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('编号').asstring; fra_fee_zhu1.t_ch_pay.open; fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae; fra_fee_zhu1.dxDBGrid2.FullExpand; fra_fee_zhu1.bsSkinPanel4.visible:=true; end else fra_fee_zhu1.bsSkinPanel4.visible:=false; if fra_fee_zhu1.bsSkinPanel3.visible and fra_fee_zhu1.bsSkinPanel4.visible then begin fra_fee_zhu1.t_op_gain.close; fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seae.fieldbyname('编号').asstring; fra_fee_zhu1.t_op_gain.open; fra_fee_zhu1.t_op_gain_fen.close; fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seae.fieldbyname('编号').asstring; fra_fee_zhu1.t_op_gain_fen.open; end else begin fra_fee_zhu1.t_op_gain.close; fra_fee_zhu1.t_op_gain_fen.close; fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false; end; fra_fee_zhu1.dxDBGrid3.FullExpand; end; frm_ch_fee_zhupiao.ShowModal; end; procedure Tfrm_op_seae.N55Click(Sender: TObject); var str:widestring; begin if t_op_seae.IsEmpty then exit; if if_open('293') and if_open('294') then begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self); t_op_seae.DisableControls; t_op_seae.first; while not t_op_seae.eof do begin if str='' then str:=''''+t_op_seae.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; t_op_seae.next; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 in '+str+default_sort(53,'t_op_seae','','desc'); frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_seae.t_op_seae.open; frm_ch_piliang_seae.ShowModal; finally t_op_seae.EnableControls; frm_ch_piliang_seae.Free; frm_ch_piliang_seae:=nil; end; end else begin showmessage('你无权进行利润帐单批量打印！！'); end; end; procedure Tfrm_op_seae.N51Click(Sender: TObject); var str:widestring; begin if t_op_seae.IsEmpty then exit; if not if_open('230') then begin showmessage('您没有权限打印利润帐单！！'); exit; end; if if_open('293') and if_open('294') then begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self); str:='select * from t_op_seae where 编号=' +''''+t_op_seae.fieldbyname('编号').AsString+''''; frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_seae.t_op_seae.open; frm_ch_piliang_seae.ShowModal; finally frm_ch_piliang_seae.Free; frm_ch_piliang_seae:=nil; end; end else begin showmessage('你无权进行利润帐单批量打印！！'); end; end; procedure Tfrm_op_seae.N53Click(Sender: TObject); var str:widestring; i:integer; begin if t_op_seae.IsEmpty then exit; if dxDBGrid1.SelectedCount<1 then begin showmessage('请选择要打印的业务帐单！！'); exit; end; if if_open('293') and if_open('294') then begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self); t_op_seae.DisableControls; for i:=0 to dxDBGrid1.SelectedCount-1 do begin t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i])); if str='' then str:=''''+t_op_seae.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 in '+str+default_sort(53,'t_op_seae','','desc'); frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_seae.t_op_seae.open; frm_ch_piliang_seae.ShowModal; finally t_op_seae.EnableControls; frm_ch_piliang_seae.Free; frm_ch_piliang_seae:=nil; end; end else begin showmessage('你无权进行利润帐单批量打印！！'); end; end; procedure Tfrm_op_seae.RxDBLookupCombo31Enter(Sender: TObject); begin RxDBLookupCombo31.LookupDisplay:='代码;业务来源'; end; procedure Tfrm_op_seae.RxDBLookupCombo31Exit(Sender: TObject); begin RxDBLookupCombo31.LookupDisplay:='业务来源'; end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox9KeyPress(Sender: TObject; var Key: Char); begin // key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox10); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox10KeyPress(Sender: TObject; var Key: Char); begin // key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox11); end; procedure Tfrm_op_seae.wwDBLookupCombo7Enter(Sender: TObject); begin with frm_data_share do begin t_code_code.Filtered:=false; t_code_code.Filter:='代理=1'; t_code_code.Filtered:=true; end; end; procedure Tfrm_op_seae.wwDBLookupCombo7Exit(Sender: TObject); begin wwDBLookupCombo7.Clear; end; procedure Tfrm_op_seae.wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo1); end; procedure Tfrm_op_seae.RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo7); end; procedure Tfrm_op_seae.wwDBLookupCombo7Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo7.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['代理内容']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo8KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo6); end; procedure Tfrm_op_seae.wwDBLookupCombo8Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo8.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['代理内容']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo8Exit(Sender: TObject); begin wwDBLookupCombo8.Clear; end; procedure Tfrm_op_seae.bsSkinButton35Click(Sender: TObject); begin table_post(t_op_ctn); end; procedure Tfrm_op_seae.RxDBLookupCombo1Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.State=dsinsert then begin if frm_data_share.t_crm_client_weituo.Locate('客户简称',RxDBLookupCombo1.DisplayValues[1],[])then begin if frm_data_share.t_crm_client_weituo.fieldbyname('发货人').asboolean then begin t_op_seae2.DataSet['发货人']:=RxDBLookupCombo1.DisplayValues[1]; t_op_seae2.DataSet['发货人代码']:=frm_data_share.t_crm_client_weituo.fieldbyname('快捷代码').asstring; end; if frm_data_share.t_crm_client_weituo.fieldbyname('揽货人').asstring<>''then begin t_op_seae2.DataSet['揽货人']:=frm_data_share.t_crm_client_weituo.fieldbyname('揽货人').asstring; end; end; end; end; procedure Tfrm_op_seae.N62Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and not exists (select distinct 编号 from t_ch_fee where t_ch_fee.编号=t_op_seae.编号 and 类型='+''''+'收'+''''+')' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.N64Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and not exists (select distinct 编号 from t_ch_fee where t_ch_fee.编号=t_op_seae.编号 and 类型='+''''+'付'+''''+')' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin AColor:=dxgrid_color('海运出口',ANode.Strings[dxDBGrid1Column2.Index]); AFont.Color:=clblack; end; procedure Tfrm_op_seae.dxDBGrid2Column2CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin AColor:=dxgrid_color('海运出口',ANode.Strings[dxDBGrid2Column2.Index]); AFont.Color:=clblack; end; procedure Tfrm_op_seae.t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); var str:widestring; begin update_wenti(E); if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then begin showmessage('数据已经被其它用户修改，当前修改不能保存'+#13#10+'请刷新数据后重新录入'); abort; end; if pos('主提单标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 主提单标准='+''''+t_op_seae['主提单标准']+''''; double_seae(str,1); abort; end; if pos('分提单标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 分提单标准='+''''+t_op_seae['分提单标准']+''''; double_seae(str,2); abort; end; if pos('委托标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 委托标准='+''''+t_op_seae['委托标准']+''''; double_seae(str,3); abort; end; end; procedure Tfrm_op_seae.N66Click(Sender: TObject); begin if t_op_seae2.DataSet.IsEmpty then exit; if not do_data('0001',t_op_seae2.DataSet.FieldByName('录入人').asstring ,t_op_seae2.DataSet.FieldByName('操作员').asstring ,t_op_seae2.DataSet.FieldByName('揽货人').asstring ,t_op_seae2.DataSet.FieldByName('客服员').asstring ,'' ,'') then begin showmessage('对不起你无权修改此数据！'); abort; end; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('此票业务状态已经为业务封帐状态，不能修改！'); abort; end; if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then t_op_seae2.DataSet.post; try frm_op_date_change:=tfrm_op_date_change.Create (self); frm_op_date_change.DataSource1.Enabled:=false; frm_op_date_change.DataSource1.DataSet:=t_op_seae2.DataSet; frm_op_date_change.DataSource1.Enabled:=true; frm_op_date_change.ShowModal; finally frm_op_date_change.Free; frm_op_date_change:=nil; end; end; procedure Tfrm_op_seae.t_op_seaeAfterPost(DataSet: TDataSet); begin telll_sales; end; procedure Tfrm_op_seae.N68Click(Sender: TObject); var str:widestring; begin if t_op_seae.IsEmpty then exit; if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self); str:='select * from t_op_seae_assistant where 编号=' +''''+t_op_seae.fieldbyname('编号').AsString+''''; frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_op_seae_print_mul.t_op_seae.open; frm_op_seae_print_mul.ShowModal; finally frm_op_seae_print_mul.Free; frm_op_seae_print_mul:=nil; end; end; procedure Tfrm_op_seae.N70Click(Sender: TObject); var str:widestring; i:integer; begin if t_op_seae.IsEmpty then exit; if dxDBGrid1.SelectedCount<1 then begin showmessage('请选择要打印的业务！！'); exit; end; if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self); t_op_seae.DisableControls; for i:=0 to dxDBGrid1.SelectedCount-1 do begin t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i])); if str='' then str:=''''+t_op_seae.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_seae_assistant where 编号 in '+str+' order by 业务编号'; frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_op_seae_print_mul.t_op_seae.open; frm_op_seae_print_mul.ShowModal; finally t_op_seae.EnableControls; frm_op_seae_print_mul.Free; frm_op_seae_print_mul:=nil; end; end; procedure Tfrm_op_seae.N72Click(Sender: TObject); var str:widestring; begin if t_op_seae.IsEmpty then exit; if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self); t_op_seae.DisableControls; t_op_seae.first; while not t_op_seae.eof do begin if str='' then str:=''''+t_op_seae.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; t_op_seae.next; end; str:='('+str+')'; str:='select * from t_op_seae_assistant where 编号 in '+str+' order by 业务编号'; frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_op_seae_print_mul.t_op_seae.open; frm_op_seae_print_mul.ShowModal; finally t_op_seae.EnableControls; frm_op_seae_print_mul.Free; frm_op_seae_print_mul:=nil; end; end; procedure Tfrm_op_seae.Notebook1PageChanged(Sender: TObject); begin if Notebook1.PageIndex<>0 then begin setconcolor; {$IFDEF ZTGENGZONG} if assigned(frm_op_seae_state_up) then frm_op_seae_state_up.Hide; {$ENDIF} end; end; procedure Tfrm_op_seae.bsSkinButton15Click(Sender: TObject); begin {$IFDEF ZTGENGZONG} if not assigned(frm_op_seae_state_up) then frm_op_seae_state_up:=tfrm_op_seae_state_up.Create (self); frm_op_seae_state_up.show; frm_op_seae_state_up.Left:=bsSkinButton15.left+Notebook1.left+2; frm_op_seae_state_up.top:=70+Notebook1.top; {$ENDIF} end; procedure Tfrm_op_seae.wwDBDateTimePicker14KeyPress(Sender: TObject; var Key: Char); begin // key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1); end; procedure Tfrm_op_seae.N74Click(Sender: TObject); begin update_grid_sort(dxdbgrid1,1); end; procedure Tfrm_op_seae.t_op_seae_fenPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); var str:widestring; begin if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then begin showmessage('数据已经被其它用户修改，当前修改不能保存'+#13#10+'请刷新数据后重新录入'); abort; end; if pos('主提单标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 主提单标准='+''''+t_op_seae_fen['主提单标准']+''''; double_seae(str,1); abort; end; if pos('分提单标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 分提单标准='+''''+t_op_seae_fen['分提单标准']+''''; double_seae(str,2); abort; end; if pos('委托标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 委托标准='+''''+t_op_seae_fen['委托标准']+''''; double_seae(str,3); abort; end; end; procedure Tfrm_op_seae.bsSkinButton38Click(Sender: TObject); var book1:Tbookmark; begin if t_op_seae2.DataSet=nil then exit; book1:=t_op_seae2.DataSet.GetBookmark; t_op_seae2.DataSet.Refresh; t_op_seae2.DataSet.GotoBookmark(book1); end; procedure Tfrm_op_seae.N76Click(Sender: TObject); begin update_grid_view_no(dxdbgrid2); end; procedure Tfrm_op_seae.N78Click(Sender: TObject); begin update_grid_view_all(dxdbgrid2); end; procedure Tfrm_op_seae.N80Click(Sender: TObject); begin update_grid(dxdbgrid2,25); end; procedure Tfrm_op_seae.wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo2); end; procedure Tfrm_op_seae.wwDBLookupCombo11Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_tiaokuan.locate('代码',wwDBLookupCombo11.text,[]) then begin t_op_seae2.DataSet.edit; if t_op_seae2.DataSet['附加条款']='' then t_op_seae2.DataSet['附加条款']:=frm_data_share.t_code_tiaokuan.fieldbyname('附加条款').asstring else t_op_seae2.DataSet['附加条款']:=t_op_seae2.DataSet.fieldbyname('附加条款').AsString+#13#10+frm_data_share.t_code_tiaokuan.fieldbyname('附加条款').asstring end; end; procedure Tfrm_op_seae.wwDBLookupCombo11Exit(Sender: TObject); begin wwDBLookupCombo11.TEXT:=''; end; procedure Tfrm_op_seae.wwDBLookupCombo11DblClick(Sender: TObject); begin open_code_edit('188'); end; procedure Tfrm_op_seae.t_op_seaeBeforeEdit(DataSet: TDataSet); begin op_befor_post(t_op_seae,'0001'); end; procedure Tfrm_op_seae.t_op_seae_fenBeforeEdit(DataSet: TDataSet); begin op_befor_post(t_op_seae_fen,'0001'); end; procedure Tfrm_op_seae.t_op_seae_fenBeforeCancel(DataSet: TDataSet); begin delete_no(t_op_seae_fen); if t_op_seae_fen.State=dsinsert then if not t_op_seae_fen.FieldByName('委托编号').IsNull then delwtno(t_op_seae_fen['委托编号']); end; procedure Tfrm_op_seae.t_op_seaeBeforeCancel(DataSet: TDataSet); begin delete_no(t_op_seae); if t_op_seae.State=dsinsert then if not t_op_seae.FieldByName('委托编号').IsNull then delwtno(t_op_seae['委托编号']); end; procedure Tfrm_op_seae.RxDBLookupCombo32KeyPress(Sender: TObject; var Key: Char); begin // key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2); end; procedure Tfrm_op_seae.RxDBLookupCombo33KeyPress(Sender: TObject; var Key: Char); begin // key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3); end; procedure Tfrm_op_seae.N82Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and not exists (select distinct 编号 from t_ch_fee where t_ch_fee.编号=t_op_seae.编号)' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.N84Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 主编号 in (select distinct 编号 from t_ch_fee where 费用状态<>'+''''+'结算完毕'+''''+')' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.RxDBLookupCombo36Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo36); end; procedure Tfrm_op_seae.RxDBLookupCombo36Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo36); end; procedure Tfrm_op_seae.bsSkinButton39Click(Sender: TObject); begin t_op_seae_fen.first; while not t_op_seae_fen.Eof do begin t_op_seae_fen.edit; t_op_seae_fen['代理']:=t_op_seae['代理']; t_op_seae_fen['代理内容']:=t_op_seae['代理内容']; t_op_seae_fen.post; t_op_seae_fen.next; end; end; procedure Tfrm_op_seae.bsSkinButton42Click(Sender: TObject); var bok:Tbookmark; if_first:boolean; pkgs:integer; kgs,cbm:double; aQuery:TADOQuery; begin if t_op_ctn.IsEmpty then exit; // op_befor_post(frm_op_seae.t_op_seae,op_ctn_limited); t_op_ctn.First; if_first:=true; pkgs:=0; kgs:=0.00; cbm:=0.00; bok:=t_op_ctn.GetBookmark; while not t_op_ctn.Eof do begin if strtobool(get_parameters_value(139,'true')) then begin if if_first then begin memo1.Lines.Text:=t_op_ctn.fieldbyname('箱号').asstring+'/'+t_op_ctn.fieldbyname('封号').asstring; memo2.Lines.Text:=t_op_ctn.fieldbyname('件数').asstring+t_op_ctn.fieldbyname('包装').asstring; memo3.Lines.Text:=t_op_ctn.fieldbyname('重量').asstring+'KGS'; memo4.Lines.Text:=t_op_ctn.fieldbyname('尺码').asstring+'CBM'; pkgs:=t_op_ctn.fieldbyname('件数').asinteger; kgs:=t_op_ctn.fieldbyname('重量').asfloat; cbm:=t_op_ctn.fieldbyname('尺码').asfloat; if_first:=false; end else begin memo1.Lines.Add(t_op_ctn.fieldbyname('箱号').asstring+'/'+t_op_ctn.fieldbyname('封号').asstring); memo2.Lines.Add(t_op_ctn.fieldbyname('件数').asstring+t_op_ctn.fieldbyname('包装').asstring); memo3.Lines.Add(t_op_ctn.fieldbyname('重量').asstring+'KGS'); memo4.Lines.Add(t_op_ctn.fieldbyname('尺码').asstring+'CBM'); pkgs:=pkgs+t_op_ctn.fieldbyname('件数').asinteger; kgs:=kgs+t_op_ctn.fieldbyname('重量').asfloat; cbm:=cbm+t_op_ctn.fieldbyname('尺码').asfloat; end; end else begin if if_first then begin memo1.Lines.Text:=t_op_ctn.fieldbyname('箱号').asstring+'/'+t_op_ctn.fieldbyname('封号').asstring+'/'+t_op_ctn.fieldbyname('表现形式').asstring+'/' +t_op_ctn.fieldbyname('件数').asstring+t_op_ctn.fieldbyname('包装').asstring+'/'+t_op_ctn.fieldbyname('重量').asstring+'KGS'+'/'+t_op_ctn.fieldbyname('尺码').asstring+'CBM'; memo2.Lines.Text:=t_op_ctn.fieldbyname('件数').asstring+t_op_ctn.fieldbyname('包装').asstring; memo3.Lines.Text:=t_op_ctn.fieldbyname('重量').asstring+'KGS'; memo4.Lines.Text:=t_op_ctn.fieldbyname('尺码').asstring+'CBM'; pkgs:=t_op_ctn.fieldbyname('件数').asinteger; kgs:=t_op_ctn.fieldbyname('重量').asfloat; cbm:=t_op_ctn.fieldbyname('尺码').asfloat; if_first:=false; end else begin memo1.Lines.Add(t_op_ctn.fieldbyname('箱号').asstring+'/'+t_op_ctn.fieldbyname('封号').asstring+'/'+t_op_ctn.fieldbyname('表现形式').asstring+'/' +t_op_ctn.fieldbyname('件数').asstring+t_op_ctn.fieldbyname('包装').asstring+'/'+t_op_ctn.fieldbyname('重量').asstring+'KGS'+'/'+t_op_ctn.fieldbyname('尺码').asstring+'CBM' ); memo2.Lines.Add(t_op_ctn.fieldbyname('件数').asstring+t_op_ctn.fieldbyname('包装').asstring); memo3.Lines.Add(t_op_ctn.fieldbyname('重量').asstring+'KGS'); memo4.Lines.Add(t_op_ctn.fieldbyname('尺码').asstring+'CBM'); pkgs:=pkgs+t_op_ctn.fieldbyname('件数').asinteger; kgs:=kgs+t_op_ctn.fieldbyname('重量').asfloat; cbm:=cbm+t_op_ctn.fieldbyname('尺码').asfloat; end; end; t_op_ctn.next; end; t_op_ctn.DataSource.DataSet.edit; t_op_ctn.DataSource.DataSet['箱号封号']:=memo1.Lines.Text; // t_op_ctn.DataSource.DataSet['件数包装']:=memo2.Lines.Text; // t_op_ctn.DataSource.DataSet['货物重量']:=memo3.Lines.Text; // t_op_ctn.DataSource.DataSet['货物尺码']:=memo4.Lines.Text; // t_op_ctn.DataSource.DataSet.post; t_op_ctn.GotoBookmark(bok); end; procedure Tfrm_op_seae.bsSkinButton40Click(Sender: TObject); begin table_delete(t_op_ctn); end; procedure Tfrm_op_seae.bsSkinButton41Click(Sender: TObject); begin table_cancel(t_op_ctn); end; procedure Tfrm_op_seae.dxDBGrid1Column114CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if Trim(ANode.Strings[dxDBGrid1Column114.Index])='更改单' then AColor:=clred; AFont.Color:=clblack; end; procedure Tfrm_op_seae.RxDBLookupCombo43KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo21); end; procedure Tfrm_op_seae.DBEdit11KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo43); end; procedure Tfrm_op_seae.WORD1Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then t_op_seae2.DataSet.post; try frm_op_seae_word:=tfrm_op_seae_word.Create (self); frm_op_seae_word.ShowModal; finally frm_op_seae_word.Free; end; end; procedure Tfrm_op_seae.wwDBLookupCombo49Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; { if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin if frm_data_share.t_code_vessel.Locate('英文船名',wwDBLookupCombo49.text,[]) then begin t_op_seae2.DataSet['船公司']:=frm_data_share.t_code_vessel['船公司']; end; end; } end; procedure Tfrm_op_seae.bsSkinButton44Click(Sender: TObject); var str:widestring; begin str:=''; str:=query_tiaojian(1,str,'t_op_seae.业务编号','模糊',Edit1.text); str:=query_tiaojian(1,str,'t_op_seae.主提单号','模糊',Edit2.text); str:=query_tiaojian(1,str,'t_op_seae.船名','等于',wwDBLookupCombo1.text); str:=query_tiaojian(1,str,'t_op_seae.航次','模糊',Edit7.text); if trim(str)='' then begin str:='where '+open_data('0001','t_op_seae.录入人', 't_op_seae.操作员','no','no','no'); end else begin str:=str+' and '+open_data('0001','t_op_seae.录入人', 't_op_seae.操作员','no','no','no'); end; // str:='select * from t_op_seae where 主编号=编号 and 装运方式<>''报关'''+' and 编号 in (select 主编号 from t_op_seae ' str:='select * from t_op_seae where 装运方式<>''分票明细'' and 编号 in (select 编号 from t_op_seae ' +str+')'+default_sort(53,'t_op_seae','','desc'); if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.close; t_op_seae.sql.clear; t_op_seae.sql.add(str); t_op_seae.Open; if t_op_seae.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; end; procedure Tfrm_op_seae.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then bsSkinButton44.OnClick(Sender); end; procedure Tfrm_op_seae.N92Click(Sender: TObject); var inifile1:Tinifile; begin bsSkinPanel9.Visible:=true; bsSkinButton13.Top:=3+bsSkinPanel9.Height; bsSkinButton15.Top:=3+bsSkinPanel9.Height; inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini'); inifile1.WriteBool('other','qdisp',bsSkinPanel9.Visible); inifile1.free; end; procedure Tfrm_op_seae.N93Click(Sender: TObject); var inifile1:Tinifile; begin bsSkinPanel9.Visible:=false; bsSkinButton13.Top:=3; bsSkinButton15.Top:=3; inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'data.ini'); inifile1.WriteBool('other','qdisp',bsSkinPanel9.Visible); inifile1.free; end; procedure Tfrm_op_seae.N96Click(Sender: TObject); begin if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then psqlstr:=t_op_seae.sql.Text; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','no','no') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 主编号 in (select distinct 编号 from t_ch_fee where 金额<>开票金额 and 类型='''+'收'+''''+' )' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open ; end; procedure Tfrm_op_seae.DBEdit41KeyPress(Sender: TObject; var Key: Char); begin if bsSkinPageControl2.Visible then key_RxDBLookupCombo(Key,RxDBLookupCombo16) else key_RxDBLookupCombo(Key,RxDBLookupCombo2); end; procedure Tfrm_op_seae.RxDBLookupCombo49KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo14); end; procedure Tfrm_op_seae.RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char); begin key_wwDBComboBox(Key,wwDBComboBox9); end; procedure Tfrm_op_seae.N99Click(Sender: TObject); var i,j,l:integer; s:string; seabandini:tinifile ; begin seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini'); frm_sys_tab_sort:=tfrm_sys_tab_sort.create(self); try frm_sys_tab_sort.ListBox2.Clear; for i:=0 to bsSkinPageControl1.PageCount-1 do begin frm_sys_tab_sort.ListBox2.Items.Add(bsSkinPageControl1.Pages[i].Caption+':'+bsSkinPageControl1.Pages[i].Name); end; frm_sys_tab_sort.ShowModal; if frm_sys_tab_sort.ModalResult=mrOk then begin for j:=0 to frm_sys_tab_sort.ListBox2.Items.Count-1 do begin s:=frm_sys_tab_sort.ListBox2.Items[j]; l:=pos(':',s)+1; for i:=0 to bsSkinPageControl1.PageCount-1 do begin if bsSkinPageControl1.Pages[i].Name=copy(s,l,length(s)-l+1) then begin bsSkinPageControl1.Pages[i].PageIndex:=j; seabandini.Writeinteger('seaexp',copy(s,l,length(s)-l+1),j); end; end; end; end; finally FreeAndNil(frm_sys_tab_sort); freeandnil(seabandini); end; end; procedure Tfrm_op_seae.setconcolor; procedure consetcolor(fielname:String); var i:integer; scolor:string; begin scolor:=get_parameters_value(144,'clInfoBk'); with bsSkinTabSheet1 do begin for i:=0 to ControlCount-1 do begin if Controls[i] is TwwDBComboBox then begin if TwwDBComboBox(Controls[i]).DataField=fielname then begin TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor); exit; end; end else if Controls[i] is TwwDBLookupCombo then begin if TwwDBLookupCombo(Controls[i]).DataField=fielname then begin TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor); exit; end; end else if Controls[i] is TDBEdit then begin if TDBEdit(Controls[i]).DataField=fielname then begin TDBEdit(Controls[i]).Color:=StringToColor(scolor); exit; end; end else if Controls[i] is TwwDBDateTimePicker then begin if TwwDBDateTimePicker(Controls[i]).DataField=fielname then begin TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor); exit; end; end else if Controls[i] is TDBMemo then begin if TDBMemo(Controls[i]).DataField=fielname then begin TDBMemo(Controls[i]).Color:=StringToColor(scolor); exit; end; end else if Controls[i] is TRxDBLookupCombo then begin if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor); exit; end; end; end; end; with bsSkinPanel1 do begin for i:=0 to ControlCount-1 do begin if Controls[i] is TDBEdit then begin if TDBEdit(Controls[i]).DataField=fielname then begin TDBEdit(Controls[i]).Color:=StringToColor(scolor); exit; end; end else if Controls[i] is TRxDBLookupCombo then begin if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor); exit; end; end; end; end; end; begin frm_data_share.t_code_empty.Filtered:=false; frm_data_share.t_code_empty.Filter:='表=''t_op_seae'''; frm_data_share.t_code_empty.Filtered:=true; frm_data_share.t_code_empty.First; while not frm_data_share.t_code_empty.Eof do begin if (frm_data_share.t_code_empty.fieldbyname('字段名称').asstring='分提单号') or (frm_data_share.t_code_empty.fieldbyname('字段名称').asstring='分提单号') then begin if t_op_seae2.DataSet.FindField('装运方式')<>nil then begin if pos('主票',t_op_seae2.DataSet.FieldByName('装运方式').asstring)>0 then begin end else begin consetcolor(frm_data_share.t_code_empty.fieldbyname('字段名称').asstring); end; end else begin consetcolor(frm_data_share.t_code_empty.fieldbyname('字段名称').asstring); end; end else begin consetcolor(frm_data_share.t_code_empty.fieldbyname('字段名称').asstring); end; frm_data_share.t_code_empty.next; end; end; procedure Tfrm_op_seae.RxDBLookupCombo15Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if RxDBLookupCombo15.DisplayValues[1]='FREIGHT PREPAID' then begin t_op_seae2.DataSet['预付地点']:=t_op_seae2.DataSet['装货港']; t_op_seae2.DataSet['到付地点']:=''; end; if RxDBLookupCombo15.DisplayValues[1]='FREIGHT COLLECT' then begin t_op_seae2.DataSet['预付地点']:=''; t_op_seae2.DataSet['到付地点']:='DESTINATION'; end; end; procedure Tfrm_op_seae.bsSkinSpeedButton1Click(Sender: TObject); begin if t_op_seae2.dataset.fieldbyname('委托编号').isnull or (t_op_seae2.DataSet['委托编号']='') then begin t_op_seae2.DataSet.Edit; if Trim(frm_data_share.t_sys_noset.fieldbyname('日期规则').Asstring)='会计期间' then t_op_seae2.DataSet['委托编号']:=getwtno(1,subComp,department,employee,t_op_seae2.DataSet['会计期间']) else t_op_seae2.DataSet['委托编号']:=getwtno(1,subComp,department,employee,t_op_seae2.DataSet['开船日期']); end; end; procedure Tfrm_op_seae.bsSkinButton31Click(Sender: TObject); begin sys_print('海运出口单证',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,nil,nil,nil,nil,nil,nil); end; procedure Tfrm_op_seae.bsSkinButton45Click(Sender: TObject); var tempstr:widestring; begin if psqlstr<>'' then begin tempstr:=psqlstr; t_op_seae.close; if t_op_seae.sql.Text<>'' then psqlstr:=t_op_seae.sql.Text; t_op_seae.sql.clear; t_op_seae.sql.add(tempstr); t_op_seae.Open; end; end; procedure Tfrm_op_seae.wwDBComboBox9DropDown(Sender: TObject); var aQuery:TAdoQuery; begin wwDBComboBox9.Items.Clear; if t_op_seae2.DataSet.FieldByName('业务来源').AsString='' then begin exit; end; aQuery:=CreateAdoQuery; try with aQuery do begin close;sql.Clear; sql.Add('select 来源明细 from t_code_source_dl where 业务来源='''+t_op_seae2.DataSet.FieldByName('业务来源').AsString+''' order by 来源明细 '); open; first; while not eof do begin wwDBComboBox9.Items.Add(FieldByName('来源明细').AsString); next; end; end; finally FreeAndNil(aQuery); end; end; procedure Tfrm_op_seae.RxDBLookupCombo31Change(Sender: TObject); begin t_op_seae2.DataSet.FieldByName('来源明细').AsString:=''; end; procedure Tfrm_op_seae.wwDBComboBox9KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo9); end; procedure Tfrm_op_seae.N103Click(Sender: TObject); begin if t_op_seae2.dataset.state in [dsedit,dsinsert] then t_op_seae2.dataset.post; if t_op_seae2.dataset.IsEmpty then exit; t_op_seae2.DataSet.Edit; t_op_seae2.DataSet.FieldByName('委托编号').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('委托编号').AsString); t_op_seae2.DataSet.FieldByName('主提单号').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('主提单号').AsString); t_op_seae2.DataSet.FieldByName('分提单号').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('分提单号').AsString); t_op_seae2.DataSet.FieldByName('订舱单号').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('订舱单号').AsString); t_op_seae2.DataSet.FieldByName('发货人代码').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('发货人代码').AsString); t_op_seae2.DataSet.FieldByName('收货人代码').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('收货人代码').AsString); t_op_seae2.DataSet.FieldByName('通知人代码').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('通知人代码').AsString); t_op_seae2.DataSet.FieldByName('代理内容').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('代理内容').AsString); t_op_seae2.DataSet.FieldByName('唛头').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('唛头').AsString); t_op_seae2.DataSet.FieldByName('箱号封号').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('箱号封号').AsString); t_op_seae2.DataSet.FieldByName('货物描述').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('货物描述').AsString); t_op_seae2.DataSet.FieldByName('分单列表').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('分单列表').AsString); t_op_seae2.DataSet.FieldByName('件数包装').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('件数包装').AsString); t_op_seae2.DataSet.FieldByName('件数大写').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('件数大写').AsString); t_op_seae2.DataSet.FieldByName('船名').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('船名').AsString); t_op_seae2.DataSet.FieldByName('航次').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('航次').AsString); t_op_seae2.DataSet.FieldByName('装货港').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('装货港').AsString); t_op_seae2.DataSet.FieldByName('卸货港').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('卸货港').AsString); t_op_seae2.DataSet.FieldByName('交货地点').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('交货地点').AsString); t_op_seae2.DataSet.FieldByName('到付地点').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('到付地点').AsString); t_op_seae2.DataSet.FieldByName('目的地').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('目的地').AsString); t_op_seae2.DataSet.FieldByName('签单地点').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('签单地点').AsString); t_op_seae2.DataSet.FieldByName('预付地点').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('预付地点').AsString); t_op_seae2.DataSet.post; end; procedure Tfrm_op_seae.N105Click(Sender: TObject); var can_do:boolean; gdo,xdo:smallint; begin if t_op_seae2.DataSet.IsEmpty then exit; if not do_data('0001',t_op_seae2.DataSet.FieldByName('录入人').asstring ,t_op_seae2.DataSet.FieldByName('操作员').asstring ,t_op_seae2.DataSet.FieldByName('揽货人').asstring ,t_op_seae2.DataSet.FieldByName('客服员').asstring ,'' ,'') then begin showmessage('对不起你无权修改此数据！'); abort; end; if t_op_seae2.DataSet.FieldByName('费用状态').asstring='费用封帐' then begin showmessage('此票业务状态已经为费用封帐状态！'); abort; end; t_ch_fee.close; t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('编号').asstring; t_ch_fee.open; can_do:=true; t_ch_fee.first; while not t_ch_fee.eof do begin if can_do then begin if (t_ch_fee.FieldByName('费用状态').asstring<>'审核通过') and (t_ch_fee.FieldByName('费用状态').asstring<>'部分结算') and (t_ch_fee.FieldByName('费用状态').asstring<>'结算完毕') and (t_ch_fee.FieldByName('费用状态').asstring<>'禁止删除') and (t_ch_fee.FieldByName('费用状态').asstring<>'禁止修改')then begin can_do:=false; showmessage('此票业务中的费用状态，不能费用封帐！'); exit; end; end; t_ch_fee.next; end; gdo:=strtoint(get_parameters_value(137,'0')); xdo:=strtoint(get_parameters_value(138,'0')); t_ch_fee.close; if can_do then begin prnlist:=true; try t_op_seae2.DataSet.edit; t_op_seae2.DataSet['费用状态']:='费用封帐'; t_op_seae2.DataSet['费用封帐日期']:=Now; if (gdo<>0) or (xdo<>0) then begin if trim(t_op_seae2.DataSet.fieldbyname('业务类型').AsString)='普通货' then begin if gdo=1 then begin if t_op_seae2.DataSet['开船日期']>Logininfo.endday then t_op_seae2.DataSet['会计期间']:=t_op_seae2.DataSet['开船日期']; end; end else if trim(t_op_seae2.DataSet.fieldbyname('业务类型').asstring)='更改单' then begin if xdo=1 then begin if t_op_seae2.DataSet['录入日期']>Logininfo.endday then t_op_seae2.DataSet['会计期间']:=t_op_seae2.DataSet['录入日期']; end; end; end; t_op_seae2.DataSet.post; finally prnlist:=false; end; end; end; procedure Tfrm_op_seae.N114Click(Sender: TObject); begin try if not assigned(frm_op_seae_history) then frm_op_seae_history:=tfrm_op_seae_history.Create (self); frm_op_seae_history.op_type.text:='1'; frm_op_seae_history.t_do_bill.Enabled:=false; frm_op_seae_history.t_do_bill.DataSet:=t_op_seae2.dataset; frm_op_seae_history.t_do_bill.Enabled:=true; frm_op_seae_history.ShowModal; finally frm_op_seae_history.free; frm_op_seae_history:=nil; end; end; procedure Tfrm_op_seae.t_op_fangdanBeforeEdit(DataSet: TDataSet); begin op_befor_post(t_op_seae,'0001'); end; procedure Tfrm_op_seae.t_op_fangdanBeforeInsert(DataSet: TDataSet); begin op_befor_post(t_op_seae,'0001'); end; procedure Tfrm_op_seae.wwDBLookupCombo16KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker3); end; procedure Tfrm_op_seae.wwDBLookupCombo17KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo43); end; procedure Tfrm_op_seae.bsSkinButton47Click(Sender: TObject); var book1:Tbookmark; begin if t_op_seae2.DataSet=nil then exit; book1:=t_op_seae2.DataSet.GetBookmark; TAdoQuery(t_op_seae2.DataSet).Requery; t_op_seae2.DataSet.GotoBookmark(book1); end; procedure Tfrm_op_seae.DownLoadPro(fname: string); begin end; procedure Tfrm_op_seae.UpLoadPro(fname: string); begin end; procedure Tfrm_op_seae.EDI1Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息，不能生成EDI文件！'); exit; end; try if not assigned(frm_op_seae_edi_hk) then frm_op_seae_edi_hk:=tfrm_op_seae_edi_hk.Create(application); frm_op_seae_edi_hk.ShowModal; finally frm_op_seae_edi_hk.free; frm_op_seae_edi_hk:=nil; end; end; procedure Tfrm_op_seae.bsSkinButton46Click(Sender: TObject); begin sys_print('海运出口装箱单',2,t_op_ctn.DataSource,nil,nil,nil,nil,nil,t_op_ctn1,nil,nil,nil,nil); end; procedure Tfrm_op_seae.wwDBLookupCombo13Change(Sender: TObject); begin if (t_op_ctn.State=dsedit)or(t_op_ctn.State=dsinsert) then begin if frm_data_share.t_code_ctn.Locate('代码',wwDBLookupCombo13.text,[]) then begin t_op_ctn['表现形式']:=frm_data_share.t_code_ctn['表现形式']; t_op_ctn['箱型']:=frm_data_share.t_code_ctn['箱型']; t_op_ctn['尺寸']:=frm_data_share.t_code_ctn['尺寸']; t_op_ctn['箱皮重']:=frm_data_share.t_code_ctn['箱皮重']; end else begin t_op_ctn['表现形式']:=''; t_op_ctn['箱型']:=''; t_op_ctn['尺寸']:=''; t_op_ctn['箱皮重']:=0; end; end; end; procedure Tfrm_op_seae.t_op_ctnAfterPost(DataSet: TDataSet); begin update_ctn(t_op_ctn); end; procedure Tfrm_op_seae.t_op_ctnAfterInsert(DataSet: TDataSet); begin t_op_ctn['编号']:=t_op_ctn.DataSource.DataSet['编号']; t_op_ctn['数量']:=1; t_op_ctn['箱状态']:='F'; end; procedure Tfrm_op_seae.t_op_ctnBeforeDelete(DataSet: TDataSet); begin if t_op_ctn.RecordCount=1 then begin if t_op_ctn.DataSource.DataSet.FieldByName('装运方式').asstring='整箱' then begin if (Trim(t_op_ctn.DataSource.DataSet.fieldbyname('业务类型').asstring)<>'更改单') then begin showmessage('业务集装箱不能为空，你不能删除！！'); abort; end; end; end; op_befor_post(frm_op_seae.t_op_seae,'0001'); end; procedure Tfrm_op_seae.t_op_ctnBeforeEdit(DataSet: TDataSet); begin op_befor_post(frm_op_seae.t_op_seae,'0001'); end; procedure Tfrm_op_seae.t_op_ctnBeforePost(DataSet: TDataSet); begin if frm_data_share.t_code_ctn.Locate('代码',t_op_ctn.fieldbyname('代码').asstring,[]) then begin t_op_ctn['表现形式']:=frm_data_share.t_code_ctn['表现形式']; if frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='20'then t_op_ctn['TEU']:=1*t_op_ctn.FieldByName('数量').asinteger; if (frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='40')OR (frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='45')then t_op_ctn['TEU']:=2*t_op_ctn.FieldByName('数量').asinteger; end else begin t_op_ctn['代码']:=''; t_op_ctn['表现形式']:=''; t_op_ctn['箱型']:=''; t_op_ctn['尺寸']:=''; end; table_before_post(t_op_ctn,'代码'); table_before_post(t_op_ctn,'数量'); end; procedure Tfrm_op_seae.RxDBLookupCombo21Enter(Sender: TObject); begin TRxDBLookupCombo(Sender).LookupDisplay:='英文名;中文名;港口代码' end; procedure Tfrm_op_seae.RxDBLookupCombo21Exit(Sender: TObject); begin TRxDBLookupCombo(Sender).LookupDisplay:='港口代码' end; procedure Tfrm_op_seae.RxDBLookupCombo21Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.State in [dsinsert,dsedit] then begin if frm_data_share.t_code_loaport.Locate('港口代码',RxDBLookupCombo21.DisplayValues[2],[])then begin t_op_seae2.DataSet['装货港']:=frm_data_share.t_code_loaport.fieldbyname('英文名').asstring; end; end; end; procedure Tfrm_op_seae.RxDBLookupCombo22Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.State in [dsinsert,dsedit] then begin if frm_data_share.t_code_loaport.Locate('港口代码',RxDBLookupCombo22.DisplayValues[2],[])then begin t_op_seae2.DataSet['卸货港']:=frm_data_share.t_code_loaport.fieldbyname('英文名').asstring; end; end; end; procedure Tfrm_op_seae.RxDBLookupCombo7Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.State in [dsinsert,dsedit] then begin if frm_data_share.t_code_loaport.Locate('港口代码',RxDBLookupCombo7.DisplayValues[2],[])then begin t_op_seae2.DataSet['交货地点']:=frm_data_share.t_code_loaport.fieldbyname('英文名').asstring; end; end; end; procedure Tfrm_op_seae.RxDBLookupCombo43Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.State in [dsinsert,dsedit] then begin if frm_data_share.t_code_loaport.Locate('港口代码',RxDBLookupCombo43.DisplayValues[2],[])then begin t_op_seae2.DataSet['目的地']:=frm_data_share.t_code_loaport.fieldbyname('英文名').asstring; end; end; end; procedure Tfrm_op_seae.wwDBComboBox8Change(Sender: TObject); begin if wwDBComboBox8.Text='R冻货' then begin bsSkinPanel2.Visible:=true; bsSkinPanel7.Visible:=false; end else if wwDBComboBox8.Text='D危险品' then begin bsSkinPanel2.Visible:=false; bsSkinPanel7.Visible:=True; end else begin bsSkinPanel2.Visible:=false; bsSkinPanel7.Visible:=false; end; end; procedure Tfrm_op_seae.RxDBLookupCombo8Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.State in [dsinsert,dsedit] then begin if frm_data_share.t_code_loaport.Locate('港口代码',RxDBLookupCombo8.DisplayValues[2],[])then begin t_op_seae2.DataSet['收货地']:=frm_data_share.t_code_loaport.fieldbyname('英文名').asstring; end; end; end; procedure Tfrm_op_seae.Button2Click(Sender: TObject); var sl:TStrings; begin sl:=TStringList.Create; try sl.Text:=t_op_seae2.DataSet.fieldbyname('发货人代码').AsString; ShowMessage(sl.Strings[0]); finally FreeAndNil(sl); end; end; procedure Tfrm_op_seae.DBMemo39Change(Sender: TObject); var sl:TStrings; begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.FieldByName('货物名称英').AsString<>'' then Exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if DBMemo39.Text='' then exit; sl:=TStringList.Create; try sl.Add(DBMemo39.Text); t_op_seae2.DataSet['货物名称英']:=sl.Strings[0]; finally FreeAndNil(sl); end; end; end; end.