|
|
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,ComObj,
|
|
|
Grids, DBGrids, kbmMemTable, kbmMemBinaryStreamFormat, DBCtrlsEh,Registry,
|
|
|
DBLookupEh, Wwdbigrd, Wwdbgrid;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_seae = class(TForm)
|
|
|
t_op_seae: TADOQuery;
|
|
|
t_op_seae1: TDataSource;
|
|
|
t_op_seae_fen: TADOQuery;
|
|
|
t_op_seae_fen1: TDataSource;
|
|
|
t_op_seae2: TDataSource;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
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;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
Panel3: TPanel;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
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;
|
|
|
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
|
|
|
Label55: TLabel;
|
|
|
wwDBDateTimePicker10: TwwDBDateTimePicker;
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
Label56: TLabel;
|
|
|
Label57: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Label59: TLabel;
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
DBMemo10: TDBMemo;
|
|
|
EDI2: TMenuItem;
|
|
|
t_ch_fee: TADOQuery;
|
|
|
DBEdit17: TDBEdit;
|
|
|
Label62: TLabel;
|
|
|
DBEdit18: TDBEdit;
|
|
|
Label65: TLabel;
|
|
|
Label66: TLabel;
|
|
|
DBEdit20: TDBEdit;
|
|
|
Label67: TLabel;
|
|
|
DBEdit21: TDBEdit;
|
|
|
Label68: TLabel;
|
|
|
DBEdit22: TDBEdit;
|
|
|
Label69: TLabel;
|
|
|
Label70: TLabel;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
Label20: TLabel;
|
|
|
RxDBLookupCombo29: TRxDBLookupCombo;
|
|
|
Label41: TLabel;
|
|
|
Label42: TLabel;
|
|
|
RxDBLookupCombo30: TRxDBLookupCombo;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
Label63: TLabel;
|
|
|
bsSkinGroupBox5: TbsSkinGroupBox;
|
|
|
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;
|
|
|
N39: TMenuItem;
|
|
|
N40: TMenuItem;
|
|
|
N41: TMenuItem;
|
|
|
N42: TMenuItem;
|
|
|
N43: TMenuItem;
|
|
|
N44: TMenuItem;
|
|
|
N45: TMenuItem;
|
|
|
N46: TMenuItem;
|
|
|
N47: TMenuItem;
|
|
|
N48: TMenuItem;
|
|
|
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;
|
|
|
bsSkinGroupBox6: TbsSkinGroupBox;
|
|
|
fra_op_card1: Tfra_op_card;
|
|
|
bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
|
|
|
Label40: TLabel;
|
|
|
wwDBDateTimePicker7: TwwDBDateTimePicker;
|
|
|
Label52: TLabel;
|
|
|
wwDBDateTimePicker8: TwwDBDateTimePicker;
|
|
|
bsSkinDBCheckRadioBox12: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinButton35: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox13: TbsSkinDBCheckRadioBox;
|
|
|
Label53: TLabel;
|
|
|
wwDBDateTimePicker11: TwwDBDateTimePicker;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit16: TDBEdit;
|
|
|
Label54: TLabel;
|
|
|
wwDBLookupCombo9: TwwDBLookupCombo;
|
|
|
Label60: TLabel;
|
|
|
DBEdit19: TDBEdit;
|
|
|
Label61: TLabel;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
Label64: TLabel;
|
|
|
wwDBLookupCombo10: TwwDBLookupCombo;
|
|
|
bsSkinTabSheet10: TbsSkinTabSheet;
|
|
|
N25: TMenuItem;
|
|
|
N62: TMenuItem;
|
|
|
N63: TMenuItem;
|
|
|
N64: TMenuItem;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label71: TLabel;
|
|
|
DBMemo7: TDBMemo;
|
|
|
Label72: TLabel;
|
|
|
DBMemo8: TDBMemo;
|
|
|
Label74: TLabel;
|
|
|
DBMemo9: TDBMemo;
|
|
|
Label75: TLabel;
|
|
|
DBMemo11: TDBMemo;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column32: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column33: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column34: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column35: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column36: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column37: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column38: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column39: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column40: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column41: TdxDBGridColumn;
|
|
|
dxDBGrid1Column42: TdxDBGridColumn;
|
|
|
dxDBGrid11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid110: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column63: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column65: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column66: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column67: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column68: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column69: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column70: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column71: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column72: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column73: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column74: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column75: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column76: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column77: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column78: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column79: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column80: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column81: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column82: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column83: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column84: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column85: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column86: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column87: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column88: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column89: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column90: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column91: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column92: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column93: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column94: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column95: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column96: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column97: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column98: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column99: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column100: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column101: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column102: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column103: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column104: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column105: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column106: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column107: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column108: TdxDBGridMaskColumn;
|
|
|
N65: TMenuItem;
|
|
|
N66: TMenuItem;
|
|
|
N67: TMenuItem;
|
|
|
N68: TMenuItem;
|
|
|
N69: TMenuItem;
|
|
|
N70: TMenuItem;
|
|
|
N71: TMenuItem;
|
|
|
N72: TMenuItem;
|
|
|
bsSkinButton15: TbsSkinButton;
|
|
|
Label76: TLabel;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker13: TwwDBDateTimePicker;
|
|
|
Label77: TLabel;
|
|
|
wwDBDateTimePicker14: TwwDBDateTimePicker;
|
|
|
Label78: TLabel;
|
|
|
wwDBDateTimePicker15: TwwDBDateTimePicker;
|
|
|
Label79: TLabel;
|
|
|
N73: TMenuItem;
|
|
|
N74: TMenuItem;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
N75: TMenuItem;
|
|
|
N76: TMenuItem;
|
|
|
N77: TMenuItem;
|
|
|
N78: TMenuItem;
|
|
|
N79: TMenuItem;
|
|
|
N80: TMenuItem;
|
|
|
dxDBGrid1Column109: TdxDBGridColumn;
|
|
|
dxDBGrid1Column110: TdxDBGridColumn;
|
|
|
dxDBGrid1Column111: TdxDBGridColumn;
|
|
|
N81: TMenuItem;
|
|
|
N82: TMenuItem;
|
|
|
N83: TMenuItem;
|
|
|
N84: TMenuItem;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
Label82: TLabel;
|
|
|
DBMemo12: TDBMemo;
|
|
|
Label83: TLabel;
|
|
|
DBEdit23: TDBEdit;
|
|
|
Label84: TLabel;
|
|
|
RxDBLookupCombo34: TRxDBLookupCombo;
|
|
|
Label85: TLabel;
|
|
|
RxDBLookupCombo35: TRxDBLookupCombo;
|
|
|
Label86: TLabel;
|
|
|
RxDBLookupCombo36: TRxDBLookupCombo;
|
|
|
bsSkinButton40: TbsSkinButton;
|
|
|
bsSkinButton41: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
|
|
|
Label87: TLabel;
|
|
|
wwDBDateTimePicker16: TwwDBDateTimePicker;
|
|
|
bsSkinButton42: TbsSkinButton;
|
|
|
bsSkinButton43: TbsSkinButton;
|
|
|
dxDBGrid1Column112: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column113: TdxDBGridColumn;
|
|
|
Label191: TLabel;
|
|
|
wwDBComboBox12: TwwDBComboBox;
|
|
|
Label179: TLabel;
|
|
|
DBEdit71: TDBEdit;
|
|
|
Label181: TLabel;
|
|
|
DBEdit73: TDBEdit;
|
|
|
Label185: TLabel;
|
|
|
DBEdit109: TDBEdit;
|
|
|
Label189: TLabel;
|
|
|
wwDBComboBox11: TwwDBComboBox;
|
|
|
Label190: TLabel;
|
|
|
DBEdit114: TDBEdit;
|
|
|
Label188: TLabel;
|
|
|
DBEdit112: TDBEdit;
|
|
|
Label187: TLabel;
|
|
|
DBEdit111: TDBEdit;
|
|
|
N85: TMenuItem;
|
|
|
CMAEDI1: TMenuItem;
|
|
|
Label90: TLabel;
|
|
|
Label91: TLabel;
|
|
|
bsSkinDBCheckRadioBox15: TbsSkinDBCheckRadioBox;
|
|
|
Label94: TLabel;
|
|
|
DBEdit24: TDBEdit;
|
|
|
Label95: TLabel;
|
|
|
DBEdit28: TDBEdit;
|
|
|
Label96: TLabel;
|
|
|
Label97: TLabel;
|
|
|
DBEdit29: TDBEdit;
|
|
|
Label98: TLabel;
|
|
|
DBEdit30: TDBEdit;
|
|
|
Label99: TLabel;
|
|
|
wwDBComboBox5: TwwDBComboBox;
|
|
|
N86: TMenuItem;
|
|
|
N87: TMenuItem;
|
|
|
N88: TMenuItem;
|
|
|
N89: TMenuItem;
|
|
|
N90: TMenuItem;
|
|
|
N91: TMenuItem;
|
|
|
N92: TMenuItem;
|
|
|
N93: TMenuItem;
|
|
|
NORISICA1: TMenuItem;
|
|
|
ANE1: TMenuItem;
|
|
|
N94: TMenuItem;
|
|
|
N95: TMenuItem;
|
|
|
N96: TMenuItem;
|
|
|
N97: TMenuItem;
|
|
|
N98: TMenuItem;
|
|
|
N99: TMenuItem;
|
|
|
bsSkinDBCheckRadioBox14: TbsSkinDBCheckRadioBox;
|
|
|
N100: TMenuItem;
|
|
|
WORD1: TMenuItem;
|
|
|
N101: TMenuItem;
|
|
|
N102: TMenuItem;
|
|
|
N103: TMenuItem;
|
|
|
N104: TMenuItem;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label80: TLabel;
|
|
|
RxDBLookupCombo32: TRxDBLookupCombo;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinPanel6: TbsSkinPanel;
|
|
|
Label81: TLabel;
|
|
|
RxDBLookupCombo33: TRxDBLookupCombo;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
|
|
|
DBEdit31: TDBEdit;
|
|
|
Label101: TLabel;
|
|
|
memtblrpt: TkbmMemTable;
|
|
|
kbmBinaryStreamFormat1: TkbmBinaryStreamFormat;
|
|
|
dsrmemtblrpt: TDataSource;
|
|
|
bsSkinButton44: TbsSkinButton;
|
|
|
bsSkinPanel7: TbsSkinPanel;
|
|
|
bsSkinDBCheckRadioBox16: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox17: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox18: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox19: TbsSkinDBCheckRadioBox;
|
|
|
t_op_modify: TADOQuery;
|
|
|
N105: TMenuItem;
|
|
|
EDI3: TMenuItem;
|
|
|
bsSkinGroupBox7: TbsSkinGroupBox;
|
|
|
Label108: TLabel;
|
|
|
Label109: TLabel;
|
|
|
RxDBLookupCombo48: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo49: TRxDBLookupCombo;
|
|
|
Label88: TLabel;
|
|
|
RxDBLookupCombo37: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo38: TRxDBLookupCombo;
|
|
|
Label89: TLabel;
|
|
|
t_code_edi_line: TADOQuery;
|
|
|
ds_code_edi_line1: TDataSource;
|
|
|
Label92: TLabel;
|
|
|
RxDBLookupCombo41: TRxDBLookupCombo;
|
|
|
dbmmoEDI: TDBMemo;
|
|
|
Label129: TLabel;
|
|
|
RxDBLookupCombo42: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo39: TRxDBLookupCombo;
|
|
|
Label93: TLabel;
|
|
|
DBEdit38: TDBEdit;
|
|
|
bsSkinButton45: TbsSkinButton;
|
|
|
N106: TMenuItem;
|
|
|
lbl1: TLabel;
|
|
|
dbedt1: TDBEdit;
|
|
|
dbedt2: TDBEdit;
|
|
|
lbl2: TLabel;
|
|
|
dbedt3: TDBEdit;
|
|
|
lbl3: TLabel;
|
|
|
Label116: TLabel;
|
|
|
RxDBLookupCombo40: TRxDBLookupCombo;
|
|
|
bsSkinDBCheckRadioBox21: TbsSkinDBCheckRadioBox;
|
|
|
Label117: TLabel;
|
|
|
wwDBDateTimePicker17: TwwDBDateTimePicker;
|
|
|
bsSkinButton46: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox22: TbsSkinDBCheckRadioBox;
|
|
|
Label118: TLabel;
|
|
|
wwDBDateTimePicker18: TwwDBDateTimePicker;
|
|
|
bsSkinButton47: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox23: TbsSkinDBCheckRadioBox;
|
|
|
Label119: TLabel;
|
|
|
wwDBDateTimePicker19: TwwDBDateTimePicker;
|
|
|
bsSkinButton48: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox24: TbsSkinDBCheckRadioBox;
|
|
|
Label120: TLabel;
|
|
|
wwDBDateTimePicker20: TwwDBDateTimePicker;
|
|
|
bsSkinButton49: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox25: TbsSkinDBCheckRadioBox;
|
|
|
Label127: TLabel;
|
|
|
wwDBDateTimePicker21: TwwDBDateTimePicker;
|
|
|
bsSkinButton50: TbsSkinButton;
|
|
|
Query1: TADOQuery;
|
|
|
aQuery2: TADOQuery;
|
|
|
bsSkinButton51: TbsSkinButton;
|
|
|
bsSkinButton52: TbsSkinButton;
|
|
|
bsSkinButton53: TbsSkinButton;
|
|
|
bsSkinButton54: TbsSkinButton;
|
|
|
dxDBGrid1Column114: TdxDBGridColumn;
|
|
|
dxDBGrid1Column115: TdxDBGridColumn;
|
|
|
dxDBGrid1Column116: TdxDBGridColumn;
|
|
|
RxDBLookupCombo24: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo25: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo26: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo27: TRxDBLookupCombo;
|
|
|
N107: TMenuItem;
|
|
|
EDI4: TMenuItem;
|
|
|
bsSkinGroupBox8: TbsSkinGroupBox;
|
|
|
t_op_ams: TADOQuery;
|
|
|
t_op_ams1: TDataSource;
|
|
|
DBEdit39: TDBEdit;
|
|
|
Label128: TLabel;
|
|
|
wwDBLookupCombo12: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo50: TRxDBLookupCombo;
|
|
|
Label130: TLabel;
|
|
|
DBMemo13: TDBMemo;
|
|
|
N108: TMenuItem;
|
|
|
NYKEDI1: TMenuItem;
|
|
|
Label131: TLabel;
|
|
|
RxDBLookupCombo51: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo13: TwwDBLookupCombo;
|
|
|
DBMemo14: TDBMemo;
|
|
|
RxDBLookupCombo52: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo14: TwwDBLookupCombo;
|
|
|
DBMemo15: TDBMemo;
|
|
|
Label132: TLabel;
|
|
|
N109: TMenuItem;
|
|
|
EDI5: TMenuItem;
|
|
|
N110: TMenuItem;
|
|
|
N111: TMenuItem;
|
|
|
N112: TMenuItem;
|
|
|
EDI6: TMenuItem;
|
|
|
Label133: TLabel;
|
|
|
DBMemo16: TDBMemo;
|
|
|
wwDBLookupCombo15: TwwDBLookupCombo;
|
|
|
N113: TMenuItem;
|
|
|
N114: TMenuItem;
|
|
|
N115: TMenuItem;
|
|
|
N116: TMenuItem;
|
|
|
N117: TMenuItem;
|
|
|
N118: TMenuItem;
|
|
|
N119: TMenuItem;
|
|
|
Label104: TLabel;
|
|
|
DBEdit34: TDBEdit;
|
|
|
N120: TMenuItem;
|
|
|
N121: TMenuItem;
|
|
|
N122: TMenuItem;
|
|
|
PILEDI1: TMenuItem;
|
|
|
Label106: TLabel;
|
|
|
bsSkinPanel8: TbsSkinPanel;
|
|
|
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;
|
|
|
Label19: TLabel;
|
|
|
Label100: TLabel;
|
|
|
Label102: TLabel;
|
|
|
Label103: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label105: TLabel;
|
|
|
wwDBLookupCombo48: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo46: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo47: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBMemo37: TDBMemo;
|
|
|
bsSkinButton22: TbsSkinButton;
|
|
|
DBMemo38: TDBMemo;
|
|
|
bsSkinButton21: TbsSkinButton;
|
|
|
DBMemo35: TDBMemo;
|
|
|
DBMemo34: TDBMemo;
|
|
|
DBMemo33: TDBMemo;
|
|
|
RxDBLookupCombo2: 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;
|
|
|
wwDBComboBoxBL: 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;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
RxDBLookupCombo15: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo28: TRxDBLookupCombo;
|
|
|
Button1: TButton;
|
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
wwDBLookupCombo7: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo11: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo43: TRxDBLookupCombo;
|
|
|
DBEdit32: TDBEdit;
|
|
|
DBEdit33: TDBEdit;
|
|
|
RxDBLookupCombo21: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo22: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo13: TRxDBLookupCombo;
|
|
|
bsSkinButton55: TbsSkinButton;
|
|
|
wwDBComboBox8: TwwDBComboBox;
|
|
|
wwDBDateTimePicker22: TwwDBDateTimePicker;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
bsskintabsheet_1: TbsSkinTabSheet;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label33: TLabel;
|
|
|
RxDBLookupCombo16: TRxDBLookupCombo;
|
|
|
bsSkinButton27: TbsSkinButton;
|
|
|
DBMemo3: TDBMemo;
|
|
|
bsSkinButton28: TbsSkinButton;
|
|
|
RxDBLookupCombo17: TRxDBLookupCombo;
|
|
|
DBMemo4: TDBMemo;
|
|
|
RxDBLookupCombo18: TRxDBLookupCombo;
|
|
|
bsSkinButton29: TbsSkinButton;
|
|
|
DBMemo5: TDBMemo;
|
|
|
bsSkinButton30: TbsSkinButton;
|
|
|
RxDBLookupCombo19: TRxDBLookupCombo;
|
|
|
DBMemo6: TDBMemo;
|
|
|
wwDBLookupCombo2: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo5: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo6: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo8: TwwDBLookupCombo;
|
|
|
bsSkinButton39: TbsSkinButton;
|
|
|
bsskintabsheet_2: TbsSkinTabSheet;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid2Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column17: TdxDBGridColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column7: TdxDBGridDateColumn;
|
|
|
dxDBGrid2Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column11: TdxDBGridColumn;
|
|
|
dxDBGrid2Column12: TdxDBGridColumn;
|
|
|
dxDBGrid2Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column16: TdxDBGridMaskColumn;
|
|
|
Panel1: TPanel;
|
|
|
bsSkinButton31: TbsSkinButton;
|
|
|
bsSkinButton32: TbsSkinButton;
|
|
|
bsSkinButton33: TbsSkinButton;
|
|
|
bsSkinButton34: TbsSkinButton;
|
|
|
bsSkinButton36: TbsSkinButton;
|
|
|
bsSkinButton14: TbsSkinButton;
|
|
|
bsSkinGroupBox9: TbsSkinGroupBox;
|
|
|
Label107: TLabel;
|
|
|
wwDBComboBox4: TwwDBComboBox;
|
|
|
t_op_ctn1: TDataSource;
|
|
|
t_op_ctn: TADOQuery;
|
|
|
strngfld_op_ctnDSDesigner2: TStringField;
|
|
|
strngfld_op_ctnDSDesigner6: TStringField;
|
|
|
intgrfld_op_ctnDSDesigner5: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner7: TStringField;
|
|
|
strngfld_op_ctnDSDesigner8: TStringField;
|
|
|
intgrfld_op_ctnDSDesigner9: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner10: TStringField;
|
|
|
bcdfld_op_ctnDSDesigner11: TBCDField;
|
|
|
bcdfld_op_ctnDSDesigner12: TBCDField;
|
|
|
strngfld_op_ctnDSDesigner1: TStringField;
|
|
|
strngfld_op_ctnDSDesigner13: TStringField;
|
|
|
strngfld_op_ctnDSDesigner14: TStringField;
|
|
|
intgrfld_op_ctnTEU: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner4: TStringField;
|
|
|
strngfld_op_ctnDSDesigner3: TStringField;
|
|
|
atncfld_op_ctnctn_id: TAutoIncField;
|
|
|
strngfld_op_ctnDSDesigner: TStringField;
|
|
|
bsSkinPanel9: TbsSkinPanel;
|
|
|
bsSkinButton56: TbsSkinButton;
|
|
|
bsSkinButton57: TbsSkinButton;
|
|
|
bsSkinButton58: TbsSkinButton;
|
|
|
bsSkinButton59: TbsSkinButton;
|
|
|
bsSkinButton60: TbsSkinButton;
|
|
|
btnMarks: TbsSkinButton;
|
|
|
btnDesc: TbsSkinButton;
|
|
|
wwDBLookupCombo16: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo17: TwwDBLookupCombo;
|
|
|
wwDBGrid1: TwwDBGrid;
|
|
|
Memo4: TMemo;
|
|
|
Memo3: TMemo;
|
|
|
Memo2: TMemo;
|
|
|
Memo1: TMemo;
|
|
|
N123: TMenuItem;
|
|
|
N124: TMenuItem;
|
|
|
DBEdit35: TDBEdit;
|
|
|
N125: TMenuItem;
|
|
|
EDI7: TMenuItem;
|
|
|
N126: TMenuItem;
|
|
|
EDI8: TMenuItem;
|
|
|
Label110: TLabel;
|
|
|
DBEdit36: TDBEdit;
|
|
|
Label111: TLabel;
|
|
|
DBEdit37: TDBEdit;
|
|
|
Label112: TLabel;
|
|
|
DBEdit40: TDBEdit;
|
|
|
Label113: TLabel;
|
|
|
RxDBLookupCombo44: TRxDBLookupCombo;
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure t_op_seaeBeforePost(DataSet: TDataSet);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure t_op_seae_fenBeforePost(DataSet: TDataSet);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure wwDBComboBox2Change(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton33Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton32Click(Sender: TObject);
|
|
|
procedure bsSkinButton36Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
procedure t_op_seae_fenBeforeDelete(DataSet: TDataSet);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo16Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo17Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo18Change(Sender: TObject);
|
|
|
procedure bsSkinButton26Click(Sender: TObject);
|
|
|
procedure bsSkinButton25Click(Sender: TObject);
|
|
|
procedure bsSkinButton24Click(Sender: TObject);
|
|
|
procedure bsSkinButton23Click(Sender: TObject);
|
|
|
procedure bsSkinButton21Click(Sender: TObject);
|
|
|
procedure bsSkinButton22Click(Sender: TObject);
|
|
|
procedure bsSkinButton16Click(Sender: TObject);
|
|
|
procedure bsSkinButton17Click(Sender: TObject);
|
|
|
procedure bsSkinButton18Click(Sender: TObject);
|
|
|
procedure bsSkinButton19Click(Sender: TObject);
|
|
|
procedure bsSkinButton20Click(Sender: TObject);
|
|
|
procedure DBMemo40Change(Sender: TObject);
|
|
|
procedure DBMemo41Change(Sender: TObject);
|
|
|
procedure DBMemo42Change(Sender: TObject);
|
|
|
procedure DBMemo41Exit(Sender: TObject);
|
|
|
procedure DBMemo42Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo61Change(Sender: TObject);
|
|
|
procedure bsSkinButton37Click(Sender: TObject);
|
|
|
procedure DBEdit5Click(Sender: TObject);
|
|
|
procedure 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 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 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 wwDBLookupCombo52KeyPress(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 wwDBComboBoxBLKeyPress(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 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 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);
|
|
|
procedure bsSkinDBCheckRadioBox11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure wwDBLookupCombo7Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo7Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo7Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo8Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo8Exit(Sender: TObject);
|
|
|
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinButton35Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo1Change(Sender: TObject);
|
|
|
procedure N62Click(Sender: TObject);
|
|
|
procedure N64Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGrid2Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError;
|
|
|
var Action: TDataAction);
|
|
|
procedure N66Click(Sender: TObject);
|
|
|
procedure t_op_seaeAfterPost(DataSet: TDataSet);
|
|
|
procedure N68Click(Sender: TObject);
|
|
|
procedure N70Click(Sender: TObject);
|
|
|
procedure N72Click(Sender: TObject);
|
|
|
procedure Notebook1PageChanged(Sender: TObject);
|
|
|
procedure bsSkinButton15Click(Sender: TObject);
|
|
|
procedure wwDBDateTimePicker14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker15KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure N74Click(Sender: TObject);
|
|
|
procedure t_op_seae_fenPostError(DataSet: TDataSet; E: EDatabaseError;
|
|
|
var Action: TDataAction);
|
|
|
procedure wwDBDateTimePicker2Change(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure N76Click(Sender: TObject);
|
|
|
procedure N78Click(Sender: TObject);
|
|
|
procedure N80Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo11Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo11Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo11DblClick(Sender: TObject);
|
|
|
procedure t_op_seaeBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_seae_fenBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_seae_fenBeforeCancel(DataSet: TDataSet);
|
|
|
procedure t_op_seaeBeforeCancel(DataSet: TDataSet);
|
|
|
procedure RxDBLookupCombo32KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo33KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure N82Click(Sender: TObject);
|
|
|
procedure N84Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo36Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo36Exit(Sender: TObject);
|
|
|
procedure bsSkinButton39Click(Sender: TObject);
|
|
|
procedure bsSkinButton42Click(Sender: TObject);
|
|
|
procedure bsSkinButton40Click(Sender: TObject);
|
|
|
procedure bsSkinButton41Click(Sender: TObject);
|
|
|
procedure bsSkinButton43Click(Sender: TObject);
|
|
|
procedure CMAEDI1Click(Sender: TObject);
|
|
|
procedure Label92Click(Sender: TObject);
|
|
|
procedure Label93Click(Sender: TObject);
|
|
|
procedure Label56Click(Sender: TObject);
|
|
|
procedure N88Click(Sender: TObject);
|
|
|
procedure N87Click(Sender: TObject);
|
|
|
procedure ANE1Click(Sender: TObject);
|
|
|
procedure N97Click(Sender: TObject);
|
|
|
procedure N99Click(Sender: TObject);
|
|
|
procedure WORD1Click(Sender: TObject);
|
|
|
procedure N102Click(Sender: TObject);
|
|
|
procedure N104Click(Sender: TObject);
|
|
|
procedure bsSkinPanel7MouseLeave(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox16Click(Sender: TObject);
|
|
|
procedure bsSkinButton44Click(Sender: TObject);
|
|
|
procedure DBEdit33KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox17Click(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox18Click(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox19Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBLookupComboboxPORTDISCHARGEIDChange(Sender: TObject);
|
|
|
procedure RxDBLookupCombo22Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo21Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure EDI3Click(Sender: TObject);
|
|
|
procedure bsSkinButton45Click(Sender: TObject);
|
|
|
procedure N106Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo40Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo40Exit(Sender: TObject);
|
|
|
procedure bsSkinButton46Click(Sender: TObject);
|
|
|
procedure bsSkinButton47Click(Sender: TObject);
|
|
|
procedure bsSkinButton48Click(Sender: TObject);
|
|
|
procedure bsSkinButton49Click(Sender: TObject);
|
|
|
procedure bsSkinButton50Click(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox17Enter(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox16Enter(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox18Enter(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox19Enter(Sender: TObject);
|
|
|
procedure bsSkinButton51Click(Sender: TObject);
|
|
|
procedure bsSkinButton52Click(Sender: TObject);
|
|
|
procedure bsSkinButton53Click(Sender: TObject);
|
|
|
procedure bsSkinButton54Click(Sender: TObject);
|
|
|
procedure bsSkinButton55Click(Sender: TObject);
|
|
|
procedure wwDBComboBox8Enter(Sender: TObject);
|
|
|
procedure wwDBComboBox8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox8Change(Sender: TObject);
|
|
|
procedure EDI4Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo12Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo50Change(Sender: TObject);
|
|
|
procedure NYKEDI1Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo51Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo13Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo52Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo14Change(Sender: TObject);
|
|
|
procedure EDI5Click(Sender: TObject);
|
|
|
procedure N111Click(Sender: TObject);
|
|
|
procedure EDI6Click(Sender: TObject);
|
|
|
procedure N115Click(Sender: TObject);
|
|
|
procedure N117Click(Sender: TObject);
|
|
|
procedure N119Click(Sender: TObject);
|
|
|
procedure N121Click(Sender: TObject);
|
|
|
procedure PILEDI1Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo15Change(Sender: TObject);
|
|
|
procedure bsSkinButton56Click(Sender: TObject);
|
|
|
procedure bsSkinButton57Click(Sender: TObject);
|
|
|
procedure bsSkinButton58Click(Sender: TObject);
|
|
|
procedure bsSkinButton59Click(Sender: TObject);
|
|
|
procedure btnMarksClick(Sender: TObject);
|
|
|
procedure btnDescClick(Sender: TObject);
|
|
|
procedure bsSkinButton60Click(Sender: TObject);
|
|
|
procedure t_op_ctnAfterInsert(DataSet: TDataSet);
|
|
|
procedure t_op_ctnAfterDelete(DataSet: TDataSet);
|
|
|
procedure t_op_ctnBeforeDelete(DataSet: TDataSet);
|
|
|
procedure t_op_ctnBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_ctnBeforePost(DataSet: TDataSet);
|
|
|
procedure wwDBLookupCombo17Change(Sender: TObject);
|
|
|
procedure N124Click(Sender: TObject);
|
|
|
procedure t_op_seaeAfterRefresh(DataSet: TDataSet);
|
|
|
procedure DBEdit35Change(Sender: TObject);
|
|
|
procedure EDI7Click(Sender: TObject);
|
|
|
procedure EDI8Click(Sender: TObject);
|
|
|
procedure DBMemo33Change(Sender: TObject);
|
|
|
procedure DBMemo33Click(Sender: TObject);
|
|
|
procedure DBMemo34Change(Sender: TObject);
|
|
|
procedure DBMemo34Click(Sender: TObject);
|
|
|
procedure DBMemo35Change(Sender: TObject);
|
|
|
procedure DBMemo35Click(Sender: TObject);
|
|
|
procedure DBMemo38Change(Sender: TObject);
|
|
|
procedure DBMemo38Click(Sender: TObject);
|
|
|
procedure DBMemo39Change(Sender: TObject);
|
|
|
procedure DBMemo39Click(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_ch_piliang_seae, u_op_seae_huanhuo_do,
|
|
|
u_op_seae_letter, u_op_date_change, my_sys_chat, u_op_seae_print_mul,
|
|
|
u_op_seae_state_up, u_op_seae_edi_cma, u_code_package_edi,
|
|
|
u_code_shiper_edi, u_code_edi_port, u_op_seae_hpadd, u_op_modify,
|
|
|
u_op_salesmodify, u_op_seae_word, u_op_seae_edi_nor, u_op_data_copy,
|
|
|
u_op_seae_vesselline, u_op_seae_edi_ym, u_op_seae_edi_nyk,
|
|
|
u_op_seae_edi_cosco, u_op_delnote, u_op_seae_edi_wh, u_op_piliang_seae,
|
|
|
u_op_seae_edi_PIL, u_op_seae_edi_JTB, u_op_seae_edi_custom_WaiDai,
|
|
|
u_op_seae_edi_custom_ld;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_op_seae.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
savereggrid(dxdbgrid2,caption+'1');
|
|
|
t_code_edi_line.CLOSE;
|
|
|
|
|
|
|
|
|
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_op_seae_fenzhang) then
|
|
|
frm_op_seae_fenzhang.close;
|
|
|
if assigned(frm_op_seae_letter) then
|
|
|
frm_op_seae_letter.close;
|
|
|
if assigned(frm_op_seae_state_up) then
|
|
|
begin
|
|
|
frm_op_seae_state_up.close;
|
|
|
frm_op_seae_state_up.free;
|
|
|
frm_op_seae_state_up:=nil;
|
|
|
end;
|
|
|
frm_op_seae.Hide;
|
|
|
frm_op_seae.ManualFloat(frm_op_seae.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_seae');
|
|
|
frm_op_seae_create:=false;
|
|
|
action:=cafree;
|
|
|
frm_op_seae:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforePost(DataSet: TDataSet);
|
|
|
var
|
|
|
aYear,amonth,aDay:Word;
|
|
|
bYear,bmonth,bDay:Word;
|
|
|
cntrStr:String;
|
|
|
aQuery:TADOQuery;
|
|
|
function GetCorpID(Corp:string):string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
sql.Add('sELECT <20><><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+Corp+'''');
|
|
|
Open;
|
|
|
Result:=FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
begin
|
|
|
|
|
|
table_before_post(t_op_seae,'ί<>е<EFBFBD>λ');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'<27>ͷ<EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'װ<>˷<EFBFBD>ʽ');
|
|
|
table_before_post(t_op_seae,'װ<><D7B0><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'ж<><D0B6><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
|
|
|
|
|
|
//table_before_post(t_op_seae,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').Value<>t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').OldValue then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').Value;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').Value;
|
|
|
end;
|
|
|
{
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring)='<27><><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if CheckCtnTotalEquelDetail(t_op_seae) then
|
|
|
begin
|
|
|
showmessage('װ<><D7B0><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>˶<EFBFBD>');
|
|
|
// abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
op_empty('t_op_seae',t_op_seae);
|
|
|
|
|
|
if (Pos('RH',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) OR (Pos('RF',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) OR (Pos('DO',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) then begin
|
|
|
//t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='D';
|
|
|
if Trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='' then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
if Trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='' then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end else if (Pos('GP',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) OR (Pos('HQ',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) then
|
|
|
begin //t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='S';
|
|
|
end;
|
|
|
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
if Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring),t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0 then begin
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>1=D<><44><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>1=D<><44><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>1=C<><43><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>1=C<><43><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>1=F<><46><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>1=F<><46><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if (t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>1=X<><58><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>1=X<><58><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value)
|
|
|
then begin
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
cntrstr:=Query1.FieldByName('<27><>').AsString;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end else begin
|
|
|
if aQuery2['<27>˼<EFBFBD>']<>Query1['<27><><EFBFBD><EFBFBD>'] then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
{ljp
|
|
|
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_vessel_plan where 1=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+formatDatetime('yyyy-mm-dd',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])+'''');
|
|
|
Open;
|
|
|
if IsEmpty then begin
|
|
|
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD>뺽<EFBFBD>ߴ<EFBFBD><DFB4>ڲ<EFBFBD>һ<EFBFBD>£<EFBFBD><C2A3>Ƿ<C7B7>?',mtWarning,[mbYes,mbNo],0)<>mrYes then begin
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
if Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring),t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0 then begin
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>2=D<><44><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>2=D<><44><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>2=C<><43><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>2=C<><43><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>2=F<><46><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>2=F<><46><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if (t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>2=X<><58><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>2=X<><58><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value)
|
|
|
then begin
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
cntrstr:=Query1.FieldByName('<27><>').AsString;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end else begin
|
|
|
if aQuery2['<27>˼<EFBFBD>']<>Query1['<27><><EFBFBD><EFBFBD>'] then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
{
|
|
|
ljp
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_vessel_plan where 1=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+formatDatetime('yyyy-mm-dd',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])+'''');
|
|
|
Open;
|
|
|
if IsEmpty then begin
|
|
|
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD>뺽<EFBFBD>ߴ<EFBFBD><DFB4>ڲ<EFBFBD>һ<EFBFBD>£<EFBFBD><C2A3>Ƿ<C7B7>?',mtWarning,[mbYes,mbNo],0)<>mrYes then begin
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
if Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring),t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0 then begin
|
|
|
if (t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>3=D<><44><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>3=D<><44><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>3=C<><43><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>3=C<><43><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>3=F<><46><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>3=F<><46><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if (t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>3=X<><58><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>3=X<><58><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value)
|
|
|
then begin
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
cntrstr:=Query1.FieldByName('<27><>').AsString;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end else begin
|
|
|
if aQuery2['<27>˼<EFBFBD>']<>Query1['<27><><EFBFBD><EFBFBD>'] then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
{
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_vessel_plan where 1=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+formatDatetime('yyyy-mm-dd',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])+'''');
|
|
|
Open;
|
|
|
if IsEmpty then begin
|
|
|
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD>뺽<EFBFBD>ߴ<EFBFBD><DFB4>ڲ<EFBFBD>һ<EFBFBD>£<EFBFBD><C2A3>Ƿ<C7B7>?',mtWarning,[mbYes,mbNo],0)<>mrYes then begin
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
if Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring),t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0 then begin
|
|
|
if (t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>4=D<><44><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>4=D<><44><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>4=C<><43><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>4=C<><43><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>4=F<><46><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>4=F<><46><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if (t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>4=X<><58><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>4=X<><58><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value)
|
|
|
then begin
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
cntrstr:=Query1.FieldByName('<27><>').AsString;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end else begin
|
|
|
if aQuery2['<27>˼<EFBFBD>']<>Query1['<27><><EFBFBD><EFBFBD>'] then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
{
|
|
|
ljp
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_vessel_plan where 1=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+formatDatetime('yyyy-mm-dd',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])+'''');
|
|
|
Open;
|
|
|
if IsEmpty then begin
|
|
|
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD>뺽<EFBFBD>ߴ<EFBFBD><DFB4>ڲ<EFBFBD>һ<EFBFBD>£<EFBFBD><C2A3>Ƿ<C7B7>?',mtWarning,[mbYes,mbNo],0)<>mrYes then begin
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
if Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring),t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0 then begin
|
|
|
if (t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>5=D<><44><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>5=D<><44><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>5=C<><43><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>5=C<><43><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>5=F<><46><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>5=F<><46><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if (t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>5=X<><58><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>5=X<><58><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value)
|
|
|
then begin
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
cntrstr:=Query1.FieldByName('<27><>').AsString;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end else begin
|
|
|
if aQuery2['<27>˼<EFBFBD>']<>Query1['<27><><EFBFBD><EFBFBD>'] then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_vessel_plan where 1=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+formatDatetime('yyyy-mm-dd',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
cntrstr:=Query1.FieldByName('<27><>').AsString;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end else begin
|
|
|
if aQuery2['<27>˼<EFBFBD>']<>Query1['<27><><EFBFBD><EFBFBD>'] then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
if Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring),t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0 then begin
|
|
|
if (t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>Ѷ<EFBFBD><D1B6><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>6=D<><44><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>6=D<><44><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѳ<EFBFBD><D1B3><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>6=C<><43><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>6=C<><43><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѷ<EFBFBD><D1B7><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>6=F<><46><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>6=F<><46><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if (t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27>ѱ<EFBFBD><D1B1><EFBFBD>').Value) then begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>'] then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>6=X<><58><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>6=X<><58><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value)
|
|
|
then begin
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
cntrstr:=Query1.FieldByName('<27><>').AsString;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
|
|
|
aQuery2.sql.add(' and Ʒ<><C6B7>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>'+getZweek(DayOfWeek(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime))+'=1');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.clear;
|
|
|
aQuery2.sql.add('select * from v_price_detail ');
|
|
|
aQuery2.sql.add(' WHERE Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>='''+t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='+formatDatetime('yyyy',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']));
|
|
|
aQuery2.sql.add(' and <20>ܴ<EFBFBD>='+IntToStr(WeekofYear(t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])));
|
|
|
aQuery2.sql.add(' and (Ʒ<><C6B7>='''' or Ʒ<><C6B7> is null)');
|
|
|
aQuery2.sql.add(' and <20><>һ=0 and <20>ܶ<EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 and <20><><EFBFBD><EFBFBD>=0 ');
|
|
|
aQuery2.sql.add(' and <20><><EFBFBD><EFBFBD>='''+CntrStr+'''');
|
|
|
aQuery2.Open;
|
|
|
end;
|
|
|
|
|
|
if aQuery2.IsEmpty then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end else begin
|
|
|
if aQuery2['<27>˼<EFBFBD>']<>Query1['<27><><EFBFBD><EFBFBD>'] then begin
|
|
|
ShowMessage('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD>롢<EFBFBD><EBA1A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD><C6A1><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!');
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
{
|
|
|
ljp
|
|
|
with Query1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_vessel_plan where 1=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+'''');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+formatDatetime('yyyy-mm-dd',t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'])+'''');
|
|
|
Open;
|
|
|
if IsEmpty then begin
|
|
|
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD>뺽<EFBFBD>ߴ<EFBFBD><DFB4>ڲ<EFBFBD>һ<EFBFBD>£<EFBFBD><C2A3>Ƿ<C7B7>?',mtWarning,[mbYes,mbNo],0)<>mrYes then begin
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//
|
|
|
if t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if t_op_seae.State=dsinsert then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
|
|
|
begin
|
|
|
t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,'SE');
|
|
|
if t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring=''then
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>']:=get_id;
|
|
|
t_op_seae['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=GetDeptName(t_op_seae.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetDeptName(t_op_seae.fieldByName('<27><><EFBFBD><EFBFBD>Ա').AsString);
|
|
|
|
|
|
end;
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
table_before_post(t_op_seae,'<27><>װ<EFBFBD><D7B0>');
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
if strtobool(get_parameters_value(31,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
if strtobool(get_parameters_value(32,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(33,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['ί<>б<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['ί<>б<EFBFBD>']:=t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['ί<>б<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(57,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(58,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(59,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>쵥<EFBFBD><ECB5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
t_ch_fee.close;
|
|
|
t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_ch_fee.open;
|
|
|
if (t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'') then begin
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>null then begin
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value then begin
|
|
|
DecodeDate(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue,aYear,amonth,aDay);
|
|
|
DecodeDate(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value,bYear,bmonth,bDay);
|
|
|
t_op_modify.Open;
|
|
|
t_op_modify.Insert;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD>']:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_modify['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
if ((aYear<>bYear) or (amonth<>bMonth)) and (not t_ch_fee.IsEmpty) then
|
|
|
t_op_modify['<27><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD>']:=1
|
|
|
else
|
|
|
t_op_modify['<27><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD>']:=0;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ڸ<EFBFBD><DAB8><EFBFBD>';
|
|
|
t_op_modify['ί<>б<EFBFBD><D0B1><EFBFBD>']:=t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
|
|
|
t_op_modify['ί<>е<EFBFBD>λ']:=t_op_seae.fieldbyname('ί<>е<EFBFBD>λ').asstring;
|
|
|
t_op_modify['<27>ɴ<EFBFBD><C9B4><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27>ɺ<EFBFBD><C9BA><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IP']:=LocalIP;
|
|
|
t_op_modify.Post;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value then begin
|
|
|
t_op_modify.Open;
|
|
|
t_op_modify.Insert;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD>']:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD><EFBFBD>˸<EFBFBD><CBB8><EFBFBD>';
|
|
|
if (not t_ch_fee.IsEmpty) then
|
|
|
t_op_modify['<27><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD>']:=1
|
|
|
else
|
|
|
t_op_modify['<27><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD>']:=0;
|
|
|
t_op_modify['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_modify['ί<>б<EFBFBD><D0B1><EFBFBD>']:=t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
|
|
|
t_op_modify['ί<>е<EFBFBD>λ']:=t_op_seae.fieldbyname('ί<>е<EFBFBD>λ').asstring;
|
|
|
t_op_modify['ҵ<><D2B5>Ա']:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_modify['<27><>ҵ<EFBFBD><D2B5>Ա']:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue;
|
|
|
t_op_modify['<27>ɴ<EFBFBD><C9B4><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27>ɺ<EFBFBD><C9BA><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IP']:=LocalIP;
|
|
|
t_op_modify.Post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.FormShow(Sender: TObject);
|
|
|
var
|
|
|
ExeFileName,Str:String;
|
|
|
i:integer;
|
|
|
begin
|
|
|
ExeFileName:='\SoftWare\DongSheng\<5C><>ʤ<EFBFBD><CAA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ϵͳ\Grid';
|
|
|
Notebook1.PageIndex:=0;
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ<C8BA><F2A1A3A1><EFBFBD>';
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=35;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
frm_op_seae_list_type:=1;
|
|
|
|
|
|
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 100 * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
|
|
|
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+' or <20><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>='+''''+employee+''''+' or <20><><EFBFBD>߲<EFBFBD><DFB2><EFBFBD>='+''''+employee+''''
|
|
|
+' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''+')'
|
|
|
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
|
|
|
|
|
|
{
|
|
|
t_op_seae.SQL.Add('select top 100 * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
|
|
|
t_op_seae.SQL.SaveToFile('D:\1.txt');
|
|
|
}
|
|
|
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_data_share.t_code_tiaokuan.open;
|
|
|
t_op_ctn.Close;
|
|
|
t_op_ctn.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=DBEdit35.Text;
|
|
|
t_op_ctn.Open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
fra_op_card1.t_op_card.DataSource:=t_op_seae2;
|
|
|
fra_op_card1.t_op_card.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
loadreggrid(dxdbgrid1,true,caption);
|
|
|
loadreggrid(dxdbgrid2,false,caption+'1');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_op_seae.wwDBComboBox2Change(Sender);
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_op_seae_create:=true;
|
|
|
frm_data_share.t_sys_employee.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_ship.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_changzhan.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_truck.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_baoguan.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_weituo.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_daili.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_huodai.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_shiper.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_shouhuo.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_tongzhi.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_other.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if not frm_data_share.t_code_code.Active then
|
|
|
frm_data_share.t_code_code.open;
|
|
|
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_data_share.t_code_edi_port.requery;
|
|
|
t_code_edi_line.Open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_progress.close;
|
|
|
frm_sys_progress:=nil;
|
|
|
|
|
|
|
|
|
try
|
|
|
t_op_seae.DisableControls;
|
|
|
for i:=0 to dxdbgrid1.ColumnCount-1 do
|
|
|
begin
|
|
|
dxdbgrid1.Columns[i].Sorted:=csNone;
|
|
|
end;
|
|
|
with TRegIniFile.Create do
|
|
|
try
|
|
|
RootKey:=HKEY_LOCAL_MACHINE;
|
|
|
Str:=readString(ExeFileName,'Sort','');
|
|
|
if Str<>'' then
|
|
|
t_op_seae.Sort:=str;
|
|
|
finally
|
|
|
Free;
|
|
|
end;
|
|
|
finally
|
|
|
t_op_seae.First;
|
|
|
t_op_seae.EnableControls;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_op_seae_fen,'ί<>е<EFBFBD>λ');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'<27>ͷ<EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'װ<><D7B0><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'ж<><D0B6><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
op_empty('t_op_seae',t_op_seae_fen);
|
|
|
|
|
|
if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').asstring then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae_fen.State=dsinsert then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
|
|
|
begin
|
|
|
t_op_seae_fen['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,'SE');
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=get_id;
|
|
|
end;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
end;
|
|
|
t_op_seae_fen['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
if strtobool(get_parameters_value(31,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
if strtobool(get_parameters_value(32,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(33,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['ί<>б<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['ί<>б<EFBFBD>']:=t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['ί<>б<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(57,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(58,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(59,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>쵥<EFBFBD><ECB5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if not t_op_seae2.DataSet.Bof then
|
|
|
t_op_seae2.DataSet.Prior;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if not t_op_seae2.DataSet.eof then
|
|
|
t_op_seae2.DataSet.next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox2Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>Ʊ') then
|
|
|
begin
|
|
|
Label14.Caption:='<27>ֵ<EFBFBD><D6B5>б<EFBFBD>';
|
|
|
DBMemo2.DataField:='<27>ֵ<EFBFBD><D6B5>б<EFBFBD>';
|
|
|
bsSkinButton37.Visible:=true;
|
|
|
wwDBLookupCombo11.Visible:=false;
|
|
|
|
|
|
bsSkinPageControl2.Visible:=true;
|
|
|
bsSkinButton12.Visible:=true;
|
|
|
bsSkinButton14.Visible:=true;
|
|
|
|
|
|
RxDBLookupCombo2.Visible:=false;
|
|
|
RxDBLookupCombo3.Visible:=false;
|
|
|
RxDBLookupCombo4.Visible:=false;
|
|
|
RxDBLookupCombo5.Visible:=false;
|
|
|
DBMemo33.Visible:=false;
|
|
|
DBMemo34.Visible:=false;
|
|
|
DBMemo35.Visible:=false;
|
|
|
DBMemo1.Visible:=false;
|
|
|
wwDBLookupCombo46.Visible:=false;
|
|
|
wwDBLookupCombo47.Visible:=false;
|
|
|
wwDBLookupCombo48.Visible:=false;
|
|
|
wwDBLookupCombo7.Visible:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
Label14.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
DBMemo2.DataField:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
bsSkinButton37.Visible:=false;
|
|
|
wwDBLookupCombo11.Visible:=true;
|
|
|
|
|
|
bsSkinPageControl2.Visible:=false;
|
|
|
bsSkinButton12.Visible:=false;
|
|
|
bsSkinButton14.Visible:=false;
|
|
|
|
|
|
RxDBLookupCombo2.Visible:=true;
|
|
|
RxDBLookupCombo3.Visible:=true;
|
|
|
RxDBLookupCombo4.Visible:=true;
|
|
|
RxDBLookupCombo5.Visible:=true;
|
|
|
DBMemo33.Visible:=true;
|
|
|
DBMemo34.Visible:=true;
|
|
|
DBMemo35.Visible:=true;
|
|
|
DBMemo1.Visible:=true;
|
|
|
wwDBLookupCombo46.Visible:=true;
|
|
|
wwDBLookupCombo47.Visible:=true;
|
|
|
wwDBLookupCombo48.Visible:=true;
|
|
|
wwDBLookupCombo7.Visible:=true;
|
|
|
end;
|
|
|
if (wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (wwDBComboBox2.text='ƴ<>䵥Ʊ') then
|
|
|
bsSkinGroupBox9.Visible:=false
|
|
|
else
|
|
|
bsSkinGroupBox9.Visible:=True;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton11Click(Sender: TObject);
|
|
|
var
|
|
|
answer:TModalResult;
|
|
|
begin
|
|
|
if bsSkinButton11.Caption='<27>༭<EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
Notebook1.PageIndex:=1;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>' then
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
bsSkinButton11.Caption:='<27>༭<EFBFBD><EFBFBD>';
|
|
|
Notebook1.PageIndex:=0;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
|
|
|
begin
|
|
|
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae_fen.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae_fen.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
try
|
|
|
t_op_seae2.Enabled:=false;
|
|
|
t_op_seae2.DataSet:=t_op_seae;
|
|
|
finally
|
|
|
t_op_seae2.Enabled:=true;
|
|
|
end;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton33Click(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
|
|
|
try
|
|
|
t_op_seae2.Enabled:=false;
|
|
|
t_op_seae2.DataSet:=t_op_seae_fen;
|
|
|
finally
|
|
|
t_op_seae2.Enabled:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
// showmessage('a');
|
|
|
|
|
|
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
|
|
|
if (t_op_ctn.State=dsinsert)or(t_op_ctn.State=dsedit) then
|
|
|
t_op_ctn.post;
|
|
|
|
|
|
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit) then
|
|
|
t_op_ams1.DataSet.post;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.cancel;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton4Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
function isDelete:Boolean;
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
result:=false;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select ɾ<><C9BE><EFBFBD>辭<EFBFBD><E8BEAD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_sys_department where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=( select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_sys_employee where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+''')');
|
|
|
open;
|
|
|
if fieldbyname('ɾ<><C9BE><EFBFBD>辭<EFBFBD><E8BEAD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
|
|
|
result:=true;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
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('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>л<EFBFBD><D0BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_ch_fee.close;
|
|
|
t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_ch_fee.open;
|
|
|
if not t_ch_fee.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae2.dataset.fieldbyName('ҵ<><D2B5>״̬').AsString='<27><>ɾ<D7BC><C9BE>') or (not isDelete) then begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_op_seae2.DataSet.delete;
|
|
|
end else begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then begin
|
|
|
frm_op_delnote:=Tfrm_op_delnote.Create(self);
|
|
|
try
|
|
|
frm_op_delnote.DataSource1.DataSet:=t_op_seae2.DataSet;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.clear;
|
|
|
sql.Add('delete from t_op_delnote where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
|
|
|
ExecSQL;
|
|
|
end;
|
|
|
finally
|
|
|
freeandnil(aQuery);
|
|
|
end;
|
|
|
frm_op_delnote.t_op_delnote.open;
|
|
|
frm_op_delnote.t_op_delnote.Insert;
|
|
|
if frm_op_delnote.ShowModal=mrOk then begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').AsString:='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>';
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(frm_op_delnote);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton32Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
|
|
|
t_op_seae_fen.post;
|
|
|
try
|
|
|
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
|
|
|
frm_op_seae_add.data1.Enabled:=false;
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
|
|
|
frm_op_seae_add.data1.Enabled:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
|
|
|
frm_op_seae_add_num:=3;
|
|
|
|
|
|
frm_op_seae_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_add.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton36Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
|
|
|
t_op_seae_fen.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
|
|
|
if t_op_seae2.DataSet=t_op_seae then
|
|
|
begin
|
|
|
frm_op_seae_add.data1.Enabled:=false;
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae;
|
|
|
frm_op_seae_add.data1.Enabled:=true;
|
|
|
frm_op_seae_add_num:=1;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
frm_op_seae_add.data1.Enabled:=false;
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
|
|
|
frm_op_seae_add.data1.Enabled:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
|
|
|
frm_op_seae_add_num:=2;
|
|
|
end;
|
|
|
frm_op_seae_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_add.Free;
|
|
|
if not frm_op_seae.bsSkinTabSheet1.Showing then
|
|
|
frm_op_seae.bsSkinTabSheet1.Show;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae,'0001');
|
|
|
delete_add(1,t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae_fen,'0001');
|
|
|
delete_add(1,t_op_seae_fen);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton8Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
if (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
|
|
|
or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')
|
|
|
or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ')
|
|
|
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);
|
|
|
var
|
|
|
ablack:Boolean;
|
|
|
begin
|
|
|
if t_op_seae_fen.Active and (not t_op_seae_fen.IsEmpty) then begin
|
|
|
ablack:=False;
|
|
|
memtblrpt.LoadFromDataSet(t_op_seae_fen, [mtcpoStructure,mtcpoProperties,mtcpoFieldIndex]);
|
|
|
memtblrpt.First;
|
|
|
while not memtblrpt.Eof do begin
|
|
|
if (memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger=0) or (memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat=0) or (memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat=0) then begin
|
|
|
ablack:=true;
|
|
|
end;
|
|
|
memtblrpt.Next;
|
|
|
end;
|
|
|
if ablack then begin
|
|
|
memtblrpt.First;
|
|
|
while not memtblrpt.Eof do begin
|
|
|
memtblrpt.Edit;
|
|
|
memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=0;
|
|
|
memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=0.00;
|
|
|
memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=0.00;
|
|
|
memtblrpt.Post;
|
|
|
memtblrpt.Next;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,dsrmemtblrpt,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['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').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['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').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['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').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['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').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['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').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['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton26Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton25Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton24Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton23Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton21Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><>ͷ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton22Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton16Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton17Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,DBMemo2.DataField);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton18Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton19Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton20Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
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['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo40);
|
|
|
t_op_seae2.DataSet['<27><>װ']:=total_package(dbmemo40);
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
|
|
|
:='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
|
|
|
+t_op_seae2.DataSet.FieldByName('<27><>װ').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['<27><><EFBFBD><EFBFBD>']:=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['<27><><EFBFBD><EFBFBD>']:=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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo41.text;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo42Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
kgs_cbm(DBMemo42,'CBM');
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
|
|
|
:='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').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('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ɣ<EFBFBD><C9A3><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC>룡<EFBFBD><EBA3A1>');
|
|
|
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('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
|
|
|
DBMemo39.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
DBMemo40.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring;
|
|
|
DBMemo41.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
DBMemo42.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').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('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').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('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo39.Lines.Count then
|
|
|
begin
|
|
|
DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo40.Lines.Count then
|
|
|
begin
|
|
|
DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo41.Lines.Count then
|
|
|
begin
|
|
|
DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo42.Lines.Count then
|
|
|
begin
|
|
|
DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae_fen.next;
|
|
|
end;
|
|
|
t_op_seae['<27><>װ']:='PACKAGES';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit5Click(Sender: TObject);
|
|
|
begin
|
|
|
{
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if (t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
|
|
|
or (t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')then
|
|
|
exit;
|
|
|
|
|
|
try
|
|
|
frm_op_ctn:=tfrm_op_ctn.Create (self);
|
|
|
frm_op_ctn.t_op_ctn.DataSource:=t_op_seae2;
|
|
|
frm_op_ctn_type:=true;
|
|
|
op_ctn_limited:='0001';
|
|
|
frm_op_ctn.ShowModal;
|
|
|
finally
|
|
|
frm_op_ctn.Free;
|
|
|
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('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
|
|
|
begin
|
|
|
// t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport.FieldByName('Ӣ<><D3A2><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinPageControl1Change(Sender: TObject);
|
|
|
begin
|
|
|
if frm_op_seae_create=false then
|
|
|
exit;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet8 then
|
|
|
begin
|
|
|
if not t_op_ams.Active then t_op_ams.open;
|
|
|
end else begin
|
|
|
if t_op_ams.State in [dsedit,dsinsert] then t_op_ams.Post;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
|
|
|
begin
|
|
|
if not assigned(frm_op_letter) then
|
|
|
begin
|
|
|
frm_op_letter:=tfrm_op_letter.Create (self);
|
|
|
frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
|
|
|
frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient);
|
|
|
frm_op_letter.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet10 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_letter) then
|
|
|
begin
|
|
|
frm_op_seae_letter:=tfrm_op_seae_letter.Create (self);
|
|
|
frm_op_seae_letter.fra_op_letter_free1.op_type.Text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_letter.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_letter.open;
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_letter_free_detail.open;
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_hd.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_hd.open;
|
|
|
frm_op_seae_letter.ManualDock(bsSkinTabSheet10,nil,alClient);
|
|
|
frm_op_seae_letter.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
|
|
|
begin
|
|
|
if if_open('216') or if_open('217') then
|
|
|
begin
|
|
|
if not assigned(frm_ch_fee_sea) then
|
|
|
begin
|
|
|
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
|
|
|
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
|
|
|
frm_ch_fee_sea.Show;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_state) then
|
|
|
begin
|
|
|
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.open;
|
|
|
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
|
|
|
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
|
|
|
frm_op_seae_state.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet9 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_fenzhang) then
|
|
|
begin
|
|
|
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;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_assistant) then
|
|
|
begin
|
|
|
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
|
|
|
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
|
|
|
frm_op_seae_assistant.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>䣡<EFBFBD><E4A3A1>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>䣡<EFBFBD><E4A3A1>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
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('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>أ<EFBFBD><D8A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>أ<EFBFBD><D8A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
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('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
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('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
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('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣɾ<CFA2><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N22Click(Sender: TObject);
|
|
|
var
|
|
|
i:Integer;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫת<D2AA><D7AA>ҵ<EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣɾ<CFA2><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
|
|
|
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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
|
|
|
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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
|
|
|
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
|
|
|
if frm_data_share.t_code_code.Active then
|
|
|
frm_data_share.t_code_code.close;
|
|
|
CanClose:=frm_close_query(t_op_ams);
|
|
|
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/12);
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton8.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton4.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
bsSkinButton44.Left:=Panel2.Width-bsSkinButton44.Width-20;
|
|
|
bsSkinButton13.Left:=bsSkinButton44.left-75;
|
|
|
bsSkinButton15.left:=bsSkinButton13.Left-75;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
|
|
|
key_dbedit(Key,DBEdit2);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit2KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
|
|
|
key_dbedit(Key,DBEdit3);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit3KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
|
|
|
key_dbedit(Key,DBEdit4);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo31);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
|
|
|
|
|
|
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.RxDBLookupCombo19KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo49KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit63);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit63KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
|
|
|
// key_wwDBLookupCombo(Key,wwDBLookupCombo12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo52KeyPress(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_wwDBComboBox(Key,wwDBComboBox8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo21KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBoxBL);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBoxBLKeyPress(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,RxDBLookupCombo43);
|
|
|
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_wwDBLookupCombo(Key,wwDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo32);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo33);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.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('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
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.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['<27><>վ']:=t_op_seae['<27><>վ'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>˸<EFBFBD>']:=t_op_seae['<27><><EFBFBD>˸<EFBFBD>'];
|
|
|
t_op_seae_fen['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
|
|
|
t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD≯ۿ<CCB8>']:=t_op_seae['<27><><EFBFBD≯ۿ<CCB8>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>'];
|
|
|
t_op_seae_fen['Ŀ<>ĵ<EFBFBD>']:=t_op_seae['Ŀ<>ĵ<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seae['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];
|
|
|
t_op_seae_fen['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><>ͷ']:=t_op_seae['<27><>ͷ'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>˾']:=t_op_seae['<27><><EFBFBD><EFBFBD>˾'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾'];
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit3Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit2Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',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:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=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:='<27>ջ<EFBFBD><D5BB><EFBFBD>=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:='֪ͨ<CDA8><D6AA>=1';
|
|
|
t_code_code.Filtered:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo46.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo46.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo47.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo48.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo47.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo48.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo33);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo34);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo35);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo47);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo48);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo2.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo5.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo6.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').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('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo12.DisplayValue,[]) then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
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('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[]) then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
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_RxDBLookupCombo(Key,RxDBLookupCombo10);
|
|
|
// key_wwDBComboBox(Key,wwDBComboBox3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
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 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'¼<><C2BC>״̬'+''''+')) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton13Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
|
|
|
PopupMenu3.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N34Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+'))) '
|
|
|
+default_sort(53,'t_op_seae','','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 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
|
|
|
+default_sort(53,'t_op_seae','','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 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1)) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo9Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo6Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo8Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo7Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo10Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo9Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo6Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo8Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo7Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo10Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo28Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo28.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo28Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo28.LookupDisplay:='ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD>ѷ<EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD>ѷ<EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo20Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo20Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N40Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet2.show;
|
|
|
if if_open('216') or if_open('217') then
|
|
|
begin
|
|
|
if not assigned(frm_ch_fee_sea) then
|
|
|
begin
|
|
|
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
|
|
|
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
|
|
|
frm_ch_fee_sea.Show;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N42Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet7.show;
|
|
|
if not assigned(frm_op_seae_state) then
|
|
|
begin
|
|
|
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.open;
|
|
|
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
|
|
|
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
|
|
|
frm_op_seae_state.show;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N44Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet3.show;
|
|
|
if not assigned(frm_op_letter) then
|
|
|
begin
|
|
|
frm_op_letter:=tfrm_op_letter.Create (self);
|
|
|
frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
|
|
|
frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient);
|
|
|
frm_op_letter.show;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N46Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet6.show;
|
|
|
if not assigned(frm_op_seae_assistant) then
|
|
|
begin
|
|
|
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
|
|
|
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
|
|
|
frm_op_seae_assistant.show;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label4Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring,frm_data_share.t_crm_client_weituo);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label23Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_shiper);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label24Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring,frm_data_share.t_crm_client_shouhuo);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label29Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('֪ͨ<CDA8><D6AA>').asstring,frm_data_share.t_crm_client_tongzhi);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label33Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_daili);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label12Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><>վ').asstring,frm_data_share.t_crm_client_changzhan);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label9Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label11Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_huodai);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label10Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_baoguan);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label8Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').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['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton14Click(Sender: TObject);
|
|
|
begin
|
|
|
if not (if_open('216') or if_open('217')) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not assigned(frm_ch_fee_zhupiao) then
|
|
|
frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
|
|
|
frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seae_fen;
|
|
|
with frm_ch_fee_zhupiao do
|
|
|
begin
|
|
|
if if_open('216') then
|
|
|
begin
|
|
|
fra_fee_zhu1.t_ch_accept.close;
|
|
|
fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').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('217') then
|
|
|
begin
|
|
|
fra_fee_zhu1.t_ch_pay.close;
|
|
|
fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').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('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_op_gain.open;
|
|
|
fra_fee_zhu1.t_op_gain_fen.close;
|
|
|
fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_op_gain_fen.open;
|
|
|
fra_fee_zhu1.t_op_pin_he.close;
|
|
|
fra_fee_zhu1.t_op_pin_he.Parameters[0].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_op_pin_he.open;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_fee_zhu1.t_op_gain.close;
|
|
|
fra_fee_zhu1.t_op_gain_fen.close;
|
|
|
fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
|
|
|
end;
|
|
|
fra_fee_zhu1.dxDBGrid3.FullExpand;
|
|
|
end;
|
|
|
frm_ch_fee_zhupiao.ShowModal;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N55Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if if_open('216') and if_open('217') 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('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
t_op_seae.next;
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_ch_piliang_seae.t_op_seae.open;
|
|
|
frm_ch_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_ch_piliang_seae.Free;
|
|
|
frm_ch_piliang_seae:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N51Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if if_open('216') and if_open('217') 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 <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').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('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
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('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><D2B5><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if if_open('216') and if_open('217') 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('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_ch_piliang_seae.t_op_seae.open;
|
|
|
frm_ch_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_ch_piliang_seae.Free;
|
|
|
frm_ch_piliang_seae:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo31KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo31Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo31Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
|
|
|
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('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
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('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',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['<27><><EFBFBD><EFBFBD>']:=t_op_seae_huanhuo.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_huanhuo['<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>']:=t_op_seae_huanhuo.DataSource.DataSet['ί<>е<EFBFBD>λ'];
|
|
|
t_op_seae_huanhuo['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_seae_huanhuo['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=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;
|
|
|
t_op_seae_huanhuo['<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>']:=t_op_seae2.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring;
|
|
|
frm_op_seae_huanhuo_do.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_huanhuo_do.Free;
|
|
|
frm_op_seae_huanhuo_do:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
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('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_op_seae_huanhuo.delete;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo7Enter(Sender: TObject);
|
|
|
begin
|
|
|
with frm_data_share do
|
|
|
begin
|
|
|
t_code_code.Filtered:=false;
|
|
|
t_code_code.Filter:='<27><><EFBFBD><EFBFBD>=1';
|
|
|
t_code_code.Filtered:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo7Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo7.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo7Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo7.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo8Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo8.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo8Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo8.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit16KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit21KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton35Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
showmessage('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
{
|
|
|
Send_invocie_check_shen('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'161','37');
|
|
|
}
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit19KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1Change(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.State=dsinsert then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[])then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo1.DisplayValues[1];
|
|
|
// t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo1.DisplayValues[1];
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
{
|
|
|
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
RxDBLookupCombo12Change(Sender);
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[]) then
|
|
|
if (Trim(frm_data_share.t_crm_client.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD>') then exit;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'' then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('Select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo1.DisplayValues[1]+''' and ״̬=''<27><><EFBFBD><EFBFBD>'' ');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'''');
|
|
|
Open;
|
|
|
if IsEmpty then begin
|
|
|
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:='';
|
|
|
end else begin
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N62Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N64Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1Column2CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if ANode.Strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=clred;
|
|
|
end else if ANode.Strings[dxDBGrid1Column2.Index]='<27><>ɾ<D7BC><C9BE>' then begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=clred;
|
|
|
end else begin
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
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
|
|
|
if ANode.Strings[dxDBGrid2Column2.Index]='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=clred;
|
|
|
end else if ANode.Strings[dxDBGrid2Column2.Index]='<27><>ɾ<D7BC><C9BE>' then begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=clred;
|
|
|
end else begin
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid2Column2.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaePostError(DataSet: TDataSet;
|
|
|
E: EDatabaseError; var Action: TDataAction);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='+''''+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+'''';
|
|
|
double_seae(str,1);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='+''''+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+'''';
|
|
|
double_seae(str,2);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('ί<>б<EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where ί<>б<EFBFBD>='+''''+t_op_seae['ί<>б<EFBFBD>']+'''';
|
|
|
double_seae(str,3);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''';
|
|
|
double_seae(str,4);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ر<EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ر<EFBFBD>='+''''+t_op_seae['<27><><EFBFBD>ر<EFBFBD>']+'''';
|
|
|
double_seae(str,5);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''';
|
|
|
double_seae(str,6);
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N66Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if not do_data('0001',t_op_seae2.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_date_change:=tfrm_op_date_change.Create (self);
|
|
|
frm_op_date_change.DataSource1.Enabled:=false;
|
|
|
frm_op_date_change.DataSource1.DataSet:=t_op_seae2.DataSet;
|
|
|
frm_op_date_change.DataSource1.Enabled:=true;
|
|
|
frm_op_date_change.ShowModal;
|
|
|
finally
|
|
|
frm_op_date_change.Free;
|
|
|
frm_op_date_change:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeAfterPost(DataSet: TDataSet);
|
|
|
begin
|
|
|
telll_sales;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N68Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_seae_print_mul.t_op_seae.open;
|
|
|
frm_op_seae_print_mul.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_print_mul.Free;
|
|
|
frm_op_seae_print_mul:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N70Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_seae_print_mul.t_op_seae.open;
|
|
|
frm_op_seae_print_mul.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_op_seae_print_mul.Free;
|
|
|
frm_op_seae_print_mul:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N72Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
t_op_seae.first;
|
|
|
while not t_op_seae.eof do
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
t_op_seae.next;
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_seae_print_mul.t_op_seae.open;
|
|
|
frm_op_seae_print_mul.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_op_seae_print_mul.Free;
|
|
|
frm_op_seae_print_mul:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Notebook1PageChanged(Sender: TObject);
|
|
|
begin
|
|
|
if Notebook1.PageIndex<>0 then
|
|
|
begin
|
|
|
if assigned(frm_op_seae_state_up) then
|
|
|
frm_op_seae_state_up.Hide;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton15Click(Sender: TObject);
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_state_up) then
|
|
|
frm_op_seae_state_up:=tfrm_op_seae_state_up.Create (self);
|
|
|
frm_op_seae_state_up.show;
|
|
|
frm_op_seae_state_up.Left:=bsSkinButton15.left+Notebook1.left+2;
|
|
|
frm_op_seae_state_up.top:=70+Notebook1.top;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker14KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker15);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker15KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker14);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N74Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_sort(dxdbgrid1,1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenPostError(DataSet: TDataSet;
|
|
|
E: EDatabaseError; var Action: TDataAction);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='+''''+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+'''';
|
|
|
double_seae(str,1);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='+''''+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+'''';
|
|
|
double_seae(str,2);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('ί<>б<EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where ί<>б<EFBFBD>='+''''+t_op_seae_fen['ί<>б<EFBFBD>']+'''';
|
|
|
double_seae(str,3);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''';
|
|
|
double_seae(str,4);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ر<EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ر<EFBFBD>='+''''+t_op_seae_fen['<27><><EFBFBD>ر<EFBFBD>']+'''';
|
|
|
double_seae(str,5);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''';
|
|
|
double_seae(str,6);
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker2Change(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
if wwDBDateTimePicker2.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then begin
|
|
|
wwDBDateTimePicker2.ReadOnly:=TRUE;
|
|
|
exit;
|
|
|
end;
|
|
|
{
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
close;sql.clear;
|
|
|
sql.add('');
|
|
|
open;
|
|
|
end;
|
|
|
finally
|
|
|
freeandnil(aQuery)
|
|
|
end;
|
|
|
|
|
|
}
|
|
|
if strtobool(get_parameters_value(28,'false'))then
|
|
|
begin
|
|
|
IF wwDBDateTimePicker2.DataSource.DataSet.IsEmpty THEN
|
|
|
BEGIN
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE;
|
|
|
EXIT;
|
|
|
END;
|
|
|
if wwDBDateTimePicker2.DataSource.DataSet.State=dsinsert then
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE
|
|
|
else
|
|
|
if not wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if copy(wwDBDateTimePicker2.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').AsString,1,4)<>'ƴ<><C6B4>'then
|
|
|
begin
|
|
|
if (date-wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>strtoint(get_parameters_value(29,'3')) then begin
|
|
|
wwDBDateTimePicker2.ReadOnly:=TRUE;
|
|
|
end ELSE
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (date-wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>strtoint(get_parameters_value(37,'3')) then begin
|
|
|
wwDBDateTimePicker2.ReadOnly:=TRUE;
|
|
|
end ELSE
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
book1:=t_op_seae2.DataSet.GetBookmark;
|
|
|
t_op_seae2.DataSet.Refresh;
|
|
|
t_op_seae2.DataSet.GotoBookmark(book1);
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then begin
|
|
|
if frm_ch_fee_sea<>nil then begin
|
|
|
frm_ch_fee_sea.fra_fee1.getsumstr;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N76Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N78Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N80Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid2,25);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo11Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_tiaokuan.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo11.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_tiaokuan.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo11Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo11.TEXT:='';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo11DblClick(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('188');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae,'0001');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae_fen,'0001');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenBeforeCancel(DataSet: TDataSet);
|
|
|
begin
|
|
|
delete_no(t_op_seae_fen);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforeCancel(DataSet: TDataSet);
|
|
|
begin
|
|
|
delete_no(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo32KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo33KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N82Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee)'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N84Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo36Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo36);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo36Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo36);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton39Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_fen.first;
|
|
|
while not t_op_seae_fen.Eof do
|
|
|
begin
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton42Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton40Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
|
|
|
t_op_seae2.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>˰<EFBFBD><CBB0>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=1;
|
|
|
t_op_seae2.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton41Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('160') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
|
|
|
t_op_seae2.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫǩ<D2AA><C7A9><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=1;
|
|
|
t_op_seae2.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton43Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('161') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.CMAEDI1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_cma) then
|
|
|
frm_op_seae_edi_cma:=tfrm_op_seae_edi_cma.Create(application);
|
|
|
frm_op_seae_edi_cma.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_cma.free;
|
|
|
frm_op_seae_edi_cma:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label92Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_code_package_edi:=tfrm_code_package_edi.Create (application);
|
|
|
frm_code_package_edi.ShowModal;
|
|
|
finally
|
|
|
frm_code_package_edi.Free;
|
|
|
frm_code_package_edi:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label93Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_code_shiper_edi:=tfrm_code_shiper_edi.Create (application);
|
|
|
frm_code_shiper_edi.ShowModal;
|
|
|
finally
|
|
|
frm_code_shiper_edi.Free;
|
|
|
frm_code_shiper_edi:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label56Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('179') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_edi_port) then
|
|
|
frm_code_edi_port:=tfrm_code_edi_port.Create (self);
|
|
|
frm_code_edi_port.ShowModal;
|
|
|
finally
|
|
|
frm_code_edi_port.free;
|
|
|
frm_code_edi_port:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N88Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N87Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then exit;
|
|
|
frm_op_seaehpadd:=Tfrm_op_seaehpadd.Create(Self);
|
|
|
try
|
|
|
frm_op_seaehpadd.showmodal;
|
|
|
finally
|
|
|
FreeAndNil(frm_op_seaehpadd);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.ANE1Click(Sender: TObject);
|
|
|
var
|
|
|
ExcelTemplet:Variant;
|
|
|
i:Integer;
|
|
|
sl:TStrings;
|
|
|
s:String;
|
|
|
begin
|
|
|
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
|
|
|
ExcelTemplet:= CreateOleObject('Excel.Application');
|
|
|
ExcelTemplet.Visible := true;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʾ
|
|
|
ExcelTemplet.Workbooks.Open(ExtractFileDir(ParamStr(0))+'\ANE.xls');
|
|
|
ExcelTemplet.WorkSheets[1].Cells[3,4].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[3,7].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[3,14].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
sl:=TStringList.Create;
|
|
|
try
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,3].value:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,11].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,12].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
sl.Assign(TMemoField(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=sl.Strings[0];
|
|
|
sl.Assign(TMemoField(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>һ')));
|
|
|
if sl.Count>=4 then begin
|
|
|
s:=sl.Strings[0];
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
end;
|
|
|
|
|
|
// ExcelTemplet.WorkSheets[1].Cells[7+i,3].value:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
|
|
|
|
|
|
end;
|
|
|
|
|
|
except
|
|
|
Showmessage('<27><>ȷ<EFBFBD><C8B7>ANE.xls<6C>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԡ<EFBFBD>');
|
|
|
ExcelTemplet.DisplayAlerts := false;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
|
|
|
ExcelTemplet.Quit;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD>
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N97Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N99Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.WORD1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_seae_word:=tfrm_op_seae_word.Create (self);
|
|
|
frm_op_seae_word.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_word.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N102Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N104Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinPanel7MouseLeave(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
bsSkinPanel7.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox16Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery1,aQuery2:TADOQuery;
|
|
|
cntrstr:String;
|
|
|
begin
|
|
|
aQuery1:=CreateAdoQuery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
try
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>1=C<><43><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>1=C<><43><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>2=C<><43><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>2=C<><43><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>3=C<><43><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>3=C<><43><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>4=C<><43><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>4=C<><43><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>5=C<><43><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>5=C<><43><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>6=C<><43><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>6=C<><43><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
finally
|
|
|
FreeAndNil(aQuery1);
|
|
|
FreeAndNil(aQuery2);
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton44Click(Sender: TObject);
|
|
|
begin
|
|
|
// if DBEdit5.Text='' then Exit;
|
|
|
bsSkinPanel7.Visible:=not bsSkinPanel7.Visible;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit33KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo39);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox17Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery1,aQuery2:TADOQuery;
|
|
|
cntrstr:string;
|
|
|
begin
|
|
|
aQuery1:=CreateAdoQuery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
// try
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>1=D<><44><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>1=D<><44><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>2=D<><44><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>2=D<><44><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>3=D<><44><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>3=D<><44><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>4=D<><44><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>4=D<><44><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>5=D<><44><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>5=D<><44><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>6=D<><44><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>6=D<><44><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
// finally
|
|
|
FreeAndNil(aQuery1);
|
|
|
FreeAndNil(aQuery2);
|
|
|
// end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox18Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery1,aQuery2:TADOQuery;
|
|
|
cntrstr:string;
|
|
|
begin
|
|
|
aQuery1:=CreateAdoQuery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
try
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>1=F<><46><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>1=F<><46><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>2=F<><46><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>2=F<><46><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>3=F<><46><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>3=F<><46><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>4=F<><46><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>4=F<><46><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>5=F<><46><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>5=F<><46><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>6=F<><46><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>6=F<><46><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
finally
|
|
|
FreeAndNil(aQuery1);
|
|
|
FreeAndNil(aQuery2);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox19Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery1,aQuery2:TADOQuery;
|
|
|
cntrstr:String;
|
|
|
begin
|
|
|
aQuery1:=CreateAdoQuery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
try
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>1=X<><58><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>1=X<><58><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>2=X<><58><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>2=X<><58><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>3=X<><58><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>3=X<><58><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>4=X<><58><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>4=X<><58><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>5=X<><58><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>5=X<><58><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>6=X<><58><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>6=X<><58><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
finally
|
|
|
FreeAndNil(aQuery1);
|
|
|
FreeAndNil(aQuery2);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit10);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBLookupComboboxPORTDISCHARGEIDChange(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
{
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo22Change(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('EDI<44><49><EFBFBD><EFBFBD>',RxDBLookupCombo22.DisplayValues[0],[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport.FieldByName('Ӣ<><D3A2><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo21Change(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('EDI<44><49><EFBFBD><EFBFBD>',RxDBLookupCombo21.DisplayValues[0],[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=frm_data_share.t_code_loaport.FieldByName('Ӣ<><D3A2><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo21KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo3);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo22KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI3Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_nor) then
|
|
|
frm_op_seae_edi_nor:=tfrm_op_seae_edi_nor.Create(application);
|
|
|
frm_op_seae_edi_nor.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_nor.free;
|
|
|
frm_op_seae_edi_nor:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton45Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'EDI<44><49>ע');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N106Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_op_data_copy:=tfrm_op_data_copy.Create (self);
|
|
|
frm_op_data_copy.DataSource1.Enabled:=false;
|
|
|
frm_op_data_copy.DataSource1.DataSet:=t_op_seae2.DataSet;
|
|
|
frm_op_data_copy.DataSource1.Enabled:=true;
|
|
|
frm_op_data_copy.ShowModal;
|
|
|
finally
|
|
|
frm_op_data_copy.Free;
|
|
|
frm_op_data_copy:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo40Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo40);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo40Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo40);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton46Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>̼컻֤').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>֤<EFBFBD><D6A4>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>̼컻֤']:=0;
|
|
|
t_op_seae2.DataSet['<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>֤<EFBFBD><D6A4>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>̼컻֤']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton47Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton48Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ͨ<EFBFBD>ص<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>֤<EFBFBD><D6A4>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ͨ<EFBFBD>ص<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27><>֤ʱ<D6A4><CAB1>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>֤<EFBFBD><D6A4>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ͨ<EFBFBD>ص<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton49Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB>ɳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ͻ<EFBFBD><CDBB>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ͻ<EFBFBD><CDBB>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB>ɳ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ͻ<EFBFBD><CDBB>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ͻ<EFBFBD><CDBB>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB>ɳ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton50Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ػ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ػ<EFBFBD><D8BB><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ػ<EFBFBD><D8BB><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ػ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ػ<EFBFBD><D8BB><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ػ<EFBFBD><D8BB><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ػ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox17Enter(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox16Enter(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox18Enter(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox19Enter(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton51Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
if t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>'] then
|
|
|
t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>']:=0
|
|
|
else
|
|
|
t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>']:=1;
|
|
|
t_op_seae.Post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton52Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
if t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>'] then
|
|
|
t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>']:=0
|
|
|
else
|
|
|
t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>']:=1;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton53Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
if t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>'] then
|
|
|
t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>']:=0
|
|
|
else
|
|
|
t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>']:=1;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton54Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
if t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>'] then
|
|
|
t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>']:=0
|
|
|
else
|
|
|
t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>']:=1;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton55Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
try
|
|
|
frm_op_seae_vesselline:=tfrm_op_seae_vesselline.Create (self);
|
|
|
frm_op_seae_vesselline.GetDate:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
frm_op_seae_vesselline.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_vesselline.Free;
|
|
|
frm_op_seae_vesselline:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox8Enter(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if wwDBComboBox8.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then begin
|
|
|
wwDBComboBox8.ReadOnly:=TRUE;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
wwDBComboBox8.Items.Clear;
|
|
|
if t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').IsNull or (t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString='') then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ί<EFBFBD>е<EFBFBD>λ');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString,[]) then begin
|
|
|
if (Trim(frm_data_share.t_crm_client.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD>') then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('Select <20><><EFBFBD><EFBFBD> from t_sys_employee ');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
first;
|
|
|
while not eof do begin
|
|
|
wwDBComboBox8.Items.Add(FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
|
|
|
Next;
|
|
|
end;
|
|
|
end else begin
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end else begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('Select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString+''' and ״̬=''<27><><EFBFBD><EFBFBD>'' ');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
first;
|
|
|
while not eof do begin
|
|
|
wwDBComboBox8.Items.Add(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
Next;
|
|
|
end;
|
|
|
end else begin
|
|
|
MessageDlg('<27><>ί<EFBFBD>е<EFBFBD>λδ<CEBB><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD>˵Ľ<CBB5><C4BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!',mtWarning,[mbOk],0);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
if key<>#13 then key:=#0;
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox8Change(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 wwDBComboBox8.text='' then
|
|
|
exit;
|
|
|
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',wwDBComboBox8.text,[]) then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI4Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_ym) then
|
|
|
frm_op_seae_edi_ym:=tfrm_op_seae_edi_ym.Create(application);
|
|
|
frm_op_seae_edi_ym.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_ym.free;
|
|
|
frm_op_seae_edi_ym:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo12Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo12.text,[]) then
|
|
|
begin
|
|
|
t_op_ams1.DataSet.edit;
|
|
|
t_op_ams1.DataSet['AMS<4D><53><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo50Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo50.DisplayValue<>'' then
|
|
|
t_op_ams1.DataSet['AMS<4D><53><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.NYKEDI1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_nyk) then
|
|
|
frm_op_seae_edi_nyk:=tfrm_op_seae_edi_nyk.Create(application);
|
|
|
frm_op_seae_edi_nyk.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_nyk.free;
|
|
|
frm_op_seae_edi_nyk:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo51Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo51.DisplayValue<>'' then
|
|
|
t_op_ams1.DataSet['AMS<4D>ջ<EFBFBD><D5BB><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo13Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo13.text,[]) then
|
|
|
begin
|
|
|
t_op_ams1.DataSet.edit;
|
|
|
t_op_ams1.DataSet['AMS<4D>ջ<EFBFBD><D5BB><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo52Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo52.DisplayValue<>'' then
|
|
|
t_op_ams1.DataSet['AMS֪ͨ<CDA8><D6AA>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo14Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo14.text,[]) then
|
|
|
begin
|
|
|
t_op_ams1.DataSet.edit;
|
|
|
t_op_ams1.DataSet['AMS֪ͨ<CDA8><D6AA>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI5Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_COSCO) then
|
|
|
frm_op_seae_edi_COSCO:=tfrm_op_seae_edi_COSCO.Create(application);
|
|
|
frm_op_seae_edi_COSCO.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_COSCO.free;
|
|
|
frm_op_seae_edi_COSCO:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N111Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').AsString='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').AsString:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae2.DataSet.post;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
close;sql.Clear;
|
|
|
sql.Add('delete from t_op_delnote where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet.Fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
ExecSQL;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_wh) then
|
|
|
frm_op_seae_edi_wh:=tfrm_op_seae_edi_wh.Create(application);
|
|
|
frm_op_seae_edi_wh.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_wh.free;
|
|
|
frm_op_seae_edi_wh:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N115Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if not if_open('269') then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_piliang_seae:=tfrm_op_piliang_seae.Create (self);
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
frm_op_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_piliang_seae.t_op_seae.open;
|
|
|
frm_op_piliang_seae.t_op.DataSet:=t_op_seae;
|
|
|
frm_op_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
frm_op_piliang_seae.Free;
|
|
|
frm_op_piliang_seae:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N117Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if not if_open('269') then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD>ĵ<DEB8>ҵ<EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_piliang_seae:=tfrm_op_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('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_op_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_piliang_seae.t_op_seae.open;
|
|
|
frm_op_piliang_seae.t_op.DataSet:=t_op_seae;
|
|
|
frm_op_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_op_piliang_seae.Free;
|
|
|
frm_op_piliang_seae:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N119Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if not if_open('269') then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_piliang_seae:=tfrm_op_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('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
t_op_seae.next;
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_op_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_piliang_seae.t_op_seae.open;
|
|
|
frm_op_piliang_seae.t_op.DataSet:=t_op_seae;
|
|
|
frm_op_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_op_piliang_seae.Free;
|
|
|
frm_op_piliang_seae:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N121Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>=''<27><>'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''Ӷ<><D3B6>'' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.PILEDI1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_PIL) then
|
|
|
frm_op_seae_edi_PIL:=tfrm_op_seae_edi_PIL.Create(application);
|
|
|
frm_op_seae_edi_PIL.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_PIL.free;
|
|
|
frm_op_seae_edi_PIL:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15Change(Sender: TObject);
|
|
|
begin
|
|
|
if Pos('PREPAID',t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring)>0 then
|
|
|
begin
|
|
|
DBEdit26.Text:='QINGDAO CHINA';
|
|
|
DBEdit27.Text:='';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
DBEdit26.Text:='';
|
|
|
DBEdit27.Text:=wwDBLookupCombo52.Value;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton56Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_ctn.insert;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton57Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton58Click(Sender: TObject);
|
|
|
begin
|
|
|
table_delete(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton59Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.btnMarksClick(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ctn1,'<27><>ͷ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.btnDescClick(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ctn1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton60Click(Sender: TObject);
|
|
|
var
|
|
|
bok:Tbookmark;
|
|
|
if_first:boolean;
|
|
|
begin
|
|
|
if t_op_ctn.IsEmpty then
|
|
|
exit;
|
|
|
op_befor_post(TADOQuery(DBEdit35.DataSource.DataSet),'0001');
|
|
|
t_op_ctn.First;
|
|
|
if_first:=true;
|
|
|
bok:=t_op_ctn.GetBookmark;
|
|
|
while not t_op_ctn.Eof do
|
|
|
begin
|
|
|
if if_first then
|
|
|
begin
|
|
|
memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
|
|
|
memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
|
|
|
memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
|
|
|
if_first:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
// memo1.Lines.Add(' ');
|
|
|
memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
memo2.Lines.Add(' ');
|
|
|
memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
|
|
|
memo3.Lines.Add(' ');
|
|
|
memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
|
|
|
memo4.Lines.Add(' ');
|
|
|
memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
|
|
|
end;
|
|
|
t_op_ctn.next;
|
|
|
end;
|
|
|
DBEdit35.DataSource.DataSet.edit;
|
|
|
DBEdit35.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=memo1.Lines.Text;
|
|
|
DBEdit35.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=memo2.Lines.Text;
|
|
|
DBEdit35.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo3.Lines.Text;
|
|
|
DBEdit35.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo4.Lines.Text;
|
|
|
DBEdit35.DataSource.DataSet.post;
|
|
|
t_op_ctn.GotoBookmark(bok);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=DBEdit35.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnAfterDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
update_edictn(DBEdit35.DataSource.DataSet,True);
|
|
|
if not (DBEdit35.DataSource.DataSet.State in [dsinsert]) then begin
|
|
|
if CheckCtnTotalEquelDetail(TADOQuery(DBEdit35.DataSource.DataSet)) then
|
|
|
begin
|
|
|
if MessageDlg('װ<><D7B0><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD>ء<EFBFBD><D8A1>߲<EFBFBD><DFB2><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>£<EFBFBD>',mtWarning,mbOKCancel,0)=mrok then begin
|
|
|
bsSkinButton60.OnClick(nil);
|
|
|
end;
|
|
|
// abort;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_ctn.Requery;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
if t_op_ctn.RecordCount=1 then
|
|
|
begin
|
|
|
if t_op_ctn.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('ҵ<><D2B5><EFBFBD><EFBFBD>װ<EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3>㲻<EFBFBD><E3B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
op_befor_post(TADOQuery(DBEdit35.DataSource.DataSet),'0001');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(TADOQuery(DBEdit35.DataSource.DataSet),'0001');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnBeforePost(DataSet: TDataSet);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
|
|
|
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
|
|
|
t_op_ctn['TEU']:=1*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
|
|
|
|
|
|
if (frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='40')OR
|
|
|
(frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='45')then
|
|
|
t_op_ctn['TEU']:=2*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:='';
|
|
|
end;
|
|
|
|
|
|
|
|
|
table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
|
|
|
|
|
|
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue<>null then
|
|
|
if (t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue<>t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value) or (t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').OldValue<>t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').Value) then
|
|
|
|
|
|
if (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
MessageDlg('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!',mtWarning,[mbOK],0);
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo17Change(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_ctn.State=dsedit)or(t_op_ctn.State=dsinsert) then
|
|
|
begin
|
|
|
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo17.text,[]) then
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:='';
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N124Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_jtb) then
|
|
|
frm_op_seae_edi_jtb:=tfrm_op_seae_edi_jtb.Create(application);
|
|
|
frm_op_seae_edi_jtb.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_jtb.free;
|
|
|
frm_op_seae_edi_jtb:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeAfterRefresh(DataSet: TDataSet);
|
|
|
begin
|
|
|
// if t_op_ctn.Active then t_op_ctn.Refresh;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit35Change(Sender: TObject);
|
|
|
begin
|
|
|
t_op_ctn.Close;
|
|
|
t_op_ctn.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=DBEdit35.Text;
|
|
|
t_op_ctn.Open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI7Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_custom_Waidai) then
|
|
|
frm_op_seae_edi_custom_Waidai:=tfrm_op_seae_edi_custom_Waidai.Create(application);
|
|
|
frm_op_seae_edi_custom_Waidai.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_custom_Waidai.free;
|
|
|
frm_op_seae_edi_custom_Waidai:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI8Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_custom_ld) then
|
|
|
frm_op_seae_edi_custom_ld:=tfrm_op_seae_edi_custom_ld.Create(application);
|
|
|
frm_op_seae_edi_custom_ld.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_custom_ld.free;
|
|
|
frm_op_seae_edi_custom_ld:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo33Change(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo46.Text:='Num:'+IntToStr(Length(DBMemo33.Lines[DBMemo33.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo33Click(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo46.Text:='Num:'+IntToStr(Length(DBMemo33.Lines[DBMemo33.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo34Change(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo47.Text:='Num:'+IntToStr(Length(DBMemo34.Lines[DBMemo34.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo34Click(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo47.Text:='Num:'+IntToStr(Length(DBMemo34.Lines[DBMemo34.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo35Change(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo48.Text:='Num:'+IntToStr(Length(DBMemo35.Lines[DBMemo35.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo35Click(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo48.Text:='Num:'+IntToStr(Length(DBMemo35.Lines[DBMemo35.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo38Change(Sender: TObject);
|
|
|
begin
|
|
|
Label106.Caption:='<27><>ͷ<EFBFBD>ַ<EFBFBD>Num:'+IntToStr(Length(DBMemo38.Lines[DBMemo38.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo38Click(Sender: TObject);
|
|
|
begin
|
|
|
Label106.Caption:='<27><>ͷ<EFBFBD>ַ<EFBFBD>Num:'+IntToStr(Length(DBMemo38.Lines[DBMemo38.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo39Change(Sender: TObject);
|
|
|
begin
|
|
|
Label106.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Num:'+IntToStr(Length(DBMemo39.Lines[DBMemo39.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo39Click(Sender: TObject);
|
|
|
begin
|
|
|
Label106.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Num:'+IntToStr(Length(DBMemo39.Lines[DBMemo39.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
end.
|