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, u_op_card, Grids, DBGrids; 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; N5: TMenuItem; N6: TMenuItem; N8: TMenuItem; N9: TMenuItem; N19: TMenuItem; N21: TMenuItem; N23: TMenuItem; N4: TMenuItem; N20: TMenuItem; N24: TMenuItem; N7: TMenuItem; N22: TMenuItem; N30: TMenuItem; EXCEL1: TMenuItem; N33: TMenuItem; EDI1: 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; Label13: TLabel; Label158: TLabel; Label163: 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; Label22: TLabel; Label32: TLabel; Label21: TLabel; Label35: TLabel; Label26: TLabel; Label27: TLabel; Label30: TLabel; Label31: TLabel; Label28: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label8: TLabel; Label164: TLabel; Label165: TLabel; Label166: TLabel; Label167: TLabel; Label168: TLabel; Label169: TLabel; Label170: TLabel; Label14: TLabel; Label16: TLabel; Label34: TLabel; Label39: TLabel; DBEdit5: TDBEdit; DBMemo37: TDBMemo; bsSkinButton22: TbsSkinButton; DBMemo38: TDBMemo; bsSkinButton21: TbsSkinButton; DBMemo35: TDBMemo; DBMemo34: TDBMemo; DBMemo33: TDBMemo; RxDBLookupCombo2: TRxDBLookupCombo; RxDBLookupCombo3: TRxDBLookupCombo; RxDBLookupCombo4: TRxDBLookupCombo; RxDBLookupCombo5: TRxDBLookupCombo; DBMemo1: TDBMemo; wwDBLookupCombo49: TwwDBLookupCombo; DBEdit63: TDBEdit; wwDBLookupCombo52: TwwDBLookupCombo; wwDBDateTimePicker2: TwwDBDateTimePicker; wwDBDateTimePicker6: TwwDBDateTimePicker; wwDBDateTimePicker3: TwwDBDateTimePicker; wwDBLookupCombo3: TwwDBLookupCombo; wwDBComboBox2: TwwDBComboBox; wwDBLookupCombo21: TwwDBLookupCombo; wwDBComboBox1: TwwDBComboBox; wwDBDateTimePicker4: TwwDBDateTimePicker; DBEdit25: TDBEdit; DBEdit27: TDBEdit; DBEdit26: TDBEdit; RxDBLookupCombo6: TRxDBLookupCombo; RxDBLookupCombo7: TRxDBLookupCombo; RxDBLookupCombo8: TRxDBLookupCombo; RxDBLookupCombo9: TRxDBLookupCombo; RxDBLookupCombo10: TRxDBLookupCombo; DBMemo39: TDBMemo; DBMemo40: TDBMemo; DBMemo41: TDBMemo; DBMemo42: TDBMemo; DBEdit80: TDBEdit; DBEdit81: TDBEdit; wwDBLookupCombo61: TwwDBLookupCombo; DBEdit82: TDBEdit; DBEdit83: TDBEdit; DBMemo2: TDBMemo; RxDBLookupCombo11: TRxDBLookupCombo; bsSkinButton16: TbsSkinButton; bsSkinButton17: TbsSkinButton; bsSkinButton18: TbsSkinButton; bsSkinButton19: TbsSkinButton; bsSkinButton20: TbsSkinButton; bsSkinButton23: TbsSkinButton; bsSkinButton24: TbsSkinButton; bsSkinButton25: TbsSkinButton; bsSkinButton26: TbsSkinButton; RxDBLookupCombo14: TRxDBLookupCombo; RxDBLookupCombo20: TRxDBLookupCombo; bsSkinButton37: TbsSkinButton; RxDBLookupCombo21: TRxDBLookupCombo; RxDBLookupCombo22: TRxDBLookupCombo; DBEdit10: TDBEdit; DBEdit11: 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; 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; RxDBLookupCombo15: TRxDBLookupCombo; bsSkinTabSheet7: TbsSkinTabSheet; bsSkinTabSheet2: TbsSkinTabSheet; bsSkinTabSheet3: TbsSkinTabSheet; bsSkinTabSheet5: TbsSkinTabSheet; bsSkinTabSheet4: TbsSkinTabSheet; bsSkinTabSheet8: TbsSkinTabSheet; Panel3: TPanel; dxDBGrid1: TdxDBGrid; dxDBGrid1Column1: TdxDBGridMaskColumn; dxDBGrid1Column2: TdxDBGridMaskColumn; dxDBGrid1Column3: TdxDBGridMaskColumn; dxDBGrid1Column4: TdxDBGridMaskColumn; dxDBGrid1Column5: TdxDBGridMaskColumn; dxDBGrid1Column6: TdxDBGridMaskColumn; dxDBGrid1Column7: TdxDBGridMaskColumn; dxDBGrid1Column8: TdxDBGridMaskColumn; dxDBGrid1Column9: TdxDBGridMaskColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridMaskColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; dxDBGrid1Column15: TdxDBGridMaskColumn; dxDBGrid1Column16: TdxDBGridDateColumn; dxDBGrid1Column17: TdxDBGridDateColumn; dxDBGrid1Column18: TdxDBGridDateColumn; dxDBGrid1Column19: TdxDBGridMaskColumn; dxDBGrid1Column20: TdxDBGridMaskColumn; dxDBGrid1Column22: TdxDBGridDateColumn; dxDBGrid1Column23: TdxDBGridMaskColumn; dxDBGrid1Column24: TdxDBGridMaskColumn; dxDBGrid1Column25: TdxDBGridMaskColumn; dxDBGrid1Column26: TdxDBGridMaskColumn; dxDBGrid1Column27: TdxDBGridMaskColumn; dxDBGrid1Column28: TdxDBGridMaskColumn; dxDBGrid1Column29: TdxDBGridMaskColumn; dxDBGrid1Column30: TdxDBGridMaskColumn; dxDBGrid1Column31: TdxDBGridDateColumn; dxDBGrid1Column32: TdxDBGridMaskColumn; dxDBGrid1Column33: TdxDBGridMaskColumn; dxDBGrid1Column34: TdxDBGridMaskColumn; dxDBGrid1Column35: TdxDBGridMaskColumn; dxDBGrid1Column36: TdxDBGridMaskColumn; dxDBGrid1Column37: TdxDBGridMaskColumn; dxDBGrid1Column38: TdxDBGridMaskColumn; dxDBGrid1Column39: TdxDBGridColumn; dxDBGrid1Column40: TdxDBGridColumn; dxDBGrid11: TdxDBGridMaskColumn; dxDBGrid12: TdxDBGridMaskColumn; dxDBGrid13: TdxDBGridMaskColumn; dxDBGrid14: TdxDBGridMaskColumn; dxDBGrid15: TdxDBGridMaskColumn; dxDBGrid16: TdxDBGridMaskColumn; dxDBGrid17: TdxDBGridMaskColumn; dxDBGrid18: TdxDBGridMaskColumn; dxDBGrid19: TdxDBGridMaskColumn; dxDBGrid110: TdxDBGridMaskColumn; dxDBGrid111: TdxDBGridMaskColumn; dxDBGrid112: TdxDBGridMaskColumn; dxDBGrid113: TdxDBGridMaskColumn; dxDBGrid114: TdxDBGridMaskColumn; dxDBGrid115: TdxDBGridMaskColumn; dxDBGrid116: TdxDBGridMaskColumn; dxDBGrid117: TdxDBGridMaskColumn; dxDBGrid118: TdxDBGridMaskColumn; dxDBGrid119: TdxDBGridMaskColumn; dxDBGrid120: TdxDBGridMaskColumn; dxDBGrid1Column61: TdxDBGridMaskColumn; dxDBGrid1TEU: TdxDBGridMaskColumn; dxDBGrid1Column63: TdxDBGridMaskColumn; dxDBGrid1Column64: TdxDBGridMaskColumn; dxDBGrid1Column65: TdxDBGridDateColumn; dxDBGrid1Column66: TdxDBGridMaskColumn; dxDBGrid1Column67: TdxDBGridMaskColumn; dxDBGrid1Column72: TdxDBGridMaskColumn; dxDBGrid1Column68: TdxDBGridMaskColumn; dxDBGrid1Column69: TdxDBGridMaskColumn; dxDBGrid1Column70: TdxDBGridMaskColumn; dxDBGrid1Column74: TdxDBGridMaskColumn; dxDBGrid1Column75: TdxDBGridMaskColumn; bsSkinGroupBox1: TbsSkinGroupBox; Label43: TLabel; wwDBLookupCombo1: TwwDBLookupCombo; Label45: TLabel; wwDBDateTimePicker1: TwwDBDateTimePicker; Label46: TLabel; wwDBLookupCombo4: TwwDBLookupCombo; Label47: TLabel; DBEdit12: TDBEdit; bsSkinGroupBox2: TbsSkinGroupBox; Label44: TLabel; wwDBDateTimePicker5: TwwDBDateTimePicker; Label48: TLabel; DBEdit13: TDBEdit; Label49: TLabel; RxDBLookupCombo23: TRxDBLookupCombo; Label50: TLabel; DBEdit14: TDBEdit; Label51: TLabel; DBEdit15: TDBEdit; Label54: TLabel; wwDBDateTimePicker9: TwwDBDateTimePicker; bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox; Label55: TLabel; wwDBDateTimePicker10: TwwDBDateTimePicker; bsSkinGroupBox3: TbsSkinGroupBox; Label56: TLabel; RxDBLookupCombo24: TRxDBLookupCombo; RxDBLookupCombo25: TRxDBLookupCombo; Label57: TLabel; Label58: TLabel; RxDBLookupCombo26: TRxDBLookupCombo; Label59: TLabel; RxDBLookupCombo27: TRxDBLookupCombo; bsSkinGroupBox4: TbsSkinGroupBox; Label191: TLabel; wwDBComboBox12: TwwDBComboBox; Label179: TLabel; DBEdit71: TDBEdit; Label181: TLabel; DBEdit73: TDBEdit; Label185: TLabel; DBEdit109: TDBEdit; DBEdit114: TDBEdit; Label190: TLabel; Label187: TLabel; DBEdit111: TDBEdit; DBEdit112: TDBEdit; Label188: TLabel; Label189: TLabel; wwDBComboBox11: TwwDBComboBox; DBMemo10: TDBMemo; EDI2: TMenuItem; t_ch_fee: TADOQuery; RxDBLookupCombo28: TRxDBLookupCombo; DBEdit17: TDBEdit; Label62: TLabel; bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox; dxDBGrid1Column73: TdxDBGridColumn; dxDBGrid1Column76: TdxDBGridColumn; dxDBGrid1Column77: TdxDBGridCheckColumn; Button1: TButton; DBEdit18: TDBEdit; Label65: TLabel; dxDBGrid1Column78: TdxDBGridColumn; Label66: TLabel; DBEdit20: TDBEdit; Label67: TLabel; DBEdit21: TDBEdit; Label68: TLabel; DBEdit22: TDBEdit; Label69: TLabel; DBMemo11: TDBMemo; dxDBGrid1Column79: TdxDBGridColumn; dxDBGrid1Column80: TdxDBGridColumn; dxDBGrid1Column81: TdxDBGridColumn; Label70: TLabel; DBMemo12: TDBMemo; bsSkinButton13: TbsSkinButton; wwDBLookupCombo46: TwwDBLookupCombo; wwDBLookupCombo47: TwwDBLookupCombo; wwDBLookupCombo48: TwwDBLookupCombo; wwDBLookupCombo2: TwwDBLookupCombo; wwDBLookupCombo5: TwwDBLookupCombo; wwDBLookupCombo6: TwwDBLookupCombo; Label19: TLabel; RxDBLookupCombo12: TRxDBLookupCombo; Label20: TLabel; RxDBLookupCombo29: TRxDBLookupCombo; Label17: TLabel; RxDBLookupCombo13: TRxDBLookupCombo; Label41: TLabel; Label42: TLabel; RxDBLookupCombo30: TRxDBLookupCombo; wwDBComboBox3: TwwDBComboBox; Label63: TLabel; bsSkinGroupBox5: TbsSkinGroupBox; bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox; fra_op_card1: Tfra_op_card; PopupMenu2: TPopupMenu; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; bsSkinTabSheet9: TbsSkinTabSheet; PopupMenu3: TPopupMenu; N17: TMenuItem; N18: TMenuItem; N34: TMenuItem; N35: TMenuItem; N36: TMenuItem; N37: TMenuItem; N38: TMenuItem; p_old: TADOStoredProc; N39: TMenuItem; N40: TMenuItem; N41: TMenuItem; N42: TMenuItem; N43: TMenuItem; N44: TMenuItem; N45: TMenuItem; N46: TMenuItem; N47: TMenuItem; N48: TMenuItem; bsSkinButton12: TbsSkinButton; bsSkinButton14: TbsSkinButton; N49: TMenuItem; N50: TMenuItem; N51: TMenuItem; N52: TMenuItem; N53: TMenuItem; N54: TMenuItem; N55: TMenuItem; RxDBLookupCombo31: TRxDBLookupCombo; t_op_seae_huanhuo: TADOQuery; N56: TMenuItem; N57: TMenuItem; N58: TMenuItem; N59: TMenuItem; N60: TMenuItem; PopupMenu4: TPopupMenu; N27: TMenuItem; N28: TMenuItem; N29: TMenuItem; N26: TMenuItem; N31: TMenuItem; N32: TMenuItem; N61: TMenuItem; t_op_seae_huanhuo1: TDataSource; 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 wwDBLookupCombo3Change(Sender: TObject); procedure wwDBLookupCombo52Change(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 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 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 RxDBLookupCombo13KeyPress(Sender: TObject; var Key: Char); procedure DBEdit8KeyPress(Sender: TObject; var Key: Char); procedure DBEdit9KeyPress(Sender: TObject; var Key: Char); procedure DBEdit7KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo5KeyPress(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 wwDBDateTimePicker6KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo21KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char); procedure DBEdit10KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char); procedure DBEdit11KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char); procedure wwDBComboBox1KeyPress(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 DBEdit5KeyPress(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 DBEdit12KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char); procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox2KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker5KeyPress(Sender: TObject; var Key: Char); procedure DBEdit13KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo23KeyPress(Sender: TObject; var Key: Char); procedure DBEdit17KeyPress(Sender: TObject; var Key: Char); procedure DBEdit15KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox7KeyPress(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 EDI1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure DBEdit18KeyPress(Sender: TObject; var Key: Char); procedure DBEdit21KeyPress(Sender: TObject; var Key: Char); procedure DBEdit14KeyPress(Sender: TObject; var Key: Char); procedure DBEdit20KeyPress(Sender: TObject; var Key: Char); procedure DBEdit22KeyPress(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 wwDBComboBox2KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker9KeyPress(Sender: TObject; var Key: Char); procedure bsSkinDBCheckRadioBox8KeyPress(Sender: TObject; var Key: Char); procedure wwDBDateTimePicker10KeyPress(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 Label8Click(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 RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char); procedure RxDBLookupCombo31Enter(Sender: TObject); procedure RxDBLookupCombo31Exit(Sender: TObject); procedure N58Click(Sender: TObject); procedure N60Click(Sender: TObject); procedure t_op_seae_huanhuoAfterInsert(DataSet: TDataSet); procedure N32Click(Sender: TObject); procedure N26Click(Sender: TObject); private { Private declarations } public { 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_letter, u_op_add_ctn,u_op_seae_excel, u_ch_fee_se, u_op_seae_state, u_op_seae_assistant, u_op_seae_edi_yh, u_op_seae_vessel, u_sys_progress, u_op_seae_fenzhang, u_ch_fee_zhupiao, u_op_seae_double, u_ch_piliang_seae, u_op_seae_huanhuo_do; {$R *.dfm} {const // Table fields ArrayLen = 10; stCustomerName: array [0 .. ArrayLen - 1] of String = ( 'John Doe', 'Jennie Valentine', 'Sam Hill', 'Karen Holmes', 'Bobbie Valentine', 'Ricardo Menendez', 'Frank Frankson', 'Christa Christie', 'Alfred Newman', 'James Johnson'); stCompany: array [0 .. ArrayLen - 1] of String = ( 'Doe Enterprises', 'Hill Corporation', 'Holmes World', 'Valentine Hearts', 'Menedez Development', 'Frankson Media', 'Christies House of Design', 'Jones & Assoc', 'Newman Systems', 'Development House'); stAddress: array [0 .. ArrayLen - 1] of String = ( '123 Home Lane', '45 Hill St.', '9333 Holmes Dr.', '933 Heart St. Suite 1', '939 Center Street', '121 Media Center Drive', '349 Graphic Design Lane', '990 King Lane', '900 Newman Center', '93900 Carter Lane'); stCity: array [0 .. ArrayLen - 1] of String = ( 'Homesville', 'Hillsville', 'Johnsonville', 'Chicago', 'Atlanta', 'New York', 'Kingsville', 'Newman', 'Cartersville', 'Los Angeles'); stState: array [0 .. ArrayLen - 1] of String = ( 'CA', 'NJ', 'NY', 'IL', 'GA', 'OK', 'OH', 'CT', 'MI', 'MA'); stHomePhone: array [0 .. ArrayLen - 1] of String = ( '(111)111-1111', '(222)222-2222', '(333)333-3333', '(898)745-1511', '(151)615-1611', '(339)339-3939', '(930)930-3093', '(029)020-9090', '(923)022-0834', '(228)320-8320'); stPaymentType: array [0 .. 3] of String = ( 'CASH', 'VISA', 'MASTER', 'AMEX'); // save to reg RegistryPath = '\Software\Developer Express\ExpressGrid\demos\Demo10000\'; VerDemo = 1; } procedure Tfrm_op_seae.FormClose(Sender: TObject; var Action: TCloseAction); begin savereggrid(dxdbgrid1,caption); if assigned(frm_op_letter) then frm_op_letter.close; if assigned(frm_ch_fee_sea) then frm_ch_fee_sea.close; if assigned(frm_op_seae_state) then frm_op_seae_state.close; if assigned(frm_op_seae_assistant) then frm_op_seae_assistant.close; if assigned(frm_ch_fee_zhupiao) then frm_ch_fee_zhupiao.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); 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,'卸货港'); table_before_post(t_op_seae,'业务来源'); 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('二程开船日期').asdatetime'' then begin if (t_op_seae.FieldByName('主提单号').OldValue<>t_op_seae.FieldByName('主提单号').asstring) or (t_op_seae.State=dsinsert) then begin p_old.close; p_old.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where 编号<>' +''''+t_op_seae.FieldByName('编号').asstring+''''; p_old.open; if not p_old.IsEmpty then begin try frm_op_seae_double:=Tfrm_op_seae_double.Create(self); frm_op_seae_double.DataSource1.DataSet:=t_op_seae; frm_op_seae_double.ShowModal; finally frm_op_seae_double.Free; frm_op_seae_double:=nil; end; abort; end; end; end; if trim(t_op_seae.FieldByName('委托编号').asstring)<>'' then begin if (t_op_seae.FieldByName('委托编号').OldValue<>t_op_seae.FieldByName('委托编号').asstring) or (t_op_seae.State=dsinsert) then begin p_old.close; p_old.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where 编号<>' +''''+t_op_seae.FieldByName('编号').asstring+''''; p_old.open; if not p_old.IsEmpty then begin try frm_op_seae_double:=Tfrm_op_seae_double.Create(self); frm_op_seae_double.DataSource1.DataSet:=t_op_seae; frm_op_seae_double.ShowModal; finally frm_op_seae_double.Free; frm_op_seae_double:=nil; end; abort; end; end; end; } if t_op_seae.State=dsinsert then begin t_op_seae['业务编号']:=get_no(t_op_seae.fieldbyname('会计期间').AsDateTime,'SE'); t_op_seae['编号']:=get_id; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae['业务状态']:='接受委托'; t_op_seae['费用状态']:='录入状态'; end else begin if t_op_seae.FieldByName('装运方式').asstring='整箱' then begin table_before_post(t_op_seae,'集装箱'); end; end; end; procedure Tfrm_op_seae.FormShow(Sender: TObject); 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:=34; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; frm_op_seae_list_type:=1; t_op_seae_fen.close; t_op_seae_huanhuo.close; t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select top 50 * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员') +'order by 业务编号 desc'); t_op_seae.open; 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; t_op_seae_huanhuo.open; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; 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); 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; 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,'卸货港'); table_before_post(t_op_seae_fen,'业务来源'); 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('二程开船日期').asdatetime'' then begin if (t_op_seae_fen.FieldByName('主提单号').OldValue<>t_op_seae_fen.FieldByName('主提单号').asstring) or (t_op_seae_fen.State=dsinsert) then begin p_old.close; p_old.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where 编号<>' +''''+t_op_seae_fen.FieldByName('编号').asstring+''''; p_old.open; if not p_old.IsEmpty then begin try frm_op_seae_double:=Tfrm_op_seae_double.Create(self); frm_op_seae_double.DataSource1.DataSet:=t_op_seae_fen; frm_op_seae_double.ShowModal; finally frm_op_seae_double.Free; frm_op_seae_double:=nil; end; abort; end; end; end; if trim(t_op_seae_fen.FieldByName('委托编号').asstring)<>'' then begin if (t_op_seae_fen.FieldByName('委托编号').OldValue<>t_op_seae_fen.FieldByName('委托编号').asstring) or (t_op_seae_fen.State=dsinsert) then begin p_old.close; p_old.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where 编号<>' +''''+t_op_seae_fen.FieldByName('编号').asstring+''''; p_old.open; if not p_old.IsEmpty then begin try frm_op_seae_double:=Tfrm_op_seae_double.Create(self); frm_op_seae_double.DataSource1.DataSet:=t_op_seae_fen; frm_op_seae_double.ShowModal; finally frm_op_seae_double.Free; frm_op_seae_double:=nil; end; abort; end; end; end; } if t_op_seae_fen.State=dsinsert then begin t_op_seae_fen['业务编号']:=get_no(t_op_seae_fen.fieldbyname('会计期间').AsDateTime,'SE'); t_op_seae_fen['编号']:=get_id; t_op_seae_fen['主编号']:=t_op_seae['编号']; 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 wwDBComboBox2.text='拼箱主票' then begin DBMemo39.Width:=223; Label14.Visible:=true; DBMemo2.Visible:=true; bsSkinButton37.Visible:=true; bsSkinButton17.Visible:=true; 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; wwDBLookupCombo46.Visible:=false; wwDBLookupCombo46.Visible:=false; end else begin DBMemo39.Width:=418; Label14.Visible:=false; bsSkinButton17.Visible:=false; bsSkinButton37.Visible:=false; DBMemo2.Visible:=false; 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; end; end; procedure Tfrm_op_seae.bsSkinButton11Click(Sender: TObject); var answer:TModalResult; begin if bsSkinButton11.Caption='编辑修改' then begin Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; exit; end; if bsSkinButton11.Caption='返回列表' then begin if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then BEGIN answer:=messagedlg( '数据已经修改，是否保存？',mtWarning,mbYesNoCancel,0); if answer=mrYes then begin t_op_seae2.DataSet.post; end; if answer=mrNo then begin t_op_seae2.DataSet.cancel; end; if answer=mrCancel then begin exit; end; END; Notebook1.PageIndex:=0; bsSkinButton11.Caption:='编辑修改'; exit; end; if bsSkinButton11.Caption='返回主票' then begin if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then BEGIN answer:=messagedlg( '数据已经修改，是否保存？',mtWarning,mbYesNoCancel,0); if answer=mrYes then begin t_op_seae2.DataSet.post; end; if answer=mrNo then begin t_op_seae2.DataSet.cancel; end; if answer=mrCancel then begin exit; end; END; Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; t_op_seae2.DataSet:=t_op_seae; exit; end; end; procedure Tfrm_op_seae.bsSkinButton33Click(Sender: TObject); begin bsSkinButton11.Caption:='返回主票'; t_op_seae2.DataSet:=t_op_seae_fen; 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); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if not t_op_seae_huanhuo.IsEmpty then begin showmessage('对不起业务已经进行换货，不能删除！！'); exit; end; 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 showmessage('对不起业务存在费用信息，不能删除！！'); exit; end; if 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 t_op_seae2.DataSet.delete; 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.DataSet:=t_op_seae_fen; 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.DataSet:=t_op_seae; frm_op_seae_add_num:=1; end else begin frm_op_seae_add.data1.DataSet:=t_op_seae_fen; 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; frm_op_seae_add.ShowModal; 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'); end; procedure Tfrm_op_seae.t_op_seae_fenBeforeDelete(DataSet: TDataSet); begin op_befor_post(t_op_seae_fen,'0001'); end; procedure Tfrm_op_seae.bsSkinButton8Click(Sender: TObject); var Pnt:Tpoint; begin if (t_op_seae2.DataSet.FieldByName('装运方式').asstring='拼箱分票') or (t_op_seae2.DataSet.FieldByName('装运方式').asstring='拼箱单票')then begin N56.Visible:=true; N57.Visible:=true; end else begin N56.Visible:=false; N57.Visible:=false; end; 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,frm_data_share.t_code_ctn_de1,nil,nil,t_op_seae_fen1,nil,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 frm_main.view_momo(t_op_seae2,'箱号封号'); 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,'分单列表'); 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,'CMB'); 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.'; 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; 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; end; end; procedure Tfrm_op_seae.wwDBLookupCombo3Change(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_loaport.Locate('英文名',wwDBLookupCombo3.text,[]) then begin t_op_seae2.DataSet['装港代码']:=frm_data_share.t_code_loaport['EDI代码']; end; end; end; procedure Tfrm_op_seae.wwDBLookupCombo52Change(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_disport.Locate('英文名',wwDBLookupCombo52.text,[]) then begin t_op_seae2.DataSet['卸货代码']:=frm_data_share.t_code_disport['EDI代码']; t_op_seae2.DataSet['航线']:=frm_data_share.t_code_disport['航线']; end; end; end; procedure Tfrm_op_seae.bsSkinPageControl1Change(Sender: TObject); begin if frm_op_seae_create=false then exit; if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then begin if not assigned(frm_op_letter) then frm_op_letter:=tfrm_op_letter.Create (self); frm_op_letter.t_op_letter.DataSource:=t_op_seae2; frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient); frm_op_letter.show; exit; end; if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then begin if if_open('022') or if_open('023') then begin if not assigned(frm_ch_fee_sea) then begin frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self); end else begin if frm_ch_fee_sea.fra_fee1.t_ch_accept.Active then frm_ch_fee_sea.fra_fee1.t_ch_accept.Requery(); if frm_ch_fee_sea.fra_fee1.t_ch_pay.Active then frm_ch_fee_sea.fra_fee1.t_ch_pay.Requery(); end; frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient); frm_ch_fee_sea.Show; end else begin showmessage('对不起，你无权操作费用！！'); end; exit; end; if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then begin if not assigned(frm_op_seae_state) then 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; exit; end; if bsSkinPageControl1.ActivePage=bsSkinTabSheet9 then begin if not assigned(frm_op_seae_fenzhang) then frm_op_seae_fenzhang:=tfrm_op_seae_fenzhang.Create (self); frm_op_seae_fenzhang.t_ch_fee_fenzhang.DataSource:=t_op_seae2; frm_op_seae_fenzhang.t_ch_fee_fenzhang.open; frm_op_seae_fenzhang.t_ch_fee.open; frm_op_seae_fenzhang.ManualDock(bsSkinTabSheet9,nil,alClient); frm_op_seae_fenzhang.show; exit; end; if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then begin if not assigned(frm_op_seae_assistant) then 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; exit; 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.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.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.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.post; end; procedure Tfrm_op_seae.N24Click(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; if t_op_seae.FieldByName('集装箱').asstring<>''then begin showmessage('此票业务存在集装箱信息不能更改为拼箱分票，如想更改请先将集装箱信息删除！！'); exit; end; t_op_seae.edit; t_op_seae['装运方式']:='拼箱分票'; t_op_seae.post; end; procedure Tfrm_op_seae.N22Click(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; if t_op_seae.FieldByName('集装箱').asstring<>''then begin showmessage('此票业务存在集装箱信息不能更改为拼箱单票，如想更改请先将集装箱信息删除！！'); exit; end; t_op_seae.edit; 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.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['装运方式']:='拼箱单票'; 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; if trim(t_op_seae2.DataSet.fieldbyname('货物描述').asstring)=''then t_op_seae2.DataSet['货物描述']:=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); CanClose:=frm_close_query(fra_op_card1.t_op_card); 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.ShowModal; finally frm_op_seae_excel.Free; end; end; procedure Tfrm_op_seae.Panel2Resize(Sender: TObject); var i:integer; begin i:=round(Panel2.Width/11); 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; bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-6; 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.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,RxDBLookupCombo31); end; procedure Tfrm_op_seae.RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo29); end; procedure Tfrm_op_seae.RxDBLookupCombo13KeyPress(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.DBEdit7KeyPress(Sender: TObject; var Key: Char); begin if bsSkinPageControl2.Visible then key_RxDBLookupCombo(Key,RxDBLookupCombo16) else key_RxDBLookupCombo(Key,RxDBLookupCombo2); end; procedure Tfrm_op_seae.RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo46); end; procedure Tfrm_op_seae.RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo1); end; procedure Tfrm_op_seae.RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo6); 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.wwDBDateTimePicker6KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo3); end; procedure Tfrm_op_seae.wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo21); end; procedure Tfrm_op_seae.RxDBLookupCombo21KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo52); end; procedure Tfrm_op_seae.wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo22); end; procedure Tfrm_op_seae.RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit10); end; procedure Tfrm_op_seae.DBEdit10KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker3); end; procedure Tfrm_op_seae.wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit11); end; procedure Tfrm_op_seae.DBEdit11KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo21); end; procedure Tfrm_op_seae.RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo12); end; procedure Tfrm_op_seae.wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char); begin key_wwDBComboBox(Key,wwDBComboBox1); end; procedure Tfrm_op_seae.wwDBComboBox1KeyPress(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.DBEdit5KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo37); end; procedure Tfrm_op_seae.RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo30); 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.DBEdit12KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker1); end; procedure Tfrm_op_seae.wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo1); end; procedure Tfrm_op_seae.wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char); begin key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox1KeyPress(Sender: TObject; var Key: Char); begin key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox2KeyPress(Sender: TObject; var Key: Char); begin key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3); end; procedure Tfrm_op_seae.wwDBDateTimePicker5KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit13); end; procedure Tfrm_op_seae.DBEdit13KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo23); end; procedure Tfrm_op_seae.RxDBLookupCombo23KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit17); end; procedure Tfrm_op_seae.DBEdit17KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit15); end; procedure Tfrm_op_seae.DBEdit15KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit14); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox7KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker10); 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.EDI1Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息，不能生成EDI文件！'); exit; end; try if not assigned(frm_op_seae_edi_yh) then frm_op_seae_edi_yh:=tfrm_op_seae_edi_yh.Create(application); frm_op_seae_edi_yh.ShowModal; finally frm_op_seae_edi_yh.free; frm_op_seae_edi_yh:=nil; end; 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.DBEdit21KeyPress(Sender: TObject; var Key: Char); begin key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox8); end; procedure Tfrm_op_seae.DBEdit14KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit20); end; procedure Tfrm_op_seae.DBEdit20KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit22); end; procedure Tfrm_op_seae.DBEdit22KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit21); 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['船公司']; t_op_seae_fen['货代公司']:=t_op_seae['货代公司']; end; procedure Tfrm_op_seae.DBEdit3Change(Sender: TObject); begin DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text); end; procedure Tfrm_op_seae.DBEdit2Change(Sender: TObject); begin 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 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 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 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 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 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 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.wwDBComboBox2KeyPress(Sender: TObject; var Key: Char); begin key_wwDBComboBox(Key,wwDBComboBox3); end; procedure Tfrm_op_seae.wwDBDateTimePicker9KeyPress(Sender: TObject; var Key: Char); begin key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox7); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox8KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker9); end; procedure Tfrm_op_seae.wwDBDateTimePicker10KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo12); end; procedure Tfrm_op_seae.bsSkinDBCheckRadioBox4KeyPress(Sender: TObject; var Key: Char); begin key_wwDBDateTimePicker(Key,wwDBDateTimePicker5); 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 t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员') +' and 主编号 in (select distinct 编号 from t_ch_fee where 费用状态=' +''''+'录入状态'+''''+') ' +'order by 业务编号 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 t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员') +' and 主编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+')) ' +'order by 业务编号 desc'); t_op_seae.open; end; procedure Tfrm_op_seae.N36Click(Sender: TObject); begin t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员') +' and 主编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+')) ' +'order by 业务编号 desc'); t_op_seae.open; end; procedure Tfrm_op_seae.N37Click(Sender: TObject); begin t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员') +' and 主编号 in (select distinct 编号 from t_op_state where 是否完成<>1) ' +'order by 业务编号 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('022') or if_open('023') then begin if not assigned(frm_ch_fee_sea) then begin frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self); end else begin if frm_ch_fee_sea.fra_fee1.t_ch_accept.Active then frm_ch_fee_sea.fra_fee1.t_ch_accept.Requery(); if frm_ch_fee_sea.fra_fee1.t_ch_pay.Active then frm_ch_fee_sea.fra_fee1.t_ch_pay.Requery(); end; frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient); frm_ch_fee_sea.Show; 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; if not assigned(frm_op_seae_state) then 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; procedure Tfrm_op_seae.N44Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; bsSkinTabSheet3.show; if not assigned(frm_op_letter) then frm_op_letter:=tfrm_op_letter.Create (self); frm_op_letter.t_op_letter.DataSource:=t_op_seae2; frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient); frm_op_letter.show; 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 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; 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_daili); 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.Label8Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('承运车队').asstring,frm_data_share.t_crm_client_truck); 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('022') or if_open('023')) then begin showmessage('对不起，你无权操作费用！！'); exit; end; if not assigned(frm_ch_fee_zhupiao) then frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self); with frm_ch_fee_zhupiao do begin if if_open('022') 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('023') 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; end else fra_fee_zhu1.t_op_gain.close; 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('022') and if_open('023') 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+' order by 业务编号'; 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 if_open('022') and if_open('023') 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('022') and if_open('023') 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+' order by 业务编号'; 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.RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo13); 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.N58Click(Sender: TObject); begin t_op_seae_huanhuo.DataSource:=t_op_seae2; t_op_seae_huanhuo.Requery(); if t_op_seae_huanhuo.IsEmpty then begin try frm_op_seae_huanhuo_do:=tfrm_op_seae_huanhuo_do.Create (self); t_op_seae_huanhuo.insert; frm_op_seae_huanhuo_do.ShowModal; finally frm_op_seae_huanhuo_do.Free; frm_op_seae_huanhuo_do:=nil; end; end else begin showmessage('此票业务已经确认换货！！'); end; end; procedure Tfrm_op_seae.N60Click(Sender: TObject); begin t_op_seae_huanhuo.DataSource:=t_op_seae2; t_op_seae_huanhuo.Requery(); if t_op_seae_huanhuo.IsEmpty then begin showmessage('此票业务还没有确认换货！！'); end else begin if application.MessageBox('您确定取消换货吗?','警告:',MB_OKCANCEL)=IDOK then t_op_seae_huanhuo.delete; end; end; procedure Tfrm_op_seae.t_op_seae_huanhuoAfterInsert(DataSet: TDataSet); begin t_op_seae_huanhuo['编号']:=t_op_seae_huanhuo.DataSource.DataSet['编号']; t_op_seae_huanhuo['换货客户']:=t_op_seae_huanhuo.DataSource.DataSet['委托单位']; t_op_seae_huanhuo['录入人']:=employee; t_op_seae_huanhuo['录入日期']:=date; end; procedure Tfrm_op_seae.N32Click(Sender: TObject); begin t_op_seae_huanhuo.DataSource:=t_op_seae_fen1; t_op_seae_huanhuo.Requery(); if t_op_seae_huanhuo.IsEmpty then begin try frm_op_seae_huanhuo_do:=tfrm_op_seae_huanhuo_do.Create (self); t_op_seae_huanhuo.insert; frm_op_seae_huanhuo_do.ShowModal; finally frm_op_seae_huanhuo_do.Free; frm_op_seae_huanhuo_do:=nil; end; end else begin showmessage('此票业务已经确认换货！！'); end; end; procedure Tfrm_op_seae.N26Click(Sender: TObject); begin t_op_seae_huanhuo.DataSource:=t_op_seae_fen1; t_op_seae_huanhuo.Requery(); if t_op_seae_huanhuo.IsEmpty then begin showmessage('此票业务还没有确认换货！！'); end else begin if application.MessageBox('您确定取消换货吗?','警告:',MB_OKCANCEL)=IDOK then t_op_seae_huanhuo.delete; end; end; end.