hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DONGSHENG6/海运业务/复件 u_op_seae.pas

11483 lines
379 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

{$INCLUDE t_main.inc}
unit u_op_seae;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
dxExEdtr, XPMenu, Menus, DB, ADODB, bsSkinCtrls, bsdbctrls, wwdbedit,
Wwdotdot, Wwdbcomb, wwdbdatetimepicker, wwdblook, StdCtrls, DBCtrls,
ComCtrls, bsSkinTabs, RxLookup, Mask, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
dxDBCtrl, dxCntner, ExtCtrls, Dialogs, ExtDlgs, Wwdbdlg, u_op_card,shellapi,
Grids, DBGrids,inifiles, cxControls, cxContainer, cxEdit, cxTextEdit,
cxMaskEdit, cxButtonEdit, cxDBEdit, Wwdbigrd, Wwdbgrid, DBGridEh,
bsSkinGrids, bsDBGrids, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxDBData, cxGridLevel, cxClasses,
cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, bsSkinBoxCtrls,IdFTP,IdFTPCommon, cxMemo,
fs_synmemo, dxEditor, dxEdLib, dxDBELib, DBCtrlsEh, cxDropDownEdit;
type
Tfrm_op_seae = class(TForm)
t_op_seae: TADOQuery;
t_op_seae1: TDataSource;
t_op_seae_fen: TADOQuery;
t_op_seae_fen1: TDataSource;
t_op_seae2: TDataSource;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
N21: TMenuItem;
N23: TMenuItem;
N4: TMenuItem;
N20: TMenuItem;
N24: TMenuItem;
N7: TMenuItem;
N22: TMenuItem;
N30: TMenuItem;
EXCEL1: TMenuItem;
N33: TMenuItem;
EDI1: TMenuItem;
XPMenu1: TXPMenu;
Panel2: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
Notebook1: TNotebook;
bsSkinPanel1: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label37: TLabel;
Label5: TLabel;
Label38: TLabel;
Label4: TLabel;
Label36: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit8: TDBEdit;
DBEdit4: TDBEdit;
DBEdit9: TDBEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
DBEdit7: TDBEdit;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinTabSheet1: TbsSkinTabSheet;
Label13: TLabel;
Label158: TLabel;
Label163: TLabel;
Label122: TLabel;
Label121: TLabel;
Label123: TLabel;
Label6: TLabel;
Label125: TLabel;
Label126: TLabel;
Label124: TLabel;
Label7: TLabel;
Label145: TLabel;
Label15: TLabel;
Label25: TLabel;
Label18: TLabel;
Label73: TLabel;
Label22: TLabel;
Label32: TLabel;
Label21: TLabel;
Label35: TLabel;
Label26: TLabel;
Label27: TLabel;
Label30: TLabel;
Label31: TLabel;
Label28: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label8: TLabel;
Label164: TLabel;
Label165: TLabel;
Label166: TLabel;
Label167: TLabel;
Label168: TLabel;
Label169: TLabel;
Label170: TLabel;
Label14: TLabel;
Label16: TLabel;
Label34: TLabel;
Label39: TLabel;
DBEdit5: TDBEdit;
DBMemo37: TDBMemo;
bsSkinButton22: TbsSkinButton;
DBMemo38: TDBMemo;
bsSkinButton21: TbsSkinButton;
DBMemo35: TDBMemo;
DBMemo34: TDBMemo;
DBMemo33: TDBMemo;
RxDBLookupCombo2: TRxDBLookupCombo;
RxDBLookupCombo3: TRxDBLookupCombo;
RxDBLookupCombo4: TRxDBLookupCombo;
RxDBLookupCombo5: TRxDBLookupCombo;
DBMemo1: TDBMemo;
wwDBLookupCombo49: TwwDBLookupCombo;
DBEdit63: TDBEdit;
wwDBLookupCombo52: TwwDBLookupCombo;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker6: TwwDBDateTimePicker;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBLookupCombo3: TwwDBLookupCombo;
wwDBComboBox2: TwwDBComboBox;
wwDBLookupCombo21: TwwDBLookupCombo;
wwDBComboBox1: TwwDBComboBox;
wwDBDateTimePicker4: TwwDBDateTimePicker;
RxDBLookupCombo6: TRxDBLookupCombo;
RxDBLookupCombo7: TRxDBLookupCombo;
RxDBLookupCombo8: TRxDBLookupCombo;
RxDBLookupCombo9: TRxDBLookupCombo;
RxDBLookupCombo10: TRxDBLookupCombo;
DBMemo39: TDBMemo;
DBMemo40: TDBMemo;
DBMemo41: TDBMemo;
DBMemo42: TDBMemo;
DBEdit80: TDBEdit;
DBEdit81: TDBEdit;
wwDBLookupCombo61: TwwDBLookupCombo;
DBEdit82: TDBEdit;
DBEdit83: TDBEdit;
DBMemo2: TDBMemo;
RxDBLookupCombo11: TRxDBLookupCombo;
bsSkinButton16: TbsSkinButton;
bsSkinButton17: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
bsSkinButton19: TbsSkinButton;
bsSkinButton20: TbsSkinButton;
bsSkinButton23: TbsSkinButton;
bsSkinButton24: TbsSkinButton;
bsSkinButton25: TbsSkinButton;
bsSkinButton26: TbsSkinButton;
RxDBLookupCombo14: TRxDBLookupCombo;
RxDBLookupCombo20: TRxDBLookupCombo;
bsSkinButton37: TbsSkinButton;
RxDBLookupCombo21: TRxDBLookupCombo;
RxDBLookupCombo22: TRxDBLookupCombo;
bsSkinPageControl2: TbsSkinPageControl;
bsskintabsheet_1: TbsSkinTabSheet;
Label23: TLabel;
Label24: TLabel;
Label29: TLabel;
Label33: TLabel;
RxDBLookupCombo16: TRxDBLookupCombo;
bsSkinButton27: TbsSkinButton;
DBMemo3: TDBMemo;
bsSkinButton28: TbsSkinButton;
RxDBLookupCombo17: TRxDBLookupCombo;
DBMemo4: TDBMemo;
RxDBLookupCombo18: TRxDBLookupCombo;
bsSkinButton29: TbsSkinButton;
DBMemo5: TDBMemo;
bsSkinButton30: TbsSkinButton;
RxDBLookupCombo19: TRxDBLookupCombo;
DBMemo6: TDBMemo;
bsskintabsheet_2: TbsSkinTabSheet;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridMaskColumn;
dxDBGrid2Column3: TdxDBGridMaskColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column5: TdxDBGridMaskColumn;
dxDBGrid2Column6: TdxDBGridMaskColumn;
dxDBGrid2Column7: TdxDBGridDateColumn;
dxDBGrid2Column8: TdxDBGridMaskColumn;
dxDBGrid2Column9: TdxDBGridMaskColumn;
dxDBGrid2Column10: TdxDBGridMaskColumn;
dxDBGrid2Column11: TdxDBGridColumn;
dxDBGrid2Column12: TdxDBGridColumn;
dxDBGrid2Column13: TdxDBGridMaskColumn;
dxDBGrid2Column14: TdxDBGridMaskColumn;
dxDBGrid2Column15: TdxDBGridMaskColumn;
dxDBGrid2Column16: TdxDBGridMaskColumn;
Panel1: TPanel;
bsSkinButton31: TbsSkinButton;
bsSkinButton32: TbsSkinButton;
bsSkinButton33: TbsSkinButton;
bsSkinButton34: TbsSkinButton;
bsSkinButton36: TbsSkinButton;
RxDBLookupCombo15: TRxDBLookupCombo;
bsSkinTabSheet7: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinTabSheet5: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
bsSkinTabSheet8: TbsSkinTabSheet;
Panel3: TPanel;
dxDBGrid1: TdxDBGrid;
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;
RxDBLookupCombo24: TRxDBLookupCombo;
RxDBLookupCombo25: TRxDBLookupCombo;
Label57: TLabel;
Label58: TLabel;
RxDBLookupCombo26: TRxDBLookupCombo;
Label59: TLabel;
RxDBLookupCombo27: TRxDBLookupCombo;
bsSkinGroupBox4: TbsSkinGroupBox;
DBMemo10: TDBMemo;
EDI2: TMenuItem;
t_ch_fee: TADOQuery;
RxDBLookupCombo28: TRxDBLookupCombo;
Button1: TButton;
DBEdit18: TDBEdit;
Label65: TLabel;
Label66: TLabel;
DBEdit20: TDBEdit;
Label67: TLabel;
DBEdit21: TDBEdit;
Label69: TLabel;
Label70: TLabel;
bsSkinButton13: TbsSkinButton;
wwDBLookupCombo46: TwwDBLookupCombo;
wwDBLookupCombo47: TwwDBLookupCombo;
wwDBLookupCombo48: TwwDBLookupCombo;
wwDBLookupCombo2: TwwDBLookupCombo;
wwDBLookupCombo5: TwwDBLookupCombo;
wwDBLookupCombo6: TwwDBLookupCombo;
Label20: TLabel;
RxDBLookupCombo29: TRxDBLookupCombo;
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;
bsSkinButton12: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
N49: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
N52: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N55: TMenuItem;
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;
wwDBLookupCombo7: TwwDBLookupCombo;
wwDBLookupCombo8: TwwDBLookupCombo;
bsSkinGroupBox6: TbsSkinGroupBox;
fra_op_card1: Tfra_op_card;
bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
Label40: TLabel;
wwDBDateTimePicker7: TwwDBDateTimePicker;
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;
wwDBLookupCombo11: TwwDBLookupCombo;
bsSkinPanel3: TbsSkinPanel;
Label80: TLabel;
RxDBLookupCombo32: TRxDBLookupCombo;
bsSkinPanel4: TbsSkinPanel;
Label81: TLabel;
RxDBLookupCombo33: TRxDBLookupCombo;
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;
bsSkinButton39: TbsSkinButton;
bsSkinButton40: 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;
Label88: TLabel;
RxDBLookupCombo37: TRxDBLookupCombo;
Label89: TLabel;
RxDBLookupCombo38: TRxDBLookupCombo;
Label90: TLabel;
RxDBLookupCombo39: TRxDBLookupCombo;
Label91: TLabel;
RxDBLookupCombo40: TRxDBLookupCombo;
Label92: TLabel;
RxDBLookupCombo41: TRxDBLookupCombo;
Label93: TLabel;
RxDBLookupCombo42: TRxDBLookupCombo;
bsSkinDBCheckRadioBox15: TbsSkinDBCheckRadioBox;
Label94: TLabel;
DBEdit24: TDBEdit;
Label95: TLabel;
wwDBComboBox4: TwwDBComboBox;
DBEdit28: TDBEdit;
Label96: TLabel;
Label97: TLabel;
DBEdit29: TDBEdit;
Label98: TLabel;
DBEdit30: TDBEdit;
Label99: TLabel;
wwDBComboBox5: TwwDBComboBox;
dxDBGrid1Column114: TdxDBGridColumn;
bsSkinDBText1: TbsSkinDBText;
bsSkinPanel6: TbsSkinPanel;
bsSkinDBText2: TbsSkinDBText;
bsSkinGroupBox7: TbsSkinGroupBox;
bsSkinPanel7: TbsSkinPanel;
Label100: TLabel;
DBEdit31: TDBEdit;
Label101: TLabel;
DBEdit32: TDBEdit;
Label102: TLabel;
DBEdit33: TDBEdit;
dxdbgrdclmnDBGrid1Column115: TdxDBGridColumn;
dxDBGrid1Column115: TdxDBGridColumn;
dxDBGrid1Column116: TdxDBGridColumn;
bsSkinGroupBox8: TbsSkinGroupBox;
bsSkinPanel8: TbsSkinPanel;
Label104: TLabel;
DBEdit35: TDBEdit;
Label105: TLabel;
wwDBComboBox6: TwwDBComboBox;
Label106: TLabel;
DBEdit36: TDBEdit;
Label108: TLabel;
DBEdit38: TDBEdit;
Label109: TLabel;
DBEdit39: TDBEdit;
Label110: TLabel;
wwDBLookupCombo12: TwwDBLookupCombo;
N86: TMenuItem;
BBEDI1: TMenuItem;
N87: TMenuItem;
WORD1: TMenuItem;
N88: TMenuItem;
EDI3: TMenuItem;
bsSkinGroupBox9: TbsSkinGroupBox;
Label114: TLabel;
Label115: TLabel;
Label117: TLabel;
Label118: TLabel;
Label119: TLabel;
Label128: TLabel;
bsSkinDBCheckRadioBox14: TbsSkinDBCheckRadioBox;
DBEdit40: TDBEdit;
DBEdit42: TDBEdit;
DBEdit43: TDBEdit;
wwDBComboBox8: TwwDBComboBox;
RxDBLookupCombo48: TRxDBLookupCombo;
t_code_edi_line: TADOQuery;
ds_code_edi_line1: TDataSource;
dbmmoEDI: TDBMemo;
Label129: TLabel;
lbl4: TLabel;
dbedt4: TDBEdit;
lbl3: TLabel;
dbedt3: TDBEdit;
lbl1: TLabel;
dbedt1: TDBEdit;
lbl2: TLabel;
dbedt2: TDBEdit;
lbl5: TLabel;
dbedt5: TDBEdit;
N89: TMenuItem;
EDI4: TMenuItem;
bsSkinPanel9: TbsSkinPanel;
Label116: TLabel;
Edit1: TEdit;
Label130: TLabel;
Edit4: TEdit;
Label131: TLabel;
Edit2: TEdit;
Label132: TLabel;
Edit3: TEdit;
bsSkinButton44: TbsSkinButton;
N90: TMenuItem;
N91: TMenuItem;
N92: TMenuItem;
N93: TMenuItem;
N94: TMenuItem;
Label133: TLabel;
DBEdit41: TDBEdit;
N95: TMenuItem;
N96: TMenuItem;
Label134: TLabel;
RxDBLookupCombo49: TRxDBLookupCombo;
RxDBLookupCombo31: TRxDBLookupCombo;
Label41: TLabel;
Label19: TLabel;
Label17: TLabel;
t_op_ams: TADOQuery;
t_op_ams1: TDataSource;
NYKEDI1: TMenuItem;
N97: TMenuItem;
DBText1: TDBText;
N98: TMenuItem;
N99: TMenuItem;
Label139: TLabel;
DBEdit45: TDBEdit;
bsSkinPanel10: TbsSkinPanel;
lblhbl: TLabel;
bsSkinPanel11: TbsSkinPanel;
lblwt: TLabel;
bsSkinPanel12: TbsSkinPanel;
lbldc: TLabel;
bsSkinSpeedButton1: TbsSkinSpeedButton;
N100: TMenuItem;
EDI5: TMenuItem;
OpenDialog1: TOpenDialog;
bsSkinButton45: TbsSkinButton;
PopupMenu5: TPopupMenu;
N101: TMenuItem;
wwDBComboBox9: TwwDBComboBox;
N102: TMenuItem;
N103: TMenuItem;
N104: TMenuItem;
N105: TMenuItem;
dxDBGrid1Column117: TdxDBGridCheckColumn;
N106: TMenuItem;
N107: TMenuItem;
dxDBGrid1Column118: TdxDBGridCheckColumn;
dxDBGrid1Column119: TdxDBGridColumn;
dxDBGrid1Column120: TdxDBGridColumn;
N108: TMenuItem;
N109: TMenuItem;
N110: TMenuItem;
N111: TMenuItem;
N112: TMenuItem;
N113: TMenuItem;
N114: TMenuItem;
Label140: TLabel;
DBMemo16: TDBMemo;
Label141: TLabel;
DBMemo17: TDBMemo;
bsSkinPanel13: TbsSkinPanel;
bsSkinGroupBox11: TbsSkinGroupBox;
bsSkinDBCheckRadioBox12: TbsSkinDBCheckRadioBox;
Label52: TLabel;
wwDBDateTimePicker8: TwwDBDateTimePicker;
bsSkinButton41: TbsSkinButton;
bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
Label87: TLabel;
wwDBDateTimePicker16: TwwDBDateTimePicker;
bsSkinButton42: TbsSkinButton;
Label142: TLabel;
DBEdit46: TDBEdit;
bsSkinButton46: TbsSkinButton;
DBEdit47: TDBEdit;
Label143: TLabel;
DBEdit48: TDBEdit;
Label144: TLabel;
t_op_fangdan: TADOQuery;
t_op_fangdan1: TDataSource;
N115: TMenuItem;
EDI6: TMenuItem;
N116: TMenuItem;
EDI7: TMenuItem;
dxDBGrid2Column17: TdxDBGridColumn;
N117: TMenuItem;
EDI8: TMenuItem;
t_op_msg: TADOQuery;
t_op_msg1: TDataSource;
N118: TMenuItem;
N119: TMenuItem;
N120: TMenuItem;
N121: TMenuItem;
N122: TMenuItem;
Label62: TLabel;
DBEdit17: TDBEdit;
Label147: TLabel;
DBEdit49: TDBEdit;
Label103: TLabel;
DBEdit34: TDBEdit;
N123: TMenuItem;
EDI9: TMenuItem;
wwDBLookupCombo17: TwwDBLookupCombo;
wwDBComboBox10: TwwDBComboBox;
Label148: TLabel;
dxDBGrid1Column121: TdxDBGridColumn;
dxDBGrid1Column122: TdxDBGridCheckColumn;
N124: TMenuItem;
N125: TMenuItem;
dxDBGrid1Column123: TdxDBGridCheckColumn;
bsSkinDBCheckRadioBox16: TbsSkinDBCheckRadioBox;
N126: TMenuItem;
N127: TMenuItem;
N128: TMenuItem;
N129: TMenuItem;
N130: TMenuItem;
EDI10: TMenuItem;
DBEdit10: TDBEdit;
t_op_edictn1: TDataSource;
t_op_edictn: TADOQuery;
Label151: TLabel;
bsSkinSpeedButton3: TbsSkinSpeedButton;
bsSkinSpeedButton4: TbsSkinSpeedButton;
bsSkinSpeedButton5: TbsSkinSpeedButton;
wwDBLookupCombo18: TwwDBLookupCombo;
dxDBGrid1Column124: TdxDBGridColumn;
dxDBGrid1Column125: TdxDBGridColumn;
dxDBGrid1Column126: TdxDBGridColumn;
N131: TMenuItem;
N132: TMenuItem;
N133: TMenuItem;
N134: TMenuItem;
N135: TMenuItem;
Label153: TLabel;
bsSkinGroupBox13: TbsSkinGroupBox;
bsSkinPanel14: TbsSkinPanel;
bsSkinButton48: TbsSkinButton;
bsSkinButton49: TbsSkinButton;
bsSkinButton50: TbsSkinButton;
bsSkinButton51: TbsSkinButton;
dxDBGrid3: TdxDBGrid;
dxDBGrid2fid: TdxDBGridMaskColumn;
dxDBGrid2rl_id: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn5: TdxDBGridColumn;
t_op_file: TADOQuery;
dsrFuJian: TDataSource;
SaveDialog1: TSaveDialog;
dxDBGrid1Column127: TdxDBGridCheckColumn;
Label154: TLabel;
DBEdit50: TDBEdit;
N136: TMenuItem;
N137: TMenuItem;
N138: TMenuItem;
dxDBGrid1Column128: TdxDBGridColumn;
Label107: TLabel;
wwDBLookupCombo19: TwwDBLookupCombo;
dxDBGrid1Column129: TdxDBGridColumn;
N139: TMenuItem;
EDI11: TMenuItem;
dxdbgrdclmnDBGrid1Column130: TdxDBGridColumn;
N140: TMenuItem;
EDIPIL1: TMenuItem;
atncfld_op_edictnctn_id: TAutoIncField;
strngfld_op_edictnDSDesigner: TStringField;
strngfld_op_edictnDSDesigner2: TStringField;
intgrfld_op_edictnDSDesigner3: TIntegerField;
strngfld_op_edictnHTS: TStringField;
bcdfld_op_edictnDSDesigner4: TBCDField;
bcdfld_op_edictnDSDesigner5: TBCDField;
strngfld_op_edictnDSDesigner6: TStringField;
strngfld_op_edictnDSDesigner7: TStringField;
strngfld_op_edictnDSDesigner8: TStringField;
dbgrdh1: TDBGridEh;
bsSkinGroupBox10: TbsSkinGroupBox;
Label135: TLabel;
Label136: TLabel;
Label137: TLabel;
Label138: TLabel;
Label149: TLabel;
Label150: TLabel;
Label152: TLabel;
Label155: TLabel;
Label156: TLabel;
Label157: TLabel;
Label159: TLabel;
Label160: TLabel;
Label161: TLabel;
Label162: TLabel;
Label171: TLabel;
Label172: TLabel;
Label173: TLabel;
Label174: TLabel;
Label175: TLabel;
DBEdit44: TDBEdit;
wwDBLookupCombo13: TwwDBLookupCombo;
RxDBLookupCombo50: TRxDBLookupCombo;
DBMemo13: TDBMemo;
RxDBLookupCombo51: TRxDBLookupCombo;
wwDBLookupCombo14: TwwDBLookupCombo;
DBMemo14: TDBMemo;
RxDBLookupCombo52: TRxDBLookupCombo;
wwDBLookupCombo15: TwwDBLookupCombo;
DBMemo15: TDBMemo;
wwDBComboBox14: TwwDBComboBox;
wwDBComboBox13: TwwDBComboBox;
DBEdit11: TDBEdit;
wwDBComboBox7: TwwDBComboBox;
DBEdit37: TDBEdit;
DBEdit51: TDBEdit;
DBEdit52: TDBEdit;
DBEdit53: TDBEdit;
DBEdit54: TDBEdit;
DBEdit55: TDBEdit;
DBEdit56: TDBEdit;
DBEdit57: TDBEdit;
DBEdit58: TDBEdit;
DBEdit59: TDBEdit;
DBEdit60: TDBEdit;
Label176: TLabel;
N141: TMenuItem;
ZIMEDI1: TMenuItem;
Label177: TLabel;
RxDBLookupCombo13: TRxDBLookupCombo;
t_crm_client1: TDataSource;
t_crm_client: TADOQuery;
bsSkinPanel15: TbsSkinPanel;
bsSkinPanel16: TbsSkinPanel;
bsSkinEdit1: TbsSkinEdit;
bsSkinButton52: TbsSkinButton;
bsSkinButton53: TbsSkinButton;
bsSkinDBGrid1: TbsSkinDBGrid;
bsSkinButton54: TbsSkinButton;
wwDBLookupCombo20: TwwDBLookupCombo;
wwDBLookupCombo22: TwwDBLookupCombo;
wwDBLookupCombo23: TwwDBLookupCombo;
bsSkinButton55: TbsSkinButton;
bsSkinButton56: TbsSkinButton;
bsSkinDBCheckRadioBox21: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox22: TbsSkinDBCheckRadioBox;
Label178: TLabel;
DBEdit25: TDBEdit;
Label180: TLabel;
bsSkinDBCheckRadioBox17: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox18: TbsSkinDBCheckRadioBox;
RxDBLookupCombo53: TRxDBLookupCombo;
t_op_seae_danwei: TADOQuery;
t_op_seae_danwei1: TDataSource;
Label182: TLabel;
RxDBLookupCombo54: TRxDBLookupCombo;
N142: TMenuItem;
EDI12: TMenuItem;
N143: TMenuItem;
CCLEDI1: TMenuItem;
N144: TMenuItem;
N145: TMenuItem;
N146: TMenuItem;
N147: TMenuItem;
N148: TMenuItem;
N149: TMenuItem;
N150: TMenuItem;
N151: TMenuItem;
N152: TMenuItem;
EDI13: TMenuItem;
RxDBLookupCombo55: TRxDBLookupCombo;
N153: TMenuItem;
MSKEDI1: TMenuItem;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
bsSkinButton58: TbsSkinButton;
bsSkinButton59: TbsSkinButton;
Label183: TLabel;
Edit5: TEdit;
Label184: TLabel;
Label186: TLabel;
DBEdit26: TDBEdit;
N155: TMenuItem;
N154: TMenuItem;
N156: TMenuItem;
N157: TMenuItem;
bsSkinDBCheckRadioBox19: TbsSkinDBCheckRadioBox;
Label193: TLabel;
DBEdit27: TDBEdit;
Label194: TLabel;
dxDBGrid1Column133: TdxDBGridColumn;
N158: TMenuItem;
N159: TMenuItem;
bsSkinButton60: TbsSkinButton;
t_op_edictnEDIPACKAGE: TStringField;
t_op_edictnDSDesigner: TStringField;
t_op_edictnDSDesigner2: TBCDField;
Label195: TLabel;
DBEdit61: TDBEdit;
Label196: TLabel;
DBEdit62: TDBEdit;
Label111: TLabel;
Label197: TLabel;
wwDBDateTimePicker17: TwwDBDateTimePicker;
Label198: TLabel;
Label199: TLabel;
DBMemo19: TDBMemo;
Label200: TLabel;
DBMemo20: TDBMemo;
dxDBGrid1Column132: TdxDBGridMaskColumn;
Label201: TLabel;
Label202: TLabel;
wwDBComboBox16: TwwDBComboBox;
DBMemo21: TDBMemo;
dxDBGrid1Column130: TdxDBGridCheckColumn;
dxDBGrid1Column131: TdxDBGridCheckColumn;
RxDBLookupCombo43: TRxDBLookupCombo;
Label203: TLabel;
DBMemo22: TDBMemo;
Label204: TLabel;
Label205: TLabel;
Label206: TLabel;
wwDBComboBox17: TwwDBComboBox;
t_pt_fendan: TADOQuery;
t_pt_fendan1: TDataSource;
wwDBComboBox18: TwwDBComboBox;
Label207: TLabel;
Label208: TLabel;
wwDBComboBox19: TwwDBComboBox;
dxDBGrid1Column134: TdxDBGridColumn;
dxDBGrid1Column135: TdxDBGridColumn;
Label209: TLabel;
DBMemo23: TDBMemo;
bsSkinButton62: TbsSkinButton;
bsSkinButton63: TbsSkinButton;
bsSkinButton64: TbsSkinButton;
N160: TMenuItem;
N161: TMenuItem;
dxDBGrid1Column136: TdxDBGridColumn;
N162: TMenuItem;
N163: TMenuItem;
Label210: TLabel;
wwDBDateTimePicker18: TwwDBDateTimePicker;
wwDBDateTimePicker19: TwwDBDateTimePicker;
bsSkinGroupBox12: TbsSkinGroupBox;
bsSkinSpeedButton2: TbsSkinSpeedButton;
DBGrid1: TDBGrid;
bsSkinButton61: TbsSkinButton;
Edit6: TEdit;
N164: TMenuItem;
N165: TMenuItem;
dxDBGrid1Column137: TdxDBGridColumn;
dxDBGrid1Column138: TdxDBGridColumn;
bsSkinComboBox1: TbsSkinComboBox;
dxDBGrid1Column139: TdxDBGridColumn;
dxDBGrid1Column140: TdxDBGridColumn;
dxDBGrid1Column141: TdxDBGridColumn;
dxDBGrid1Column142: TdxDBGridColumn;
dxDBGrid1Column143: TdxDBGridColumn;
DBMemo24: TDBMemo;
Label213: TLabel;
RxDBLookupCombo57: TRxDBLookupCombo;
bsSkinButton47: TbsSkinButton;
N166: TMenuItem;
Label214: TLabel;
wwDBDateTimePicker20: TwwDBDateTimePicker;
dxDBGrid1Column144: TdxDBGridColumn;
Label215: TLabel;
DBEdit22: TDBEdit;
Label216: TLabel;
DBEdit66: TDBEdit;
N167: TMenuItem;
N168: TMenuItem;
N169: TMenuItem;
N170: TMenuItem;
Label211: TLabel;
Label212: TLabel;
wwDBDateTimePicker21: TwwDBDateTimePicker;
wwDBDateTimePicker22: TwwDBDateTimePicker;
dxDBGrid1Column145: TdxDBGridColumn;
dxDBGrid1Column146: TdxDBGridColumn;
N171: TMenuItem;
MSC1: TMenuItem;
N172: TMenuItem;
EDI14: TMenuItem;
RxDBLookupCombo12: TRxDBLookupCombo;
DBComboBoxEh1: TDBComboBoxEh;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Label68: TLabel;
wwDBComboBox15: TwwDBComboBox;
Label113: TLabel;
RxDBLookupCombo45: TRxDBLookupCombo;
N173: TMenuItem;
SI1: TMenuItem;
Label112: TLabel;
Label146: TLabel;
RxDBLookupCombo44: TRxDBLookupCombo;
wwDBLookupCombo16: TwwDBLookupCombo;
dxDBGrid1Column148: TdxDBGridColumn;
dxDBGrid1Column147: TdxDBGridColumn;
dxDBGrid1Column149: TdxDBGridColumn;
dxDBGrid1Column150: TdxDBGridColumn;
Label120: TLabel;
RxDBLookupCombo46: TRxDBLookupCombo;
DBComboBoxEh2: TDBComboBoxEh;
DBComboBoxEh3: TDBComboBoxEh;
Label127: TLabel;
wwDBLookupCombo24: TwwDBLookupCombo;
dxDBGrid1Column151: TdxDBGridColumn;
wwDBLookupCombo25: TwwDBLookupCombo;
dxDBGrid1Column153: TdxDBGridColumn;
N174: TMenuItem;
EDI15: TMenuItem;
dxDBGrid1Column152: TdxDBGridColumn;
N175: TMenuItem;
N176: TMenuItem;
bsSkinComboBox2: TbsSkinComboBox;
Label192: TLabel;
Edit7: TEdit;
Label217: TLabel;
wwDBLookupCombo26: TwwDBLookupCombo;
Label218: TLabel;
Edit8: TEdit;
N177: TMenuItem;
EXCEL2: TMenuItem;
dxDBGrid1Column154: TdxDBGridColumn;
bsSkinDBCheckRadioBox20: TbsSkinDBCheckRadioBox;
N178: TMenuItem;
N179: TMenuItem;
Label219: TLabel;
RxDBLookupCombo47: TRxDBLookupCombo;
Label220: TLabel;
RxDBLookupCombo56: TRxDBLookupCombo;
PopupMenu6: TPopupMenu;
AFR1: TMenuItem;
N180: TMenuItem;
N181: TMenuItem;
N182: TMenuItem;
N183: TMenuItem;
N184: TMenuItem;
N185: TMenuItem;
N186: TMenuItem;
t_op_seae_edi: TADOQuery;
t_op_ctn_edi: TADOQuery;
strngfld_op_ctnDSDesigner2: TStringField;
strngfld_op_ctnDSDesigner6: TStringField;
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_ctnDSDesigner14: TStringField;
t_op_ctn_ediDSDesigner: TStringField;
t_op_ctn_ediPO: TStringField;
t_op_ctn_ediSKU: TStringField;
t_op_ctn_ediSKU2: TStringField;
t_op_ctn_ediUN: TStringField;
t_op_ctn_ediHTS: TStringField;
t_op_ctn_ediDSDesigner2: TStringField;
t_op_ctn_ediDSDesigner3: TBCDField;
intgrfld_op_ctnDSDesigner5: TIntegerField;
intgrfld_op_ctnTEU: TIntegerField;
strngfld_op_ctnDSDesigner4: TStringField;
strngfld_op_ctnDSDesigner3: TStringField;
atncfld_op_ctnctn_id: TAutoIncField;
strngfld_op_ctnDSDesigner: TStringField;
DBComboBoxEh4: TDBComboBoxEh;
N187: TMenuItem;
APLEDI1: TMenuItem;
DBComboBoxEh5: TDBComboBoxEh;
t_op_ctn_detail_edi: TADOQuery;
t_op_ctn_detail_edictn_id: TIntegerField;
t_op_ctn_detail_ediDSDesigner: TIntegerField;
t_op_ctn_detail_ediDSDesigner2: TStringField;
t_op_ctn_detail_ediDSDesigner3: TBCDField;
t_op_ctn_detail_ediDSDesigner4: TBCDField;
t_op_ctn_detail_ediUN: TStringField;
t_op_ctn_detail_ediHTS: TStringField;
t_op_ctn_detail_ediDSDesigner5: TBCDField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure t_op_seaeBeforePost(DataSet: TDataSet);
procedure FormShow(Sender: TObject);
procedure t_op_seae_fenBeforePost(DataSet: TDataSet);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure wwDBComboBox2Change(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton33Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton32Click(Sender: TObject);
procedure bsSkinButton36Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure t_op_seaeBeforeDelete(DataSet: TDataSet);
procedure t_op_seae_fenBeforeDelete(DataSet: TDataSet);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure RxDBLookupCombo2Change(Sender: TObject);
procedure RxDBLookupCombo3Change(Sender: TObject);
procedure RxDBLookupCombo4Change(Sender: TObject);
procedure RxDBLookupCombo16Change(Sender: TObject);
procedure RxDBLookupCombo17Change(Sender: TObject);
procedure RxDBLookupCombo18Change(Sender: TObject);
procedure bsSkinButton26Click(Sender: TObject);
procedure bsSkinButton25Click(Sender: TObject);
procedure bsSkinButton24Click(Sender: TObject);
procedure bsSkinButton23Click(Sender: TObject);
procedure bsSkinButton21Click(Sender: TObject);
procedure bsSkinButton22Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
procedure bsSkinButton19Click(Sender: TObject);
procedure bsSkinButton20Click(Sender: TObject);
procedure DBMemo40Change(Sender: TObject);
procedure DBMemo41Change(Sender: TObject);
procedure DBMemo42Change(Sender: TObject);
procedure DBMemo41Exit(Sender: TObject);
procedure DBMemo42Exit(Sender: TObject);
procedure wwDBLookupCombo61Change(Sender: TObject);
procedure bsSkinButton37Click(Sender: TObject);
procedure DBEdit5Click(Sender: TObject);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure bsSkinButton34Click(Sender: TObject);
procedure RxDBLookupCombo19Change(Sender: TObject);
procedure RxDBLookupCombo11Change(Sender: TObject);
procedure RxDBLookupCombo5Change(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure dxDBGrid2Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure EXCEL1Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure 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 RxDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo15KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit80KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit81KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo61KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit82KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
var Key: Char);
procedure wwDBDateTimePicker5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo23KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinDBCheckRadioBox7KeyPress(Sender: TObject;
var Key: Char);
procedure RxDBLookupCombo24KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo25KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo27KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo26KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit71KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit73KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit109KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit114KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit112KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
procedure EDI1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
procedure 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 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 dxDBGrid1Column114CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean;
var ADone: Boolean);
procedure t_op_seae2DataChange(Sender: TObject; Field: TField);
procedure BBEDI1Click(Sender: TObject);
procedure RxDBLookupCombo43KeyPress(Sender: TObject; var Key: Char);
procedure WORD1Click(Sender: TObject);
procedure EDI3Click(Sender: TObject);
procedure wwDBLookupCombo49Change(Sender: TObject);
procedure EDI4Click(Sender: TObject);
procedure bsSkinButton44Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure N92Click(Sender: TObject);
procedure N93Click(Sender: TObject);
procedure N96Click(Sender: TObject);
procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo50Change(Sender: TObject);
procedure wwDBLookupCombo13Change(Sender: TObject);
procedure RxDBLookupCombo51Change(Sender: TObject);
procedure wwDBLookupCombo14Change(Sender: TObject);
procedure RxDBLookupCombo52Change(Sender: TObject);
procedure wwDBLookupCombo15Change(Sender: TObject);
procedure NYKEDI1Click(Sender: TObject);
procedure N99Click(Sender: TObject);
procedure RxDBLookupCombo15Change(Sender: TObject);
procedure DBEdit7DblClick(Sender: TObject);
procedure DBEdit7Exit(Sender: TObject);
procedure DBEdit8DblClick(Sender: TObject);
procedure DBEdit41DblClick(Sender: TObject);
procedure DBEdit8Exit(Sender: TObject);
procedure DBEdit41Exit(Sender: TObject);
procedure bsSkinSpeedButton1Click(Sender: TObject);
procedure bsSkinButton31Click(Sender: TObject);
procedure EDI5Click(Sender: TObject);
procedure bsSkinButton45Click(Sender: TObject);
procedure wwDBComboBox9DropDown(Sender: TObject);
procedure RxDBLookupCombo31Change(Sender: TObject);
procedure wwDBComboBox9KeyPress(Sender: TObject; var Key: Char);
procedure N103Click(Sender: TObject);
procedure N105Click(Sender: TObject);
procedure N107Click(Sender: TObject);
procedure N110Click(Sender: TObject);
procedure N112Click(Sender: TObject);
procedure N114Click(Sender: TObject);
procedure EDI6Click(Sender: TObject);
procedure bsSkinButton46Click(Sender: TObject);
procedure t_op_fangdanBeforeEdit(DataSet: TDataSet);
procedure t_op_fangdanBeforeInsert(DataSet: TDataSet);
procedure t_op_fangdanAfterInsert(DataSet: TDataSet);
procedure EDI7Click(Sender: TObject);
procedure EDI8Click(Sender: TObject);
procedure N120Click(Sender: TObject);
procedure N122Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure bsSkinSpeedButton2Click(Sender: TObject);
procedure EDI9Click(Sender: TObject);
procedure wwDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo16Change(Sender: TObject);
procedure wwDBLookupCombo17Change(Sender: TObject);
procedure wwDBLookupCombo3Change(Sender: TObject);
procedure N126Click(Sender: TObject);
procedure EDI10Click(Sender: TObject);
procedure t_op_edictnAfterInsert(DataSet: TDataSet);
procedure bsSkinSpeedButton3Click(Sender: TObject);
procedure bsSkinSpeedButton4Click(Sender: TObject);
procedure bsSkinSpeedButton5Click(Sender: TObject);
procedure dxDBGrid1CustomDraw(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 N133Click(Sender: TObject);
procedure N135Click(Sender: TObject);
procedure bsSkinButton48Click(Sender: TObject);
procedure bsSkinButton49Click(Sender: TObject);
procedure bsSkinButton50Click(Sender: TObject);
procedure bsSkinButton51Click(Sender: TObject);
procedure t_op_fileBeforeEdit(DataSet: TDataSet);
procedure N136Click(Sender: TObject);
procedure N138Click(Sender: TObject);
procedure dxDBGrid1Column129CustomDraw(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 EDI11Click(Sender: TObject);
procedure wwDBLookupCombo52Exit(Sender: TObject);
procedure EDIPIL1Click(Sender: TObject);
procedure dbgrdh1Columns4EditButtons0Click(Sender: TObject;
var Handled: Boolean);
procedure ZIMEDI1Click(Sender: TObject);
procedure wwDBLookupCombo3Exit(Sender: TObject);
procedure bsSkinButton52Click(Sender: TObject);
procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton53Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure bsSkinDBGrid1DblClick(Sender: TObject);
procedure bsSkinButton54Click(Sender: TObject);
procedure bsSkinButton56Click(Sender: TObject);
procedure bsSkinButton55Click(Sender: TObject);
procedure bsSkinButton56KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure RxDBLookupCombo54Enter(Sender: TObject);
procedure EDI12Click(Sender: TObject);
procedure CCLEDI1Click(Sender: TObject);
procedure N147Click(Sender: TObject);
procedure N149Click(Sender: TObject);
procedure N151Click(Sender: TObject);
procedure EDI13Click(Sender: TObject);
procedure MSKEDI1Click(Sender: TObject);
procedure bsSkinButton58Click(Sender: TObject);
procedure N155Click(Sender: TObject);
procedure bsSkinButton59Click(Sender: TObject);
procedure N156Click(Sender: TObject);
procedure N159Click(Sender: TObject);
procedure bsSkinButton60Click(Sender: TObject);
procedure DBMemo33Change(Sender: TObject);
procedure DBMemo33Click(Sender: TObject);
procedure DBMemo34Change(Sender: TObject);
procedure DBMemo34Click(Sender: TObject);
procedure DBMemo35Click(Sender: TObject);
procedure DBMemo35Change(Sender: TObject);
procedure wwDBComboBox16DropDown(Sender: TObject);
procedure wwDBLookupCombo22Exit(Sender: TObject);
procedure dbedt4Exit(Sender: TObject);
procedure wwDBComboBox18DropDown(Sender: TObject);
procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
procedure bsSkinButton61Click(Sender: TObject);
procedure bsSkinButton62Click(Sender: TObject);
procedure bsSkinButton63Click(Sender: TObject);
procedure bsSkinButton64Click(Sender: TObject);
procedure N161Click(Sender: TObject);
procedure dxDBGrid1Column134CustomDraw(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 dxDBGrid1Column135CustomDraw(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 N163Click(Sender: TObject);
procedure N165Click(Sender: TObject);
procedure bsSkinButton47Click(Sender: TObject);
procedure N166Click(Sender: TObject);
procedure N168Click(Sender: TObject);
procedure N170Click(Sender: TObject);
procedure MSC1Click(Sender: TObject);
procedure EDI14Click(Sender: TObject);
procedure DBComboBoxEh1DropDown(Sender: TObject);
procedure DBComboBoxEh1Change(Sender: TObject);
procedure DBComboBoxEh1KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton57Click(Sender: TObject);
procedure dxDBGrid6DblClick(Sender: TObject);
procedure dxDBGrid1Column143CustomDraw(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 SI1Click(Sender: TObject);
procedure DBComboBoxEh2DropDown(Sender: TObject);
procedure DBComboBoxEh3DropDown(Sender: TObject);
procedure DBEdit8Change(Sender: TObject);
procedure EDI15Click(Sender: TObject);
procedure N176Click(Sender: TObject);
procedure EXCEL2Click(Sender: TObject);
procedure DBEdit9Change(Sender: TObject);
procedure RxDBLookupCombo28MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure N179Click(Sender: TObject);
procedure RxDBLookupCombo47Enter(Sender: TObject);
procedure RxDBLookupCombo47Exit(Sender: TObject);
procedure RxDBLookupCombo56Exit(Sender: TObject);
procedure RxDBLookupCombo56Enter(Sender: TObject);
procedure AFR1Click(Sender: TObject);
procedure DBComboBoxEh5DropDown(Sender: TObject);
procedure APLEDI1Click(Sender: TObject);
procedure N185Click(Sender: TObject);
private
Letter_flag:Integer;
procedure setconcolor; //<2F><><EFBFBD>ÿؼ<C3BF><D8BC><EFBFBD><EFBFBD><EFBFBD>ɫ
procedure UpdateHblFieldName(fldName,fldvalue,whereValue:string);
procedure UpLoadPro(fname:string); //fname<6D><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
procedure DownLoadPro(fname:string); //<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF>ı<EFBFBD><C4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure WMDROPFILES(var Msg: TMessage);message WM_DROPFILES;
{ Private declarations }
public
psqlstr:widestring;
assup:boolean;
function DelWebData:boolean;
procedure SubmitToWebMasterBills(BsNo:string); //<2F>ύ<EFBFBD><E1BDBB>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2>web
procedure SubmitToWebCustomerBills(BsNo:string); //<2F>ύ<EFBFBD><E1BDBB>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2>web
procedure SubmitToWebFee(BsNo:string); //<2F>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>web
procedure SubmitToWebState(BsNo:string); //<2F>ύ״̬<D7B4><CCAC>Ϣ<EFBFBD><CFA2>web
function IsZhongwen(Str: String): Boolean;
{ Public declarations }
end;
var
frm_op_seae: Tfrm_op_seae;
frm_op_seae_list_type:integer;
frm_op_seae_create:boolean;
implementation
uses u_main,u_data_share, my_sys_function, u_op_seae_add,
u_op_ctn, u_op_letter, u_op_add_ctn,u_op_seae_excel,
u_ch_fee_se, {$IFDEF ZTGENGZONG} u_op_seae_state,u_op_seae_state_up,{$ENDIF} u_op_seae_assistant,
u_op_seae_vessel, u_sys_progress,{$IFDEF DLFENZHANG}u_op_seae_fenzhang,{$ENDIF} u_ch_fee_zhupiao,
u_ch_piliang_seae, {$IFDEF PXHUANHUO}u_op_seae_huanhuo_do,{$ENDIF}
u_op_seae_letter, u_op_date_change, my_sys_chat, u_op_seae_print_mul,
{$IFDEF EDI}
u_op_seae_edi_cma, u_code_package_edi,u_op_seae_edi_yh,
u_code_shiper_edi, u_code_edi_port, u_op_seae_edi_bb,
u_op_seae_edi_nor, u_op_seae_edi_ym, u_op_seae_edi_nyk, {$ENDIF} u_op_seae_word, u_sys_tab_sort,
u_piliang_seae_state, u_op_seae_history, u_op_seae_edi_yd,
u_op_seae_edi_cosco, u_op_seae_edi_zh,u_op_seae_edi_zt, u_op_msg_ydbg, u_op_msg_bg,
u_op_seae_edi_hyundai,u_op_seae_edi_WaiDai, u_op_seae_edi_PIL,
u_op_seae_edi_zim, u_crm_client, u_op_seae_edi_jc, u_op_seae_edi_ccl,
u_op_seae_edi_at, u_op_seae_edi_msk, u_op_module, u_op_seae_edi_zxd,
u_op_seae_edi_zhld, u_op_seae_edi_msc, u_op_seae_edi_wh,
u_sys_message_pri, u_op_seae_edi_yml, u_op_seae_edi_custom_WaiDai,u_op_seae_edi_custom_ld,ExcelImpu,
u_op_seae_edi_apl;
{$R *.dfm}
function Tfrm_op_seae.IsZhongwen(Str: String): Boolean;
var
i:Integer;
begin
Result:=false;
if Str='' then Exit;
for i:=1 to Length(Str) do begin
if (Str[i]>Chr(127)) or (Str[i]=Chr(9)) then begin
// if (Str[i]>Chr(127)) or (Str[i]=Chr(9)) or (Str[i]='<') or (Str[i]='>') then begin
Result:=True;
Exit;
end;
end;
end;
procedure Tfrm_op_seae.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
savereggrid(dxdbgrid2,caption+'1');
{$IFDEF DLFENZHANG}
if assigned(frm_op_seae_fenzhang) then
begin
FreeAndNil(frm_op_seae_fenzhang);
end;
{$ENDIF}
if assigned(frm_op_letter) then
frm_op_letter.close;
if assigned(frm_ch_fee_sea) then
frm_ch_fee_sea.close;
{$IFDEF ZTGENGZONG}
if assigned(frm_op_seae_state) then
frm_op_seae_state.close;
if assigned(frm_op_seae_state_up) then
begin
frm_op_seae_state_up.close;
frm_op_seae_state_up.free;
frm_op_seae_state_up:=nil;
end;
{$ENDIF}
if assigned(frm_op_seae_assistant) then
frm_op_seae_assistant.close;
if assigned(frm_op_seae_letter) then
frm_op_seae_letter.close;
frm_op_seae.Hide;
frm_op_seae.ManualFloat(frm_op_seae.BoundsRect );
frm_main.freeTabs('frm_op_seae');
frm_op_seae_create:=false;
action:=cafree;
frm_op_seae:=nil;
end;
procedure Tfrm_op_seae.bsSkinButton5Click(Sender: TObject);
var
answer:TModalResult;
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;
close;
//ljp
end;
procedure Tfrm_op_seae.t_op_seaeBeforePost(DataSet: TDataSet);
var
aQuery:TAdoQuery;
stl,s_shipper,s_cons,s_notify,s_marks,s_descrip:string;
sl:TStringList;
i:Integer;
begin
//<2F><>Ϊ<EFBFBD><CEAA><EFBFBD>ж<EFBFBD>
table_before_post(t_op_seae,'ί<>е<EFBFBD>λ');
table_before_post(t_op_seae,'<27><><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>Դ');
{
if pos('ָ<><D6B8>',t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
end else begin
// table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// table_before_post(t_op_seae,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
end;
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
}
//ί<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if strtobool(get_parameters_value(185,'false')) then
begin
if frm_data_share.t_sys_noset.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ί<>б<EFBFBD><D0B1><EFBFBD>',[]) then
begin
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_seae.fieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString)='') then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end
else
begin
if (trim(t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring)='<27><><EFBFBD><EFBFBD>') then
begin
end
else
begin
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_seae.fieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString)='') then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end;
if frm_data_share.t_code_free.Locate('<27><><EFBFBD>ѷ<EFBFBD>ʽ',trim(t_op_seae.fieldbyname('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring),[]) then
begin
stl:=frm_data_share.t_code_free.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring;
end;
if frm_data_share.t_sys_noset_hblno.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',[]) then
begin
if Trim(frm_data_share.t_sys_noset_hblno.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
begin
if t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').IsNull or (trim(t_op_seae.fieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)='') then
if Trim(frm_data_share.t_sys_noset_hblno.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=gethblno(1,subComp,department,employee,stl,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=gethblno(1,subComp,department,employee,stl,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end;
if op_empty('t_op_seae',t_op_seae) then
abort;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
if t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˿<EFBFBD><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
abort;
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,getbsno(Logininfo.SeaExpBsNo,'SE'));
t_op_seae['<27><><EFBFBD><EFBFBD>']:=get_id;
end;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seae['<27><><EFBFBD><EFBFBD>ǰ״̬']:='<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
if (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'<27><><EFBFBD>ĵ<EFBFBD>') then
// 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);
UpdateHblFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',FormatDateTime('YYYY-MM-DD',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime),t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
UpdateHblFieldName('Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>',t_op_seae['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>'],t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
UpdateHblFieldName('<27><><EFBFBD><EFBFBD>',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
UpdateHblFieldName('<27><><EFBFBD><EFBFBD>',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
//<2F><><EFBFBD><EFBFBD> <20><>׼<EFBFBD>ֶ<EFBFBD> <20>жϱ<D0B6><CFB1><EFBFBD><EFBFBD>ظ<EFBFBD>
//<2F><><EFBFBD>ᵥ<EFBFBD>Ÿ<EFBFBD><C5B8>ĵ<EFBFBD><C4B5><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>
if strtobool(get_parameters_value(31,'false')) then
begin
if (trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') or (t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') 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>׼']:=Logininfo.subcompcode+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)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') 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>׼']:=Logininfo.subcompcode+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)='') or (t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae['ί<>б<EFBFBD>׼']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
end
else
begin
if Trim(t_op_seae.fieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString)<>'' then
t_op_seae['ί<>б<EFBFBD>׼']:=t_op_seae.fieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
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)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') 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)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') 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)='') or (Trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') 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;
//<2F><><EFBFBD><EFBFBD><EFBFBD>ء<EFBFBD><D8A1>߷<EFBFBD><DFB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥ
try
if (not assup) and (t_op_seae.State in [dsedit]) then
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue) or (t_op_seae.FieldByName('<27><>װ').Value<>t_op_seae.FieldByName('<27><>װ').oldValue)
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldValue) or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldValue) then begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
close;sql.clear;
sql.Add('select count(AS_ID) as count from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>='''+t_op_seae['<27><><EFBFBD><EFBFBD>']+'''');
open;
if fieldbyname('count').AsInteger>0 then begin
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>ء<EFBFBD><D8A1><EFBFBD><EFBFBD>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD>ı<EFBFBD>,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>»<EFBFBD><C2BB><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5>',mtWarning,[mbYes,mbNo],0)=mrYes then begin
close;sql.clear;
sql.Add('update t_op_seae_assistant set <20><><EFBFBD><EFBFBD>='+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+',');
sql.Add('<27><>װ='''+t_op_seae.FieldByName('<27><>װ').asstring+''',<2C><><EFBFBD><EFBFBD>='+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+',');
sql.Add('<27><><EFBFBD><EFBFBD>='+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+',<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring+''',');
sql.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+''',<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'''');
sql.Add('where <20><><EFBFBD><EFBFBD>='''+t_op_seae['<27><><EFBFBD><EFBFBD>']+'''');
ExecSQL;
end;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
except
end;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>']:=Trim(getzq(t_op_seae['ί<>е<EFBFBD>λ']));
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)<>'' then
UpdateSeaeOrderMblNo(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
if (trim(t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring)='<27><><EFBFBD><EFBFBD>') and (trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><>ͨ<EFBFBD><CDA8>') 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;
if trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'' then
if not frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring),[]) then
begin
showmessage('ϵͳ<CFB5>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ڸ<EFBFBD><DAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>˶<EFBFBD>');
abort;
end;
if trim(t_op_seae.fieldbyname('<27>ͷ<EFBFBD>Ա').asstring)<>'' then
if not frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',trim(t_op_seae.fieldbyname('<27>ͷ<EFBFBD>Ա').asstring),[]) then
begin
showmessage('ϵͳ<CFB5>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ڸÿͷ<C3BF>Ա,<2C><><EFBFBD>˶<EFBFBD>');
abort;
end;
if trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring)<>'' then
if not frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').asstring),[]) then
begin
showmessage('ϵͳ<CFB5>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ڸò<DAB8><C3B2><EFBFBD>Ա,<2C><><EFBFBD>˶<EFBFBD>');
abort;
end;
// t_op_seae['upload']:=1;
if (trim(t_op_seae.fieldbyname('<27><>վ').asstring)='<27><> <20><> <20><>') and (trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae2.DataSet.fieldbyname('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').Value:='<27>޵<EFBFBD>';
t_op_seae2.DataSet.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=null;
end;
s_shipper:='';
s_cons:='';
s_notify:='';
s_marks:='';
s_descrip:='';
if frm_data_share.t_crm_client_ship.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').asstring,[])then
begin
if frm_data_share.t_crm_client_ship.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ').AsBoolean then
begin
sl:=TStringList.Create;
try
sl.Clear;
sl.Text:=frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').asstring;
for i:=0 to sl.Count-1 do
begin
if IsZhongwen(sl[i]) then
begin
if s_shipper='' then
begin
s_shipper:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+sl[i];
end
else
begin
s_shipper:=s_shipper+' '+sl[i];
end;
end;
end;
sl.Clear;
sl.Text:=frm_op_seae.t_op_seae.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').asstring;
for i:=0 to sl.Count-1 do begin
if IsZhongwen(sl[i]) then begin
if s_cons='' then
begin
s_cons:='<27>ջ<EFBFBD><D5BB><EFBFBD>:'+sl[i];
end
else
begin
s_cons:=s_cons+' '+sl[i];
end;
end;
end;
sl.Clear;
sl.Text:=frm_op_seae.t_op_seae.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').asstring;
for i:=0 to sl.Count-1 do begin
if IsZhongwen(sl[i]) then begin
if s_notify='' then
begin
s_notify:='֪ͨ<CDA8><D6AA>:'+sl[i];
end
else
begin
s_notify:=s_notify+' '+sl[i];
end;
end;
end;
sl.Clear;
sl.Text:=frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
for i:=0 to sl.Count-1 do begin
if IsZhongwen(sl[i]) then begin
if s_descrip='' then
begin
s_descrip:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+sl[i];
end
else
begin
s_descrip:=s_descrip+' '+sl[i];
end;
end;
end;
sl.Clear;
sl.Text:=frm_op_seae.t_op_seae.fieldbyname('<27><>ͷ').asstring;
for i:=0 to sl.Count-1 do begin
if IsZhongwen(sl[i]) then begin
if s_marks='' then
begin
s_marks:='<27><>ͷ:'+sl[i];
end
else
begin
s_marks:=s_marks+' '+sl[i];
end;
end;
end;
if (s_shipper<>'') or (s_cons<>'') or (s_notify<>'') or (s_marks<>'') or (s_descrip<>'') then
MessageDlg(s_shipper+' '+s_cons+' '+s_notify+' '+s_marks+' '+s_descrip+#13#10+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>TAB<41><42>!',mtWarning,[mbOk],0);
finally
FreeAndNil(sl);
end;
end;
end;
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring,[]) then
begin
if frm_data_share.t_crm_client_all.fieldbyname('<27>Ƿ<EFBFBD>ͣ<EFBFBD><CDA3>').AsBoolean then
begin
MessageDlg('<27>˴<EFBFBD><CBB4><EFBFBD>˾<EFBFBD><CBBE>ͣ<EFBFBD><CDA3>,<2C><><EFBFBD><EFBFBD>¼<EFBFBD>룡',mtWarning,[mbok],0);
// abort;
end;
end;
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>ͣ<EFBFBD><CDA3>').AsBoolean then
begin
MessageDlg('<27><>ί<EFBFBD>е<EFBFBD>λ<EFBFBD><CEBB>ͣ<EFBFBD><CDA3>,<2C><><EFBFBD><EFBFBD>¼<EFBFBD>룡',mtWarning,[mbok],0);
// abort;
end;
end;
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae.fieldbyname('<27><>վ').asstring,[]) then
begin
if frm_data_share.t_crm_client_all.fieldbyname('<27>Ƿ<EFBFBD>ͣ<EFBFBD><CDA3>').AsBoolean then
begin
MessageDlg('<27>˳<EFBFBD>վ<EFBFBD><D5BE>ͣ<EFBFBD><CDA3>,<2C><><EFBFBD><EFBFBD>¼<EFBFBD>룡',mtWarning,[mbok],0);
// abort;
end;
end;
{
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>']:=getzqlx(t_op_seae['ί<>е<EFBFBD>λ'],t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
}
end;
procedure Tfrm_op_seae.FormShow(Sender: TObject);
var
inifile1,seabandini:Tinifile;
i,j,n:integer;
sl:TStrings;
begin
loadreggrid(dxdbgrid1,true,caption);
loadreggrid(dxdbgrid2,false,caption+'1');
try
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(self);
Notebook1.PageIndex:=0;
bsSkinPageControl1.ActivePageIndex:=0;
bsSkinPanel15.Visible:=false;
bsSkinDBCheckRadioBox21.visible:=strtobool(get_parameters_value(160,'false'));
bsSkinDBCheckRadioBox22.Visible:=strtobool(get_parameters_value(160,'false'));
bsSkinButton55.visible:=strtobool(get_parameters_value(160,'false'));
bsSkinButton56.visible:=strtobool(get_parameters_value(160,'false'));
Label219.visible:=strtobool(get_parameters_value(187,'false'));
RxDBLookupCombo47.visible:=strtobool(get_parameters_value(187,'false'));
Label220.visible:=strtobool(get_parameters_value(187,'false'));
RxDBLookupCombo56.visible:=strtobool(get_parameters_value(187,'false'));
bsSkinDBCheckRadioBox20.visible:=strtobool(get_parameters_value(187,'false'));
// wwDBLookupCombo49.ReadOnly:=not strtobool(get_parameters_value(173,'false'));
//DBEdit63.ReadOnly:=not strtobool(get_parameters_value(173,'false'));
t_crm_client.Open;
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;
Label130.Caption:=Logininfo.seaewtno;
Label37.Caption:=Logininfo.seaewtno;
Label133.Caption:=Logininfo.seaedcno;
Label183.Caption:=Logininfo.seaedcno;
dxDBGrid1Column8.Caption:=Logininfo.seaewtno;
dxDBGrid1Column121.Caption:=Logininfo.seaedcno;
//Edit6.Text:=employee;
//<2F><><EFBFBD><EFBFBD>ί<EFBFBD>б<EFBFBD><D0B1>Ź<EFBFBD><C5B9><EFBFBD><EFBFBD>ж<EFBFBD>
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
DBEdit8.Width:=119;
bsSkinSpeedButton1.Visible:=false;
if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
DBEdit8.ReadOnly:=false;
end else begin
DBEdit8.ReadOnly:=true;
end;
end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
// DBEdit8.Width:=96;
bsSkinSpeedButton1.Visible:=true;
if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
DBEdit8.ReadOnly:=false;
end else begin
DBEdit8.ReadOnly:=true;
end;
end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭' then begin
DBEdit8.ReadOnly:=false;
DBEdit8.Width:=119;
bsSkinSpeedButton1.Visible:=false;
end;
// t_op_msg.close;
t_op_seae_fen.close;
t_op_seae_huanhuo.close;
t_op_seae.Close;
t_op_seae.SQL.clear;
if strtobool(get_parameters_value(132,'true')) then begin
//<2F><><EFBFBD><EFBFBD>100Ʊ<30>Լ<EFBFBD><D4BC><EFBFBD>ҵ<EFBFBD><D2B5>
t_op_seae.SQL.Add('select top 200 * 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><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''+')'
//+open_data('0001','¼<><C2BC><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>');
+default_sort(53,'t_op_seae','','desc'));
end else begin
// t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'' and '
//<2F><><EFBFBD><EFBFBD>Ȩ<EFBFBD>޷<EFBFBD>Χ<EFBFBD>ڵ<EFBFBD>ҵ<EFBFBD><D2B5>
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+' SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
+open_data('0001','¼<><C2BC><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>');
+default_sort(53,'t_op_seae','','desc'));
end;
t_op_seae.open;
psqlstr:='';
prnlist:=false;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_op_seae_fen.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_op_seae_huanhuo.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
// frm_data_share.t_code_tiaokuan.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_card1.t_op_card.DataSource:=t_op_seae2;
fra_op_card1.t_op_card.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
////Load
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_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.v_vessel_voyage.Open;;
frm_data_share.t_sys_employee.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_ship.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_changzhan.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_truck.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_baoguan.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_weituo.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_daili.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_huodai.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_shiper.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_shouhuo.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_tongzhi.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_other.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_code.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_vessel.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_loaport.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_disport.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_items.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_free.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_signbill.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_goods.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_package.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_fee.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_currency.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_trade.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_card.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_source.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_edi_port.requery;
t_code_edi_line.Open;
bsSkinTabSheet2.TabVisible:= if_open('293') or if_open('294');
//<2F>˵ֺͷ<D6BA><CDB7><EFBFBD>
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
bsSkinPanel9.Visible:=inifile1.Readbool('other','qdisp',false);
// bsSkinGroupBox12.Parent:=dxDBGrid1;
bsSkinGroupBox12.Left:=bsSkinPanel9.Width-150;
bsSkinGroupBox12.Top:=dxDBGrid1.Height-225;
if if_reg(196) then begin
bsSkinGroupBox12.Visible:=inifile1.Readbool('other','webmsg',false);
t_op_msg.Active:=inifile1.Readbool('other','webmsg',false);
N119.Visible:=true;
end else begin
bsSkinGroupBox12.Visible:=false;
t_op_msg.Active:=false;
N119.Visible:=false;
end;
if bsSkinPanel9.Visible then begin
bsSkinPanel9.Visible:=true;
bsSkinButton13.Top:=3+bsSkinPanel9.Height;
bsSkinButton15.Top:=3+bsSkinPanel9.Height;
end;
inifile1.free;
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
sl:=TStringList.Create;
try
seabandini.ReadSection('seaexp',sl);
for j:=0 to sl.Count-1 do
begin
n:=seabandini.Readinteger('seaexp',sl[j],0);
for i:=0 to bsSkinPageControl1.PageCount-1 do
begin
if bsSkinPageControl1.Pages[i].Name=sl[j] then
begin
bsSkinPageControl1.Pages[i].PageIndex:=n;
end;
end;
end;
finally
freeandnil(seabandini);
freeandnil(sl);
end;
{$IFDEF DLFENZHANG}
if not if_reg(194) then begin
bsSkinTabSheet9.TabVisible:=false;
end;
{$ELSE}
bsSkinTabSheet9.TabVisible:=false;
{$ENDIF}
{$IFDEF ZTGENGZONG}
if not if_reg(195) then begin
bsSkinTabSheet7.TabVisible:=false;
N42.Visible:=false;
bsSkinButton15.Visible:=false;
end;
{$ELSE}
bsSkinTabSheet7.TabVisible:=false;
N42.Visible:=false;
bsSkinButton15.Visible:=false;
{$ENDIF}
{$IFDEF PXHUANHUO}
{$ELSE}
N57.Visible:=false;
{$ENDIF}
{$IFDEF EDI}
if not if_reg(1081) then begin
EDI2.visible:=false;
bsSkinTabSheet8.TabVisible:=false;
end;
{$ELSE}
EDI2.visible:=false;
bsSkinTabSheet8.TabVisible:=false;
{$ENDIF}
if strtobool(get_parameters_value(143,'false')) then begin
N104.Visible:=true;
N105.Visible:=true;
end else begin
N104.Visible:=FALSE;
N105.Visible:=FALSE;
end;
if not if_reg(1083) then begin
EXCEL2.visible:=false;
end;
if if_open('304') then begin
bsSkinTabSheet9.TabVisible:=true;
end else begin
bsSkinTabSheet9.TabVisible:=false;
end;
dxDBGrid1Column118.ReadOnly:=true;
// dxDBGrid1Column132.ReadOnly:=true;
assup:=false;
if strtobool(get_parameters_value(154,'false')) then begin
N131.Visible:=true;
N132.Visible:=true;
end else begin
N131.Visible:=false;
N132.Visible:=false;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
finally
frm_sys_progress.close;
frm_sys_progress:=nil;
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>Ա');
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>Դ');
if pos('ָ<><D6B8>',t_op_seae_fen.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
end else begin
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seae_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
end;
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>');
//ƴ<><C6B4><EFBFBD><EFBFBD>Ʊί<C6B1>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']='' then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
if op_empty('t_op_seae',t_op_seae_fen) then
Abort;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
if t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˿<EFBFBD><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
abort;
end;
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,getbsno(Logininfo.SeaExpBsNo,'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['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seae_fen['<27><><EFBFBD><EFBFBD>ǰ״̬']:='<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)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') 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>׼']:=Logininfo.subcompcode+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)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') 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>׼']:=Logininfo.subcompcode+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)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') 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)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') 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)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') 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)='') or (t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') 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;
// t_op_seae_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
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
//ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1>ʾ<EFBFBD><CABE>Ʊ<EFBFBD>б<EFBFBD>
if t_op_seae2.DataSet=nil then
exit;
if wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' 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;
if strtobool(get_parameters_value(131,'false')) then begin
end else begin
DBEdit7.Color:=clBtnFace;
DBEdit7.ReadOnly:=true;
end;
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;
DBEdit7.Color:=clWindow;
DBEdit7.ReadOnly:=false;
end;
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;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.post;
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit) then
t_op_ams1.DataSet.post;
if (t_op_edictn1.DataSet.State=dsinsert)or(t_op_edictn1.DataSet.State=dsedit) then
t_op_edictn1.DataSet.post;
if t_op_fangdan.Active then
if t_op_fangdan.State in [dsedit,dsinsert] then t_op_fangdan.Post;
end;
procedure Tfrm_op_seae.bsSkinButton3Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.cancel;
end;
procedure Tfrm_op_seae.bsSkinButton4Click(Sender: TObject);
var
answer:TModalResult;
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
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;
if t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>').AsBoolean then begin
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>ҵ<EFBFBD><D2B5>,ֻ<><D6BB><EFBFBD>˲գ<CBB2><D5A3><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
application.MessageBox('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7>ò<EFBFBD><C3B2><EFBFBD>ֱ<EFBFBD><D6B1>ɾ<EFBFBD><C9BE>!','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL);
t_ch_fee.close;
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 strtobool(get_parameters_value(154,'false')) then
N135Click(Sender);
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then begin
t_op_seae2.DataSet.delete;
end;
end;
procedure Tfrm_op_seae.bsSkinButton32Click(Sender: TObject);
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
t_op_seae_fen.post;
try
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
frm_op_seae_add.data1.Enabled:=false;
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
frm_op_seae_add.data1.Enabled:=true;
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
frm_op_seae_add_num:=3;
frm_op_seae_add.ShowModal;
finally
frm_op_seae_add.Free;
end;
end;
procedure Tfrm_op_seae.bsSkinButton36Click(Sender: TObject);
begin
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
t_op_seae_fen.post;
end;
procedure Tfrm_op_seae.bsSkinButton1Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
t_op_seae2.DataSet.post;
try
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
if t_op_seae2.DataSet=t_op_seae then
begin
frm_op_seae_add.data1.Enabled:=false;
frm_op_seae_add.data1.DataSet:=t_op_seae;
frm_op_seae_add.data1.Enabled:=true;
frm_op_seae_add_num:=1;
end
else
begin
frm_op_seae_add.data1.Enabled:=false;
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
frm_op_seae_add.data1.Enabled:=true;
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
frm_op_seae_add_num:=2;
end;
if frm_op_seae_add.ShowModal<>mrCancel then begin
if not frm_op_seae.bsSkinTabSheet1.Showing then
frm_op_seae.bsSkinTabSheet1.Show;
end;
finally
frm_op_seae_add.Free;
end;
end;
procedure Tfrm_op_seae.t_op_seaeBeforeDelete(DataSet: TDataSet);
begin
op_befor_post(t_op_seae,'0001');
if not strtobool(get_parameters_value(174,'false')) then
begin
delete_add(1,t_op_seae);
//ί<>б<EFBFBD><D0B1>Ŵ<EFBFBD><C5B4><EFBFBD>
if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end
else
begin
if trim(t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString)<>'' then
begin
ShowMessage('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ί<EFBFBD>к<EFBFBD><D0BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ҵ<EFBFBD><D2B5>');
Abort;
end
else
begin
delete_add(1,t_op_seae);
//ί<>б<EFBFBD><D0B1>Ŵ<EFBFBD><C5B4><EFBFBD>
if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
end;
end;
procedure Tfrm_op_seae.t_op_seae_fenBeforeDelete(DataSet: TDataSet);
begin
op_befor_post(t_op_seae_fen,'0001');
delete_add(1,t_op_seae_fen);
if not t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seae.bsSkinButton8Click(Sender: TObject);
var
Pnt:Tpoint;
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;
if (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')then
begin
N56.Visible:=true;
N57.Visible:=true;
end
else
begin
N56.Visible:=false;
N57.Visible:=false;
end;
Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
PopupMenu1.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_seae.bsSkinButton9Click(Sender: TObject);
begin
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;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae.RxDBLookupCombo2Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
begin
if RxDBLookupCombo2.DisplayValue<>'' then
t_op_seae2.DataSet['<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
//ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD>
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 Trim(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring)='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
exit;
end;
if t_op_seae2.DataSet=nil then
exit;
if op_empty('t_op_seae',t_op_seae) then
begin
Exit;
end;
if (t_op_seae2.DataSet.State=dsinsert) or (t_op_seae2.DataSet.State=dsEdit)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;
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull then
begin
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뿪<EFBFBD><EBBFAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Exit;
end;
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.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;
if not t_op_edictn.Active then t_op_edictn.open;
end
else
begin
if t_op_ams.State in [dsedit,dsinsert] then t_op_ams.Post;
if t_op_edictn.State in [dsedit,dsinsert] then t_op_edictn.Post;
end;
if t_op_seae2.DataSet.state in [dsedit,dsinsert] then t_op_seae2.DataSet.post;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
begin
// if not assigned(frm_op_letter) then
if Letter_flag=0 then
begin
frm_op_letter:=tfrm_op_letter.Create (self);
frm_op_letter.bsTypeid:=0;
frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
if assigned(frm_op_seae_assistant) then
begin
frm_op_letter.DataSource2:=frm_op_seae_assistant.t_op_seae_assistant1;
end
else
begin
frm_op_letter.DataSource2:=DataSource1;
end;
frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient);
frm_op_letter.show;
end;
exit;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
begin
bsSkinGroupBox5.CaptionMode:=false;
bsSkinGroupBox6.CaptionMode:=false;
bsSkinGroupBox7.CaptionMode:=false;
bsSkinGroupBox8.CaptionMode:=false;
exit;
end;
if bsSkinPageControl1.ActivePage=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.ManualDock(bsSkinTabSheet10,nil,alClient);
frm_op_seae_letter.show;
end;
exit;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
begin
if if_open('293') or if_open('294') then
begin
if not assigned(frm_ch_fee_sea) then
begin
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
frm_ch_fee_sea.Show;
end;
end
else
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
end;
exit;
end;
{$IFDEF ZTGENGZONG}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then
begin
if not assigned(frm_op_seae_state) then
begin
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
frm_op_seae_state.fra_op_state1.t_op_state.open;
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
frm_op_seae_state.show;
end;
exit;
end;
{$ENDIF}
{$IFDEF DLFENZHANG}
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.Close;
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.t_ch_fee_fenzhango.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.DataSource:=t_op_seae2;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.open;
frm_op_seae_fenzhang.t_op_fenzhang.Close;
frm_op_seae_fenzhang.t_op_fenzhang.DataSource:=t_op_seae2;
frm_op_seae_fenzhang.t_op_fenzhang.Open;
frm_op_seae_fenzhang.t_op_seae_assistant.Close;
frm_op_seae_fenzhang.t_op_seae_assistant.sql.Text:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> ';
frm_op_seae_fenzhang.t_op_seae_assistant.DataSource:=t_op_seae2;
frm_op_seae_fenzhang.t_op_seae_assistant.Open;
frm_op_seae_fenzhang.t_ch_fee_agentdc.Close;
frm_op_seae_fenzhang.t_ch_fee_agentdc.DataSource:=t_op_seae2;
frm_op_seae_fenzhang.t_ch_fee_agentdc.open;
frm_op_seae_fenzhang.t_ch_fee_agentdc_detail.open;
frm_op_seae_fenzhang.t_ch_fee_pl.Close;
frm_op_seae_fenzhang.t_ch_fee_pl.DataSource:=t_op_seae2;
frm_op_seae_fenzhang.t_ch_fee_pl.open;
frm_op_seae_fenzhang.t_ch_fee_cm.Close;
frm_op_seae_fenzhang.t_ch_fee_cm.DataSource:=t_op_seae2;
frm_op_seae_fenzhang.t_ch_fee_cm.open;
frm_op_seae_fenzhang.t_ch_fee_pl_detail.open;
frm_op_seae_fenzhang.t_ch_fee_pl_detailf.open;
frm_op_seae_fenzhang.ManualDock(bsSkinTabSheet9,nil,alClient);
frm_op_seae_fenzhang.show;
end;
exit;
end;
{$ENDIF}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
begin
if not assigned(frm_op_seae_assistant) then
begin
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
frm_op_seae_assistant.show;
end;
exit;
end else begin
if assigned(frm_op_seae_assistant) then
if frm_op_seae_assistant.t_op_seae_assistant.State in [dsedit,dsinsert] then frm_op_seae_assistant.t_op_seae_assistant.Post;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 then
begin
if not t_op_fangdan.Active then
t_op_fangdan.open;
end else begin
if t_op_fangdan.State in [dsedit,dsinsert] then t_op_fangdan.Post;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet5 then
begin
// t_op_file.Close;
// t_op_file.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
if not t_op_file.Active then
t_op_file.open;
end
else
begin
if t_op_file.State in [dsedit,dsinsert] then t_op_file.Post;
t_op_file.close;
end;
{$IFDEF DLFENZHANG}
if bsSkinPageControl1.ActivePage<>bsSkinTabSheet9 then
begin
if assigned(frm_op_seae_fenzhang) then
begin
FreeAndNil(frm_op_seae_fenzhang);
end;
exit;
end;
{$ENDIF}
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;
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;
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;
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;
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);
var
aQuery:TAdoQuery;
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('<27><>װ<EFBFBD><D7B0>').asstring<>''then
begin
if MessageDlg('<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><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrno then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('delete from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
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['<27><>װ<EFBFBD><D7B0>']:='';
t_op_seae['<27><><EFBFBD><EFBFBD>1']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>2']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>3']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>4']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>5']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>6']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>7']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>8']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>9']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>10']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_op_seae['<27><>TEU']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
t_op_seae.post;
end;
procedure Tfrm_op_seae.N22Click(Sender: TObject);
var
aQuery:TAdoQuery;
begin
if t_op_seae.IsEmpty then
exit;
if t_op_seae.FieldByName('װ<>˷<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('<27><>װ<EFBFBD><D7B0>').asstring<>''then
begin
if MessageDlg('<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>,<2C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrno then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('delete from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
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['<27><>װ<EFBFBD><D7B0>']:='';
t_op_seae['<27><><EFBFBD><EFBFBD>1']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>2']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>3']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>4']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>5']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>6']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>7']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>8']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>9']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD>10']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_op_seae['<27><>TEU']:=0;
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
t_op_seae.post;
end;
procedure Tfrm_op_seae.N27Click(Sender: TObject);
begin
if t_op_seae_fen.IsEmpty then
exit;
t_op_seae_fen.edit;
t_op_seae_fen['<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;
t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+#13#10+frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
if frm_data_share.t_code_goods.FieldByName('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').AsString<>'' then
t_op_seae2.DataSet.fieldbyname('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring:=t_op_seae2.DataSet.fieldbyname('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring+#13#10+frm_data_share.t_code_goods['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
// if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
// DBMemo39.Lines.Append(frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
// TMemoField(t_op_seae2.Fieldbyname('<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
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;
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
t_code_edi_line.Close;
CanClose:=frm_close_query(t_op_ams);
CanClose:=frm_close_query(t_op_edictn);
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.tradetype:='SEA';
frm_op_seae_excel.ShowModal;
finally
frm_op_seae_excel.Free;
end;
end;
procedure Tfrm_op_seae.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/13);
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;
bsSkinButton61.Width:=i;
bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20;
bsSkinButton15.left:=bsSkinButton13.Left-75;
end;
procedure Tfrm_op_seae.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit2);
end;
procedure Tfrm_op_seae.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit3);
end;
procedure Tfrm_op_seae.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit4);
end;
procedure Tfrm_op_seae.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit18);
end;
procedure Tfrm_op_seae.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo12);
end;
procedure Tfrm_op_seae.RxDBLookupCombo12KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBedit(Key,DBEDIT8);
end;
procedure Tfrm_op_seae.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit9);
end;
procedure Tfrm_op_seae.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit7);
end;
procedure Tfrm_op_seae.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit41);
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,wwDBDateTimePicker3);
if Trim(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring)='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
wwDBDateTimePicker2.ReadOnly:=true;
end
else
begin
wwDBDateTimePicker2.ReadOnly:=False;
end;
end;
procedure Tfrm_op_seae.wwDBDateTimePicker6KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo21);
end;
procedure Tfrm_op_seae.wwDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo21);
end;
procedure Tfrm_op_seae.RxDBLookupCombo21KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;
procedure Tfrm_op_seae.RxDBLookupCombo22KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo16);
end;
procedure Tfrm_op_seae.wwDBDateTimePicker3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker6);
end;
procedure Tfrm_op_seae.RxDBLookupCombo20KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo49);
end;
procedure Tfrm_op_seae.wwDBLookupCombo21KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox1);
end;
procedure Tfrm_op_seae.wwDBComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo28);
end;
procedure Tfrm_op_seae.RxDBLookupCombo15KeyPress(Sender: TObject;
var Key: Char);
begin
// key_dbedit(Key,DBEdit26);
end;
procedure Tfrm_op_seae.DBEdit26KeyPress(Sender: TObject; var Key: Char);
begin
// key_dbedit(Key,DBEdit27);
end;
procedure Tfrm_op_seae.DBEdit27KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo20);
end;
procedure Tfrm_op_seae.RxDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;
procedure Tfrm_op_seae.RxDBLookupCombo9KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo6);
end;
procedure Tfrm_op_seae.RxDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo8KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;
procedure Tfrm_op_seae.RxDBLookupCombo10KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo38);
end;
procedure Tfrm_op_seae.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
key_DBMemo(Key,DBMemo37);
end;
procedure Tfrm_op_seae.RxDBLookupCombo14KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo31);
end;
procedure Tfrm_op_seae.RxDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo39);
end;
procedure Tfrm_op_seae.DBEdit80KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit81);
end;
procedure Tfrm_op_seae.DBEdit81KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo61);
end;
procedure Tfrm_op_seae.wwDBLookupCombo61KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit82);
end;
procedure Tfrm_op_seae.DBEdit82KeyPress(Sender: TObject; var Key: Char);
begin
key_dbedit(Key,DBEdit83);
end;
procedure Tfrm_op_seae.wwDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit12);
end;
procedure Tfrm_op_seae.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
if ExistStatus(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>')
or ExistStatus(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>') then
begin
RxDBLookupCombo28.ReadOnly:=True;
RxDBLookupCombo28.Color:=clMoneyGreen;
end
else
begin
RxDBLookupCombo28.ReadOnly:=false;
RxDBLookupCombo28.Color:=clWindow;
end;
// 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
{$IFDEF EDI}
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;
{$ENDIF}
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
//<2F><><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊʱ<C6B1><CAB1><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>
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_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
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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('293') or if_open('294') then
begin
if not assigned(frm_ch_fee_sea) then
begin
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
frm_ch_fee_sea.Show;
end;
end
else
begin
showmessage('<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;
{$IFDEF ZTGENGZONG}
if not assigned(frm_op_seae_state) then
begin
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
frm_op_seae_state.fra_op_state1.t_op_state.open;
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
frm_op_seae_state.show;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.N44Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<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
bsSkinPanel15.Visible:=True;
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('293') or if_open('294')) 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('293') 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('294') 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;
end
else
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
end;
fra_fee_zhu1.dxDBGrid3.FullExpand;
end;
frm_ch_fee_zhupiao.ShowModal;
end;
procedure Tfrm_op_seae.N55Click(Sender: TObject);
var
str:widestring;
begin
if t_op_seae.IsEmpty then
exit;
if if_open('293') and if_open('294') then
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
t_op_seae.DisableControls;
t_op_seae.first;
while not t_op_seae.eof do
begin
if str='' then
str:=''''+t_op_seae.fieldbyname('<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 not if_open('230') then begin
showmessage('<27><>û<EFBFBD><C3BB>Ȩ<EFBFBD>޴<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if if_open('293') and if_open('294') then
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
str:='select * from t_op_seae where <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('293') and if_open('294') then
begin
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if str='' then
str:=''''+t_op_seae.fieldbyname('<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.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
{$IFDEF PXHUANHUO}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.N60Click(Sender: TObject);
begin
{$IFDEF PXHUANHUO}
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;
{$ENDIF}
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
{$IFDEF PXHUANHUO}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.N26Click(Sender: TObject);
begin
{$IFDEF PXHUANHUO}
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;
{$ENDIF}
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
//<2F><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>
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',t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
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);
begin
//ί<>е<EFBFBD>λ<EFBFBD><CEBB><EFBFBD>ĺ󣬸<C4BA><F3A3ACB8>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD>ˡ<EFBFBD><CBA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.State in [dsinsert,dsEdit] 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><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
if not strtobool(get_parameters_value(170,'false')) then begin
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
UpdateHblFieldName('ί<>е<EFBFBD>λ',RxDBLookupCombo1.DisplayValues[1],t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
if not strtobool(get_parameters_value(191,'false')) then
t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=getzqlx(t_op_seae2.Dataset.fieldbyname('ί<>е<EFBFBD>λ').asstring,'',wwDBDateTimePicker2.Date)
else t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=getzqlx(t_op_seae2.Dataset.fieldbyname('ί<>е<EFBFBD>λ').asstring,DBComboBoxEh1.Text,wwDBDateTimePicker2.Date);
// t_op_seae2.Dataset.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime:=_getzq(t_op_seae2.Dataset.fieldbyname('ί<>е<EFBFBD>λ').asstring,wwDBDateTimePicker2.Date);
end;
end;
procedure Tfrm_op_seae.N62Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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 not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.N64Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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 not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD> and <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
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.dxDBGrid2Column2CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid2Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.t_op_seaePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
var
str:widestring;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>ʾ
update_wenti(E);
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.BSTYPE:='T_OP_SEAE';
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
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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
//<2F><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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
setconcolor;
{$IFDEF ZTGENGZONG}
if assigned(frm_op_seae_state_up) then
frm_op_seae_state_up.Hide;
{$ENDIF}
end;
end;
procedure Tfrm_op_seae.bsSkinButton15Click(Sender: TObject);
begin
{$IFDEF ZTGENGZONG}
if not assigned(frm_op_seae_state_up) then
frm_op_seae_state_up:=tfrm_op_seae_state_up.Create (self);
frm_op_seae_state_up.t_op_state.DataSource:=frm_op_seae.t_op_seae1;
frm_op_seae_state_up.DBEdit8.DataSource:=frm_op_seae.t_op_seae1;
frm_op_seae_state_up.DBEdit9.DataSource:=frm_op_seae.t_op_seae1;
frm_op_seae_state_up.show;
frm_op_seae_state_up.Left:=bsSkinButton15.left+Notebook1.left+2;
frm_op_seae_state_up.top:=70+Notebook1.top;
{$ENDIF}
end;
procedure Tfrm_op_seae.wwDBDateTimePicker14KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
end;
procedure Tfrm_op_seae.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
//<2F><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>ʾ
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);
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>жϣ<D0B6><CFA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>н<EFBFBD><D0BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>
if not wwDBDateTimePicker2.Focused then exit;
{
if (Trim(t_op_seae2.dataset.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)<>'')
and (Trim(t_op_seae2.dataset.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)<>'') then
begin
if frm_data_share.v_vessel_voyage.Locate('Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>;<3B><><EFBFBD><EFBFBD>'
,VarArrayOf([trim(t_op_seae2.dataset.FieldByName('<27><><EFBFBD><EFBFBD>').AsString),trim(t_op_seae2.dataset.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)]),[]) then
begin
wwDBDateTimePicker2.ReadOnly:=true;
end
else wwDBDateTimePicker2.ReadOnly:=false;
end;
}
if (strtoint(get_parameters_value(158,'0'))=1) and (Trim(t_op_seae2.dataset.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD>ĵ<EFBFBD>') then
wwDBDateTimePicker2.ReadOnly:=true;
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 not wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull 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;
showmessage('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޣ<EFBFBD><DEA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸Ŀ<DEB8><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
end ELSE
wwDBDateTimePicker2.ReadOnly:=FALSE;
end;
end
else
begin
if not wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull then
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;
showmessage('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޣ<EFBFBD><DEA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸Ŀ<DEB8><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
end ELSE
wwDBDateTimePicker2.ReadOnly:=FALSE;
end;
end;
end
else
wwDBDateTimePicker2.ReadOnly:=FALSE;
end;
if Trim(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring)='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
wwDBDateTimePicker2.ReadOnly:=true;
end
else
begin
wwDBDateTimePicker2.ReadOnly:=False;
end;
if Trim(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring)='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
wwDBDateTimePicker2.ReadOnly:=true;
end
else
begin
wwDBDateTimePicker2.ReadOnly:=False;
end;
if Trim(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring)='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
wwDBDateTimePicker2.ReadOnly:=true;
end
else
begin
wwDBDateTimePicker2.ReadOnly:=False;
end;
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 not strtobool(get_parameters_value(191,'false')) then
t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=getzqlx(t_op_seae2.Dataset.fieldbyname('ί<>е<EFBFBD>λ').asstring,'',wwDBDateTimePicker2.Date)
else t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=getzqlx(t_op_seae2.Dataset.fieldbyname('ί<>е<EFBFBD>λ').asstring,DBComboBoxEh1.Text,wwDBDateTimePicker2.Date);
// t_op_seae2.Dataset.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime:=_getzq(t_op_seae2.Dataset.fieldbyname('ί<>е<EFBFBD>λ').asstring,wwDBDateTimePicker2.Date);
end;
end;
procedure Tfrm_op_seae.bsSkinButton38Click(Sender: TObject);
var
book1:Tbookmark;
begin
if Notebook1.PageIndex=1 then
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);
frm_data_share.t_code_edi_port.requery;
end
else
begin
book1:=t_op_seae2.DataSet.GetBookmark;
TADOQUERY(t_op_seae2.DataSet).Requery;
t_op_seae2.DataSet.GotoBookmark(book1);
{
t_op_seae.Close;
t_op_seae.SQL.clear;
if strtobool(get_parameters_value(132,'true')) then begin
//<2F><><EFBFBD><EFBFBD>100Ʊ<30>Լ<EFBFBD><D4BC><EFBFBD>ҵ<EFBFBD><D2B5>
t_op_seae.SQL.Add('select top 200 * 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><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''+')'
//+open_data('0001','¼<><C2BC><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>');
end else begin
// t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'' and '
//<2F><><EFBFBD><EFBFBD>Ȩ<EFBFBD>޷<EFBFBD>Χ<EFBFBD>ڵ<EFBFBD>ҵ<EFBFBD><D2B5>
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+' SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
+open_data('0001','¼<><C2BC><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>');
end;
t_op_seae.open;
}
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;
if t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']='' then
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
else
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+#13#10+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
if not modify_all then begin
if t_op_seae.FieldByName('<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>').AsBoolean then begin
showmessage('<27><><EFBFBD>˲ղ<CBB2><D5B2><EFBFBD><EFBFBD>޸ģ<DEB8>');
abort;
end;
end;
op_befor_post(t_op_seae,'0001');
end;
procedure Tfrm_op_seae.t_op_seae_fenBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seae_fen,'0001');
end;
procedure Tfrm_op_seae.t_op_seae_fenBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_seae_fen);
if t_op_seae_fen.State=dsinsert then
if not t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seae.t_op_seaeBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_seae);
if t_op_seae.State=dsinsert then
if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_seae.RxDBLookupCombo32KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo33KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3);
end;
procedure Tfrm_op_seae.N82Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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 not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD>)'
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open;
end;
procedure Tfrm_op_seae.N84Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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
//ȷ<><C8B7>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>ȷ<EFBFBD><C8B7>ǩ<EFBFBD><C7A9>
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 strtobool(get_parameters_value(148,'false')) then begin
if (not t_op_fangdan.Active) or t_op_fangdan.IsEmpty then begin
showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ŵ<EFBFBD>,<2C><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if t_op_fangdan.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬').AsString<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then begin
showmessage('<27><><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if t_op_fangdan.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬').AsString<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then begin
showmessage('<27><><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
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;
if strtobool(get_parameters_value(148,'false')) then begin
t_op_fangdan.Edit;
t_op_fangdan.FieldByName('<27>ŵ<EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD>ŵ<EFBFBD>';
t_op_fangdan.post;
end;
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;
if strtobool(get_parameters_value(148,'false')) then begin
t_op_fangdan.Edit;
t_op_fangdan.FieldByName('<27>ŵ<EFBFBD>״̬').AsString:='<27>Ѿ<EFBFBD><D1BE>ŵ<EFBFBD>';
t_op_fangdan.post;
end;
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
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.Label92Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.Label93Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.Label56Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.dxDBGrid1Column114CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
if Trim(ANode.Strings[dxDBGrid1Column114.Index])='<27><><EFBFBD>ĵ<EFBFBD>' then
AColor:=clred;
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.t_op_seae2DataChange(Sender: TObject;
Field: TField);
begin
{$IFDEF DLFENZHANG}
if assigned(frm_op_seae_fenzhang) then
begin
frm_op_seae_fenzhang.t_ch_fee_fenzhang.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.open;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.BBEDI1Click(Sender: TObject);
begin
{$IFDEF EDI}
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_bb) then
frm_op_seae_edi_bb:=tfrm_op_seae_edi_bb.Create(application);
frm_op_seae_edi_bb.ShowModal;
finally
frm_op_seae_edi_bb.free;
frm_op_seae_edi_bb:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.RxDBLookupCombo43KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo21);
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.EDI3Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
if t_op_ams.Active then
if t_op_ams.State in [dsinsert,dsedit] then t_op_ams.Post;
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.wwDBLookupCombo49Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
{
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_vessel.Locate('Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>',wwDBLookupCombo49.text,[]) then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>˾']:=frm_data_share.t_code_vessel['<27><><EFBFBD><EFBFBD>˾'];
end;
end;
}
end;
procedure Tfrm_op_seae.EDI4Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.bsSkinButton44Click(Sender: TObject);
var
str:widestring;
begin
str:='';
str:=query_tiaojian(1,str,'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit1.text);
str:=query_tiaojian(1,str,'t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>','ģ<><C4A3>',Edit4.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>','ģ<><C4A3>',Edit2.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>','ģ<><C4A3>',Edit3.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>','ģ<><C4A3>',Edit5.text);
str:=query_tiaojian(1,str,'t_op_seae.ί<>е<EFBFBD>λ','<27><><EFBFBD><EFBFBD>',RxDBLookupCombo57.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.'+bsSkinComboBox2.Text,'ģ<><C4A3>',wwDBLookupCombo25.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>˱<EFBFBD><CBB1><EFBFBD>','ģ<><C4A3>',Edit7.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>','ģ<><C4A3>',wwDBLookupCombo26.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit8.text);
if trim(Edit6.text)<>'' then
str:=query_tiaojian(1,str,'t_op_seae.'+bsSkinComboBox1.Text,'<27><><EFBFBD><EFBFBD>',Edit6.text)+' and '+open_data('0001','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>',wwDBDateTimePicker18.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','С<><D0A1>',wwDBDateTimePicker19.text);
if trim(Edit6.text)='' then
begin
if trim(str)='' then
begin
str:='where '+open_data('0001','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
str:=str+' and '+open_data('0001','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
// str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'''+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae '
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae '
+str+')'+default_sort(53,'t_op_seae','','desc');
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.close;
t_op_seae.sql.clear;
t_op_seae.sql.add(str);
t_op_seae.Open;
if t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
procedure Tfrm_op_seae.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
bsSkinButton44.OnClick(Sender);
end;
procedure Tfrm_op_seae.N92Click(Sender: TObject);
var
inifile1:Tinifile;
begin
//<2F><><EFBFBD>ݲ<EFBFBD>ѯ<EFBFBD><D1AF>ʾ
bsSkinPanel9.Visible:=true;
bsSkinButton13.Top:=3+bsSkinPanel9.Height;
bsSkinButton15.Top:=3+bsSkinPanel9.Height;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','qdisp',bsSkinPanel9.Visible);
inifile1.free;
end;
procedure Tfrm_op_seae.N93Click(Sender: TObject);
var
inifile1:Tinifile;
begin
//<2F><><EFBFBD>ݲ<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>ʾ
bsSkinPanel9.Visible:=false;
bsSkinButton13.Top:=3;
bsSkinButton15.Top:=3;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','qdisp',bsSkinPanel9.Visible);
inifile1.free;
end;
procedure Tfrm_op_seae.N96Click(Sender: TObject);
begin
if (not t_op_seae.IsEmpty) and (t_op_seae.sql.Text<>'') then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select * from t_op_seae where <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><><3E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='''+'<27><>'+''''+' )'
+default_sort(53,'t_op_seae','','desc'));
t_op_seae.open ;
end;
procedure Tfrm_op_seae.DBEdit41KeyPress(Sender: TObject; var Key: Char);
begin
if bsSkinPageControl2.Visible then
key_RxDBLookupCombo(Key,RxDBLookupCombo16)
else
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;
procedure Tfrm_op_seae.RxDBLookupCombo49KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
end;
procedure Tfrm_op_seae.RxDBLookupCombo31KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox9);
end;
procedure Tfrm_op_seae.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.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><53><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
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.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<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.wwDBLookupCombo15Change(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.NYKEDI1Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.N99Click(Sender: TObject);
var
i,j,l:integer;
s:string;
seabandini:tinifile ;
begin
//<2F><>ͬҳ<CDAC><D2B3>˳<EFBFBD><CBB3><EFBFBD>ı<EFBFBD><C4B1><EFBFBD>
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
frm_sys_tab_sort:=tfrm_sys_tab_sort.create(self);
try
frm_sys_tab_sort.ListBox2.Clear;
for i:=0 to bsSkinPageControl1.PageCount-1 do begin
frm_sys_tab_sort.ListBox2.Items.Add(bsSkinPageControl1.Pages[i].Caption+':'+bsSkinPageControl1.Pages[i].Name);
end;
frm_sys_tab_sort.ShowModal;
if frm_sys_tab_sort.ModalResult=mrOk then begin
for j:=0 to frm_sys_tab_sort.ListBox2.Items.Count-1 do begin
s:=frm_sys_tab_sort.ListBox2.Items[j];
l:=pos(':',s)+1;
for i:=0 to bsSkinPageControl1.PageCount-1 do begin
if bsSkinPageControl1.Pages[i].Name=copy(s,l,length(s)-l+1) then begin
bsSkinPageControl1.Pages[i].PageIndex:=j;
seabandini.Writeinteger('seaexp',copy(s,l,length(s)-l+1),j);
end;
end;
end;
end;
finally
FreeAndNil(frm_sys_tab_sort);
freeandnil(seabandini);
end;
end;
procedure Tfrm_op_seae.setconcolor;
procedure consetcolor(fielname:String);
var
i:integer;
scolor:string;
begin
scolor:=get_parameters_value(144,'clInfoBk');
with bsSkinTabSheet1 do begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then
begin
if TwwDBComboBox(Controls[i]).DataField=fielname then
begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then
begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then
begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
with bsSkinPanel1 do begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
end;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>ͬ<EFBFBD><CDAC>ɫ<EFBFBD><C9AB>ʾ
frm_data_share.t_code_empty.Filtered:=false;
frm_data_share.t_code_empty.Filter:='<27><>=''t_op_seae''';
frm_data_share.t_code_empty.Filtered:=true;
frm_data_share.t_code_empty.First;
while not frm_data_share.t_code_empty.Eof do
begin
if (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') or (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') then begin
if t_op_seae2.DataSet.FindField('װ<>˷<EFBFBD>ʽ')<>nil then begin
if pos('<27><>Ʊ',t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring)>0 then begin
end else begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
end else begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
end else begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
frm_data_share.t_code_empty.next;
end;
end;
procedure Tfrm_op_seae.UpdateHblFieldName(fldName,fldvalue,whereValue:string);
var aAdoQuery:TAdoQuery;
begin
aAdoQuery:=createAdoquery;
with aAdoQuery do
try
Close;Sql.Clear;
Sql.Add('update t_op_seae_assistant set '+fldName+' = '''+fldvalue+'''');
Sql.Add('Where <20><><EFBFBD><EFBFBD>='''+whereValue+'''');
Execsql;
finally
aAdoQuery.Free;
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo15Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if RxDBLookupCombo15.DisplayValues[1]='FREIGHT PREPAID' then begin
t_op_seae2.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae2.DataSet['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:='';
end;
if RxDBLookupCombo15.DisplayValues[1]='FREIGHT COLLECT' then begin
t_op_seae2.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:='';
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae2.DataSet['Ŀ<>ĵ<EFBFBD>']//'DESTINATION';
end;
end;
procedure Tfrm_op_seae.DBEdit7DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxHblno do begin
close;
Parameters.ParamByName('@hblhead').value:=DBEdit7.text+'%';
open;
if (not IsEmpty) and (FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString<>'') then begin
lblhbl.Caption:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
bsSkinPanel10.Visible:=true;
end;
end;
end;
procedure Tfrm_op_seae.DBEdit7Exit(Sender: TObject);
begin
bsSkinPanel10.Visible:=false;
end;
procedure Tfrm_op_seae.DBEdit8DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxWTno do begin
close;
Parameters.ParamByName('@hblhead').value:=DBEdit8.text+'%';
open;
if (not IsEmpty) and (FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString<>'') then begin
lblwt.Caption:=FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
bsSkinPanel11.Visible:=true;
end;
end;
end;
procedure Tfrm_op_seae.DBEdit41DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxDCno do begin
close;
Prepared:=true;
Parameters.ParamByName('@hblhead').value:=DBEdit41.text+'%';
open;
if (not IsEmpty) and (FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString<>'') then begin
lbldc.Caption:=FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString;
bsSkinPanel12.Visible:=true;
end;
end;
end;
procedure Tfrm_op_seae.DBEdit8Exit(Sender: TObject);
begin
bsSkinPanel11.Visible:=false;
end;
procedure Tfrm_op_seae.DBEdit41Exit(Sender: TObject);
begin
bsSkinPanel12.Visible:=false;
end;
procedure Tfrm_op_seae.bsSkinSpeedButton1Click(Sender: TObject);
begin
if t_op_seae2.dataset.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').isnull or (t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']='') then begin
t_op_seae2.DataSet.Edit;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end;
procedure Tfrm_op_seae.bsSkinButton31Click(Sender: TObject);
var
i:integer;
str:widestring;
begin
if t_op_seae_fen.IsEmpty then
exit;
if dxDBGrid2.SelectedCount>=0 then
begin
for i:=0 to dxDBGrid2.SelectedCount-1 do begin
t_op_seae_fen.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
if i=0 then
str:='('+''''+t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+''''
else
str:=str+','+''''+t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
end else begin
str:='('+''''+t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
str:=str+')';
// ShowMessage(str);
t_pt_fendan.close;
t_pt_fendan.sql.clear;
t_pt_fendan.sql.add('select * from t_op_seae '
+'where <20><><EFBFBD><EFBFBD> in '+str
+' order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD><EFBFBD>');
t_pt_fendan.open;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_pt_fendan1,nil,nil,nil,nil,nil,nil);
//sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae.EDI5Click(Sender: TObject);
var
EdiString:TStrings;
FileNames:String;
begin
{$IFDEF EDI}
EdiString:=TStringList.Create;
try
OpenDialog1.Execute;
FileNames:=OpenDialog1.FileName;
if FileNames<>'' then begin
t_op_seae2.Edit;
EdiString.LoadFromFile(FileNames);
NewEdiSeae(EdiString,t_op_seae2);
end;
finally
FreeAndNil(EdiString);
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.bsSkinButton45Click(Sender: TObject);
var
tempstr:widestring;
begin
if psqlstr<>'' then begin
tempstr:=psqlstr;
t_op_seae.close;
if t_op_seae.sql.Text<>'' then
psqlstr:=t_op_seae.sql.Text;
t_op_seae.sql.clear;
t_op_seae.sql.add(tempstr);
t_op_seae.Open;
end;
end;
procedure Tfrm_op_seae.wwDBComboBox9DropDown(Sender: TObject);
var
aQuery:TAdoQuery;
begin
wwDBComboBox9.Items.Clear;
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString='' then begin
exit;
end;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
close;sql.Clear;
sql.Add('select <20><>Դ<EFBFBD><D4B4>ϸ from t_code_source_dl where ҵ<><D2B5><EFBFBD><EFBFBD>Դ='''+t_op_seae2.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString+''' order by <20><>Դ<EFBFBD><D4B4>ϸ ');
open;
first;
while not eof do begin
wwDBComboBox9.Items.Add(FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString);
next;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_op_seae.RxDBLookupCombo31Change(Sender: TObject);
begin
t_op_seae2.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString:='';
end;
procedure Tfrm_op_seae.wwDBComboBox9KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;
procedure Tfrm_op_seae.N103Click(Sender: TObject);
begin
//ǿ<>ƴ<EFBFBD>д
if t_op_seae2.dataset.state in [dsedit,dsinsert] then t_op_seae2.dataset.post;
if t_op_seae2.dataset.IsEmpty then exit;
t_op_seae2.DataSet.Edit;
t_op_seae2.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><>ͷ').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><>ͷ').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27>ֵ<EFBFBD><D6B5>б<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27>ֵ<EFBFBD><D6B5>б<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString);
t_op_seae2.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_seae2.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString);
t_op_seae2.DataSet.post;
end;
procedure Tfrm_op_seae.N105Click(Sender: TObject);
var
can_do:boolean;
gdo,xdo:smallint;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>
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('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>״̬<D7B4><CCAC>');
abort;
end;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
can_do:=true;
t_ch_fee.first;
while not t_ch_fee.eof do
begin
if can_do then
begin
if (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>еķ<D0B5><C4B7><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ܷ<EFBFBD><DCB7>÷<EFBFBD><C3B7>ʣ<EFBFBD>');
exit;
end;
end;
t_ch_fee.next;
end;
gdo:=strtoint(get_parameters_value(137,'0'));
xdo:=strtoint(get_parameters_value(138,'0'));
t_ch_fee.close;
if can_do then
begin
prnlist:=true;
try
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
t_op_seae2.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if (gdo<>0) or (xdo<>0) then begin
if trim(t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then begin
if t_op_seae2.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seae2.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
end;
t_op_seae2.DataSet.post;
finally
prnlist:=false;
end;
end;
end;
procedure Tfrm_op_seae.N107Click(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
if t_op_seae2.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>'] then
salesorder_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
end;
procedure Tfrm_op_seae.N110Click(Sender: TObject);
var
str,bsno:widestring;
i:integer;
aQuery:TAdoQuery;
begin
//<2F><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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 (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
frm_piliang_seae_state:=tfrm_piliang_seae_state.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 begin
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
bsno:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
end 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_piliang_seae_state.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_piliang_seae_state.t_op_seae.open;
aQuery:=createAdoQuery;
try
with aQuery do begin
Close;sql.clear;
sql.Add('select * from t_op_state where <20><><EFBFBD><EFBFBD>='''+bsno+'''');
open;
frm_piliang_seae_state.t_op_state.LoadFromDataSet(aQuery,[]);
end;
finally
FreeAndNil(aQuery);
end;
frm_piliang_seae_state.ShowModal;
finally
t_op_seae.EnableControls;
frm_piliang_seae_state.Free;
frm_piliang_seae_state:=nil;
end;
end;
procedure Tfrm_op_seae.N112Click(Sender: TObject);
var
str:widestring;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬
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_piliang_seae_state:=tfrm_piliang_seae_state.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_piliang_seae_state.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_piliang_seae_state.t_op_seae.open;
frm_piliang_seae_state.ShowModal;
finally
t_op_seae.EnableControls;
frm_piliang_seae_state.Free;
frm_piliang_seae_state:=nil;
end;
end;
procedure Tfrm_op_seae.N114Click(Sender: TObject);
begin
try
if not assigned(frm_op_seae_history) then
frm_op_seae_history:=tfrm_op_seae_history.Create (self);
frm_op_seae_history.op_type.text:='1';
frm_op_seae_history.t_do_bill.Enabled:=false;
frm_op_seae_history.t_do_bill.DataSet:=t_op_seae2.dataset;
frm_op_seae_history.t_do_bill.Enabled:=true;
frm_op_seae_history.ShowModal;
finally
frm_op_seae_history.free;
frm_op_seae_history:=nil;
end;
end;
procedure Tfrm_op_seae.EDI6Click(Sender: TObject);
begin
{$IFDEF EDI}
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_yd) then
frm_op_seae_edi_yd:=tfrm_op_seae_edi_yd.Create(application);
frm_op_seae_edi_yd.ShowModal;
finally
frm_op_seae_edi_yd.free;
frm_op_seae_edi_yd:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.bsSkinButton46Click(Sender: TObject);
begin
if t_op_fangdan.IsEmpty then t_op_fangdan.Insert;
end;
procedure Tfrm_op_seae.t_op_fangdanBeforeEdit(DataSet: TDataSet);
begin
// op_befor_post(t_op_seae,'0001');
end;
procedure Tfrm_op_seae.t_op_fangdanBeforeInsert(DataSet: TDataSet);
begin
// op_befor_post(t_op_seae,'0001');
end;
procedure Tfrm_op_seae.t_op_fangdanAfterInsert(DataSet: TDataSet);
begin
dataset.FieldByName('<27>ŵ<EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD>ŵ<EFBFBD>';
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime:=date;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬').AsString:='û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬').AsString:='û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seae.EDI7Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.EDI8Click(Sender: TObject);
begin
{$IFDEF EDI}
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_zh) then
frm_op_seae_edi_zh:=tfrm_op_seae_edi_zh.Create(application);
frm_op_seae_edi_zh.ShowModal;
finally
frm_op_seae_edi_zh.free;
frm_op_seae_edi_zh:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.N120Click(Sender: TObject);
var
inifile1:Tinifile;
begin
bsSkinGroupBox12.Visible:=true;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','webmsg',bsSkinGroupBox12.Visible);
inifile1.free;
end;
procedure Tfrm_op_seae.N122Click(Sender: TObject);
var
inifile1:Tinifile;
begin
bsSkinGroupBox12.Visible:=false;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','webmsg',bsSkinGroupBox12.Visible);
inifile1.free;
end;
procedure Tfrm_op_seae.DBGrid1DblClick(Sender: TObject);
begin
if not t_op_msg.Active then exit;
if t_op_msg.IsEmpty then exit;
if (t_op_msg.FieldByName('<27><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>').AsString='<27><><EFBFBD><EFBFBD><EFBFBD>˵ֱ<CBB5><D6B1><EFBFBD><EFBFBD><EFBFBD>Ϣ') then begin
frm_op_msg_ydbg:=Tfrm_op_msg_ydbg.create(self);
try
frm_op_msg_ydbg.t_op_msg_ydbg.close;
frm_op_msg_ydbg.t_op_msg_ydbg.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
frm_op_msg_ydbg.t_op_msg_ydbg.open;
frm_op_msg_ydbg.ShowModal;
finally
freeandnil(frm_op_msg_ydbg);
end;
end else if (t_op_msg.FieldByName('<27><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>').AsString='<27><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD><EFBFBD><EFBFBD>Ϣ') then begin
frm_op_msg_bg:=Tfrm_op_msg_bg.create(self);
try
frm_op_msg_bg.t_op_msg_bg.close;
frm_op_msg_bg.t_op_msg_bg.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
frm_op_msg_bg.t_op_msg_bg.open;
frm_op_msg_bg.ShowModal;
finally
freeandnil(frm_op_msg_bg);
end;
end;
end;
procedure Tfrm_op_seae.bsSkinSpeedButton2Click(Sender: TObject);
var i:Integer;
begin
//<2F><>ȡ<EFBFBD>˵ֱ<CBB5><D6B1><EFBFBD><EFBFBD><EFBFBD>Ϣ
if dxdbgrid1.SelectedCount>=1 then
begin
for i:=0 to dxdbgrid1.SelectedCount-1 do
begin
t_op_seae2.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
// getczwebmsg(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,Trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString),t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
getwebmsg(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
getwebmsg_new(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
getqqctuydfx(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
end;
end;
t_op_msg.Requery();
showmessage('<27><>ѯ<EFBFBD><D1AF><EFBFBD>ϣ<EFBFBD>');
end;
procedure Tfrm_op_seae.EDI9Click(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_zt) then
frm_op_seae_edi_zt:=tfrm_op_seae_edi_zt.Create(application);
frm_op_seae_edi_zt.ShowModal;
finally
frm_op_seae_edi_zt.free;
frm_op_seae_edi_zt:=nil;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo16KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker17);
end;
procedure Tfrm_op_seae.wwDBLookupCombo16Change(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>',wwDBLookupCombo16.text,[]) then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo17Change(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>',wwDBLookupCombo17.text,[]) then
begin
t_op_seae2.DataSet['Ŀ<>ĵش<C4B5><D8B4><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=wwDBLookupCombo17.text;
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo3Change(Sender: TObject);
begin
if t_op_seae2.DataSet=nil then
exit;
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
begin
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo3.text,[]) then
begin
t_op_seae2.DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=frm_data_share.t_code_disport.fieldbyname('EDI<44><49><EFBFBD><EFBFBD>').asString;
end;
end;
end;
procedure Tfrm_op_seae.N126Click(Sender: TObject);
var
aQuery:TAdoQuery;
begin
//<2F>ƺ<EFBFBD><C6BA>κ͸ĸ۴<C4B8><DBB4><EFBFBD>
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
if TMenuItem(sender).Tag=1 then begin
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>Ʊҵ<C6B1><D2B5>Ҫ<EFBFBD>ƺ<EFBFBD><C6BA><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then exit;
t_op_seae2.DataSet.Edit;
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ųɱ<C5B3>').AsFloat:=1;
t_op_seae2.DataSet.post;
ins_op_seae_th('t_op_seae',t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,true,false);
t_op_seae2.DataSet.Edit;
t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']+'T';
t_op_seae2.DataSet.post;
end else begin
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>Ʊҵ<C6B1><D2B5>Ҫ<EFBFBD>ĸ<EFBFBD><C4B8><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then exit;
t_op_seae2.DataSet.Edit;
t_op_seae2.DataSet.post;
ins_op_seae_th('t_op_seae',t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,false,true);
t_op_seae2.DataSet.Edit;
t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']+'G';
t_op_seae2.DataSet.post;
end;
updatesaleorderwt(t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>'],t_op_seae2.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>'],TMenuItem(sender).Tag);
aQuery:=CreateAdoQuery;
try
with aQuery do begin
close;SQL.clear;
sql.Add('select * from t_ch_fee where (<28><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' or <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'') and <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
open;
if not IsEmpty then begin
first;
while not eof do begin
edit;
fieldbyname('<27><><EFBFBD><EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
post;
next;
end;
end;
end;
finally
freeandnil(aQuery);
end;
if TMenuItem(sender).Tag=1 then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ƺ<EFBFBD><C6BA>Σ<EFBFBD>');
Send_op_do('<27>ƺ<EFBFBD><C6BA><EFBFBD> ί<>б<EFBFBD><D0B1><EFBFBD>:'+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').AsString,'72',
trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString),
trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString),
t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
end
else
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>Ѹĸۣ<C4B8>');
end;
end;
procedure Tfrm_op_seae.EDI10Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
if t_op_ams.Active then
if t_op_ams.State in [dsinsert,dsedit] then t_op_ams.Post;
if t_op_edictn.Active then
if t_op_edictn.State in [dsinsert,dsedit] then t_op_edictn.Post;
try
if not assigned(frm_op_seae_edi_hyundai) then
frm_op_seae_edi_hyundai:=tfrm_op_seae_edi_hyundai.Create(application);
if assigned(frm_op_seae_assistant) then
frm_op_seae_edi_hyundai.as_id:=frm_op_seae_assistant.t_op_seae_assistant.fieldbyname('as_id').AsInteger;
frm_op_seae_edi_hyundai.ShowModal;
finally
frm_op_seae_edi_hyundai.free;
frm_op_seae_edi_hyundai:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.t_op_edictnAfterInsert(DataSet: TDataSet);
begin
t_op_edictn.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:=t_op_edictn.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
end;
procedure Tfrm_op_seae.bsSkinSpeedButton3Click(Sender: TObject);
var
aQuery:TAdoQuery;
begin
//EDI<44><49>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ӣ<EFBFBD><D3A3><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD>еļ<D0B5>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>
aQuery:=CreateAdoQuery;
try
with aquery do begin
close;sql.clear;
sql.Add('select * from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
open;
if not IsEmpty then begin
first;
while not eof do begin
t_op_edictn.Insert;
t_op_edictn['<27><><EFBFBD><EFBFBD>']:=aquery['<27><><EFBFBD><EFBFBD>'];
t_op_edictn['<27><><EFBFBD><EFBFBD>']:=aquery['<27><><EFBFBD><EFBFBD>'];
t_op_edictn['<27><><EFBFBD><EFBFBD>']:=aquery['<27><><EFBFBD><EFBFBD>'];
t_op_edictn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aquery['Ʒ<><C6B7>'];
t_op_edictn['<27><>װ']:=aquery['<27><>װ'];
t_op_edictn['<27><>װ']:=aquery['<27><>װ'];
t_op_edictn['HTS']:=t_op_seae2.DataSet['<27><><EFBFBD>䷽ʽ'];
t_op_edictn.post;
next;
end;
end;
end;
finally
freeandnil(aQuery);
end;
end;
procedure Tfrm_op_seae.bsSkinSpeedButton4Click(Sender: TObject);
var
afield : variant;
i: Integer;
begin
if t_op_edictn.state in [dsedit,dsinsert] then t_op_edictn.Post;
if t_op_edictn.IsEmpty then
begin
t_op_edictn.append;
end
else
begin
afield := vararraycreate([0,t_op_edictn.fieldcount-1],varvariant);
for i := 0 to (t_op_edictn.fieldcount-1) do
begin
afield[i] :=t_op_edictn.fields[i].value ;
end;
t_op_edictn.append;
for i := 0 to (t_op_edictn.fieldcount-1) do
begin
if t_op_edictn.fields[i].FieldName<>'ctn_id' then
t_op_edictn.fields[i].value := afield[i] ;
end;
end;
end;
procedure Tfrm_op_seae.bsSkinSpeedButton5Click(Sender: TObject);
begin
if t_op_edictn.IsEmpty then exit;
t_op_edictn.Delete;
end;
procedure Tfrm_op_seae.dxDBGrid1CustomDraw(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 uppercase(ANode.Strings[dxDBGrid1Column123.Index])='TRUE' then begin
AFont.Style:=AFont.Style+[fsStrikeOut];
AColor:=clFuchsia;
exit;
end;
end;
function Tfrm_op_seae.DelWebData:boolean;
var aAdoQuery:TAdoQuery;
begin
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('delete from t_op_seae where <20><><EFBFBD><EFBFBD>='''+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
frm_main.qryweb.ExecSQL;
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('delete from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>='''+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
frm_main.qryweb.ExecSQL;
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('delete from t_ch_fee where <20><><EFBFBD><EFBFBD>='''+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
frm_main.qryweb.ExecSQL;
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('delete from t_op_state where <20><><EFBFBD><EFBFBD>='''+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
frm_main.qryweb.ExecSQL;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Update t_op_seae Set upload=0');
SQL.Add('Where <20><><EFBFBD><EFBFBD>=:BsNo');
Parameters.ParamByName('BsNo').Value:=frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
ExecSQL;
finally
FreeAndNil(aAdoQuery);
end;
end;
procedure Tfrm_op_seae.SubmitToWebMasterBills(BsNo:string); //<2F>ύ<EFBFBD><E1BDBB>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2>web
var aAdoQuery:TAdoQuery;
i:Integer;
begin
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('Delete from t_op_seae where <20><><EFBFBD><EFBFBD>='''+BsNo+'''');
frm_main.qryweb.ExecSQL;
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('select * from t_op_seae where <20><><EFBFBD><EFBFBD>='''+BsNo+'''');
frm_main.qryweb.open;
Close;SQL.Clear;
SQL.Add('Select * From t_op_seae');
SQL.Add('Where <20><><EFBFBD><EFBFBD>=:BsNo');
Parameters.ParamByName('BsNo').Value:=BsNo;
Open;First;
while not Eof do
begin
frm_main.qryweb.Insert;
for i:=0 to frm_main.qryweb.FieldCount-1 do
begin
if FindField(frm_main.qryweb.Fields[i].fieldname)<>nil then
frm_main.qryweb.Fields[i].Value:=fieldbyname(frm_main.qryweb.Fields[i].FieldName).Value;
end;
frm_main.qryweb.post;
Next;
end;
Close;SQL.Clear;
SQL.Add('Update t_op_seae Set upload=1');
SQL.Add('Where <20><><EFBFBD><EFBFBD>=:BsNo');
Parameters.ParamByName('BsNo').Value:=BsNo;
ExecSQL;
finally
FreeAndNil(aAdoQuery);
end;
end;
procedure Tfrm_op_seae.SubmitToWebCustomerBills(BsNo:string); //<2F>ύ<EFBFBD><E1BDBB>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2>web
var aAdoQuery:TAdoQuery;
i:Integer;
begin
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('Delete from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>='''+BsNo+'''');
frm_main.qryweb.ExecSQL;
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>='''+BsNo+'''');
frm_main.qryweb.open;
Close;SQL.Clear;
SQL.Add('Select * From t_op_seae_assistant');
SQL.Add('Where <20><><EFBFBD><EFBFBD>=:BsNo');
Parameters.ParamByName('BsNo').Value:=BsNo;
Open;First;
while not Eof do
begin
frm_main.qryweb.Insert;
for i:=0 to frm_main.qryweb.FieldCount-1 do
begin
if (FindField(frm_main.qryweb.Fields[i].fieldname)<>nil) and (frm_main.qryweb.Fields[i].FieldName<>'AS_ID') then
frm_main.qryweb.Fields[i].Value:=fieldbyname(frm_main.qryweb.Fields[i].FieldName).Value;
end;
frm_main.qryweb.post;
Next;
end;
finally
FreeAndNil(aAdoQuery);
end;
end;
procedure Tfrm_op_seae.SubmitToWebFee(BsNo:string);
var
i:integer;
aADOQuery:TAdoQuery;
begin
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('Delete from t_ch_fee where <20><><EFBFBD><EFBFBD>='''+BsNo+'''');
frm_main.qryweb.ExecSQL;
frm_main.qryweb.close;
frm_main.qryweb.sql.clear;
frm_main.qryweb.sql.add('Select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='''+BsNo+'''');
frm_main.qryweb.open;
aADOQuery:=CreateADOQuery;
with aADOQuery do
try
close;sql.clear;
sql.add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>״̬=''<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'' And <20><><EFBFBD><EFBFBD>=''<27><>''');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
Open;First;
while not Eof do
begin
frm_main.qryweb.Insert;
for i:=0 to frm_main.qryweb.FieldCount-1 do
begin
if FindField(frm_main.qryweb.Fields[i].fieldname)<>nil then
frm_main.qryweb.Fields[i].Value:=fieldbyname(frm_main.qryweb.Fields[i].FieldName).Value;
end;
frm_main.qryweb.post;
Next;
end;
Close;Sql.Clear;
Sql.Add('Update t_ch_fee Set <20>ύ=1 where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>״̬=''<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'' And <20><><EFBFBD><EFBFBD>=''<27><>''');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
ExecSQL;
finally
FreeAndNil(aADOQuery);
end;
end;
procedure Tfrm_op_seae.SubmitToWebState(BsNo:string);
var
str:string;
i:integer;
aADOQuery:TAdoQuery;
begin
with frm_main.qryweb do
begin
close;
sql.clear;
sql.add('Delete from t_op_state where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
ExecSQL;
close;
sql.clear;
sql.add('Select * from t_op_state where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
Open;
end;
aADOQuery:=CreateADOQuery;
with aADOQuery do
try
Close;sql.clear;
sql.add('Update t_op_state set ȷ<><C8B7>ʱ<EFBFBD><CAB1>=:ADate, ȷ<><C8B7><EFBFBD><EFBFBD>=:aemp where <20><><EFBFBD><EFBFBD>=:BsNo and <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1');
Parameters.ParamByName('BsNo').Value:=BsNo;
Parameters.ParamByName('ADate').Value:=FormatDateTime('YYYY-MM-DD hh:mm:ss',Now);
Parameters.ParamByName('aemp').Value:=employee;
ExecSQL;
Close;sql.clear;
sql.add('select * from t_op_state where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BsNo;
open;First;
while not Eof do
begin
frm_main.qryweb.Insert;
for i:=0 to frm_main.qryweb.FieldCount-1 do
begin
if FindField(frm_main.qryweb.Fields[i].fieldname)<>nil then
frm_main.qryweb.Fields[i].Value:=fieldbyname(frm_main.qryweb.Fields[i].FieldName).Value;
end;
frm_main.qryweb.post;
Next;
end;
finally
FreeAndNil(aADOQuery);
end;
end;
procedure Tfrm_op_seae.N133Click(Sender: TObject);
var k:integer;
begin
//<2F><><EFBFBD>ϲ<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ⣬<DDBF>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>Ʊҵ<C6B1><D2B5><EFBFBD>ύ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ϲ<EFBFBD>ѯ<EFBFBD><D1AF>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then exit;
try
if frm_op_seae.dxdbgrid1.SelectedCount>0 then
begin
for k:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do
begin
frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[k]));
SubmitToWebMasterBills(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
SubmitToWebCustomerBills(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
SubmitToWebFee(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
SubmitToWebState(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
end;
end
else
begin
SubmitToWebMasterBills(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
SubmitToWebCustomerBills(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
SubmitToWebFee(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
SubmitToWebState(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
end;
finally
end;
end;
procedure Tfrm_op_seae.N135Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
k:integer;
begin
//<2F><><EFBFBD>ϲ<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ⣬ȡ<E2A3AC><C8A1><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>
//if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>Ʊҵ<C6B1><D2B5><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ϲ<EFBFBD>ѯ<EFBFBD><D1AF>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then exit;
if frm_op_seae.dxdbgrid1.SelectedCount>0 then
begin
for k:=0 to frm_op_seae.dxdbgrid1.SelectedCount-1 do
begin
frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxdbgrid1.selectedrows[k]));
DelWebData;
end;
end
else
begin
DelWebData;
end;
end;
procedure Tfrm_op_seae.bsSkinButton48Click(Sender: TObject);
var
FileStream:TFileStream;
fsize:double;
begin
//<2F>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>
op_befor_post(t_op_seae,'0001');
if OpenDialog1.Execute then begin
FileStream:=TFileStream.Create(Opendialog1.FileName,fmopenRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
try
fsize:=FileStream.size;
finally
freeandnil(FileStream);
end;
if fsize>500000 then begin
MessageDlg('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>500K<30><4B><EFBFBD><EFBFBD>',mtWarning,[mbyes],0);
end
else UpLoadPro(Opendialog1.FileName);
end else exit ;
end;
procedure Tfrm_op_seae.bsSkinButton49Click(Sender: TObject);
begin
//<2F><><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>
if SaveDialog1.Execute then begin
DownLoadPro(Savedialog1.FileName+t_op_file.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end else exit ;
end;
procedure Tfrm_op_seae.bsSkinButton50Click(Sender: TObject);
var
arr: array[0..MAX_PATH] of Char;
num: DWORD;
tmpfile:string ;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
try
GetTempPath(MAX_PATH, arr);
tmpfile:=arr+t_op_file.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring ;
DownLoadPro(tmpfile) ;
ShellExecute(Handle, nil, pchar(tmpfile), nil, nil, SW_NORMAL);
except
showmessage('<27><><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӵȴ<D3B5><C8B4><EFBFBD><EFBFBD><EFBFBD>');
end ;
end;
procedure Tfrm_op_seae.bsSkinButton51Click(Sender: TObject);
begin
//ɾ<><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
op_befor_post(t_op_seae,'0001');
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
t_op_file.delete ;
end;
procedure Tfrm_op_seae.DownLoadPro(fname: string);
const
MaxBufSize=$F000;
var
myfilename:string;//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
myfileStream,exeBlobStream:TStream;
Count,BufSize,N: Integer;
Buffer:PChar;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
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.Update;
myfilename:=FName ;
with t_op_file do
begin
myfilename:=myfilename ; //+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring ;
myfileStream :=TFileStream.Create(myfilename,fmCreate);//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
try //SaveToStream(Stream);
ExeBlobStream:=CreateBlobStream(FieldByName('<27><><EFBFBD><EFBFBD>'),bmRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD>ȡ<EFBFBD>ü<EFBFBD>¼
Count:=0;
try
if Count=0 then
begin
ExeBlobStream.Position:=0;
Count:=ExeBlobStream.Size;//showmessage(inttostr(count));
end;
if Count>MaxBufSize then BufSize:=MaxBufSize else BufSize:=Count;
GetMem(Buffer,BufSize);
frm_sys_progress.bsSkinGauge1.MaxValue:=(Count div BufSize)+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
try
while Count<>0 do
begin
if Count>BufSize then N:=BufSize else N:=Count;
ExeBlobStream.ReadBuffer(Buffer^,N);//<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
MyFileStream.WriteBuffer(Buffer^,N);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD>ļ<EFBFBD>
Dec(Count,N);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
finally
FreeMem(Buffer,BufSize);
end;
finally
ExeBlobStream.Free;
end;
finally
myfileStream.Free;
end;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
end;
procedure Tfrm_op_seae.UpLoadPro(fname: string);
const
BufSize=$F000;
var
Counter, N: Integer;
Buffer: PAnsiChar;
FieldStrm: TStream;
ExeFileStream:TFileStream;
size_tmp: Double;
filename,fileExt:string ;
begin
//<2F>ϴ<EFBFBD><CFB4>ļ<EFBFBD>
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.Update;
filename:=ExtractFileName(fname) ;
fileExt:=ExtractFileExt(filename) ;
ExeFileStream:=TFileStream.Create(fname,fmopenRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
with t_op_file do
begin
Open;
append;
try
FieldStrm := CreateBlobStream(FieldByName('<27><><EFBFBD><EFBFBD>'),bmWrite);
GetMem(Buffer,BufSize);
try
Counter := ExeFileStream.Size;
size_tmp :=ExeFileStream.Size;
frm_sys_progress.bsSkinGauge1.MaxValue:=(Counter div BufSize)+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
while Counter<>0 do
begin
if Counter>BufSize then N :=BufSize else N:=Counter;
ExeFileStream.ReadBuffer(Buffer^,N);
FieldStrm.WriteBuffer(Buffer^, N);
Dec(Counter, N);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
// Application.ProcessMessages;
end;
finally
FreeMem(Buffer,BufSize);
FieldStrm.Free;
end;
FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=filename;
FieldByName('<27><>С').AsFloat:=size_tmp;
FieldByName('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>').AsDateTime:=now();
FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=employee;
FieldByName('<27><><EFBFBD><EFBFBD>').Asstring:=fileExt;
Post;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',MB_OK+MB_IconInformation);
finally
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
ExeFileStream.Free;
end;
end;
end;
procedure Tfrm_op_seae.t_op_fileBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_seae,'0001');
end;
procedure Tfrm_op_seae.N136Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
//<2F>˲մ<CBB2><D5B4><EFBFBD><EFBFBD><EFBFBD>ͬʱ<CDAC><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
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>˲գ<CBB2><D5A3><EFBFBD>');
exit;
end;
end;
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>Ʊҵ<C6B1><D2B5>Ҫ<EFBFBD>˲<EFBFBD><CBB2><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then exit;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
sql.Add('Update t_op_seae set <20>Ƿ<EFBFBD><C7B7>˲<EFBFBD>=1');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
ExecSQL;
finally
Free;
end;
{
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=1;
t_op_seae2.DataSet.post;
}
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>').AsBoolean then
updatesaleorder(t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>'],'<27><><EFBFBD>˲<EFBFBD>');
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
t_ch_fee.close;
exit;
end else begin
t_op_seae2.DataSet.delete;
end;
TADOQuery(t_op_seae2.DataSet).Requery();
end;
procedure Tfrm_op_seae.N138Click(Sender: TObject);
begin
//ȡ<><C8A1><EFBFBD>˲<EFBFBD>,ͬʱ<CDAC><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>Ʊҵ<C6B1><D2B5>Ҫȡ<D2AA><C8A1><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then exit;
modify_all:=true;
try
t_op_seae2.DataSet.edit;
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
t_op_seae2.DataSet.post;
finally
modify_all:=false;
end;
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>').AsBoolean then
updatesaleorder(t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>'],'<27><><EFBFBD>ܶ<EFBFBD><DCB6><EFBFBD>');
end;
procedure Tfrm_op_seae.dxDBGrid1Column129CustomDraw(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('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column129.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae.EDI11Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
if t_op_ams.Active then
if t_op_ams.State in [dsinsert,dsedit] then t_op_ams.Post;
if t_op_edictn.Active then
if t_op_edictn.State in [dsinsert,dsedit] then t_op_edictn.Post;
try
if not assigned(frm_op_seae_edi_WaiDai) then
frm_op_seae_edi_WaiDai:=Tfrm_op_seae_edi_WaiDai.Create(application);
frm_op_seae_edi_WaiDai.ShowModal;
finally
frm_op_seae_edi_WaiDai.free;
frm_op_seae_edi_WaiDai:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.wwDBLookupCombo52Exit(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 //<2F><><EFBFBD><EFBFBD>,ʡ<><CAA1>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C>ۿ<EFBFBD>ȫ<EFBFBD><C8AB>,<2C>ۿڴ<DBBF><DAB4><EFBFBD>
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
t_op_seae2.DataSet['<27>˵ֹ<CBB5>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
if (t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').IsNull) or (trim(t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString)='') then
t_op_seae2.DataSet['Ŀ<>ĵ<EFBFBD>']:=wwDBLookupCombo52.text;
if (t_op_seae2.DataSet.FieldByName('Ŀ<>ĵش<C4B5><D8B4><EFBFBD>').IsNull) or (trim(t_op_seae2.DataSet.FieldByName('Ŀ<>ĵش<C4B5><D8B4><EFBFBD>').AsString)='') then
t_op_seae2.DataSet['Ŀ<>ĵش<C4B5><D8B4><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end else begin
if (t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').IsNull) or (trim(t_op_seae2.DataSet.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString)='') then
t_op_seae2.DataSet['Ŀ<>ĵ<EFBFBD>']:=wwDBLookupCombo52.text;
end;
end;
end;
procedure Tfrm_op_seae.EDIPIL1Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.dbgrdh1Columns4EditButtons0Click(Sender: TObject;
var Handled: Boolean);
begin
frm_main.view_momo(t_op_edictn1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae.ZIMEDI1Click(Sender: TObject);
begin
{$IFDEF EDI}
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_zim) then
frm_op_seae_edi_zim:=tfrm_op_seae_edi_zim.Create(application);
frm_op_seae_edi_zim.ShowModal;
finally
frm_op_seae_edi_zim.free;
frm_op_seae_edi_zim:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.wwDBLookupCombo3Exit(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>',wwDBLookupCombo3.text,[]) then
begin
t_op_seae2.DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae.bsSkinButton52Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><>'+''''+'Ŀ<><C4BF>'+'''';
if Trim(bsSkinEdit1.text)<>''then
begin
str:=str+' and (<28>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+bsSkinEdit1.text+'%'+''' or <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB> like '+''''+'%'+bsSkinEdit1.text+'%'+''')';
end;
str:=str+'and ί<>е<EFBFBD>λ=1';
t_crm_client.close;
t_crm_client.sql.clear;
t_crm_client.sql.add('select * from t_crm_client '+str+' and '+open_data('0008','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27>ͷ<EFBFBD>Ա','no','no')+' order by <20><><EFBFBD><EFBFBD>');
t_crm_client.open;
end;
procedure Tfrm_op_seae.bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
IF key=#13 then
begin
key:=#0;
bsSkinButton52Click(Sender);
end;
end;
procedure Tfrm_op_seae.bsSkinButton53Click(Sender: TObject);
begin
bsSkinPanel15.Visible:=False;
end;
procedure Tfrm_op_seae.WMDROPFILES(var Msg: TMessage);
var
FilesCount: Integer; // <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>
i: Integer;
FileName: array[0..255] of Char;
begin
// <20><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>
FilesCount := DragQueryFile(Msg.WParam, $FFFFFFFF, nil, 0);
// <20><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
for i := 0 to FilesCount - 1 do
begin
DragQueryFile(Msg.WParam, i, FileName, 256);
ShowMessage(FileName);
end;
// <20>ͷ<EFBFBD>
DragFinish(Msg.WParam);
end;
procedure Tfrm_op_seae.FormCreate(Sender: TObject);
begin
Letter_flag:=0;
NYKEDI1.Visible:=strtobool(get_parameters_value(200,'false')); //nyk
EDI9.Visible:=strtobool(get_parameters_value(201,'false')); //<2F><>ͨ
EDI7.Visible:=strtobool(get_parameters_value(202,'false')); //<2F><>Զ
CCLEDI1.Visible:=strtobool(get_parameters_value(203,'false')); //CCL EDI
EDI6.Visible:=strtobool(get_parameters_value(204,'false')); //Զ<><D4B6>EDI
EDI1.Visible:=strtobool(get_parameters_value(205,'false')); //<2F><><EFBFBD>»<EFBFBD>EDI
CMAEDI1.Visible:=strtobool(get_parameters_value(206,'false')); //INTRA-EDI
BBEDI1.Visible:=strtobool(get_parameters_value(207,'false')); //BB-EDI
EDI3.Visible:=strtobool(get_parameters_value(208,'false')); //CSAV EDI
EDI4.Visible:=strtobool(get_parameters_value(209,'false')); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI
EDI8.Visible:=strtobool(get_parameters_value(210,'false')); //<2F>к<EFBFBD>EDI
EDI10.Visible:=strtobool(get_parameters_value(211,'false')); //<2F>ִ<EFBFBD><D6B4>̴<EFBFBD>EDI
EDI5.Visible:=strtobool(get_parameters_value(212,'false')); //EDI<44><49><EFBFBD><EFBFBD>
EDI11.Visible:=strtobool(get_parameters_value(213,'false')); //<2F><><EFBFBD><EFBFBD> EDI
EDIPIL1.Visible:=strtobool(get_parameters_value(214,'false')); //EDI PIL
ZIMEDI1.Visible:=strtobool(get_parameters_value(215,'false')); //<2F><>ͨ EDI
EDI12.Visible:=strtobool(get_parameters_value(216,'false')); //<2F><><EFBFBD><EFBFBD> EDI
MSKEDI1.Visible:=strtobool(get_parameters_value(217,'false')); //MSK EDI
N168.Visible:=strtobool(get_parameters_value(218,'false')); //װ<>䵥
N170.Visible:=strtobool(get_parameters_value(219,'false')); //<2F>к<EFBFBD><D0BA>ֶ<EFBFBD>
EDI13.Visible:=strtobool(get_parameters_value(220,'false')); //<2F><>ͨ EDI
MSC1.Visible:=strtobool(get_parameters_value(221,'false')); //MSC
EDI14.Visible:=strtobool(get_parameters_value(222,'false')); //<2F><><EFBFBD><EFBFBD>
SI1.Visible:=strtobool(get_parameters_value(223,'false')); //<2F><><EFBFBD><EFBFBD>
EDI15.Visible:=strtobool(get_parameters_value(224,'false')); //
N176.Visible:=strtobool(get_parameters_value(225,'false')); //
APLEDI1.Visible:=strtobool(get_parameters_value(226,'false')); //
end;
procedure Tfrm_op_seae.bsSkinDBGrid1DblClick(Sender: TObject);
begin
if not t_crm_client.IsEmpty then
begin
t_op_seae2.DataSet.Edit;
t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString:=t_crm_client.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
t_op_seae2.DataSet.Post;
end;
bsSkinPanel15.Visible:=False;
end;
procedure Tfrm_op_seae.bsSkinButton54Click(Sender: TObject);
begin
try
frm_crm_Client:=Tfrm_crm_client.Create (application);
frm_crm_Client.bsSkinButton1Click(Sender);
frm_crm_Client.ShowModal;
finally
frm_crm_Client.Free;
frm_crm_Client:=nil;
end;
end;
procedure Tfrm_op_seae.bsSkinButton56Click(Sender: TObject);
var
aQuery:TADOQuery;
book1:Tbookmark;
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('update t_op_seae set FEE2=1 where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
book1:=t_op_seae2.DataSet.GetBookmark;
TADOQuery(t_op_seae2.DataSet).Requery();
t_op_seae2.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_op_seae.bsSkinButton55Click(Sender: TObject);
var
aQuery:TADOQuery;
book1:Tbookmark;
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('update t_op_seae set FEE=1 where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
book1:=t_op_seae2.DataSet.GetBookmark;
TADOQuery(t_op_seae2.DataSet).Requery();
t_op_seae2.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_op_seae.bsSkinButton56KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var
aQuery:TADOQuery;
book1:Tbookmark;
begin
if t_op_seae2.DataSet=nil then
exit;
if t_op_seae2.DataSet.IsEmpty then
exit;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('update t_op_seae set FEE2=1 where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
book1:=t_op_seae2.DataSet.GetBookmark;
TADOQuery(t_op_seae2.DataSet).Requery();
t_op_seae2.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_op_seae.RxDBLookupCombo54Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo54);
end;
procedure Tfrm_op_seae.EDI12Click(Sender: TObject);
begin
{$IFDEF EDI}
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_jc) then
frm_op_seae_edi_jc:=tfrm_op_seae_edi_jc.Create(application);
frm_op_seae_edi_jc.ShowModal;
finally
frm_op_seae_edi_jc.free;
frm_op_seae_edi_jc:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.CCLEDI1Click(Sender: TObject);
begin
{$IFDEF EDI}
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_ccl) then
frm_op_seae_edi_ccl:=tfrm_op_seae_edi_ccl.Create(application);
frm_op_seae_edi_ccl.ShowModal;
finally
frm_op_seae_edi_ccl.free;
frm_op_seae_edi_ccl:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.N147Click(Sender: TObject);
var
i:integer;
aAdoQuery,bAdoQuery:TAdoQuery;
begin
//<2F><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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 not if_open('022') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if MessageDlg('ȷʵҪ<CAB5>ύѡ<E1BDBB><D1A1><EFBFBD><EFBFBD>'+inttostr(dxDBGrid1.SelectedCount)+'Ʊȫ<C6B1><C8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)<>mryes then
exit;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
aAdoQuery:=CreateAdoQuery;
bAdoQuery:=CreateAdoQuery;
try
with aAdoQuery do
begin
Close;Sql.Clear;
Sql.Add('Select * from t_ch_fee');
Sql.Add('Where <20><><EFBFBD><EFBFBD>=:bsno and <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬''');
end;
with bAdoQuery do
begin
Close;Sql.Clear;
Sql.Add('update t_op_seae set <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
Sql.Add('Where <20><><EFBFBD><EFBFBD>=:bsno ');
end;
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('bsno').value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
aAdoQuery.Open;
fee_update_all_pl('1',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,t_op_seae.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString,'<27><>',aAdoQuery);
bAdoQuery.Close;
bAdoQuery.Parameters.ParamByName('bsno').value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
bAdoQuery.ExecSQL;
end;
finally
t_op_seae.EnableControls;
aAdoQuery.Free;
end;
end;
procedure Tfrm_op_seae.N149Click(Sender: TObject);
var
i:integer;
aAdoQuery:TAdoQuery;
begin
//<2F><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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 not if_open('022') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if MessageDlg('ȷʵҪ<CAB5>ύѡ<E1BDBB><D1A1><EFBFBD><EFBFBD>'+inttostr(dxDBGrid1.SelectedCount)+'ƱӦ<C6B1>շ<EFBFBD><D5B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)<>mryes then
exit;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
aAdoQuery:=CreateAdoQuery;
try
with aAdoQuery do
begin
Close;Sql.Clear;
Sql.Add('Select * from t_ch_fee');
Sql.Add('Where <20><><EFBFBD><EFBFBD>=:bsno and <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' and <20><><EFBFBD><EFBFBD>=''<27><>''');
end;
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('bsno').value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
aAdoQuery.Open;
fee_update_all_pl('1',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,t_op_seae.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString,'<27><>',aAdoQuery);
end;
finally
t_op_seae.EnableControls;
aAdoQuery.Free;
end;
end;
procedure Tfrm_op_seae.N151Click(Sender: TObject);
var
i:integer;
aAdoQuery:TAdoQuery;
begin
//<2F><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ӡ<EFBFBD>ʵ<EFBFBD>
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 not if_open('022') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if MessageDlg('ȷʵҪ<CAB5>ύѡ<E1BDBB><D1A1><EFBFBD><EFBFBD>'+inttostr(dxDBGrid1.SelectedCount)+'ƱӦ<C6B1><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)<>mryes then
exit;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
aAdoQuery:=CreateAdoQuery;
try
with aAdoQuery do
begin
Close;Sql.Clear;
Sql.Add('Select * from t_ch_fee');
Sql.Add('Where <20><><EFBFBD><EFBFBD>=:bsno and <20><><EFBFBD><EFBFBD>״̬=''¼<><C2BC>״̬'' and <20><><EFBFBD><EFBFBD>=''<27><>''');
end;
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('bsno').value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
aAdoQuery.Open;
fee_update_all_pl('1',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,t_op_seae.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString,'<27><>',aAdoQuery);
end;
finally
t_op_seae.EnableControls;
aAdoQuery.Free;
end;
end;
procedure Tfrm_op_seae.EDI13Click(Sender: TObject);
begin
{$IFDEF EDI}
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_at) then
frm_op_seae_edi_at:=tfrm_op_seae_edi_at.Create(application);
frm_op_seae_edi_at.ShowModal;
finally
frm_op_seae_edi_at.free;
frm_op_seae_edi_at:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.MSKEDI1Click(Sender: TObject);
begin
{$IFDEF EDI}
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_msk) then
frm_op_seae_edi_msk:=tfrm_op_seae_edi_msk.Create(application);
frm_op_seae_edi_msk.ShowModal;
finally
frm_op_seae_edi_msk.free;
frm_op_seae_edi_msk:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.bsSkinButton58Click(Sender: TObject);
begin
try
frm_op_module:=tfrm_op_module.Create (self);
frm_op_module.t_op_module.Parameters.ParamByName('emp').Value:=employee;
frm_op_module.t_op_module.Open;
frm_op_module.ShowModal;
finally
frm_op_module.Free;
frm_op_module:=nil;
end;
end;
procedure Tfrm_op_seae.N155Click(Sender: TObject);
var
str,bsno:widestring;
i:integer;
aQuery:TAdoQuery;
FeeItems:string;
amt,usd:Double;
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
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>Ա').AsString=employee) or (t_op_seae.FieldByName('<27>ͷ<EFBFBD>Ա').AsString=employee) then
if not ExistStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>') then
begin
if GetBillStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString) then //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
InsertSeaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>',employee,FormatDateTime('YYYY-MM-DD',Now));
if not ExistLikeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'ǩ<><C7A9>') then
UpdateMblStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>');
end
else
begin
if (Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='') or (Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') or (Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD>') or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull) then
begin
if GetCrmsales(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString
,t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,amt,usd,FeeItems) then
begin
//<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ΪƱ<CEAA><C6B1>
if MessageDlg('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ΪƱ<CEAA><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>Ϊ:'+FormatFloat('0.00;0.00;0',amt) +'<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>Ϊ:'+FormatFloat('0.00;0.00;0',USD) +'ȷʵҪ<CAB5>ŵ<EFBFBD><C5B5><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then
begin
InsertSeaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>',employee,FormatDateTime('YYYY-MM-DD',Now));
if not ExistLikeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'ǩ<><C7A9>') then
UpdateMblStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>');
end;
end
else
begin
InsertSeaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>',employee,FormatDateTime('YYYY-MM-DD',Now));
if not ExistLikeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'ǩ<><C7A9>') then
UpdateMblStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>');
end;
end
else
begin
if GetCrmsales(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString
,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,amt,usd,FeeItems) then
begin
if MessageDlg('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>Ϊ:'+FormatFloat('0.00;0.00;0',amt) +'<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>Ϊ:'+FormatFloat('0.00;0.00;0',USD) +'ȷʵҪ<CAB5>ŵ<EFBFBD><C5B5><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then
begin
InsertSeaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>',employee,FormatDateTime('YYYY-MM-DD',Now));
if not ExistLikeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'ǩ<><C7A9>') then
UpdateMblStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>');
end;
end
else
begin
InsertSeaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>',employee,FormatDateTime('YYYY-MM-DD',Now));
if not ExistLikeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'ǩ<><C7A9>') then
UpdateMblStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'֪ͨ<CDA8>ŵ<EFBFBD>');
end;
end;
end;
end;
end;
finally
t_op_seae.EnableControls;
end;
end;
procedure Tfrm_op_seae.bsSkinButton59Click(Sender: TObject);
var i : Integer;
begin
if t_op_seae2.DataSet.IsEmpty then
exit;
try
frm_op_module:=tfrm_op_module.Create(self);
frm_op_module.t_op_module.Open;
frm_op_module.t_op_module.Insert;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet1 then
begin
frm_op_module.t_op_module['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
frm_op_module.t_op_module['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_op_module.t_op_module['ί<>е<EFBFBD>λ']:=t_op_seae.FieldByName('ί<>е<EFBFBD>λ').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
frm_op_module.t_op_module['֪ͨ<CDA8><D6AA>']:=t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
frm_op_module.t_op_module['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
frm_op_module.t_op_module['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><>վ']:=t_op_seae.FieldByName('<27><>վ').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD>˸<EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD>˸<EFBFBD>').AsString;
frm_op_module.t_op_module['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_seae.FieldByName('װ<>۴<EFBFBD><DBB4><EFBFBD>').AsString;
frm_op_module.t_op_module['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['Ŀ<>ĵ<EFBFBD>']:=t_op_seae.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString;
frm_op_module.t_op_module['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString;
frm_op_module.t_op_module['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><>ͷ']:=t_op_seae.FieldByName('<27><>ͷ').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>˾']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').AsString;
frm_op_module.t_op_module['<27><>ע']:=t_op_seae.FieldByName('<27><>ע').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>').Value;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
frm_op_module.t_op_module['Ѭ<><D1AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('Ѭ<><D1AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
frm_op_module.t_op_module['<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>').Value;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
frm_op_module.t_op_module['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').Value;
frm_op_module.t_op_module['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').Value;
frm_op_module.t_op_module['<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5>']:=t_op_seae.FieldByName('<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5>').Value;
frm_op_module.t_op_module['<27>˷<EFBFBD>']:=t_op_seae.FieldByName('<27>˷<EFBFBD>').Value;
end
else
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
begin
frm_op_module.t_op_module['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
frm_op_module.t_op_module['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_op_module.t_op_module['ί<>е<EFBFBD>λ']:=t_op_seae.FieldByName('ί<>е<EFBFBD>λ').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
frm_op_module.t_op_module['֪ͨ<CDA8><D6AA>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
frm_op_module.t_op_module['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
frm_op_module.t_op_module['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><>վ']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><>վ').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD>˸<EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD>˸<EFBFBD>').AsString;
frm_op_module.t_op_module['װ<><D7B0><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('װ<>۴<EFBFBD><DBB4><EFBFBD>').AsString;
frm_op_module.t_op_module['ж<><D0B6><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['Ŀ<>ĵ<EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString;
frm_op_module.t_op_module['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString;
frm_op_module.t_op_module['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><>ͷ']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><>ͷ').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString;
frm_op_module.t_op_module['<27><><EFBFBD><EFBFBD>˾']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString;
frm_op_module.t_op_module['<27><>ע']:=frm_op_seae_assistant.t_op_seae_assistant.FieldByName('<27><>ע').AsString;
end;
// frm_op_module.t_op_module.Post;
frm_op_module.ShowModal;
finally
frm_op_module.Free;
frm_op_module:=nil;
end;
end;
procedure Tfrm_op_seae.N156Click(Sender: TObject);
var
str,bsno:widestring;
i:integer;
aQuery:TAdoQuery;
amt:Double;
begin
if t_op_seae.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
ShowMessage('û<><C3BB>ѡ<EFBFBD><D1A1>,<2C><>ѡ<EFBFBD><D1A1>');
exit;
end;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
// if t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString<>'<27><><EFBFBD><EFBFBD>' then
// begin
if GetCrmOP(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>Ա').AsString,t_op_seae.FieldByName('ί<>е<EFBFBD>λ').AsString,t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString) then //<2F><>ǩ<EFBFBD>ͻ<EFBFBD>
begin
InsertSeaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>',employee,FormatDateTime('YYYY-MM-DD',Now));
{
t_op_seae.Edit;
t_op_seae.FieldByName('<27>ᵥǩ<E1B5A5><C7A9>״̬').AsString:='<27>ᵥǩ<E1B5A5><C7A9>';
t_op_seae.Post;
}
UpdateMblStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>');
end
else
begin
if not GetStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>') then
begin
if GetStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>') then
begin
InsertSeaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>',employee,FormatDateTime('YYYY-MM-DD',Now));
UpdateMblStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>');
{
t_op_seae.Edit;
t_op_seae.FieldByName('<27>ᵥǩ<E1B5A5><C7A9>״̬').AsString:='<27>ᵥǩ<E1B5A5><C7A9>';
t_op_seae.Post;
}
end;
end;
end;
// end;
end;
finally
t_op_seae.EnableControls;
end;
end;
procedure Tfrm_op_seae.N159Click(Sender: TObject);
var i:integer;
begin
if t_op_seae.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
exit;
end;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
try
t_op_seae.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC>״̬') or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
begin
if GetopseaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)) then
begin
ShowMessage('<27><><EFBFBD><EFBFBD>״̬Ϊ:<¼<><C2BC>״̬><3E><><<3C>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>><3E><><<3C><><EFBFBD><EFBFBD><EFBFBD>ύ><3E><><<3C><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>><3E><><<3C><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>><3E>ķ<EFBFBD><C4B7>ò<EFBFBD><C3B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
end
else
begin
UpdateopseaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27><>˾<EFBFBD><CBBE>111');
end;
end
else
begin
ShowMessage('<27><><EFBFBD><EFBFBD>״̬Ϊ:'+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString+',<2C><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
end;
end;
finally
t_op_seae.EnableControls;
t_op_seae.Refresh;
end;
end;
procedure Tfrm_op_seae.bsSkinButton60Click(Sender: TObject);
var i:integer;
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
t_op_seae.DisableControls;
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC>״̬')
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
or (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
then
begin
fee_update_all('1','<27><>',frm_ch_fee_sea.fra_fee1.t_ch_accept);
fee_update_all('1','<27><>',frm_ch_fee_sea.fra_fee1.t_ch_Pay);
UpdateopseaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27><>˾<EFBFBD><CBBE>111');
{
if GetopseaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)) then
begin
ShowMessage('<27><><EFBFBD><EFBFBD>״̬Ϊ:<¼<><C2BC>״̬><3E><><<3C>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>><3E><><<3C><><EFBFBD><EFBFBD><EFBFBD>ύ><3E><><<3C><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>><3E><><<3C><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>><3E>ķ<EFBFBD><C4B7>ò<EFBFBD><C3B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
end
else
begin
fee_update_all('1','<27><>',frm_ch_fee_sea.fra_fee1.t_ch_accept);
fee_update_all('1','<27><>',frm_ch_fee_sea.fra_fee1.t_ch_Pay);
UpdateopseaeStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27><>˾<EFBFBD><CBBE>111');
end;
}
end
else
begin
ShowMessage('<27><><EFBFBD><EFBFBD>״̬Ϊ:'+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString+',<2C><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
end;
finally
t_op_seae.EnableControls;
t_op_seae.Refresh;
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.DBMemo35Click(Sender: TObject);
begin
wwDBLookupCombo48.Text:='Num:'+IntToStr(Length(DBMemo35.Lines[DBMemo35.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.wwDBComboBox16DropDown(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
if RxDBLookupCombo9.Value='' then Exit;
aAdoQuery:=CreateAdoQuery;
wwDBComboBox16.Items.Clear;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Select * from t_crm_client_linkman');
SQL.Add('where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:SNAME');
Parameters.ParamByName('SNAME').Value:=trim(RxDBLookupCombo9.Value);
Open;First;
while not Eof do
begin
wwDBComboBox16.Items.Add(Trim(FieldByName('<27><><EFBFBD><EFBFBD>').AsString));
Next;
end;
finally;
Free;
end;
end;
procedure Tfrm_op_seae.wwDBLookupCombo22Exit(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>',wwDBLookupCombo22.text,[]) then
begin
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_seae.dbedt4Exit(Sender: TObject);
begin
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
end;
procedure Tfrm_op_seae.wwDBComboBox18DropDown(Sender: TObject);
var List_Hr_Dept,List_Hr_Emp:TStringList;
AAdoQuery:TAdoQuery;
begin
List_Hr_Dept:=TStringList.Create;
List_Hr_Emp:=TStringList.Create;
List_Hr_Dept.Clear;
List_Hr_Emp.Clear;
AAdoQuery:=CreateAdoQuery;
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[])then
begin
//<2F><><EFBFBD><EFBFBD>ϰ<EFBFBD><CFB0>
List_Hr_Dept.text:=frm_data_share.t_crm_client_weituo.FieldByName('<27><><EFBFBD><EFBFBD>ϰ<EFBFBD><CFB0>').AsString;
end;
with AAdoQuery do
begin
Close;sql.Clear;
sql.Add('Select distinct <20><><EFBFBD><EFBFBD> from t_crm_client_linkman');
sql.Add('where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:SName');
Parameters.ParamByName('SName').Value:=RxDBLookupCombo1.DisplayValues[1];
Open;First;
while not eof do
begin
List_Hr_Emp.Add(Trim(FieldByName('<27><><EFBFBD><EFBFBD>').AsString));
Next;
end;
end;
try
wwDBComboBox18.Items.Clear;
wwDBComboBox19.Items.Clear;
wwDBComboBox18.Items.AddStrings(List_Hr_Dept);
wwDBComboBox19.Items.AddStrings(List_Hr_Emp);
finally
AAdoQuery.Free;
List_Hr_Dept.Free;
List_Hr_Emp.Free;
end;
end;
procedure Tfrm_op_seae.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var Shift : TShiftState;
begin
{
Shift:=KeyDataToShiftState(Msg.KeyData);
if Shift=[ssCtrl] then begin
case Msg.CharCode of
VK_F3: begin
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;
end;
end;
}
end;
procedure Tfrm_op_seae.bsSkinButton61Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton61.ClientToScreen(Point(0,bsSkinButton61.Height));
PopupMenu6.Popup(Pnt.x,Pnt.y);
{
salecrmhd:=FindProcessId('TeamViewer_7.0.12979.exe');
if salecrmhd<>0 then begin
main:=findwindow(nil,pchar('<27><>ʤ<EFBFBD>˼۹<CBBC><DBB9><EFBFBD>ϵͳ - [Զ<>̿<EFBFBD><CCBF><EFBFBD>]'));
if main<>0 then begin
setforegroundwindow(main);
end;
end else begin
ShellExecute(Application.Handle,nil,PChar(ExtractFilePath(application.ExeName)+'TeamViewer_7.0.12979.exe'),pchar(employee),pchar(emppassword),SW_HIDE);
end;
}
end;
procedure Tfrm_op_seae.bsSkinButton62Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'EDI<44><49>ע');
end;
procedure Tfrm_op_seae.bsSkinButton63Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27>ڶ<EFBFBD>֪ͨ<CDA8><D6AA>');
end;
procedure Tfrm_op_seae.bsSkinButton64Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'DOOR<4F><52>ַ');
end;
procedure Tfrm_op_seae.N161Click(Sender: TObject);
var
i:integer;
str:widestring;
aAdoQuery1:TDataSource;
aAdoQuery:TAdoQuery;
begin
if t_op_seae2.DataSet.IsEmpty then
exit;
if dxDBGrid1.SelectedCount>0 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do begin
t_op_seae2.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if i=0 then
str:='('+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+''''
else
str:=str+','+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
end else begin
str:='('+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
str:=str+')';
aAdoQuery:=CreateAdoQuery;
aAdoQuery1:=TDataSource.Create(nil);
aAdoQuery1.DataSet:=aAdoQuery;
with aAdoQuery do
try
close;
sql.clear;
sql.add('select t_op_seae.*,t_op_letter.*, t_op_letter_rh.*');
sql.add('from t_op_letter_rh,t_op_letter');
sql.add('Left Join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_op_letter.<2E><><EFBFBD><EFBFBD>');
sql.add('where t_op_letter.LE_ID=t_op_letter_rh.LE_ID');
sql.add('and t_op_letter.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD>֪ͨ'' and t_op_letter.<2E><><EFBFBD><EFBFBD> in '+str );
sql.add('order by t_op_letter.<2E><><EFBFBD><EFBFBD>');
open;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֪ͨ',2, nil,nil,nil,aAdoQuery1,nil,nil,nil,nil,nil,nil,nil);
finally
Free;
end;
end;
procedure Tfrm_op_seae.dxDBGrid1Column134CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
if Trim(ANode.Strings[dxDBGrid1Column134.Index])<>'' then
begin
AColor:=clRed;
AFont.Color:=clblack;
end;
end;
procedure Tfrm_op_seae.dxDBGrid1Column135CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
if Trim(ANode.Strings[dxDBGrid1Column135.Index])<>'' then
begin
AColor:=clRed;
AFont.Color:=clblack;
end;
end;
procedure Tfrm_op_seae.N163Click(Sender: TObject);
var
i:integer;
str:widestring;
aAdoQuery1:TDataSource;
aAdoQuery:TAdoQuery;
begin
if t_op_seae2.DataSet.IsEmpty then
exit;
if dxDBGrid1.SelectedCount>0 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do begin
t_op_seae2.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if i=0 then
str:='('+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+''''
else
str:=str+','+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
end else begin
str:='('+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
str:=str+')';
aAdoQuery:=CreateAdoQuery;
aAdoQuery1:=TDataSource.Create(nil);
aAdoQuery1.DataSet:=aAdoQuery;
with aAdoQuery do
try
close;
sql.clear;
sql.add('select t_op_seae.*,t_ch_fee.*,t_crm_client.*');
sql.add('from t_op_seae,t_ch_fee');
sql.add('Left Join t_crm_client on t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
sql.add('where t_op_seae.<2E><><EFBFBD><EFBFBD>=t_ch_fee.<2E><><EFBFBD><EFBFBD>');
sql.add('and t_ch_fee.<2E><><EFBFBD><EFBFBD>=''<27><>'' and t_ch_fee.<2E><><EFBFBD><EFBFBD> in '+str );
sql.add('order by t_ch_fee.<2E><><EFBFBD><EFBFBD>,t_ch_fee.<2E>ұ<EFBFBD> desc');
open;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD>',2,aAdoQuery1,aAdoQuery1,nil,nil,aAdoQuery1,aAdoQuery1,nil,nil,nil,nil,nil);
finally
Free;
end;
end;
procedure Tfrm_op_seae.N165Click(Sender: TObject);
var
i:integer;
str:widestring;
aAdoQuery1:TDataSource;
aAdoQuery:TAdoQuery;
begin
if t_op_seae2.DataSet.IsEmpty then
exit;
if dxDBGrid1.SelectedCount>0 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do begin
t_op_seae2.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if i=0 then
str:='('+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+''''
else
str:=str+','+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
end else begin
str:='('+''''+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
end;
str:=str+')';
aAdoQuery:=CreateAdoQuery;
aAdoQuery1:=TDataSource.Create(nil);
aAdoQuery1.DataSet:=aAdoQuery;
with aAdoQuery do
try
close;
sql.clear;
sql.add('select t_op_seae.*,t_op_letter.*, t_op_letter_df.*');
sql.add('from t_op_letter_df,t_op_letter');
sql.add('Left Join t_op_seae on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_op_letter.<2E><><EFBFBD><EFBFBD>');
sql.add('where t_op_letter.LE_ID=t_op_letter_df.LE_ID');
sql.add('and t_op_letter.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD>ű<EFBFBD><C5B1><EFBFBD>'' and t_op_letter.<2E><><EFBFBD><EFBFBD> in '+str );
sql.add('order by t_op_letter.<2E><><EFBFBD><EFBFBD>');
open;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD><DAB5>ű<EFBFBD><C5B1><EFBFBD>',2, nil,nil,nil,aAdoQuery1,nil,nil,nil,nil,nil,nil,nil);
finally
Free;
end;
end;
procedure Tfrm_op_seae.bsSkinButton47Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae2,'<27><>ע');
end;
procedure Tfrm_op_seae.N166Click(Sender: TObject);
var
i:integer;
aAdoQuery:TAdoQuery;
IdFTP1:TIdFTP;
str:widestring;
str_file:widestring;
inifile1:Tinifile;
FTPHost,FTPUsername,FTPPassword,FTPPATH,ScriptPath:String;
begin
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:=dxDBGrid1.SelectedCount;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'Ftptrans.ini');
FTPHost:=inifile1.ReadString('BJHX','FTPHost','');
FTPUsername:=inifile1.ReadString('BJHX','FTPUsername','');
FTPPassword:=inifile1.ReadString('BJHX','FTPPassword','/');
FTPPATH:=inifile1.ReadString('BJHX','FTPPATH','');
if t_op_seae2.DataSet.IsEmpty then
exit;
if trim(FTPHost)='' then exit;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
begin
close;
sql.clear;
Close;sql.Clear;
SQL.Add('select t_OP_SEAE.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,t_ch_fee.* from t_ch_fee');
SQL.Add('left Join t_op_seae on t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_seae..<2E><><EFBFBD><EFBFBD>');
SQL.Add('where t_OP_SEAE.<2E><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and t_OP_SEAE.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5><>''''');
end;
try
IdFTP1:=TIdFTP.Create(application);
with idftp1 do
begin
Host:=FTPHost;
Username:=FTPUsername;
Password:=FTPPassword;
Connect;
end;
idftp1.ChangeDir(FTPPATH);
idftp1.TransferType:=ftBinary;
finally
end;
ScriptPath:=ExtractFilePath(ParamStr(0))+'FTPFILE\';
if not DirectoryExists(ScriptPath) then
CreateDir(ScriptPath);
if dxDBGrid1.SelectedCount>=1 then
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae2.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; //4
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
aAdoQuery.Open;
if not aAdoQuery.IsEmpty then
begin
aAdoQuery.SaveToFile(ScriptPath+aAdoQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'.ds',pfADTG);
str_file:=aAdoQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'.ds';
str:=ScriptPath+aAdoQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'.ds';
if idftp1.Connected then
begin
idftp1.Put(str,str_file);
end;
end;
end;
try
finally
frm_sys_progress.close;
frm_sys_progress:=nil;
if idftp1.Connected then
idftp1.Disconnect;
end;
end;
procedure Tfrm_op_seae.N168Click(Sender: TObject);
begin
{$IFDEF EDI}
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_zxd) then
frm_op_seae_edi_zxd:=tfrm_op_seae_edi_zxd.Create(application);
// frm_op_seae_edi_zxd.t_op_ctn.datasource:=
frm_op_seae_edi_zxd.ShowModal;
finally
frm_op_seae_edi_zxd.free;
frm_op_seae_edi_zxd:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.N170Click(Sender: TObject);
begin
{$IFDEF EDI}
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_zhld) then
frm_op_seae_edi_zhld:=tfrm_op_seae_edi_zhld.Create(application);
frm_op_seae_edi_zhld.ShowModal;
finally
frm_op_seae_edi_zhld.free;
frm_op_seae_edi_zhld:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.MSC1Click(Sender: TObject);
begin
{$IFDEF EDI}
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_msc) then
frm_op_seae_edi_msc:=tfrm_op_seae_edi_msc.Create(application);
frm_op_seae_edi_msc.ShowModal;
finally
frm_op_seae_edi_msc.free;
frm_op_seae_edi_msc:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.EDI14Click(Sender: TObject);
begin
{$IFDEF EDI}
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;
{$ENDIF}
end;
procedure Tfrm_op_seae.DBComboBoxEh1DropDown(Sender: TObject);
var AdoQuery1:TAdoQuery;
begin
DBComboBoxEh1.items.clear;
AdoQuery1:=CreateAdoQuery;
with AdoQuery1 do
try
Close;sql.Clear;
SQL.Add('select * from t_sys_employee where ״̬=''<27><>ְ''');
SQL.Add('Order by <20><><EFBFBD><EFBFBD>');
Open;first;
while not Eof do
begin
DBComboBoxEh1.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
Next;
end;
finally
Free;
end;
end;
procedure Tfrm_op_seae.DBComboBoxEh1Change(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 DBComboBoxEh1.Text='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',DBComboBoxEh1.Text,[]) then
t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').asstring:=frm_data_share.t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
if not strtobool(get_parameters_value(191,'false')) then
t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=getzqlx(t_op_seae2.Dataset.fieldbyname('ί<>е<EFBFBD>λ').asstring,'',t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime)
else t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=getzqlx(t_op_seae2.Dataset.fieldbyname('ί<>е<EFBFBD>λ').asstring,DBComboBoxEh1.Text,t_op_seae2.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
end;
end;
procedure Tfrm_op_seae.DBComboBoxEh1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBedit(Key,DBEDIT8);
end;
procedure Tfrm_op_seae.bsSkinButton57Click(Sender: TObject);
begin
frm_main.t_sys_message_yes.Requery;
end;
procedure Tfrm_op_seae.dxDBGrid6DblClick(Sender: TObject);
begin
try
frm_sys_message_pri:=tfrm_sys_message_pri.Create (self);
frm_sys_message_pri.ShowModal;
finally
frm_sys_message_pri.Free;
frm_sys_message_pri:=nil;
end;
end;
procedure Tfrm_op_seae.dxDBGrid1Column143CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
if Trim(ANode.Strings[dxDBGrid1Column143.Index])='1' then
begin
AColor:=clRed;
AFont.Color:=clblack;
end;
end;
procedure Tfrm_op_seae.SI1Click(Sender: TObject);
begin
{$IFDEF EDI}
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_yml) then
frm_op_seae_edi_yml:=tfrm_op_seae_edi_yml.Create(application);
frm_op_seae_edi_yml.ShowModal;
finally
frm_op_seae_edi_yml.free;
frm_op_seae_edi_yml:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.DBComboBoxEh2DropDown(Sender: TObject);
var AdoQuery1:TAdoQuery;
begin
TDBComboBoxEh(Sender).items.clear;
AdoQuery1:=CreateAdoQuery;
with AdoQuery1 do
try
Close;sql.Clear;
SQL.Add('select * from t_sys_employee where ״̬=''<27><>ְ''');
SQL.Add('Order by <20><><EFBFBD><EFBFBD>');
Open;first;
while not Eof do
begin
TDBComboBoxEh(Sender).Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
Next;
end;
finally
Free;
end;
end;
procedure Tfrm_op_seae.DBComboBoxEh3DropDown(Sender: TObject);
var AdoQuery1:TAdoQuery;
begin
TDBComboBoxEh(Sender).items.clear;
AdoQuery1:=CreateAdoQuery;
with AdoQuery1 do
try
Close;sql.Clear;
SQL.Add('select * from t_sys_employee where ״̬=''<27><>ְ''');
SQL.Add('Order by <20><><EFBFBD><EFBFBD>');
Open;first;
while not Eof do
begin
TDBComboBoxEh(Sender).Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
Next;
end;
finally
Free;
end;
end;
procedure Tfrm_op_seae.DBEdit8Change(Sender: TObject);
var aList:TStringList;
begin
if t_op_seae2.DataSet=nil then
exit;
// if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
if t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString<>'' then
begin
aList:=TStringList.Create;
try
aList.Text:=get_parameters_value(186,'false');
// ShowMessage(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
if aList.IndexOf('ί<>б<EFBFBD><D0B1><EFBFBD>')>=0 then
begin
if IsInvoiceExist(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString) then
begin
DBEdit8.ReadOnly:=True;
DBEdit8.Color:=clMoneyGreen;
end
else
begin
DBEdit8.ReadOnly:=false;
DBEdit8.Color:=clWindow;
end;
end;
finally
aList.free;
end;
end;
end;
procedure Tfrm_op_seae.EDI15Click(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.N176Click(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.EXCEL2Click(Sender: TObject);
begin
frmExcelImport:=TfrmExcelImport.create(self);
try
frmExcelImport.showmodal;
finally
FreeAndNil(frmExcelImport);
end;
end;
procedure Tfrm_op_seae.DBEdit9Change(Sender: TObject);
begin
{
if ExistStatus(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>')
or ExistStatus(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>')
or ExistStatus(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>') then
begin
DBEdit9.ReadOnly:=True;
DBEdit9.Color:=clMoneyGreen;
end
else
begin
DBEdit9.ReadOnly:=false;
DBEdit9.Color:=clWindow;
end;
}
end;
procedure Tfrm_op_seae.RxDBLookupCombo28MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ExistStatus(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>')
or ExistStatus(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>')
or ExistStatus(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>')then
begin
RxDBLookupCombo28.ReadOnly:=True;
RxDBLookupCombo28.Color:=clMoneyGreen;
end
else
begin
RxDBLookupCombo28.ReadOnly:=false;
RxDBLookupCombo28.Color:=clWindow;
end;
end;
procedure Tfrm_op_seae.N179Click(Sender: TObject);
var
amt,usd:Double;
FeeItems,JobAmt,Remarks:string;
begin
if t_op_seae2.DataSet=nil then
exit;
if GetCrmsales( t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString, t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString
, t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,amt,usd,FeeItems) then
MessageDlg('RMB:'+FormatFloat('0.00;0.00;0',amt) +' USD:'+FormatFloat('0.00;0.00;0',USD),mtWarning,[mbOK],0);
end;
procedure Tfrm_op_seae.RxDBLookupCombo47Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo47);
end;
procedure Tfrm_op_seae.RxDBLookupCombo47Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo47);
end;
procedure Tfrm_op_seae.RxDBLookupCombo56Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo56);
end;
procedure Tfrm_op_seae.RxDBLookupCombo56Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo56);
end;
procedure Tfrm_op_seae.AFR1Click(Sender: TObject);
var
str,strbsno:widestring;
i:integer;
id:string;
TempStr:TStringlist;
aQuery,aQuery2,aQuerycuststr,aQueryCtnDetail,aQueryShipper:TADOQuery;
function getcustedi(cust:string):string;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
result:='';
try
aQuery.Close;
aQuery.SQL.Text:='select EDI<44><49><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+cust+'''';
aQuery.Open;
if not aQuery.IsEmpty then
result:=aQuery.fieldbyname('EDI<44><49><EFBFBD><EFBFBD>').AsString;
finally
FreeAndNil(aQuery);
end;
end;
function GetvesselEdi(avessel: String): String;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_code_vessel where Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>='''+avessel+'''');
Open;
if IsEmpty then
Result:='a'
else
Result:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
end;
finally
FreeAndNil(aQuery);
end;
end;
begin
if t_op_seae.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>EDI<44><49><EFBFBD>ݵ<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
exit;
end;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
if MessageDlg('ȷʵҪ<CAB5><D2AA>ѡ<EFBFBD>е<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then begin
if not t_op_seae_edi.active then t_op_seae_edi.Open;
if not t_op_ctn_detail_edi.active then t_op_ctn_detail_edi.Open;
// try
TempStr:=TStringList.Create;
aQuery:=CreateAdoQuery;
aQuery2:=CreateAdoQuery;
aQueryCtnDetail:=CreateAdoQuery;
aQueryShipper:=CreateAdoQuery;
aQuery.sql.Text:='select * from t_op_ctn where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>';
t_op_ctn_edi.close;
t_op_ctn_edi.sql.Text:='select * from t_op_ctn_edi where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>';
aQueryCtnDetail.sql.Text:='select * from t_op_ctn_detail where ctn_id=:ctn_id';
aQuerycuststr:=CreateAdoQuery;
aQuerycuststr.sql.text:=' select <20>绰,<2C><><EFBFBD><EFBFBD>,<2C><>,<2C><><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
aQueryShipper.sql.Text:='select * from t_code_edicode where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then begin //ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ
if MessageDlg('<27>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD>,<2C><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then begin
aQuery2.Close;
aQuery2.SQL.Text:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''';
aQuery2.Open;
while not aQuery2.Eof do begin
id:=get_id;
t_op_seae_edi.Insert;
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
if TMenuItem(Sender).tag=1 then
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AFR'
else if TMenuItem(Sender).tag=2 then
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AMR';
t_op_seae_edi['EDI״̬']:='δ<><CEB4><EFBFBD><EFBFBD>';
t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Date;
t_op_seae_edi['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=aQuery2['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=aQuery2['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
{
if length(aQuery2.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=aQuery2['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
else begin
strbsno:=aQuery2.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12) ;
end;
if length(aQuery2.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=aQuery2['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
else begin
strbsno:=aQuery2.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12) ;
end;
}
t_op_seae_edi['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>']:=getcustedi(aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
TempStr.Text:=aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
if aQuery2.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
TempStr.Text:=aQuery2.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=aQuery2['<27>ջ<EFBFBD><D5BB><EFBFBD>'];
if aQuery2.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
TempStr.Text:=aQuery2.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['֪ͨ<CDA8><D6AA>']:=aQuery2['֪ͨ<CDA8><D6AA>'];
if aQuery2.FieldByName('֪ͨ<CDA8><D6AA>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['֪ͨ<CDA8>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>IMO']:=GetvesselEdi(aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD>']:=aQuery2['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_edi['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=aQuery2['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD>']:=aQuery2['ж<><D0B6><EFBFBD><EFBFBD>'];
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=aQuery2['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_edi['Ŀ<>ĵ<EFBFBD>']:=aQuery2['Ŀ<>ĵ<EFBFBD>'];
t_op_seae_edi['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=aQuery2['Ŀ<>ĵش<C4B5><D8B4><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><>ͷ']:=aQuery2['<27><>ͷ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><>װ']:=aQuery2['<27><>װ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=aQuery2['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=aQuery2['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27>¶ȵ<C2B6>λ']:=aQuery2['<27>¶ȵ<C2B6>λ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ'];
t_op_seae_edi['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>']:=aQuery2['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>'];
t_op_seae_edi['ʪ<><CAAA>']:=aQuery2['ʪ<><CAAA>'];
t_op_seae_edi['<27><><EFBFBD>պ<EFBFBD><D5BA><EFBFBD>']:=aQuery2['<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>']:='A';
if Pos('ƴ<><C6B4>', aQuery2.FieldByName('װ<>˷<EFBFBD>ʽ').AsString)>0 then begin
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='LCL';
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
end else begin
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='FCL';
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=1;
end;
t_op_seae_edi['<27><><EFBFBD>䷽ʽ']:='PortToPort';
if TMenuItem(Sender).tag=1 then
t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='House'
else if TMenuItem(Sender).tag=2 then
t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='Master';
t_op_seae_edi.Post;
aQuery.Close;
aQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
aQuery.Open;
t_op_ctn_edi.Close;
t_op_ctn_edi.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=id;
t_op_ctn_edi.Open;
if aQuery.IsEmpty then begin
aQuery.Close;
aQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
aQuery.Open;
aQuery.First;
while not aQuery.Eof do begin
t_op_ctn_edi.Insert;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27>ߴ<EFBFBD>']:=aQuery['<27>ߴ<EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><>װ']:=aQuery2['<27><>װ'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><>ͷ']:=aQuery2['<27><>ͷ'];
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn_edi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
begin
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
t_op_ctn_edi['TEU']:=1;
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_edi['TEU']:=2;
end;
t_op_ctn_edi.Post;
aQueryCtnDetail.close;
aQueryCtnDetail.Parameters.ParamByName('ctn_id').Value:=aQuery.fieldbyname('ctn_id').Asinteger;
aQueryCtnDetail.Open;
if aQueryCtnDetail.isempty then begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQuery2['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end else begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQueryCtnDetail['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end;
aQuery.Next;
end;
end else begin
aQuery.First;
while not aQuery.Eof do begin
t_op_ctn_edi.Insert;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27>ߴ<EFBFBD>']:=aQuery['<27>ߴ<EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><>װ']:=aQuery['<27><>װ'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><>ͷ']:=aQuery['<27><>ͷ'];
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn_edi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
begin
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
t_op_ctn_edi['TEU']:=1;
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_edi['TEU']:=2;
end;
t_op_ctn_edi.Post;
aQueryCtnDetail.close;
aQueryCtnDetail.Parameters.ParamByName('ctn_id').Value:=aQuery.fieldbyname('ctn_id').Asinteger;
aQueryCtnDetail.Open;
if aQueryCtnDetail.isempty then begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQuery['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end else begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQueryCtnDetail['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end;
aQuery.Next;
end;
end;
aQuery2.Next;
end;
end;
end else begin //<2F><> ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ
id:=get_id;
t_op_seae_edi.Insert;
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
if TMenuItem(Sender).tag=1 then
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AFR'
else if TMenuItem(Sender).tag=2 then
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AMR';
t_op_seae_edi['EDI״̬']:='δ<><CEB4><EFBFBD><EFBFBD>';
t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Date;
t_op_seae_edi['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
{
if length(t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
else begin
strbsno:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12) ;
end;
if length(t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
else begin
strbsno:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12) ;
end;
}
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>']:=getcustedi(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
TempStr.Text:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
TempStr.Text:=t_op_seae.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
if t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
TempStr.Text:=t_op_seae.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['֪ͨ<CDA8><D6AA>']:=t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
if t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['֪ͨ<CDA8>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>IMO']:=GetvesselEdi(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_edi['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD>'];
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_edi['Ŀ<>ĵ<EFBFBD>']:=t_op_seae['Ŀ<>ĵ<EFBFBD>'];
t_op_seae_edi['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=t_op_seae['Ŀ<>ĵش<C4B5><D8B4><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><>ͷ']:=t_op_seae['<27><>ͷ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><>װ']:=t_op_seae['<27><>װ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=t_op_seae['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=t_op_seae['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27>¶ȵ<C2B6>λ']:=t_op_seae['<27>¶ȵ<C2B6>λ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ'];
t_op_seae_edi['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>']:=t_op_seae['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>'];
t_op_seae_edi['ʪ<><CAAA>']:=t_op_seae['ʪ<><CAAA>'];
t_op_seae_edi['<27><><EFBFBD>պ<EFBFBD><D5BA><EFBFBD>']:=t_op_seae['<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>']:='A';
if Pos('ƴ<><C6B4>', t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').AsString)>0 then begin
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='LCL';
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
end else begin
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='FCL';
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=1;
end;
t_op_seae_edi['<27><><EFBFBD>䷽ʽ']:='PortToPort';
if TMenuItem(Sender).tag=1 then
t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='House'
else if TMenuItem(Sender).tag=2 then
t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='Master';
t_op_seae_edi.Post;
aQuery.Close;
aQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
aQuery.Open;
aQuery.First;
t_op_ctn_edi.Close;
t_op_ctn_edi.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=id;
t_op_ctn_edi.Open;
while not aQuery.Eof do begin
t_op_ctn_edi.Insert;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27>ߴ<EFBFBD>']:=aQuery['<27>ߴ<EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><>װ']:=aQuery['<27><>װ'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><>ͷ']:=aQuery['<27><>ͷ'];
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn_edi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
begin
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
t_op_ctn_edi['TEU']:=1;
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_edi['TEU']:=2;
end;
t_op_ctn_edi.Post;
aQueryCtnDetail.close;
aQueryCtnDetail.Parameters.ParamByName('ctn_id').Value:=aQuery.fieldbyname('ctn_id').Asinteger;
aQueryCtnDetail.Open;
if aQueryCtnDetail.isempty then begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQuery['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end else begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQueryCtnDetail['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end;
aQuery.Next;
end;
end;
end;
ShowMessage('<27><><EFBFBD>ɳɹ<C9B3>,<2C>뵽EDIͨ<49><CDA8>ģ<EFBFBD><C4A3><EFBFBD>鿴<EFBFBD><E9BFB4>');
// finally
FreeAndNil(TempStr);
FreeAndNil(aQuery);
// end;
end;
end;
procedure Tfrm_op_seae.DBComboBoxEh5DropDown(Sender: TObject);
var
aQuery:TADOQuery;
begin
DBComboBoxEh5.Items.Clear;
aQuery:=CreateAdoQuery;
with aQuery do
try
Close;SQL.Clear;
SQL.Add('select distinct <20><>Ӫ<EFBFBD><D3AA>λ from t_op_seae');
SQL.Add('Where <20><>Ӫ<EFBFBD><D3AA>λ<>''''');
open;
if not IsEmpty then
begin
while not eof do
begin
DBComboBoxEh5.Items.Add(fieldbyname('<27><>Ӫ<EFBFBD><D3AA>λ').asstring);
Next;
end;
end;
finally
Close;
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_op_seae.APLEDI1Click(Sender: TObject);
begin
{$IFDEF EDI}
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_apl) then
frm_op_seae_edi_apl:=tfrm_op_seae_edi_apl.Create(application);
frm_op_seae_edi_apl.ShowModal;
finally
frm_op_seae_edi_apl.free;
frm_op_seae_edi_apl:=nil;
end;
{$ENDIF}
end;
procedure Tfrm_op_seae.N185Click(Sender: TObject);
var
str,strbsno:widestring;
i:integer;
id:string;
TempStr:TStringlist;
aQuery,aQuery2,aQuerycuststr,aQueryCtnDetail,aQueryShipper:TADOQuery;
function getcustedi(cust:string):string;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
result:='';
try
aQuery.Close;
aQuery.SQL.Text:='select EDI<44><49><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+cust+'''';
aQuery.Open;
if not aQuery.IsEmpty then
result:=aQuery.fieldbyname('EDI<44><49><EFBFBD><EFBFBD>').AsString;
finally
FreeAndNil(aQuery);
end;
end;
function GetvesselEdi(avessel: String): String;
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_code_vessel where Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>='''+avessel+'''');
Open;
if IsEmpty then
Result:='a'
else
Result:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
end;
finally
FreeAndNil(aQuery);
end;
end;
begin
if t_op_seae.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>EDI<44><49><EFBFBD>ݵ<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
exit;
end;
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
t_op_seae.post;
if MessageDlg('ȷʵҪ<CAB5><D2AA>ѡ<EFBFBD>е<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then begin
if not t_op_seae_edi.active then t_op_seae_edi.Open;
if not t_op_ctn_detail_edi.active then t_op_ctn_detail_edi.Open;
// try
TempStr:=TStringList.Create;
aQuery:=CreateAdoQuery;
aQuery2:=CreateAdoQuery;
aQueryCtnDetail:=CreateAdoQuery;
aQueryShipper:=CreateAdoQuery;
aQuery.sql.Text:='select * from t_op_ctn where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>';
t_op_ctn_edi.close;
t_op_ctn_edi.sql.Text:='select * from t_op_ctn_edi where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>';
aQueryCtnDetail.sql.Text:='select * from t_op_ctn_detail where ctn_id=:ctn_id';
aQuerycuststr:=CreateAdoQuery;
aQuerycuststr.sql.text:=' select <20>绰,<2C><><EFBFBD><EFBFBD>,<2C><>,<2C><><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
aQueryShipper.sql.Text:='select * from t_code_edicode where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then begin //ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ
if MessageDlg('<27>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString+'Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD>,<2C><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then begin
aQuery2.Close;
aQuery2.SQL.Text:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''';
aQuery2.Open;
while not aQuery2.Eof do begin
id:=get_id;
t_op_seae_edi.Insert;
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
if TMenuItem(Sender).tag=1 then
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AFR'
else if TMenuItem(Sender).tag=2 then
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AMR';
t_op_seae_edi['EDI״̬']:='δ<><CEB4><EFBFBD><EFBFBD>';
t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Date;
t_op_seae_edi['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=aQuery2['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=aQuery2['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
t_op_seae_edi['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=aQuery2['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];
t_op_seae_edi['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=aQuery2['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
{
if length(aQuery2.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=aQuery2['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
else begin
strbsno:=aQuery2.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12) ;
end;
if length(aQuery2.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=aQuery2['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
else begin
strbsno:=aQuery2.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12) ;
end;
}
t_op_seae_edi['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>']:=getcustedi(aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
TempStr.Text:=aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
if aQuery2.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
TempStr.Text:=aQuery2.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=aQuery2['<27>ջ<EFBFBD><D5BB><EFBFBD>'];
if aQuery2.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
TempStr.Text:=aQuery2.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['֪ͨ<CDA8><D6AA>']:=aQuery2['֪ͨ<CDA8><D6AA>'];
if aQuery2.FieldByName('֪ͨ<CDA8><D6AA>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=aQuery2.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['֪ͨ<CDA8>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>IMO']:=GetvesselEdi(aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD>']:=aQuery2['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_edi['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=aQuery2['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD>']:=aQuery2['ж<><D0B6><EFBFBD><EFBFBD>'];
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=aQuery2['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_edi['Ŀ<>ĵ<EFBFBD>']:=aQuery2['Ŀ<>ĵ<EFBFBD>'];
t_op_seae_edi['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=aQuery2['Ŀ<>ĵش<C4B5><D8B4><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><>ͷ']:=aQuery2['<27><>ͷ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><>װ']:=aQuery2['<27><>װ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=aQuery2['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=aQuery2['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27>¶ȵ<C2B6>λ']:=aQuery2['<27>¶ȵ<C2B6>λ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ'];
t_op_seae_edi['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>']:=aQuery2['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>'];
t_op_seae_edi['ʪ<><CAAA>']:=aQuery2['ʪ<><CAAA>'];
t_op_seae_edi['<27><><EFBFBD>պ<EFBFBD><D5BA><EFBFBD>']:=aQuery2['<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>']:='A';
if Pos('ƴ<><C6B4>', aQuery2.FieldByName('װ<>˷<EFBFBD>ʽ').AsString)>0 then begin
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='LCL';
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
end else begin
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='FCL';
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=1;
end;
t_op_seae_edi['<27><><EFBFBD>䷽ʽ']:='PortToPort';
if TMenuItem(Sender).tag=1 then
t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='House'
else if TMenuItem(Sender).tag=2 then
t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='Master';
t_op_seae_edi.Post;
aQuery.Close;
aQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
aQuery.Open;
t_op_ctn_edi.Close;
t_op_ctn_edi.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=id;
t_op_ctn_edi.Open;
if aQuery.IsEmpty then begin
aQuery.Close;
aQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
aQuery.Open;
aQuery.First;
while not aQuery.Eof do begin
t_op_ctn_edi.Insert;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27>ߴ<EFBFBD>']:=aQuery['<27>ߴ<EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><>װ']:=aQuery2['<27><>װ'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><>ͷ']:=aQuery2['<27><>ͷ'];
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn_edi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
begin
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
t_op_ctn_edi['TEU']:=1;
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_edi['TEU']:=2;
end;
t_op_ctn_edi.Post;
aQueryCtnDetail.close;
aQueryCtnDetail.Parameters.ParamByName('ctn_id').Value:=aQuery.fieldbyname('ctn_id').Asinteger;
aQueryCtnDetail.Open;
if aQueryCtnDetail.isempty then begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQuery2['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery2['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end else begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQueryCtnDetail['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end;
aQuery.Next;
end;
end else begin
aQuery.First;
while not aQuery.Eof do begin
t_op_ctn_edi.Insert;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27>ߴ<EFBFBD>']:=aQuery['<27>ߴ<EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><>װ']:=aQuery['<27><>װ'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><>ͷ']:=aQuery['<27><>ͷ'];
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn_edi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
begin
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
t_op_ctn_edi['TEU']:=1;
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_edi['TEU']:=2;
end;
t_op_ctn_edi.Post;
aQueryCtnDetail.close;
aQueryCtnDetail.Parameters.ParamByName('ctn_id').Value:=aQuery.fieldbyname('ctn_id').Asinteger;
aQueryCtnDetail.Open;
if aQueryCtnDetail.isempty then begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQuery['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end else begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQueryCtnDetail['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end;
aQuery.Next;
end;
end;
aQuery2.Next;
end;
end;
end else begin //<2F><> ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ
id:=get_id;
t_op_seae_edi.Insert;
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
if TMenuItem(Sender).tag=1 then
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AFR'
else if TMenuItem(Sender).tag=2 then
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='AMR';
t_op_seae_edi['EDI״̬']:='δ<><CEB4><EFBFBD><EFBFBD>';
t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_op_seae_edi['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Date;
t_op_seae_edi['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
t_op_seae_edi['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];
t_op_seae_edi['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
{
if length(t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
else begin
strbsno:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12) ;
end;
if length(t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)<=12 then
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']
else begin
strbsno:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=Copy(strbsno,Length(strbsno)-11,12) ;
end;
}
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>']:=getcustedi(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
TempStr.Text:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
TempStr.Text:=t_op_seae.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
if t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
TempStr.Text:=t_op_seae.fieldbyname('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
if TempStr.Count>=1 then
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=TempStr.Strings[0];
if TempStr.Count>=2 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ1']:=TempStr.Strings[1];
if TempStr.Count>=3 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ2']:=TempStr.Strings[2];
if TempStr.Count>=4 then
t_op_seae_edi['֪ͨ<CDA8>˵<EFBFBD>ַ3']:=TempStr.Strings[3];
t_op_seae_edi['֪ͨ<CDA8><D6AA>']:=t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
if t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString<>'' then begin
aQueryShipper.Close;
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
aQueryShipper.Open;
if not aQueryShipper.IsEmpty then begin
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ1').AsString:=aQueryShipper.FieldByName('<27><>ַ1').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ2').AsString:=aQueryShipper.FieldByName('<27><>ַ2').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵<EFBFBD>ַ3').AsString:=aQueryShipper.FieldByName('<27><>ַ3').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD>ʱ<EFBFBD>').AsString:=aQueryShipper.FieldByName('<27>ʱ<EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>').AsString:=aQueryShipper.FieldByName('<27><>ϵ<EFBFBD><CFB5>').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8>˵绰').AsString:=aQueryShipper.FieldByName('<27>绰').AsString;
t_op_seae_edi.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>').AsString:=aQueryShipper.FieldByName('<27><>').AsString;
end else begin
aQuerycuststr.close;
aQuerycuststr.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
aQuerycuststr.Open;
if not aQuerycuststr.IsEmpty then begin
t_op_seae_edi['֪ͨ<CDA8>˳<EFBFBD><CBB3><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
t_op_seae_edi['֪ͨ<CDA8>˵绰']:=aQuerycuststr.fieldbyname('<27>绰').AsString;
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>']:=aQuerycuststr.fieldbyname('<27><>').AsString;
end;
end;
end;
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>IMO']:=GetvesselEdi(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_edi['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD>'];
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
t_op_seae_edi['Ŀ<>ĵ<EFBFBD>']:=t_op_seae['Ŀ<>ĵ<EFBFBD>'];
t_op_seae_edi['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=t_op_seae['Ŀ<>ĵش<C4B5><D8B4><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><>ͷ']:=t_op_seae['<27><>ͷ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><>װ']:=t_op_seae['<27><>װ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=t_op_seae['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=t_op_seae['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27>¶ȵ<C2B6>λ']:=t_op_seae['<27>¶ȵ<C2B6>λ'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ'];
t_op_seae_edi['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>']:=t_op_seae['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>'];
t_op_seae_edi['ʪ<><CAAA>']:=t_op_seae['ʪ<><CAAA>'];
t_op_seae_edi['<27><><EFBFBD>պ<EFBFBD><D5BA><EFBFBD>']:=t_op_seae['<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>'];
t_op_seae_edi['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>']:='A';
if Pos('ƴ<><C6B4>', t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').AsString)>0 then begin
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='LCL';
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
end else begin
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='FCL';
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=1;
end;
t_op_seae_edi['<27><><EFBFBD>䷽ʽ']:='PortToPort';
if TMenuItem(Sender).tag=1 then
t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='House'
else if TMenuItem(Sender).tag=2 then
t_op_seae_edi['<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>']:='Master';
t_op_seae_edi.Post;
aQuery.Close;
aQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
aQuery.Open;
aQuery.First;
t_op_ctn_edi.Close;
t_op_ctn_edi.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=id;
t_op_ctn_edi.Open;
while not aQuery.Eof do begin
t_op_ctn_edi.Insert;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=id;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27>ߴ<EFBFBD>']:=aQuery['<27>ߴ<EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=1;
t_op_ctn_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><>װ']:=aQuery['<27><>װ'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
// t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_ctn_edi['<27><>ͷ']:=aQuery['<27><>ͷ'];
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn_edi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
begin
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
t_op_ctn_edi['TEU']:=1;
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_edi['TEU']:=2;
end;
t_op_ctn_edi.Post;
aQueryCtnDetail.close;
aQueryCtnDetail.Parameters.ParamByName('ctn_id').Value:=aQuery.fieldbyname('ctn_id').Asinteger;
aQueryCtnDetail.Open;
if aQueryCtnDetail.isempty then begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQuery['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end else begin
t_op_ctn_detail_edi.Insert;
t_op_ctn_detail_edi['ctn_id']:=t_op_ctn_edi['ctn_id'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><>װ']:=aQueryCtnDetail['<27><>װ'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi['<27><><EFBFBD><EFBFBD>']:=aQueryCtnDetail['<27><><EFBFBD><EFBFBD>'];
t_op_ctn_detail_edi.Post;
end;
aQuery.Next;
end;
end;
end;
ShowMessage('<27><><EFBFBD>ɳɹ<C9B3>,<2C>뵽EDIͨ<49><CDA8>ģ<EFBFBD><C4A3><EFBFBD>鿴<EFBFBD><E9BFB4>');
// finally
FreeAndNil(TempStr);
FreeAndNil(aQuery);
// end;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink