|
|
unit u_op_seae;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
dxExEdtr, XPMenu, Menus, DB, ADODB, bsSkinCtrls, bsdbctrls, wwdbedit,
|
|
|
Wwdotdot, Wwdbcomb, wwdbdatetimepicker, wwdblook, StdCtrls, DBCtrls,
|
|
|
ComCtrls, bsSkinTabs, RxLookup, Mask, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
|
|
|
dxDBCtrl, dxCntner, ExtCtrls, Dialogs, ExtDlgs, Wwdbdlg, u_op_card,ComObj,
|
|
|
Grids, DBGrids, kbmMemTable, kbmMemBinaryStreamFormat, DBCtrlsEh,Registry,DateUtils,
|
|
|
DBLookupEh, Wwdbigrd, Wwdbgrid,u_op_seae_DsWebService,SoapHTTPClient,InvokeRegistry,IdHTTP,superobject, shellapi;
|
|
|
|
|
|
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;
|
|
|
Panel2: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
Notebook1: TNotebook;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label38: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label36: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
DBEdit7: TDBEdit;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
Panel3: TPanel;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
Label56: TLabel;
|
|
|
Label57: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Label59: TLabel;
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
DBMemo10: TDBMemo;
|
|
|
EDI2: TMenuItem;
|
|
|
t_ch_fee: TADOQuery;
|
|
|
DBEdit18: TDBEdit;
|
|
|
Label65: TLabel;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
Label20: TLabel;
|
|
|
RxDBLookupCombo29: TRxDBLookupCombo;
|
|
|
Label41: TLabel;
|
|
|
Label42: TLabel;
|
|
|
RxDBLookupCombo30: TRxDBLookupCombo;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
Label63: TLabel;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinTabSheet9: TbsSkinTabSheet;
|
|
|
PopupMenu3: TPopupMenu;
|
|
|
N17: TMenuItem;
|
|
|
N18: TMenuItem;
|
|
|
N34: TMenuItem;
|
|
|
N35: TMenuItem;
|
|
|
N36: TMenuItem;
|
|
|
N37: TMenuItem;
|
|
|
N38: TMenuItem;
|
|
|
N39: TMenuItem;
|
|
|
N40: TMenuItem;
|
|
|
N41: TMenuItem;
|
|
|
N42: TMenuItem;
|
|
|
N43: TMenuItem;
|
|
|
N44: TMenuItem;
|
|
|
N45: TMenuItem;
|
|
|
N46: TMenuItem;
|
|
|
N47: TMenuItem;
|
|
|
N48: TMenuItem;
|
|
|
N49: TMenuItem;
|
|
|
N50: TMenuItem;
|
|
|
N51: TMenuItem;
|
|
|
N52: TMenuItem;
|
|
|
N53: TMenuItem;
|
|
|
N54: TMenuItem;
|
|
|
N55: TMenuItem;
|
|
|
RxDBLookupCombo31: TRxDBLookupCombo;
|
|
|
t_op_seae_huanhuo: TADOQuery;
|
|
|
N56: TMenuItem;
|
|
|
N57: TMenuItem;
|
|
|
N58: TMenuItem;
|
|
|
N59: TMenuItem;
|
|
|
N60: TMenuItem;
|
|
|
PopupMenu4: TPopupMenu;
|
|
|
N27: TMenuItem;
|
|
|
N28: TMenuItem;
|
|
|
N29: TMenuItem;
|
|
|
N26: TMenuItem;
|
|
|
N31: TMenuItem;
|
|
|
N32: TMenuItem;
|
|
|
N61: TMenuItem;
|
|
|
t_op_seae_huanhuo1: TDataSource;
|
|
|
fra_op_card1: Tfra_op_card;
|
|
|
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;
|
|
|
N73: TMenuItem;
|
|
|
N74: TMenuItem;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
N75: TMenuItem;
|
|
|
N76: TMenuItem;
|
|
|
N77: TMenuItem;
|
|
|
N78: TMenuItem;
|
|
|
N79: TMenuItem;
|
|
|
N80: TMenuItem;
|
|
|
dxDBGrid1Column109: TdxDBGridColumn;
|
|
|
dxDBGrid1Column110: TdxDBGridColumn;
|
|
|
dxDBGrid1Column111: TdxDBGridColumn;
|
|
|
N81: TMenuItem;
|
|
|
N82: TMenuItem;
|
|
|
N83: TMenuItem;
|
|
|
N84: TMenuItem;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
Label82: TLabel;
|
|
|
DBMemo12: TDBMemo;
|
|
|
Label83: TLabel;
|
|
|
DBEdit23: TDBEdit;
|
|
|
Label84: TLabel;
|
|
|
RxDBLookupCombo34: TRxDBLookupCombo;
|
|
|
Label85: TLabel;
|
|
|
RxDBLookupCombo35: TRxDBLookupCombo;
|
|
|
Label86: TLabel;
|
|
|
RxDBLookupCombo36: TRxDBLookupCombo;
|
|
|
dxDBGrid1Column112: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column113: TdxDBGridColumn;
|
|
|
Label191: TLabel;
|
|
|
wwDBComboBox12: TwwDBComboBox;
|
|
|
Label179: TLabel;
|
|
|
DBEdit71: TDBEdit;
|
|
|
Label181: TLabel;
|
|
|
DBEdit73: TDBEdit;
|
|
|
Label185: TLabel;
|
|
|
DBEdit109: TDBEdit;
|
|
|
Label189: TLabel;
|
|
|
wwDBComboBox11: TwwDBComboBox;
|
|
|
Label190: TLabel;
|
|
|
DBEdit114: TDBEdit;
|
|
|
Label188: TLabel;
|
|
|
DBEdit112: TDBEdit;
|
|
|
Label187: TLabel;
|
|
|
DBEdit111: TDBEdit;
|
|
|
N85: TMenuItem;
|
|
|
CMAEDI1: TMenuItem;
|
|
|
Label90: TLabel;
|
|
|
Label91: TLabel;
|
|
|
bsSkinDBCheckRadioBox15: TbsSkinDBCheckRadioBox;
|
|
|
Label94: TLabel;
|
|
|
DBEdit24: TDBEdit;
|
|
|
Label95: TLabel;
|
|
|
DBEdit28: TDBEdit;
|
|
|
Label96: TLabel;
|
|
|
Label97: TLabel;
|
|
|
DBEdit29: TDBEdit;
|
|
|
Label98: TLabel;
|
|
|
DBEdit30: TDBEdit;
|
|
|
Label99: TLabel;
|
|
|
wwDBComboBox5: TwwDBComboBox;
|
|
|
N86: TMenuItem;
|
|
|
N87: TMenuItem;
|
|
|
N88: TMenuItem;
|
|
|
N89: TMenuItem;
|
|
|
N90: TMenuItem;
|
|
|
N91: TMenuItem;
|
|
|
N92: TMenuItem;
|
|
|
N93: TMenuItem;
|
|
|
NORISICA1: TMenuItem;
|
|
|
ANE1: TMenuItem;
|
|
|
N94: TMenuItem;
|
|
|
N95: TMenuItem;
|
|
|
N96: TMenuItem;
|
|
|
N97: TMenuItem;
|
|
|
N98: TMenuItem;
|
|
|
N99: TMenuItem;
|
|
|
bsSkinDBCheckRadioBox14: TbsSkinDBCheckRadioBox;
|
|
|
N100: TMenuItem;
|
|
|
WORD1: TMenuItem;
|
|
|
N101: TMenuItem;
|
|
|
N102: TMenuItem;
|
|
|
N103: TMenuItem;
|
|
|
N104: TMenuItem;
|
|
|
memtblrpt: TkbmMemTable;
|
|
|
kbmBinaryStreamFormat1: TkbmBinaryStreamFormat;
|
|
|
dsrmemtblrpt: TDataSource;
|
|
|
bsSkinButton44: TbsSkinButton;
|
|
|
bsSkinPanel7: TbsSkinPanel;
|
|
|
bsSkinDBCheckRadioBox16: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox17: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox18: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox19: TbsSkinDBCheckRadioBox;
|
|
|
t_op_modify: TADOQuery;
|
|
|
N105: TMenuItem;
|
|
|
EDI3: TMenuItem;
|
|
|
bsSkinGroupBox7: TbsSkinGroupBox;
|
|
|
Label108: TLabel;
|
|
|
Label109: TLabel;
|
|
|
RxDBLookupCombo48: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo49: TRxDBLookupCombo;
|
|
|
Label88: TLabel;
|
|
|
RxDBLookupCombo37: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo38: TRxDBLookupCombo;
|
|
|
Label89: TLabel;
|
|
|
t_code_edi_line: TADOQuery;
|
|
|
ds_code_edi_line1: TDataSource;
|
|
|
Label92: TLabel;
|
|
|
RxDBLookupCombo41: TRxDBLookupCombo;
|
|
|
dbmmoEDI: TDBMemo;
|
|
|
Label129: TLabel;
|
|
|
RxDBLookupCombo42: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo39: TRxDBLookupCombo;
|
|
|
Label93: TLabel;
|
|
|
DBEdit38: TDBEdit;
|
|
|
bsSkinButton45: TbsSkinButton;
|
|
|
N106: TMenuItem;
|
|
|
lbl1: TLabel;
|
|
|
dbedt1: TDBEdit;
|
|
|
dbedt2: TDBEdit;
|
|
|
lbl2: TLabel;
|
|
|
dbedt3: TDBEdit;
|
|
|
lbl3: TLabel;
|
|
|
Label116: TLabel;
|
|
|
RxDBLookupCombo40: TRxDBLookupCombo;
|
|
|
Query1: TADOQuery;
|
|
|
aQuery2: TADOQuery;
|
|
|
bsSkinButton51: TbsSkinButton;
|
|
|
bsSkinButton52: TbsSkinButton;
|
|
|
bsSkinButton53: TbsSkinButton;
|
|
|
bsSkinButton54: TbsSkinButton;
|
|
|
dxDBGrid1Column114: TdxDBGridColumn;
|
|
|
dxDBGrid1Column115: TdxDBGridColumn;
|
|
|
dxDBGrid1Column116: TdxDBGridColumn;
|
|
|
RxDBLookupCombo24: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo25: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo26: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo27: TRxDBLookupCombo;
|
|
|
N107: TMenuItem;
|
|
|
EDI4: TMenuItem;
|
|
|
bsSkinGroupBox8: TbsSkinGroupBox;
|
|
|
t_op_ams: TADOQuery;
|
|
|
t_op_ams1: TDataSource;
|
|
|
DBEdit39: TDBEdit;
|
|
|
Label128: TLabel;
|
|
|
wwDBLookupCombo12: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo50: TRxDBLookupCombo;
|
|
|
Label130: TLabel;
|
|
|
DBMemo13: TDBMemo;
|
|
|
N108: TMenuItem;
|
|
|
NYKEDI1: TMenuItem;
|
|
|
Label131: TLabel;
|
|
|
RxDBLookupCombo51: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo13: TwwDBLookupCombo;
|
|
|
DBMemo14: TDBMemo;
|
|
|
RxDBLookupCombo52: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo14: TwwDBLookupCombo;
|
|
|
DBMemo15: TDBMemo;
|
|
|
Label132: TLabel;
|
|
|
N109: TMenuItem;
|
|
|
EDI5: TMenuItem;
|
|
|
N110: TMenuItem;
|
|
|
N111: TMenuItem;
|
|
|
N112: TMenuItem;
|
|
|
EDI6: TMenuItem;
|
|
|
Label133: TLabel;
|
|
|
DBMemo16: TDBMemo;
|
|
|
wwDBLookupCombo15: TwwDBLookupCombo;
|
|
|
N113: TMenuItem;
|
|
|
N114: TMenuItem;
|
|
|
N115: TMenuItem;
|
|
|
N116: TMenuItem;
|
|
|
N117: TMenuItem;
|
|
|
N118: TMenuItem;
|
|
|
N119: TMenuItem;
|
|
|
Label104: TLabel;
|
|
|
DBEdit34: TDBEdit;
|
|
|
N120: TMenuItem;
|
|
|
N121: TMenuItem;
|
|
|
N122: TMenuItem;
|
|
|
PILEDI1: TMenuItem;
|
|
|
Label106: TLabel;
|
|
|
bsSkinPanel8: TbsSkinPanel;
|
|
|
Label13: TLabel;
|
|
|
Label158: TLabel;
|
|
|
Label163: TLabel;
|
|
|
Label122: TLabel;
|
|
|
Label121: TLabel;
|
|
|
Label123: TLabel;
|
|
|
Label6: TLabel;
|
|
|
Label125: TLabel;
|
|
|
Label126: TLabel;
|
|
|
Label124: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label146: TLabel;
|
|
|
Label145: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label25: TLabel;
|
|
|
Label18: TLabel;
|
|
|
Label73: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label32: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label35: TLabel;
|
|
|
Label26: TLabel;
|
|
|
Label27: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Label31: TLabel;
|
|
|
Label28: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label164: TLabel;
|
|
|
Label165: TLabel;
|
|
|
Label166: TLabel;
|
|
|
Label167: TLabel;
|
|
|
Label168: TLabel;
|
|
|
Label169: TLabel;
|
|
|
Label170: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Label34: TLabel;
|
|
|
Label39: TLabel;
|
|
|
Label19: TLabel;
|
|
|
Label100: TLabel;
|
|
|
Label102: TLabel;
|
|
|
Label103: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label105: TLabel;
|
|
|
wwDBLookupCombo48: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo46: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo47: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBMemo37: TDBMemo;
|
|
|
bsSkinButton22: TbsSkinButton;
|
|
|
DBMemo38: TDBMemo;
|
|
|
bsSkinButton21: TbsSkinButton;
|
|
|
DBMemo35: TDBMemo;
|
|
|
DBMemo34: TDBMemo;
|
|
|
DBMemo33: TDBMemo;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
DBMemo1: TDBMemo;
|
|
|
wwDBLookupCombo49: TwwDBLookupCombo;
|
|
|
DBEdit63: TDBEdit;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker6: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
wwDBLookupCombo3: TwwDBLookupCombo;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
wwDBLookupCombo21: TwwDBLookupCombo;
|
|
|
wwDBComboBoxBL: TwwDBComboBox;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
DBEdit25: TDBEdit;
|
|
|
DBEdit27: TDBEdit;
|
|
|
DBEdit26: TDBEdit;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo7: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo9: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo10: TRxDBLookupCombo;
|
|
|
DBMemo39: TDBMemo;
|
|
|
DBMemo40: TDBMemo;
|
|
|
DBMemo41: TDBMemo;
|
|
|
DBMemo42: TDBMemo;
|
|
|
DBEdit80: TDBEdit;
|
|
|
DBEdit81: TDBEdit;
|
|
|
wwDBLookupCombo61: TwwDBLookupCombo;
|
|
|
DBEdit82: TDBEdit;
|
|
|
DBEdit83: TDBEdit;
|
|
|
DBMemo2: TDBMemo;
|
|
|
RxDBLookupCombo11: TRxDBLookupCombo;
|
|
|
bsSkinButton16: TbsSkinButton;
|
|
|
bsSkinButton17: TbsSkinButton;
|
|
|
bsSkinButton18: TbsSkinButton;
|
|
|
bsSkinButton19: TbsSkinButton;
|
|
|
bsSkinButton20: TbsSkinButton;
|
|
|
bsSkinButton23: TbsSkinButton;
|
|
|
bsSkinButton24: TbsSkinButton;
|
|
|
bsSkinButton25: TbsSkinButton;
|
|
|
bsSkinButton26: TbsSkinButton;
|
|
|
RxDBLookupCombo14: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo20: TRxDBLookupCombo;
|
|
|
bsSkinButton37: TbsSkinButton;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
RxDBLookupCombo15: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo28: TRxDBLookupCombo;
|
|
|
Button1: TButton;
|
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
wwDBLookupCombo7: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo11: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo43: TRxDBLookupCombo;
|
|
|
DBEdit32: TDBEdit;
|
|
|
DBEdit33: TDBEdit;
|
|
|
RxDBLookupCombo21: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo22: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo13: TRxDBLookupCombo;
|
|
|
bsSkinButton55: TbsSkinButton;
|
|
|
wwDBComboBox8: TwwDBComboBox;
|
|
|
wwDBDateTimePicker22: TwwDBDateTimePicker;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
bsskintabsheet_1: TbsSkinTabSheet;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label33: TLabel;
|
|
|
RxDBLookupCombo16: TRxDBLookupCombo;
|
|
|
bsSkinButton27: TbsSkinButton;
|
|
|
DBMemo3: TDBMemo;
|
|
|
bsSkinButton28: TbsSkinButton;
|
|
|
RxDBLookupCombo17: TRxDBLookupCombo;
|
|
|
DBMemo4: TDBMemo;
|
|
|
RxDBLookupCombo18: TRxDBLookupCombo;
|
|
|
bsSkinButton29: TbsSkinButton;
|
|
|
DBMemo5: TDBMemo;
|
|
|
bsSkinButton30: TbsSkinButton;
|
|
|
RxDBLookupCombo19: TRxDBLookupCombo;
|
|
|
DBMemo6: TDBMemo;
|
|
|
wwDBLookupCombo2: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo5: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo6: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo8: TwwDBLookupCombo;
|
|
|
bsSkinButton39: TbsSkinButton;
|
|
|
bsskintabsheet_2: TbsSkinTabSheet;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid2Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column17: TdxDBGridColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column7: TdxDBGridDateColumn;
|
|
|
dxDBGrid2Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column11: TdxDBGridColumn;
|
|
|
dxDBGrid2Column12: TdxDBGridColumn;
|
|
|
dxDBGrid2Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column16: TdxDBGridMaskColumn;
|
|
|
Panel1: TPanel;
|
|
|
bsSkinButton31: TbsSkinButton;
|
|
|
bsSkinButton32: TbsSkinButton;
|
|
|
bsSkinButton33: TbsSkinButton;
|
|
|
bsSkinButton34: TbsSkinButton;
|
|
|
bsSkinButton36: TbsSkinButton;
|
|
|
bsSkinButton14: TbsSkinButton;
|
|
|
bsSkinGroupBox9: TbsSkinGroupBox;
|
|
|
Label107: TLabel;
|
|
|
wwDBComboBox4: TwwDBComboBox;
|
|
|
t_op_ctn1: TDataSource;
|
|
|
t_op_ctn: TADOQuery;
|
|
|
strngfld_op_ctnDSDesigner2: TStringField;
|
|
|
strngfld_op_ctnDSDesigner6: TStringField;
|
|
|
intgrfld_op_ctnDSDesigner5: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner7: TStringField;
|
|
|
strngfld_op_ctnDSDesigner8: TStringField;
|
|
|
intgrfld_op_ctnDSDesigner9: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner10: TStringField;
|
|
|
bcdfld_op_ctnDSDesigner11: TBCDField;
|
|
|
bcdfld_op_ctnDSDesigner12: TBCDField;
|
|
|
strngfld_op_ctnDSDesigner1: TStringField;
|
|
|
strngfld_op_ctnDSDesigner13: TStringField;
|
|
|
strngfld_op_ctnDSDesigner14: TStringField;
|
|
|
intgrfld_op_ctnTEU: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner4: TStringField;
|
|
|
strngfld_op_ctnDSDesigner3: TStringField;
|
|
|
atncfld_op_ctnctn_id: TAutoIncField;
|
|
|
strngfld_op_ctnDSDesigner: TStringField;
|
|
|
bsSkinPanel9: TbsSkinPanel;
|
|
|
bsSkinButton56: TbsSkinButton;
|
|
|
bsSkinButton57: TbsSkinButton;
|
|
|
bsSkinButton58: TbsSkinButton;
|
|
|
bsSkinButton59: TbsSkinButton;
|
|
|
bsSkinButton60: TbsSkinButton;
|
|
|
btnMarks: TbsSkinButton;
|
|
|
btnDesc: TbsSkinButton;
|
|
|
wwDBLookupCombo16: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo17: TwwDBLookupCombo;
|
|
|
wwDBGrid1: TwwDBGrid;
|
|
|
Memo4: TMemo;
|
|
|
Memo3: TMemo;
|
|
|
Memo2: TMemo;
|
|
|
Memo1: TMemo;
|
|
|
N123: TMenuItem;
|
|
|
N124: TMenuItem;
|
|
|
DBEdit35: TDBEdit;
|
|
|
N125: TMenuItem;
|
|
|
EDI7: TMenuItem;
|
|
|
N126: TMenuItem;
|
|
|
EDI8: TMenuItem;
|
|
|
Label110: TLabel;
|
|
|
DBEdit36: TDBEdit;
|
|
|
Label112: TLabel;
|
|
|
DBEdit40: TDBEdit;
|
|
|
dxDBGrid1Column117: TdxDBGridColumn;
|
|
|
dxDBGrid1Column118: TdxDBGridColumn;
|
|
|
dxDBGrid1Column119: TdxDBGridColumn;
|
|
|
N127: TMenuItem;
|
|
|
SI1: TMenuItem;
|
|
|
Label113: TLabel;
|
|
|
DBEdit41: TDBEdit;
|
|
|
bsSkinButton61: TbsSkinButton;
|
|
|
Label195: TLabel;
|
|
|
DBEdit61: TDBEdit;
|
|
|
t_op_seae_edi: TADOQuery;
|
|
|
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;
|
|
|
t_op_ctn_edi: TADOQuery;
|
|
|
StringField1: TStringField;
|
|
|
StringField2: TStringField;
|
|
|
StringField3: TStringField;
|
|
|
StringField4: TStringField;
|
|
|
IntegerField1: TIntegerField;
|
|
|
StringField5: TStringField;
|
|
|
BCDField1: TBCDField;
|
|
|
BCDField2: TBCDField;
|
|
|
StringField6: 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;
|
|
|
IntegerField2: TIntegerField;
|
|
|
IntegerField3: TIntegerField;
|
|
|
StringField7: TStringField;
|
|
|
StringField8: TStringField;
|
|
|
AutoIncField1: TAutoIncField;
|
|
|
StringField9: TStringField;
|
|
|
t_op_ctn_ediDSDesigner4: TStringField;
|
|
|
Label174: TLabel;
|
|
|
DBEdit59: TDBEdit;
|
|
|
Label175: TLabel;
|
|
|
DBEdit60: TDBEdit;
|
|
|
DBEdit42: TDBEdit;
|
|
|
Label114: TLabel;
|
|
|
bsSkinButton65: TbsSkinButton;
|
|
|
N128: TMenuItem;
|
|
|
N129: TMenuItem;
|
|
|
Label115: TLabel;
|
|
|
RxDBLookupCombo44: TRxDBLookupCombo;
|
|
|
Label134: TLabel;
|
|
|
RxDBLookupCombo45: TRxDBLookupCombo;
|
|
|
dxDBGrid1Column120: TdxDBGridColumn;
|
|
|
dxDBGrid1Column121: TdxDBGridColumn;
|
|
|
dxDBGrid1Column122: TdxDBGridColumn;
|
|
|
dxDBGrid1Column123: TdxDBGridColumn;
|
|
|
dxDBGrid1Column124: TdxDBGridColumn;
|
|
|
dxDBGrid1Column125: TdxDBGridColumn;
|
|
|
dxDBGrid1Column126: TdxDBGridColumn;
|
|
|
Label135: TLabel;
|
|
|
DBEdit43: TDBEdit;
|
|
|
Label136: TLabel;
|
|
|
DBEdit44: TDBEdit;
|
|
|
N130: TMenuItem;
|
|
|
N131: TMenuItem;
|
|
|
bsSkinGroupBox14: TbsSkinGroupBox;
|
|
|
bsSkinButton62: TbsSkinButton;
|
|
|
bsSkinButton67: TbsSkinButton;
|
|
|
bsSkinButton69: TbsSkinButton;
|
|
|
bsSkinButton70: TbsSkinButton;
|
|
|
bsSkinButton68: TbsSkinButton;
|
|
|
bsSkinButton63: TbsSkinButton;
|
|
|
bsSkinGroupBox15: TbsSkinGroupBox;
|
|
|
bsSkinButton72: TbsSkinButton;
|
|
|
bsSkinButton73: TbsSkinButton;
|
|
|
bsSkinButton71: TbsSkinButton;
|
|
|
GetSPXStatusQry: TADOQuery;
|
|
|
GetCtnQry: TADOQuery;
|
|
|
DataSource1: TDataSource;
|
|
|
ADOQuery1: TADOQuery;
|
|
|
GetRHQry: TADOQuery;
|
|
|
GetCtnDS: TDataSource;
|
|
|
bsSkinButton64: TbsSkinButton;
|
|
|
PopView_Load: TPopupMenu;
|
|
|
MenuItem1: TMenuItem;
|
|
|
MenuItem2: TMenuItem;
|
|
|
MenuItem3: TMenuItem;
|
|
|
MenuItem4: TMenuItem;
|
|
|
MenuItem5: TMenuItem;
|
|
|
N132: TMenuItem;
|
|
|
N133: TMenuItem;
|
|
|
Label137: TLabel;
|
|
|
wwDBLookupCombo18: TwwDBLookupCombo;
|
|
|
bsSkinButton66: TbsSkinButton;
|
|
|
N134: TMenuItem;
|
|
|
EDI9: TMenuItem;
|
|
|
t_op_ctnDSDesigner2: TBCDField;
|
|
|
t_op_ctnDSDesigner: TStringField;
|
|
|
t_op_ctnDSDesigner3: TBCDField;
|
|
|
t_op_ctnDSDesigner4: TStringField;
|
|
|
t_op_ctnVGM: TStringField;
|
|
|
t_op_ctnVGM2: TStringField;
|
|
|
t_op_ctnVGM3: TStringField;
|
|
|
t_op_ctnVGM4: TDateTimeField;
|
|
|
t_op_ctnDSDesigner5: TStringField;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
RxDBLookupCombo46: TRxDBLookupCombo;
|
|
|
Label138: TLabel;
|
|
|
bsSkinGroupBox19: TbsSkinGroupBox;
|
|
|
PILEDI2: TMenuItem;
|
|
|
N135: TMenuItem;
|
|
|
Label139: TLabel;
|
|
|
wwDBDateTimePicker23: TwwDBDateTimePicker;
|
|
|
Label417: TLabel;
|
|
|
Label418: TLabel;
|
|
|
Label419: TLabel;
|
|
|
Label420: TLabel;
|
|
|
Label421: TLabel;
|
|
|
Label422: TLabel;
|
|
|
Label423: TLabel;
|
|
|
Label424: TLabel;
|
|
|
Label425: TLabel;
|
|
|
Label426: TLabel;
|
|
|
Label427: TLabel;
|
|
|
Label428: TLabel;
|
|
|
Label429: TLabel;
|
|
|
Label430: TLabel;
|
|
|
Label431: TLabel;
|
|
|
wwDBComboBox21: TwwDBComboBox;
|
|
|
wwDBComboBox22: TwwDBComboBox;
|
|
|
DBEdit234: TDBEdit;
|
|
|
DBEdit235: TDBEdit;
|
|
|
DBEdit236: TDBEdit;
|
|
|
DBMemo18: TDBMemo;
|
|
|
DBMemo25: TDBMemo;
|
|
|
wwDBComboBox23: TwwDBComboBox;
|
|
|
DBEdit237: TDBEdit;
|
|
|
DBEdit238: TDBEdit;
|
|
|
DBEdit239: TDBEdit;
|
|
|
wwDBComboBox24: TwwDBComboBox;
|
|
|
DBMemo26: TDBMemo;
|
|
|
DBMemo27: TDBMemo;
|
|
|
DBMemo28: TDBMemo;
|
|
|
Label140: TLabel;
|
|
|
wwDBComboBox6: TwwDBComboBox;
|
|
|
bsSkinGroupBox10: TbsSkinGroupBox;
|
|
|
Label141: TLabel;
|
|
|
wwDBComboBox7: TwwDBComboBox;
|
|
|
Label142: TLabel;
|
|
|
wwDBComboBox9: TwwDBComboBox;
|
|
|
Label143: TLabel;
|
|
|
DBEdit45: TDBEdit;
|
|
|
Label144: TLabel;
|
|
|
DBEdit46: TDBEdit;
|
|
|
Label147: TLabel;
|
|
|
wwDBComboBox10: TwwDBComboBox;
|
|
|
Label148: TLabel;
|
|
|
DBEdit47: TDBEdit;
|
|
|
Label149: TLabel;
|
|
|
DBEdit48: TDBEdit;
|
|
|
DBEdit49: TDBEdit;
|
|
|
Label150: TLabel;
|
|
|
Label151: TLabel;
|
|
|
wwDBComboBox13: TwwDBComboBox;
|
|
|
Label152: TLabel;
|
|
|
DBEdit50: TDBEdit;
|
|
|
Label153: TLabel;
|
|
|
DBEdit51: TDBEdit;
|
|
|
Label154: TLabel;
|
|
|
DBEdit52: TDBEdit;
|
|
|
N136: TMenuItem;
|
|
|
ONEEDI1: TMenuItem;
|
|
|
Label434: TLabel;
|
|
|
DBEdit240: TDBEdit;
|
|
|
Label432: TLabel;
|
|
|
wwDBComboBox25: TwwDBComboBox;
|
|
|
Label433: TLabel;
|
|
|
wwDBComboBox26: TwwDBComboBox;
|
|
|
Label436: TLabel;
|
|
|
wwDBComboBox27: TwwDBComboBox;
|
|
|
Label435: TLabel;
|
|
|
DBEdit241: TDBEdit;
|
|
|
Label223: TLabel;
|
|
|
wwDBLookupCombo27: TwwDBLookupCombo;
|
|
|
|
|
|
bsSkinGroupBox21: TbsSkinGroupBox;
|
|
|
Label438: TLabel;
|
|
|
Label440: TLabel;
|
|
|
Label447: TLabel;
|
|
|
Label450: TLabel;
|
|
|
DBEdit243: TDBEdit;
|
|
|
DBEdit244: TDBEdit;
|
|
|
DBEdit251: TDBEdit;
|
|
|
DBEdit254: TDBEdit;
|
|
|
bsSkinGroupBox22: TbsSkinGroupBox;
|
|
|
Label441: TLabel;
|
|
|
Label443: TLabel;
|
|
|
Label448: TLabel;
|
|
|
Label451: TLabel;
|
|
|
DBEdit246: TDBEdit;
|
|
|
DBEdit247: TDBEdit;
|
|
|
DBEdit252: TDBEdit;
|
|
|
DBEdit255: TDBEdit;
|
|
|
bsSkinGroupBox23: TbsSkinGroupBox;
|
|
|
Label444: TLabel;
|
|
|
Label446: TLabel;
|
|
|
Label449: TLabel;
|
|
|
Label452: TLabel;
|
|
|
DBEdit249: TDBEdit;
|
|
|
DBEdit250: TDBEdit;
|
|
|
DBEdit253: TDBEdit;
|
|
|
DBEdit256: TDBEdit;
|
|
|
bsSkinButton74: TbsSkinButton;
|
|
|
bsSkinButton75: TbsSkinButton;
|
|
|
bsSkinButton76: TbsSkinButton;
|
|
|
bsSkinButton77: TbsSkinButton;
|
|
|
Label155: TLabel;
|
|
|
DBEdit53: TDBEdit;
|
|
|
dxDBGrid1Column128: TdxDBGridColumn;
|
|
|
t_op_ctndetail: TADOQuery;
|
|
|
t_op_ctndetailid: TAutoIncField;
|
|
|
t_op_ctndetailctn_id: TIntegerField;
|
|
|
t_op_ctndetailDSDesigner: TStringField;
|
|
|
t_op_ctndetailDSDesigner2: TStringField;
|
|
|
t_op_ctndetailDSDesigner3: TSmallintField;
|
|
|
t_op_ctndetailDSDesigner4: TStringField;
|
|
|
t_op_ctndetailDSDesigner5: TIntegerField;
|
|
|
t_op_ctndetailHTS: TStringField;
|
|
|
t_op_ctndetailDSDesigner6: TBCDField;
|
|
|
t_op_ctndetailDSDesigner7: TStringField;
|
|
|
t_op_ctndetailDSDesigner8: TStringField;
|
|
|
t_op_ctndetailDSDesigner9: TBCDField;
|
|
|
t_op_ctndetailPACKAGE: TStringField;
|
|
|
t_op_ctndetailTRADETYPE: TStringField;
|
|
|
t_op_ctndetail1: TDataSource;
|
|
|
N137: TMenuItem;
|
|
|
N138: TMenuItem;
|
|
|
DBEdit54: TDBEdit;
|
|
|
Label156: TLabel;
|
|
|
bsSkinButton78: TbsSkinButton;
|
|
|
N139: TMenuItem;
|
|
|
EDI10: TMenuItem;
|
|
|
bsSkinDBCheckRadioBox20: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox26: TbsSkinDBCheckRadioBox;
|
|
|
dxDBGrid1Column129: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column130: TdxDBGridCheckColumn;
|
|
|
Label157: TLabel;
|
|
|
DBEdit55: TDBEdit;
|
|
|
N140: TMenuItem;
|
|
|
N141: TMenuItem;
|
|
|
wwDBComboBox14: TwwDBComboBox;
|
|
|
Label159: TLabel;
|
|
|
DBEdit56: TDBEdit;
|
|
|
Label160: TLabel;
|
|
|
dxDBGrid1Column131: TdxDBGridColumn;
|
|
|
dxDBGrid1Column132: TdxDBGridColumn;
|
|
|
bsSkinTabSheet11: TbsSkinTabSheet;
|
|
|
aq_receipt_doc: TADOQuery;
|
|
|
ds_receipt_doc: TDataSource;
|
|
|
bsSkinGroupBox20: TbsSkinGroupBox;
|
|
|
bsSkinPanel17: TbsSkinPanel;
|
|
|
Label437: TLabel;
|
|
|
bsSkinButton89: TbsSkinButton;
|
|
|
bsSkinButton90: TbsSkinButton;
|
|
|
bsSkinButton91: TbsSkinButton;
|
|
|
bsSkinButton92: TbsSkinButton;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGrid4Column5: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
CheckBox1: TCheckBox;
|
|
|
t_op_file: TADOQuery;
|
|
|
dsrFuJian: TDataSource;
|
|
|
OpenDialog1: TOpenDialog;
|
|
|
SaveDialog1: TSaveDialog;
|
|
|
ComboBox1: TwwDBLookupCombo;
|
|
|
Label161: TLabel;
|
|
|
DBEdit57: TDBEdit;
|
|
|
Label162: TLabel;
|
|
|
DBEdit58: TDBEdit;
|
|
|
Label171: TLabel;
|
|
|
Label172: TLabel;
|
|
|
DBEdit62: TDBEdit;
|
|
|
Label173: TLabel;
|
|
|
DBEdit64: TDBEdit;
|
|
|
Label176: TLabel;
|
|
|
Label177: TLabel;
|
|
|
DBEdit65: TDBEdit;
|
|
|
Label178: TLabel;
|
|
|
DBEdit66: TDBEdit;
|
|
|
Label180: TLabel;
|
|
|
Label182: TLabel;
|
|
|
wwDBDateTimePicker24: TwwDBDateTimePicker;
|
|
|
Label183: TLabel;
|
|
|
wwDBDateTimePicker25: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker26: TwwDBDateTimePicker;
|
|
|
Label184: TLabel;
|
|
|
Label186: TLabel;
|
|
|
wwDBDateTimePicker27: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker28: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker29: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker30: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker31: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker32: TwwDBDateTimePicker;
|
|
|
t_op_ctnDSDesigner6: TDateTimeField;
|
|
|
t_op_ctnDSDesigner7: TDateTimeField;
|
|
|
t_op_ctnDSDesigner8: TDateTimeField;
|
|
|
t_op_ctnDSDesigner9: TDateTimeField;
|
|
|
t_op_ctnDSDesigner10: TDateTimeField;
|
|
|
t_op_ctnDSDesigner11: TDateTimeField;
|
|
|
t_op_ctnDSDesigner12: TDateTimeField;
|
|
|
t_op_ctnDSDesigner13: TBCDField;
|
|
|
t_op_ctnDSDesigner14: TIntegerField;
|
|
|
Panel4: TPanel;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
Label43: TLabel;
|
|
|
Label45: TLabel;
|
|
|
Label46: TLabel;
|
|
|
Label47: TLabel;
|
|
|
Label54: TLabel;
|
|
|
Label60: TLabel;
|
|
|
Label61: TLabel;
|
|
|
Label64: TLabel;
|
|
|
Label76: TLabel;
|
|
|
Label77: TLabel;
|
|
|
Label78: TLabel;
|
|
|
Label79: TLabel;
|
|
|
wwDBLookupCombo1: TwwDBLookupCombo;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
wwDBLookupCombo4: TwwDBLookupCombo;
|
|
|
DBEdit12: TDBEdit;
|
|
|
wwDBLookupCombo9: TwwDBLookupCombo;
|
|
|
DBEdit19: TDBEdit;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
wwDBLookupCombo10: TwwDBLookupCombo;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker13: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker14: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker15: TwwDBDateTimePicker;
|
|
|
bsSkinGroupBox5: TbsSkinGroupBox;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
Label101: TLabel;
|
|
|
DBEdit31: TDBEdit;
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label80: TLabel;
|
|
|
RxDBLookupCombo32: TRxDBLookupCombo;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinPanel6: TbsSkinPanel;
|
|
|
Label81: TLabel;
|
|
|
RxDBLookupCombo33: TRxDBLookupCombo;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinGroupBox6: TbsSkinGroupBox;
|
|
|
Label40: TLabel;
|
|
|
Label52: TLabel;
|
|
|
Label53: TLabel;
|
|
|
Label87: TLabel;
|
|
|
Label117: TLabel;
|
|
|
Label118: TLabel;
|
|
|
Label119: TLabel;
|
|
|
Label120: TLabel;
|
|
|
Label127: TLabel;
|
|
|
bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker7: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker8: TwwDBDateTimePicker;
|
|
|
bsSkinDBCheckRadioBox12: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinButton35: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox13: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker11: TwwDBDateTimePicker;
|
|
|
bsSkinButton40: TbsSkinButton;
|
|
|
bsSkinButton41: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker16: TwwDBDateTimePicker;
|
|
|
bsSkinButton42: TbsSkinButton;
|
|
|
bsSkinButton43: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox21: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker17: TwwDBDateTimePicker;
|
|
|
bsSkinButton46: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox22: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker18: TwwDBDateTimePicker;
|
|
|
bsSkinButton47: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox23: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker19: TwwDBDateTimePicker;
|
|
|
bsSkinButton48: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox24: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker20: TwwDBDateTimePicker;
|
|
|
bsSkinButton49: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox25: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker21: TwwDBDateTimePicker;
|
|
|
bsSkinButton50: TbsSkinButton;
|
|
|
bsSkinGroupBox2: TbsSkinGroupBox;
|
|
|
Label44: TLabel;
|
|
|
Label48: TLabel;
|
|
|
Label49: TLabel;
|
|
|
Label50: TLabel;
|
|
|
Label51: TLabel;
|
|
|
Label55: TLabel;
|
|
|
Label62: TLabel;
|
|
|
Label66: TLabel;
|
|
|
Label67: TLabel;
|
|
|
Label68: TLabel;
|
|
|
Label69: TLabel;
|
|
|
Label70: TLabel;
|
|
|
wwDBDateTimePicker5: TwwDBDateTimePicker;
|
|
|
DBEdit13: TDBEdit;
|
|
|
RxDBLookupCombo23: TRxDBLookupCombo;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit15: TDBEdit;
|
|
|
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
|
|
|
wwDBDateTimePicker10: TwwDBDateTimePicker;
|
|
|
DBEdit17: TDBEdit;
|
|
|
DBEdit20: TDBEdit;
|
|
|
DBEdit21: TDBEdit;
|
|
|
DBEdit22: TDBEdit;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit16: TDBEdit;
|
|
|
bsSkinGroupBox11: TbsSkinGroupBox;
|
|
|
t_op_rpastate1: TDataSource;
|
|
|
t_op_rpastate: TADOQuery;
|
|
|
Panel5: TPanel;
|
|
|
bsSkinButton79: TbsSkinButton;
|
|
|
bsSkinButton80: TbsSkinButton;
|
|
|
bsSkinButton81: TbsSkinButton;
|
|
|
bsSkinButton82: TbsSkinButton;
|
|
|
PopupMenu5: TPopupMenu;
|
|
|
RPA1: TMenuItem;
|
|
|
RPA2: TMenuItem;
|
|
|
RPA3: TMenuItem;
|
|
|
N142: TMenuItem;
|
|
|
RPA4: TMenuItem;
|
|
|
RPA5: TMenuItem;
|
|
|
RPA6: TMenuItem;
|
|
|
N143: TMenuItem;
|
|
|
RPA7: TMenuItem;
|
|
|
RPA8: TMenuItem;
|
|
|
RPA9: TMenuItem;
|
|
|
N144: TMenuItem;
|
|
|
RPA10: TMenuItem;
|
|
|
RPA11: TMenuItem;
|
|
|
RPA12: TMenuItem;
|
|
|
bsSkinButton83: TbsSkinButton;
|
|
|
wwDBGrid2: TwwDBGrid;
|
|
|
wwDBDateTimePicker33: TwwDBDateTimePicker;
|
|
|
kbmThreadDataSet1: TkbmThreadDataSet;
|
|
|
kbmBinaryStreamFormat2: TkbmBinaryStreamFormat;
|
|
|
kbmMemTable2: TkbmMemTable;
|
|
|
kbmMemTable2Field10: TStringField;
|
|
|
kbmMemTable2Field: TStringField;
|
|
|
kbmMemTable2Field2: TStringField;
|
|
|
dxDBGrid1Column133: TdxDBGridColumn;
|
|
|
dxDBGrid1Column134: TdxDBGridColumn;
|
|
|
dxDBGrid1Column135: TdxDBGridColumn;
|
|
|
dxDBGrid1Column136: TdxDBGridColumn;
|
|
|
dxDBGrid1Column137: TdxDBGridColumn;
|
|
|
DBEdit67: TDBEdit;
|
|
|
Label192: TLabel;
|
|
|
wwDBLookupCombo19: TwwDBLookupCombo;
|
|
|
t_code_voyage: TADOQuery;
|
|
|
t_code_voyage1: TDataSource;
|
|
|
DBEdit68: TDBEdit;
|
|
|
Label193: TLabel;
|
|
|
dxDBGrid1Column138: TdxDBGridColumn;
|
|
|
Label194: TLabel;
|
|
|
wwDBDateTimePicker34: TwwDBDateTimePicker;
|
|
|
bsSkinDBCheckRadioBox27: TbsSkinDBCheckRadioBox;
|
|
|
Label196: TLabel;
|
|
|
wwDBDateTimePicker35: TwwDBDateTimePicker;
|
|
|
bsSkinButton84: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox28: TbsSkinDBCheckRadioBox;
|
|
|
Label197: TLabel;
|
|
|
wwDBDateTimePicker36: TwwDBDateTimePicker;
|
|
|
bsSkinButton85: TbsSkinButton;
|
|
|
bsSkinDBCheckRadioBox29: TbsSkinDBCheckRadioBox;
|
|
|
Label198: TLabel;
|
|
|
wwDBDateTimePicker37: TwwDBDateTimePicker;
|
|
|
bsSkinButton86: TbsSkinButton;
|
|
|
dxDBGrid1Column139: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column140: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column141: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column142: TdxDBGridColumn;
|
|
|
dxDBGrid1Column143: TdxDBGridColumn;
|
|
|
dxDBGrid1Column144: TdxDBGridColumn;
|
|
|
N145: TMenuItem;
|
|
|
AMS1: TMenuItem;
|
|
|
N146: TMenuItem;
|
|
|
N1Y1: TMenuItem;
|
|
|
N147: TMenuItem;
|
|
|
N3Z1: TMenuItem;
|
|
|
DBEdit69: TDBEdit;
|
|
|
Label199: TLabel;
|
|
|
bsSkinDBCheckRadioBox30: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox31: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox32: TbsSkinDBCheckRadioBox;
|
|
|
dxDBGrid1Column145: TdxDBGridColumn;
|
|
|
Label111: TLabel;
|
|
|
DBEdit37: TDBEdit;
|
|
|
Label200: TLabel;
|
|
|
DBEdit70: TDBEdit;
|
|
|
dxDBGrid1Column146: TdxDBGridColumn;
|
|
|
t_op_seae_trace: TADOQuery;
|
|
|
t_op_seae_trace1: TDataSource;
|
|
|
bsSkinButton87: TbsSkinButton;
|
|
|
dxDBGrid1Column147: TdxDBGridColumn;
|
|
|
dxDBGrid1Column148: TdxDBGridColumn;
|
|
|
dxDBGrid1Column149: TdxDBGridColumn;
|
|
|
bsSkinButton93: TbsSkinButton;
|
|
|
Label201: TLabel;
|
|
|
RxDBLookupCombo47: TRxDBLookupCombo;
|
|
|
Button2: TButton;
|
|
|
bsSkinButtonSI: TbsSkinButton;
|
|
|
DBMemo17: TDBMemo;
|
|
|
Label202: TLabel;
|
|
|
DBMemo19: TDBMemo;
|
|
|
bsSkinButton2N: TbsSkinButton;
|
|
|
Label203: TLabel;
|
|
|
Label204: TLabel;
|
|
|
DBEdit72: TDBEdit;
|
|
|
Label205: TLabel;
|
|
|
DBEdit74: TDBEdit;
|
|
|
Label206: TLabel;
|
|
|
DBEdit75: TDBEdit;
|
|
|
dxDBGrid1Column150: TdxDBGridColumn;
|
|
|
dxDBGrid1Column151: TdxDBGridColumn;
|
|
|
dxDBGrid1Column152: TdxDBGridColumn;
|
|
|
wwDBLookupCombo20: TwwDBLookupCombo;
|
|
|
Label207: TLabel;
|
|
|
dxDBGrid1Column153: TdxDBGridColumn;
|
|
|
t_op_seae_edit1: TDataSource;
|
|
|
t_op_seae_edit: TADOQuery;
|
|
|
dxDBGrid1Column154: TdxDBGridColumn;
|
|
|
dxDBGrid1Column155: TdxDBGridColumn;
|
|
|
dxDBGrid1Column156: TdxDBGridColumn;
|
|
|
|
|
|
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 RxDBLookupCombo18Change(Sender: TObject);
|
|
|
procedure bsSkinButton26Click(Sender: TObject);
|
|
|
procedure bsSkinButton25Click(Sender: TObject);
|
|
|
procedure bsSkinButton24Click(Sender: TObject);
|
|
|
procedure bsSkinButton23Click(Sender: TObject);
|
|
|
procedure bsSkinButton21Click(Sender: TObject);
|
|
|
procedure bsSkinButton22Click(Sender: TObject);
|
|
|
procedure bsSkinButton16Click(Sender: TObject);
|
|
|
procedure bsSkinButton17Click(Sender: TObject);
|
|
|
procedure bsSkinButton18Click(Sender: TObject);
|
|
|
procedure bsSkinButton19Click(Sender: TObject);
|
|
|
procedure bsSkinButton20Click(Sender: TObject);
|
|
|
procedure DBMemo40Change(Sender: TObject);
|
|
|
procedure DBMemo41Change(Sender: TObject);
|
|
|
procedure DBMemo42Change(Sender: TObject);
|
|
|
procedure DBMemo41Exit(Sender: TObject);
|
|
|
procedure DBMemo42Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo61Change(Sender: TObject);
|
|
|
procedure bsSkinButton37Click(Sender: TObject);
|
|
|
procedure DBEdit5Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo52Change(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
procedure N2Click(Sender: TObject);
|
|
|
procedure N5Click(Sender: TObject);
|
|
|
procedure N6Click(Sender: TObject);
|
|
|
procedure N4Click(Sender: TObject);
|
|
|
procedure N24Click(Sender: TObject);
|
|
|
procedure N22Click(Sender: TObject);
|
|
|
procedure N27Click(Sender: TObject);
|
|
|
procedure N29Click(Sender: TObject);
|
|
|
procedure N9Click(Sender: TObject);
|
|
|
procedure bsSkinButton34Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo19Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo11Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Change(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGrid2Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
|
procedure EXCEL1Click(Sender: TObject);
|
|
|
procedure Panel2Resize(Sender: TObject);
|
|
|
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit63KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBoxBLKeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo15KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit80KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit81KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo61KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit82KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure wwDBDateTimePicker5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo23KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure RxDBLookupCombo24KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo25KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo27KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo26KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit71KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit73KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit109KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit114KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit112KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure EDI1Click(Sender: TObject);
|
|
|
procedure Button1Click(Sender: TObject);
|
|
|
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure t_op_seae_fenAfterInsert(DataSet: TDataSet);
|
|
|
procedure DBEdit3Change(Sender: TObject);
|
|
|
procedure DBEdit2Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo46Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo47Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo48Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo46Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo46Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo47Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo48Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo47Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo48Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo46KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo47KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo48KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo18KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo2Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo5Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo6Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo2Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo5Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo6Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo12Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo14Change(Sender: TObject);
|
|
|
procedure wwDBComboBox3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure N17Click(Sender: TObject);
|
|
|
procedure bsSkinButton13Click(Sender: TObject);
|
|
|
procedure N34Click(Sender: TObject);
|
|
|
procedure N36Click(Sender: TObject);
|
|
|
procedure N37Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo9Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo6Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo8Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo7Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo10Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo9Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo6Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo8Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo7Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo10Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo16Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo17Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo18Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo16Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo17Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo18Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo19Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo19Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo28Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo28Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo15Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo15Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo20Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo20Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo11Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo11Exit(Sender: TObject);
|
|
|
procedure N40Click(Sender: TObject);
|
|
|
procedure N42Click(Sender: TObject);
|
|
|
procedure N44Click(Sender: TObject);
|
|
|
procedure N46Click(Sender: TObject);
|
|
|
procedure Label4Click(Sender: TObject);
|
|
|
procedure Label23Click(Sender: TObject);
|
|
|
procedure Label24Click(Sender: TObject);
|
|
|
procedure Label29Click(Sender: TObject);
|
|
|
procedure Label33Click(Sender: TObject);
|
|
|
procedure Label12Click(Sender: TObject);
|
|
|
procedure Label9Click(Sender: TObject);
|
|
|
procedure Label11Click(Sender: TObject);
|
|
|
procedure Label10Click(Sender: TObject);
|
|
|
procedure Label8Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo2DblClick(Sender: TObject);
|
|
|
procedure Label125Click(Sender: TObject);
|
|
|
procedure Label7Click(Sender: TObject);
|
|
|
procedure Label35Click(Sender: TObject);
|
|
|
procedure Label30Click(Sender: TObject);
|
|
|
procedure Label73Click(Sender: TObject);
|
|
|
procedure Label164Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo61DblClick(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure bsSkinButton14Click(Sender: TObject);
|
|
|
procedure N55Click(Sender: TObject);
|
|
|
procedure N51Click(Sender: TObject);
|
|
|
procedure N53Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo31Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo31Exit(Sender: TObject);
|
|
|
procedure N58Click(Sender: TObject);
|
|
|
procedure N60Click(Sender: TObject);
|
|
|
procedure t_op_seae_huanhuoAfterInsert(DataSet: TDataSet);
|
|
|
procedure N32Click(Sender: TObject);
|
|
|
procedure N26Click(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure wwDBLookupCombo7Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo7Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo7Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo8Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo8Exit(Sender: TObject);
|
|
|
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinButton35Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo1Change(Sender: TObject);
|
|
|
procedure N62Click(Sender: TObject);
|
|
|
procedure N64Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGrid2Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError;
|
|
|
var Action: TDataAction);
|
|
|
procedure N66Click(Sender: TObject);
|
|
|
procedure t_op_seaeAfterPost(DataSet: TDataSet);
|
|
|
procedure N68Click(Sender: TObject);
|
|
|
procedure N70Click(Sender: TObject);
|
|
|
procedure N72Click(Sender: TObject);
|
|
|
procedure Notebook1PageChanged(Sender: TObject);
|
|
|
procedure bsSkinButton15Click(Sender: TObject);
|
|
|
procedure wwDBDateTimePicker14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker15KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure N74Click(Sender: TObject);
|
|
|
procedure t_op_seae_fenPostError(DataSet: TDataSet; E: EDatabaseError;
|
|
|
var Action: TDataAction);
|
|
|
procedure wwDBDateTimePicker2Change(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure N76Click(Sender: TObject);
|
|
|
procedure N78Click(Sender: TObject);
|
|
|
procedure N80Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo11Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo11Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo11DblClick(Sender: TObject);
|
|
|
procedure t_op_seaeBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_seae_fenBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_seae_fenBeforeCancel(DataSet: TDataSet);
|
|
|
procedure t_op_seaeBeforeCancel(DataSet: TDataSet);
|
|
|
procedure RxDBLookupCombo32KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo33KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure N82Click(Sender: TObject);
|
|
|
procedure N84Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo36Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo36Exit(Sender: TObject);
|
|
|
procedure bsSkinButton39Click(Sender: TObject);
|
|
|
procedure bsSkinButton42Click(Sender: TObject);
|
|
|
procedure bsSkinButton40Click(Sender: TObject);
|
|
|
procedure bsSkinButton41Click(Sender: TObject);
|
|
|
procedure bsSkinButton43Click(Sender: TObject);
|
|
|
procedure CMAEDI1Click(Sender: TObject);
|
|
|
procedure Label92Click(Sender: TObject);
|
|
|
procedure Label93Click(Sender: TObject);
|
|
|
procedure Label56Click(Sender: TObject);
|
|
|
procedure N88Click(Sender: TObject);
|
|
|
procedure N87Click(Sender: TObject);
|
|
|
procedure ANE1Click(Sender: TObject);
|
|
|
procedure N97Click(Sender: TObject);
|
|
|
procedure N99Click(Sender: TObject);
|
|
|
procedure WORD1Click(Sender: TObject);
|
|
|
procedure N102Click(Sender: TObject);
|
|
|
procedure N104Click(Sender: TObject);
|
|
|
procedure bsSkinPanel7MouseLeave(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox16Click(Sender: TObject);
|
|
|
procedure bsSkinButton44Click(Sender: TObject);
|
|
|
procedure DBEdit33KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox17Click(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox18Click(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox19Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBLookupComboboxPORTDISCHARGEIDChange(Sender: TObject);
|
|
|
procedure RxDBLookupCombo22Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo21Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure EDI3Click(Sender: TObject);
|
|
|
procedure bsSkinButton45Click(Sender: TObject);
|
|
|
procedure N106Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo40Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo40Exit(Sender: TObject);
|
|
|
procedure bsSkinButton46Click(Sender: TObject);
|
|
|
procedure bsSkinButton47Click(Sender: TObject);
|
|
|
procedure bsSkinButton48Click(Sender: TObject);
|
|
|
procedure bsSkinButton49Click(Sender: TObject);
|
|
|
procedure bsSkinButton50Click(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox17Enter(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox16Enter(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox18Enter(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox19Enter(Sender: TObject);
|
|
|
procedure bsSkinButton51Click(Sender: TObject);
|
|
|
procedure bsSkinButton52Click(Sender: TObject);
|
|
|
procedure bsSkinButton53Click(Sender: TObject);
|
|
|
procedure bsSkinButton54Click(Sender: TObject);
|
|
|
procedure bsSkinButton55Click(Sender: TObject);
|
|
|
procedure wwDBComboBox8Enter(Sender: TObject);
|
|
|
procedure wwDBComboBox8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox8Change(Sender: TObject);
|
|
|
procedure EDI4Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo12Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo50Change(Sender: TObject);
|
|
|
procedure NYKEDI1Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo51Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo13Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo52Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo14Change(Sender: TObject);
|
|
|
procedure EDI5Click(Sender: TObject);
|
|
|
procedure N111Click(Sender: TObject);
|
|
|
procedure EDI6Click(Sender: TObject);
|
|
|
procedure N115Click(Sender: TObject);
|
|
|
procedure N117Click(Sender: TObject);
|
|
|
procedure N119Click(Sender: TObject);
|
|
|
procedure N121Click(Sender: TObject);
|
|
|
procedure PILEDI1Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo15Change(Sender: TObject);
|
|
|
procedure bsSkinButton56Click(Sender: TObject);
|
|
|
procedure bsSkinButton57Click(Sender: TObject);
|
|
|
procedure bsSkinButton58Click(Sender: TObject);
|
|
|
procedure bsSkinButton59Click(Sender: TObject);
|
|
|
procedure btnMarksClick(Sender: TObject);
|
|
|
procedure btnDescClick(Sender: TObject);
|
|
|
procedure bsSkinButton60Click(Sender: TObject);
|
|
|
procedure t_op_ctnAfterInsert(DataSet: TDataSet);
|
|
|
procedure t_op_ctnAfterDelete(DataSet: TDataSet);
|
|
|
procedure t_op_ctnBeforeDelete(DataSet: TDataSet);
|
|
|
procedure t_op_ctnBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_ctnBeforePost(DataSet: TDataSet);
|
|
|
procedure wwDBLookupCombo17Change(Sender: TObject);
|
|
|
procedure N124Click(Sender: TObject);
|
|
|
procedure t_op_seaeAfterRefresh(DataSet: TDataSet);
|
|
|
procedure DBEdit35Change(Sender: TObject);
|
|
|
procedure EDI7Click(Sender: TObject);
|
|
|
procedure EDI8Click(Sender: TObject);
|
|
|
procedure DBMemo33Change(Sender: TObject);
|
|
|
procedure DBMemo33Click(Sender: TObject);
|
|
|
procedure DBMemo34Change(Sender: TObject);
|
|
|
procedure DBMemo34Click(Sender: TObject);
|
|
|
procedure DBMemo35Change(Sender: TObject);
|
|
|
procedure DBMemo35Click(Sender: TObject);
|
|
|
procedure DBMemo38Change(Sender: TObject);
|
|
|
procedure DBMemo38Click(Sender: TObject);
|
|
|
procedure DBMemo39Change(Sender: TObject);
|
|
|
procedure DBMemo39Click(Sender: TObject);
|
|
|
procedure SI1Click(Sender: TObject);
|
|
|
procedure bsSkinButton61Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo17KeyUp(Sender: TObject; var Key: Word;
|
|
|
Shift: TShiftState);
|
|
|
procedure bsSkinButton65Click(Sender: TObject);
|
|
|
procedure N129Click(Sender: TObject);
|
|
|
procedure wwDBGrid1DblClick(Sender: TObject);
|
|
|
procedure Label115Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo44Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo44Exit(Sender: TObject);
|
|
|
procedure DBEdit1Change(Sender: TObject);
|
|
|
procedure dxDBGrid1Column10CustomDraw(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 N131Click(Sender: TObject);
|
|
|
procedure bsSkinButton67Click(Sender: TObject);
|
|
|
procedure bsSkinButton69Click(Sender: TObject);
|
|
|
procedure bsSkinButton70Click(Sender: TObject);
|
|
|
procedure bsSkinButton68Click(Sender: TObject);
|
|
|
procedure bsSkinButton72Click(Sender: TObject);
|
|
|
procedure bsSkinButton73Click(Sender: TObject);
|
|
|
procedure bsSkinButton71Click(Sender: TObject);
|
|
|
procedure bsSkinButton64Click(Sender: TObject);
|
|
|
procedure N133Click(Sender: TObject);
|
|
|
procedure MenuItem1Click(Sender: TObject);
|
|
|
procedure MenuItem3Click(Sender: TObject);
|
|
|
procedure MenuItem4Click(Sender: TObject);
|
|
|
procedure MenuItem5Click(Sender: TObject);
|
|
|
procedure strngfld_op_ctnDSDesigner2Change(Sender: TField);
|
|
|
procedure bsSkinButton66Click(Sender: TObject);
|
|
|
procedure EDI9Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo46Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo46Exit(Sender: TObject);
|
|
|
procedure PILEDI2Click(Sender: TObject);
|
|
|
procedure ONEEDI1Click(Sender: TObject);
|
|
|
procedure t_op_seaeAfterScroll(DataSet: TDataSet);
|
|
|
procedure DBEdit244Exit(Sender: TObject);
|
|
|
procedure DBEdit244Enter(Sender: TObject);
|
|
|
procedure bsSkinButton74Click(Sender: TObject);
|
|
|
procedure bsSkinButton75Click(Sender: TObject);
|
|
|
procedure bsSkinButton76Click(Sender: TObject);
|
|
|
procedure bsSkinButton77Click(Sender: TObject);
|
|
|
procedure N138Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column126CustomDraw(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 DBEdit54Change(Sender: TObject);
|
|
|
procedure bsSkinButton78Click(Sender: TObject);
|
|
|
procedure EDI10Click(Sender: TObject);
|
|
|
procedure N141Click(Sender: TObject);
|
|
|
procedure bsSkinButton89Click(Sender: TObject);
|
|
|
procedure bsSkinButton90Click(Sender: TObject);
|
|
|
procedure bsSkinButton92Click(Sender: TObject);
|
|
|
procedure bsSkinButton91Click(Sender: TObject);
|
|
|
procedure bsSkinButton80Click(Sender: TObject);
|
|
|
procedure bsSkinButton81Click(Sender: TObject);
|
|
|
procedure bsSkinButton82Click(Sender: TObject);
|
|
|
procedure bsSkinButton79Click(Sender: TObject);
|
|
|
procedure RPA12Click(Sender: TObject);
|
|
|
procedure bsSkinButton83Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column131CustomDraw(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 Button2Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo19Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo19Change(Sender: TObject);
|
|
|
procedure bsSkinButton84Click(Sender: TObject);
|
|
|
procedure bsSkinButton85Click(Sender: TObject);
|
|
|
procedure bsSkinButton86Click(Sender: TObject);
|
|
|
procedure AMS1Click(Sender: TObject);
|
|
|
procedure N1Y1Click(Sender: TObject);
|
|
|
procedure N3Z1Click(Sender: TObject);
|
|
|
procedure bsSkinButton87Click(Sender: TObject);
|
|
|
procedure bsSkinButton88Click(Sender: TObject);
|
|
|
procedure t_op_amsBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_amsBeforeInsert(DataSet: TDataSet);
|
|
|
procedure bsSkinButtonSIClick(Sender: TObject);
|
|
|
procedure dxDBGrid1Column75CustomDraw(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_seae_editBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_seae_editBeforeDelete(DataSet: TDataSet);
|
|
|
private
|
|
|
FX:String;
|
|
|
Letter_flag:Integer;
|
|
|
mHttpRIO_ds:THTTPRIO;
|
|
|
mServiceSoap_Ds:DsWebServiceSoap;
|
|
|
|
|
|
procedure CreateCustomLIST(typeid:Integer);
|
|
|
procedure CreateCustom(typeid:Integer);
|
|
|
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 UpLoadProFile(fname, RemotePathName, Users, pw, bsno,mblno,etd,custname: string);
|
|
|
procedure DownLoadProFiles(RemotePathName, Users, pw, fname: string);
|
|
|
//<2F><><EFBFBD>ӻ<EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD>·<EFBFBD><C2B7>
|
|
|
function GetNetFileShare(VL_ID: Integer; DefaultStr: string): string;
|
|
|
//<2F>Ӿ<EFBFBD><D3BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|
|
function GetFileNameFromNet(Netstr: string): string;
|
|
|
|
|
|
procedure FillType;
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
naspath, nasuser, naspwd: widestring;
|
|
|
sendbsno:string;
|
|
|
senddatetime:TDateTime;
|
|
|
SendedEmail: boolean; //spx
|
|
|
procedure FieldReadOnlyColor;
|
|
|
procedure FieldReadOnlyColorDr;
|
|
|
function GetBookingFX:string;
|
|
|
|
|
|
procedure getwebservice_ds;
|
|
|
|
|
|
|
|
|
procedure SetBookingStatus;
|
|
|
function SendShippingOrderEmail(sendercompany, sendername, Email, ReceiverCompany, ReceiverName, ReceiverEmail, Mobile: string): TADOQuery;
|
|
|
procedure SendBLCRepeat(SQLstr,sendername:String);
|
|
|
function CreateDjyStr:string;
|
|
|
function CreateNewDjyStr:string;
|
|
|
|
|
|
function CreateNewDjyCustStr(cust:string):string;
|
|
|
function CreateNewDjyVessel():string;
|
|
|
function GetPortEdiID(Port:String): String;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_seae: Tfrm_op_seae;
|
|
|
frm_op_seae_list_type:integer;
|
|
|
frm_op_seae_create:boolean;
|
|
|
AMSState:Boolean;
|
|
|
STATE,EVENT,_S:String;
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main,u_data_share, my_sys_function, u_op_seae_add,
|
|
|
u_op_ctn, u_op_letter, u_op_add_ctn,u_op_seae_excel,
|
|
|
u_ch_fee_se, u_op_seae_state, u_op_seae_assistant, u_op_seae_edi_yh,
|
|
|
u_op_seae_vessel, u_sys_progress, u_op_seae_fenzhang, u_ch_fee_zhupiao,
|
|
|
u_ch_piliang_seae, u_op_seae_huanhuo_do,
|
|
|
u_op_seae_letter, u_op_date_change, my_sys_chat, u_op_seae_print_mul,
|
|
|
u_op_seae_state_up, u_op_seae_edi_cma, u_code_package_edi,
|
|
|
u_code_shiper_edi, u_code_edi_port, u_op_seae_hpadd, u_op_modify,
|
|
|
u_op_salesmodify, u_op_seae_word, u_op_seae_edi_nor, u_op_data_copy,
|
|
|
u_op_seae_vesselline, u_op_seae_edi_ym, u_op_seae_edi_nyk,
|
|
|
u_op_seae_edi_cosco, u_op_delnote, u_op_seae_edi_wh, u_op_piliang_seae,
|
|
|
u_op_seae_edi_PIL, u_op_seae_edi_JTB, u_op_seae_edi_custom_WaiDai,
|
|
|
u_op_seae_edi_custom_ld, u_op_seae_edi_yml, u_op_seae_edi_data,
|
|
|
u_op_state_igz, u_op_state_igz_one, crm_spxcompany, crm_OnLineBooking,
|
|
|
U_SetCompany, U_SelectLinkMan, U_BookingLog, U_SelectLinkCompany,
|
|
|
u_op_seae_edi_waiyun, u_op_seae_edi_NEWPIL,u_op_seae_edi_one,u_op_seae_edi_NB,
|
|
|
u_op_seae_edi_zywl, u_op_seae_dscangdan, u_op_seae_edi_tsl,
|
|
|
u_op_seae_edi_esl, u_op_seae_trace;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_op_seae.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
savereggrid(dxdbgrid2,caption+'1');
|
|
|
t_code_edi_line.CLOSE;
|
|
|
|
|
|
|
|
|
if assigned(frm_op_letter) then
|
|
|
frm_op_letter.close;
|
|
|
if assigned(frm_ch_fee_sea) then
|
|
|
frm_ch_fee_sea.close;
|
|
|
if assigned(frm_op_seae_state) then
|
|
|
frm_op_seae_state.close;
|
|
|
if assigned(frm_op_seae_assistant) then
|
|
|
frm_op_seae_assistant.close;
|
|
|
if assigned(frm_op_seae_fenzhang) then
|
|
|
frm_op_seae_fenzhang.close;
|
|
|
if assigned(frm_op_seae_letter) then
|
|
|
frm_op_seae_letter.close;
|
|
|
if assigned(frm_op_seae_state_up) then
|
|
|
begin
|
|
|
frm_op_seae_state_up.close;
|
|
|
frm_op_seae_state_up.free;
|
|
|
frm_op_seae_state_up:=nil;
|
|
|
end;
|
|
|
frm_op_seae.Hide;
|
|
|
frm_op_seae.ManualFloat(frm_op_seae.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_seae');
|
|
|
frm_op_seae_create:=false;
|
|
|
action:=cafree;
|
|
|
frm_op_seae:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforePost(DataSet: TDataSet);
|
|
|
var
|
|
|
aYear,amonth,aDay:Word;
|
|
|
bYear,bmonth,bDay:Word;
|
|
|
cntrStr:String;
|
|
|
aQuery,aQuery2:TADOQuery;
|
|
|
Protocolrec:TProtocolrec;
|
|
|
aDate:String;
|
|
|
function GetCorpID(Corp:string):string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
sql.Add('sELECT <20><><EFBFBD><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+Corp+'''');
|
|
|
Open;
|
|
|
Result:=FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
function GetCorpKD(Corp:string):string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
sql.Add('sELECT <20>۵<EFBFBD>״̬ from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+Corp+'''');
|
|
|
Open;
|
|
|
Result:=FieldByName('<27>۵<EFBFBD>״̬').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
begin
|
|
|
|
|
|
table_before_post(t_op_seae,'ί<>е<EFBFBD>λ');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
// table_before_post(t_op_seae,'<27>ͷ<EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'װ<>˷<EFBFBD>ʽ');
|
|
|
table_before_post(t_op_seae,'װ<><D7B0><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'ж<><D0B6><EFBFBD><EFBFBD>');
|
|
|
// table_before_post(t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
|
|
|
table_before_post(t_op_seae,'<27>Ƿ<EFBFBD>ռ<EFBFBD><D5BC>');
|
|
|
|
|
|
aDate:= t_op_seae.FieldByName('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
if (aDate<>'') then begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery2 do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('Select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString+''' and ״̬=''<27><><EFBFBD><EFBFBD>'' and <20><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><='''+aDate+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+aDate+''' ');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
first;
|
|
|
while not eof do begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
Next;
|
|
|
end;
|
|
|
end else begin
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery2);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
|
|
|
|
|
|
if not (GetStrChar(t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)) then begin
|
|
|
showmessage('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>棡');
|
|
|
abort;
|
|
|
end;
|
|
|
if not (GetStrChar(t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)) then begin
|
|
|
showmessage('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>棡');
|
|
|
abort;
|
|
|
end;
|
|
|
if not (GetStrChar(t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)) then begin
|
|
|
showmessage('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>棡');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
//table_before_post(t_op_seae,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
|
|
|
// table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').Value<>t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').OldValue then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').Value;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').Value;
|
|
|
end;
|
|
|
{
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring)='<27><><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if CheckCtnTotalEquelDetail(t_op_seae) then
|
|
|
begin
|
|
|
showmessage('װ<><D7B0><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>˶<EFBFBD>');
|
|
|
// abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
}
|
|
|
if Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').AsString)<>'' then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('select count(*) ct from t_op_seae where <20><><EFBFBD><EFBFBD><>'''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>='''+Trim(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').AsString)+''')');
|
|
|
Open;
|
|
|
if FieldByName('ct').AsInteger<>0 then begin
|
|
|
showmessage('<27><><EFBFBD>ձ<EFBFBD><D5B1>Ų<EFBFBD><C5B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
if Trim(t_op_seae.FieldByName('<27><>ͬ<EFBFBD>ű<EFBFBD>ע').AsString)<>'' then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('select count(*) ct from t_op_seae where <20><><EFBFBD><EFBFBD><>'''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and (<28><>ͬ<EFBFBD>ű<EFBFBD>ע='''+Trim(t_op_seae.FieldByName('<27><>ͬ<EFBFBD>ű<EFBFBD>ע').AsString)+''')');
|
|
|
Open;
|
|
|
if FieldByName('ct').AsInteger<>0 then begin
|
|
|
showmessage('<27><>ͬ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
op_empty('t_op_seae',t_op_seae);
|
|
|
|
|
|
|
|
|
Protocolrec:=getProtocol(t_op_seae.fieldbyname('ί<>е<EFBFBD>λ').asstring,t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=Protocolrec.protocolType;
|
|
|
if (Protocolrec.protocolDate<>null) and (Protocolrec.protocolDate<>0) then
|
|
|
t_op_seae2.DataSet.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime:=Protocolrec.protocolDate;
|
|
|
|
|
|
if (Pos('RH',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) OR (Pos('RF',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) OR (Pos('DO',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) then begin
|
|
|
//t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='D';
|
|
|
if Trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='' then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
if Trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='' then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end else if (Pos('GP',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) OR (Pos('HQ',t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring)>0) then
|
|
|
begin //t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='S';
|
|
|
end;
|
|
|
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('<27><><EFBFBD><EFBFBD>˾',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seae.FieldByName('ί<>е<EFBFBD>λ').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('ί<>е<EFBFBD>λ',t_op_seae.FieldByName('ί<>е<EFBFBD>λ').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('<27><><EFBFBD><EFBFBD>',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('<27><><EFBFBD><EFBFBD>',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').OldValue<>t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('<27><>װ<EFBFBD><D7B0>',t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
|
|
|
|
|
|
if (t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').Value)
|
|
|
then
|
|
|
begin
|
|
|
UpdateHblFieldName('ж<><D0B6><EFBFBD><EFBFBD>',t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').Value,t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').Value);
|
|
|
end;
|
|
|
/// UpdateCtnCountFieldName();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//
|
|
|
{
|
|
|
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;
|
|
|
// t_op_seae.FieldByName('<27>۵<EFBFBD>״̬').asstring:=GetCorpKD(t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring);
|
|
|
|
|
|
if t_op_seae.State=dsinsert then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
|
|
|
begin
|
|
|
t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,'SE');
|
|
|
if t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring=''then
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>']:=get_id;
|
|
|
t_op_seae['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=GetDeptName(t_op_seae.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=GetDeptName(t_op_seae.fieldByName('<27><><EFBFBD><EFBFBD>Ա').AsString);
|
|
|
|
|
|
end;
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
table_before_post(t_op_seae,'<27><>װ<EFBFBD><D7B0>');
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
if strtobool(get_parameters_value(31,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
if strtobool(get_parameters_value(32,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
|
|
|
if strtobool(get_parameters_value(33,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['ί<>б<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['ί<>б<EFBFBD>']:=t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['ί<>б<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(57,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(58,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
if strtobool(get_parameters_value(59,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
t_ch_fee.close;
|
|
|
t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_ch_fee.open;
|
|
|
if (t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'') then begin
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>null then begin
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value then begin
|
|
|
DecodeDate(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue,aYear,amonth,aDay);
|
|
|
DecodeDate(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value,bYear,bmonth,bDay);
|
|
|
t_op_modify.Open;
|
|
|
t_op_modify.Insert;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD>']:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_modify['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
if ((aYear<>bYear) or (amonth<>bMonth)) and (not t_ch_fee.IsEmpty) then
|
|
|
t_op_modify['<27><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD>']:=1
|
|
|
else
|
|
|
t_op_modify['<27><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD>']:=0;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ڸ<EFBFBD><DAB8><EFBFBD>';
|
|
|
t_op_modify['ί<>б<EFBFBD><D0B1><EFBFBD>']:=t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
|
|
|
t_op_modify['ί<>е<EFBFBD>λ']:=t_op_seae.fieldbyname('ί<>е<EFBFBD>λ').asstring;
|
|
|
t_op_modify['<27>ɴ<EFBFBD><C9B4><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27>ɺ<EFBFBD><C9BA><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IP']:=LocalIP;
|
|
|
t_op_modify.Post;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value then begin
|
|
|
t_op_modify.Open;
|
|
|
t_op_modify.Insert;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD>']:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD><EFBFBD>˸<EFBFBD><CBB8><EFBFBD>';
|
|
|
if (not t_ch_fee.IsEmpty) then
|
|
|
t_op_modify['<27><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD>']:=1
|
|
|
else
|
|
|
t_op_modify['<27><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD>']:=0;
|
|
|
t_op_modify['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_modify['ί<>б<EFBFBD><D0B1><EFBFBD>']:=t_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
|
|
|
t_op_modify['ί<>е<EFBFBD>λ']:=t_op_seae.fieldbyname('ί<>е<EFBFBD>λ').asstring;
|
|
|
t_op_modify['ҵ<><D2B5>Ա']:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_modify['<27><>ҵ<EFBFBD><D2B5>Ա']:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue;
|
|
|
t_op_modify['<27>ɴ<EFBFBD><C9B4><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27>ɺ<EFBFBD><C9BA><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OldValue;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_modify['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IP']:=LocalIP;
|
|
|
t_op_modify.Post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.FormShow(Sender: TObject);
|
|
|
var
|
|
|
ExeFileName,Str:String;
|
|
|
i:integer;
|
|
|
begin
|
|
|
|
|
|
naspath :=get_parameters_value(502, '\\223.223.95.160\data');
|
|
|
nasuser := get_parameters_value(503, 'user');
|
|
|
naspwd := get_parameters_value(504, 'user');
|
|
|
ExeFileName:='\SoftWare\DongSheng\<5C><>ʤ<EFBFBD><CAA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ϵͳ\Grid';
|
|
|
Notebook1.PageIndex:=0;
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ<C8BA><F2A1A3A1><EFBFBD>';
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=35;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
frm_op_seae_list_type:=1;
|
|
|
if not frm_data_share.t_code_code.Active then
|
|
|
frm_data_share.t_code_code.open;
|
|
|
t_op_seae_fen.close;
|
|
|
t_op_seae_huanhuo.close;
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
|
|
|
t_op_seae.SQL.Add('select top '+ get_parameters_value(88,'300') +' *,(select top 1 <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB> from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=t_op_seae.ί<>е<EFBFBD>λ) ί<>е<EFBFBD>λȫ<CEBB><C8AB> 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><>֤Ա='+''''+employee+''''
|
|
|
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+' or <20><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>='+''''+employee+''''+' or <20><><EFBFBD>߲<EFBFBD><DFB2><EFBFBD>='+''''+employee+'''' +' or <20><><EFBFBD>߹<EFBFBD><DFB9><EFBFBD>='+''''+employee+''''
|
|
|
+' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''+')'
|
|
|
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
|
|
|
|
|
|
t_op_seae.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_op_seae_fen.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_op_seae_huanhuo.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_tiaokuan.open;
|
|
|
t_op_ctn.Close;
|
|
|
t_op_ctn.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=DBEdit35.Text;
|
|
|
t_op_ctn.Open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
fra_op_card1.t_op_card.DataSource:=t_op_seae2;
|
|
|
fra_op_card1.t_op_card.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
loadreggrid(dxdbgrid1,true,caption);
|
|
|
loadreggrid(dxdbgrid2,false,caption+'1');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_op_seae.wwDBComboBox2Change(Sender);
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_op_seae_create:=true;
|
|
|
frm_data_share.t_sys_employee.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_ship.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_changzhan.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_truck.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_baoguan.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_weituo.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_daili.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_huodai.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_shiper.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_shouhuo.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_tongzhi.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_crm_client_other.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_vessel.requery;
|
|
|
t_code_voyage.Open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_loaport.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_disport.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_items.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_free.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_signbill.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_goods.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_package.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_fee.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_currency.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_trade.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_card.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_source.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_edi_port.requery;
|
|
|
t_code_edi_line.Open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_progress.close;
|
|
|
frm_sys_progress:=nil;
|
|
|
|
|
|
if not t_op_ams.Active then t_op_ams.Open;
|
|
|
try
|
|
|
t_op_seae.DisableControls;
|
|
|
for i:=0 to dxdbgrid1.ColumnCount-1 do
|
|
|
begin
|
|
|
dxdbgrid1.Columns[i].Sorted:=csNone;
|
|
|
end;
|
|
|
with TRegIniFile.Create do
|
|
|
try
|
|
|
RootKey:=HKEY_LOCAL_MACHINE;
|
|
|
Str:=readString(ExeFileName,'Sort','');
|
|
|
if Str<>'' then
|
|
|
t_op_seae.Sort:=str;
|
|
|
finally
|
|
|
Free;
|
|
|
end;
|
|
|
finally
|
|
|
t_op_seae.First;
|
|
|
t_op_seae.EnableControls;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_op_seae_fen,'ί<>е<EFBFBD>λ');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
// table_before_post(t_op_seae_fen,'<27>ͷ<EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'װ<><D7B0><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'ж<><D0B6><EFBFBD><EFBFBD>');
|
|
|
// table_before_post(t_op_seae_fen,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
|
|
|
// table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
op_empty('t_op_seae',t_op_seae_fen);
|
|
|
|
|
|
|
|
|
|
|
|
if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').asstring then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae_fen.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae_fen.State=dsinsert then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
|
|
|
begin
|
|
|
t_op_seae_fen['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,'SE');
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=get_id;
|
|
|
end;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
end;
|
|
|
t_op_seae_fen['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
|
|
|
if strtobool(get_parameters_value(31,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
if strtobool(get_parameters_value(32,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(33,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['ί<>б<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['ί<>б<EFBFBD>']:=t_op_seae_fen['ί<>б<EFBFBD><D0B1><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['ί<>б<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(57,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(58,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD>ر<EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(59,'false')) then
|
|
|
begin
|
|
|
if trim(t_op_seae_fen.fieldbyname('<27><><EFBFBD>쵥<EFBFBD><ECB5A5>').asstring)='' then
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if not t_op_seae2.DataSet.Bof then
|
|
|
t_op_seae2.DataSet.Prior;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if not t_op_seae2.DataSet.eof then
|
|
|
t_op_seae2.DataSet.next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox2Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (wwDBComboBox2.text='<27><>Ʊ<EFBFBD><C6B1>Ʊ') then
|
|
|
begin
|
|
|
Label14.Caption:='<27>ֵ<EFBFBD><D6B5>б<EFBFBD>';
|
|
|
DBMemo2.DataField:='<27>ֵ<EFBFBD><D6B5>б<EFBFBD>';
|
|
|
bsSkinButton37.Visible:=true;
|
|
|
wwDBLookupCombo11.Visible:=false;
|
|
|
|
|
|
bsSkinPageControl2.Visible:=true;
|
|
|
bsSkinButton12.Visible:=true;
|
|
|
bsSkinButton14.Visible:=true;
|
|
|
|
|
|
RxDBLookupCombo2.Visible:=false;
|
|
|
RxDBLookupCombo3.Visible:=false;
|
|
|
RxDBLookupCombo4.Visible:=false;
|
|
|
RxDBLookupCombo5.Visible:=false;
|
|
|
DBMemo33.Visible:=false;
|
|
|
DBMemo34.Visible:=false;
|
|
|
DBMemo35.Visible:=false;
|
|
|
DBMemo1.Visible:=false;
|
|
|
wwDBLookupCombo46.Visible:=false;
|
|
|
wwDBLookupCombo47.Visible:=false;
|
|
|
wwDBLookupCombo48.Visible:=false;
|
|
|
wwDBLookupCombo7.Visible:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
Label14.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
DBMemo2.DataField:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
bsSkinButton37.Visible:=false;
|
|
|
wwDBLookupCombo11.Visible:=true;
|
|
|
|
|
|
bsSkinPageControl2.Visible:=false;
|
|
|
bsSkinButton12.Visible:=false;
|
|
|
bsSkinButton14.Visible:=false;
|
|
|
|
|
|
RxDBLookupCombo2.Visible:=true;
|
|
|
RxDBLookupCombo3.Visible:=true;
|
|
|
RxDBLookupCombo4.Visible:=true;
|
|
|
RxDBLookupCombo5.Visible:=true;
|
|
|
DBMemo33.Visible:=true;
|
|
|
DBMemo34.Visible:=true;
|
|
|
DBMemo35.Visible:=true;
|
|
|
DBMemo1.Visible:=true;
|
|
|
wwDBLookupCombo46.Visible:=true;
|
|
|
wwDBLookupCombo47.Visible:=true;
|
|
|
wwDBLookupCombo48.Visible:=true;
|
|
|
wwDBLookupCombo7.Visible:=true;
|
|
|
end;
|
|
|
if (wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') or (wwDBComboBox2.text='ƴ<>䵥Ʊ') then
|
|
|
bsSkinGroupBox9.Visible:=false
|
|
|
else
|
|
|
bsSkinGroupBox9.Visible:=True;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton11Click(Sender: TObject);
|
|
|
var
|
|
|
answer:TModalResult;
|
|
|
begin
|
|
|
if bsSkinButton11.Caption='<27>༭<EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
Notebook1.PageIndex:=1;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>' then
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
bsSkinButton11.Caption:='<27>༭<EFBFBD><EFBFBD>';
|
|
|
Notebook1.PageIndex:=0;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
|
|
|
begin
|
|
|
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae_fen.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae_fen.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
try
|
|
|
t_op_seae2.Enabled:=false;
|
|
|
t_op_seae2.DataSet:=t_op_seae;
|
|
|
finally
|
|
|
t_op_seae2.Enabled:=true;
|
|
|
end;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton33Click(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
|
|
|
try
|
|
|
t_op_seae2.Enabled:=false;
|
|
|
t_op_seae2.DataSet:=t_op_seae_fen;
|
|
|
finally
|
|
|
t_op_seae2.Enabled:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
// showmessage('a');
|
|
|
if (t_op_seae_edit.State in [dsinsert,dsedit]) then t_op_seae_edit.Post;
|
|
|
|
|
|
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
|
|
|
if (t_op_ctn.State=dsinsert)or(t_op_ctn.State=dsedit) then
|
|
|
t_op_ctn.post;
|
|
|
|
|
|
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit) then
|
|
|
t_op_ams1.DataSet.post;
|
|
|
if (t_op_seae.FieldByName('<27>Ƿ<EFBFBD>ռ<EFBFBD><D5BC>').AsString<>'Y') and (t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString<>'') THEN begin
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime<Now) then Exit;
|
|
|
|
|
|
if (sendbsno<>t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString) or ((sendbsno=t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString) and (SecondsBetween(now,senddatetime)>2)) then begin
|
|
|
sendbsno:=t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
senddatetime:=Now;
|
|
|
// Button2Click(Sender);
|
|
|
end;
|
|
|
END;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.cancel;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton4Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
function isDelete:Boolean;
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
result:=false;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select ɾ<><C9BE><EFBFBD>辭<EFBFBD><E8BEAD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_sys_department where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=( select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_sys_employee where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+''')');
|
|
|
open;
|
|
|
if fieldbyname('ɾ<><C9BE><EFBFBD>辭<EFBFBD><E8BEAD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
|
|
|
result:=true;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if not t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>л<EFBFBD><D0BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_ch_fee.close;
|
|
|
t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_ch_fee.open;
|
|
|
if not t_ch_fee.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae2.dataset.fieldbyName('ҵ<><D2B5>״̬').AsString='<27><>ɾ<D7BC><C9BE>') or (not isDelete) then begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_op_seae2.DataSet.delete;
|
|
|
end else begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then begin
|
|
|
frm_op_delnote:=Tfrm_op_delnote.Create(self);
|
|
|
try
|
|
|
frm_op_delnote.DataSource1.DataSet:=t_op_seae2.DataSet;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.clear;
|
|
|
sql.Add('delete from t_op_delnote where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
|
|
|
ExecSQL;
|
|
|
end;
|
|
|
finally
|
|
|
freeandnil(aQuery);
|
|
|
end;
|
|
|
frm_op_delnote.t_op_delnote.open;
|
|
|
frm_op_delnote.t_op_delnote.Insert;
|
|
|
if frm_op_delnote.ShowModal=mrOk then begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').AsString:='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>';
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(frm_op_delnote);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton32Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
|
|
|
t_op_seae_fen.post;
|
|
|
try
|
|
|
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
|
|
|
frm_op_seae_add.data1.Enabled:=false;
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
|
|
|
frm_op_seae_add.data1.Enabled:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
|
|
|
frm_op_seae_add_num:=3;
|
|
|
|
|
|
frm_op_seae_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_add.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton36Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
|
|
|
t_op_seae_fen.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
if if_open('776') 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.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
|
|
|
if t_op_seae2.DataSet=t_op_seae then
|
|
|
begin
|
|
|
frm_op_seae_add.data1.Enabled:=false;
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae;
|
|
|
frm_op_seae_add.data1.Enabled:=true;
|
|
|
frm_op_seae_add_num:=1;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
frm_op_seae_add.data1.Enabled:=false;
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
|
|
|
frm_op_seae_add.data1.Enabled:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
|
|
|
frm_op_seae_add_num:=2;
|
|
|
end;
|
|
|
frm_op_seae_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_add.Free;
|
|
|
if not frm_op_seae.bsSkinTabSheet1.Showing then
|
|
|
frm_op_seae.bsSkinTabSheet1.Show;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae,'0001');
|
|
|
delete_add(1,t_op_seae);
|
|
|
delete_usdproject(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae_fen,'0001');
|
|
|
delete_add(1,t_op_seae_fen);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton8Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
if (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
|
|
|
or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')
|
|
|
or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ')
|
|
|
then
|
|
|
begin
|
|
|
N56.Visible:=true;
|
|
|
N57.Visible:=true;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
N56.Visible:=false;
|
|
|
N57.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton9Click(Sender: TObject);
|
|
|
var
|
|
|
ablack:Boolean;
|
|
|
begin
|
|
|
if t_op_seae_fen.Active and (not t_op_seae_fen.IsEmpty) then begin
|
|
|
ablack:=False;
|
|
|
memtblrpt.LoadFromDataSet(t_op_seae_fen, [mtcpoStructure,mtcpoProperties,mtcpoFieldIndex]);
|
|
|
memtblrpt.First;
|
|
|
while not memtblrpt.Eof do begin
|
|
|
if (memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger=0) or (memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat=0) or (memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat=0) then begin
|
|
|
ablack:=true;
|
|
|
end;
|
|
|
memtblrpt.Next;
|
|
|
end;
|
|
|
if ablack then begin
|
|
|
memtblrpt.First;
|
|
|
while not memtblrpt.Eof do begin
|
|
|
memtblrpt.Edit;
|
|
|
memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=0;
|
|
|
memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=0.00;
|
|
|
memtblrpt.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=0.00;
|
|
|
memtblrpt.Post;
|
|
|
memtblrpt.Next;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,nil,nil,nil,t_op_seae_fen1,dsrmemtblrpt,nil,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo2.DisplayValue<>'' then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
if AMSState then
|
|
|
begin
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.Open;
|
|
|
if t_op_ams.RecordCount=0 then t_op_ams.Insert else t_op_ams.Edit;
|
|
|
if RxDBLookupCombo2.DisplayValue<>'' then
|
|
|
begin
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('<27>绰').asstring;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˵紫').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
|
|
|
table_post(t_op_ams);
|
|
|
end;
|
|
|
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;
|
|
|
if AMSState then
|
|
|
begin
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.Open;
|
|
|
if t_op_ams.RecordCount=0 then t_op_ams.Insert else t_op_ams.Edit;
|
|
|
if RxDBLookupCombo3.DisplayValue<>'' then
|
|
|
begin
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27>绰').asstring;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB>˵紫').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
|
|
|
table_post(t_op_ams);
|
|
|
end;
|
|
|
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;
|
|
|
if AMSState then
|
|
|
begin
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.Open;
|
|
|
if t_op_ams.RecordCount=0 then t_op_ams.Insert else t_op_ams.Edit;
|
|
|
if RxDBLookupCombo4.DisplayValue<>'' then
|
|
|
begin
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27>绰').asstring;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8>˵紫').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
|
|
|
table_post(t_op_ams);
|
|
|
end;
|
|
|
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.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 RxDBLookupCombo18.DisplayValue<>'' then
|
|
|
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton26Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton25Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton24Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton23Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton21Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><>ͷ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton22Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton16Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton17Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,DBMemo2.DataField);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton18Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton19Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton20Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo40Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo40);
|
|
|
t_op_seae2.DataSet['<27><>װ']:=total_package(dbmemo40);
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
|
|
|
:='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
|
|
|
+t_op_seae2.DataSet.FieldByName('<27><>װ').asstring+' ONLY.';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo41Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo41);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo42Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo42);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo41Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
kgs_cbm(DBMemo41,'KGS');
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo41.text;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo42Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
kgs_cbm(DBMemo42,'CBM');
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo42.text;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo61Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
|
|
|
:='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
|
|
|
+wwDBLookupCombo61.text+' ONLY.';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton37Click(Sender: TObject);
|
|
|
var
|
|
|
if_first:boolean;
|
|
|
max,j:integer;
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ɣ<EFBFBD><C9A3><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC>룡<EFBFBD><EBA3A1>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
t_op_seae_fen.First;
|
|
|
if_first:=true;
|
|
|
while not t_op_seae_fen.eof do
|
|
|
begin
|
|
|
if if_first then
|
|
|
begin
|
|
|
DBMemo2.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
|
|
|
DBMemo39.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
DBMemo40.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring;
|
|
|
DBMemo41.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
DBMemo42.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
if_first:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
max:=DBMemo2.Lines.Count;
|
|
|
if DBMemo39.Lines.Count>max then max:=DBMemo39.Lines.Count;
|
|
|
if DBMemo40.Lines.Count>max then max:=DBMemo40.Lines.Count;
|
|
|
if DBMemo41.Lines.Count>max then max:=DBMemo41.Lines.Count;
|
|
|
if DBMemo42.Lines.Count>max then max:=DBMemo42.Lines.Count;
|
|
|
|
|
|
if max=DBMemo2.Lines.Count then
|
|
|
begin
|
|
|
DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo2.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo2.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo39.Lines.Count then
|
|
|
begin
|
|
|
DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo39.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo39.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo40.Lines.Count then
|
|
|
begin
|
|
|
DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo40.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo40.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo41.Lines.Count then
|
|
|
begin
|
|
|
DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo41.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo41.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo42.Lines.Count then
|
|
|
begin
|
|
|
DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo42.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo42.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae_fen.next;
|
|
|
end;
|
|
|
t_op_seae['<27><>װ']:='PACKAGES';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit5Click(Sender: TObject);
|
|
|
begin
|
|
|
{
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if (t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
|
|
|
or (t_op_seae2.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')then
|
|
|
exit;
|
|
|
|
|
|
try
|
|
|
frm_op_ctn:=tfrm_op_ctn.Create (self);
|
|
|
frm_op_ctn.t_op_ctn.DataSource:=t_op_seae2;
|
|
|
frm_op_ctn_type:=true;
|
|
|
op_ctn_limited:='0001';
|
|
|
frm_op_ctn.ShowModal;
|
|
|
finally
|
|
|
frm_op_ctn.Free;
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo52Change(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
|
|
|
begin
|
|
|
// t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport.FieldByName('Ӣ<><D3A2><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinPageControl1Change(Sender: TObject);
|
|
|
var
|
|
|
bsno:string;
|
|
|
begin
|
|
|
if frm_op_seae_create=false then
|
|
|
exit;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet8 then
|
|
|
begin
|
|
|
if not t_op_ams.Active then t_op_ams.open;
|
|
|
end else begin
|
|
|
if t_op_ams.State in [dsedit,dsinsert] then t_op_ams.Post;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
|
|
|
begin
|
|
|
if not assigned(frm_op_letter) then
|
|
|
begin
|
|
|
frm_op_letter:=tfrm_op_letter.Create (self);
|
|
|
frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
|
|
|
frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient);
|
|
|
frm_op_letter.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet10 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_letter) then
|
|
|
begin
|
|
|
frm_op_seae_letter:=tfrm_op_seae_letter.Create (self);
|
|
|
frm_op_seae_letter.fra_op_letter_free1.op_type.Text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_letter.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_letter.open;
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_letter_free_detail.open;
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_hd.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_letter.fra_op_letter_free1.t_op_hd.open;
|
|
|
frm_op_seae_letter.ManualDock(bsSkinTabSheet10,nil,alClient);
|
|
|
frm_op_seae_letter.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
|
|
|
begin
|
|
|
if if_open('216') or if_open('217') then
|
|
|
begin
|
|
|
if not assigned(frm_ch_fee_sea) then
|
|
|
begin
|
|
|
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
|
|
|
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
|
|
|
frm_ch_fee_sea.Show;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_state) then
|
|
|
begin
|
|
|
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.open;
|
|
|
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
|
|
|
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
|
|
|
frm_op_seae_state.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet9 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_fenzhang) then
|
|
|
begin
|
|
|
frm_op_seae_fenzhang:=tfrm_op_seae_fenzhang.Create (self);
|
|
|
frm_op_seae_fenzhang.t_ch_fee_fenzhang.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_fenzhang.t_ch_fee_fenzhang.open;
|
|
|
frm_op_seae_fenzhang.t_ch_fee.open;
|
|
|
frm_op_seae_fenzhang.ManualDock(bsSkinTabSheet9,nil,alClient);
|
|
|
frm_op_seae_fenzhang.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_assistant) then
|
|
|
begin
|
|
|
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
|
|
|
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
|
|
|
frm_op_seae_assistant.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage = bsSkinTabSheet11 then
|
|
|
begin
|
|
|
FillType;
|
|
|
bsno:=QuotedStr(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
if trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='' then bsno:=QuotedStr('1111');
|
|
|
with aq_receipt_doc do
|
|
|
begin
|
|
|
Close;
|
|
|
SQL.Clear;
|
|
|
SQL.Add('select * from receipt_doc where bsno=' + bsno + ' order by modifiedtime desc');
|
|
|
Open;
|
|
|
end;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 then
|
|
|
begin
|
|
|
if (t_op_rpastate.Active) then t_op_rpastate.Close;
|
|
|
t_op_rpastate.DataSource:=t_op_seae2;
|
|
|
t_op_rpastate.open;
|
|
|
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>䣡<EFBFBD><E4A3A1>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>䣡<EFBFBD><E4A3A1>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N5Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>أ<EFBFBD><D8A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>أ<EFBFBD><D8A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N4Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N24Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣɾ<CFA2><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N22Click(Sender: TObject);
|
|
|
var
|
|
|
i:Integer;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫת<D2AA><D7AA>ҵ<EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣɾ<CFA2><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N27Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N29Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N9Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_add_ctn:=tfrm_op_add_ctn.Create (self);
|
|
|
frm_op_add_ctn.ShowModal;
|
|
|
finally
|
|
|
frm_op_add_ctn.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton34Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height));
|
|
|
PopupMenu4.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo19.DisplayValue='' then
|
|
|
exit;
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo11.DisplayValue='' then
|
|
|
exit;
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo5.DisplayValue='' then
|
|
|
exit;
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_fen.Close;
|
|
|
t_op_seae_huanhuo.Close;
|
|
|
t_op_ctn.Close;
|
|
|
fra_op_card1.t_op_card.Close;
|
|
|
if t_op_ams.Active then
|
|
|
t_op_ams.Close;
|
|
|
query_seae(1,'0001');
|
|
|
t_op_seae_fen.open;
|
|
|
t_op_seae_huanhuo.open;
|
|
|
t_op_ctn.Close;
|
|
|
t_op_ctn.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=DBEdit35.Text;
|
|
|
t_op_ctn.Open;
|
|
|
fra_op_card1.t_op_card.Open;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet8 then
|
|
|
begin
|
|
|
if not t_op_ams.Active then t_op_ams.open;
|
|
|
end
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1Column3CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid2Column3CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid2Column3.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.FormCloseQuery(Sender: TObject;
|
|
|
var CanClose: Boolean);
|
|
|
begin
|
|
|
|
|
|
CanClose:=frm_close_query(t_op_ams);
|
|
|
CanClose:=frm_close_query(t_op_seae);
|
|
|
CanClose:=frm_close_query(t_op_seae_fen);
|
|
|
CanClose:=frm_close_query(fra_op_card1.t_op_card);
|
|
|
if frm_data_share.t_code_code.Active then
|
|
|
frm_data_share.t_code_code.close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EXCEL1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_seae_excel:=tfrm_op_seae_excel.Create (self);
|
|
|
frm_op_seae_excel.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_excel.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Panel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
|
|
|
i:=round(Panel2.Width/17);
|
|
|
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;
|
|
|
bsSkinButton64.Width:=i;
|
|
|
bsSkinButton65.Width:=i;
|
|
|
bsSkinButton78.Width:=i;
|
|
|
bsSkinButton87.Width:=i;
|
|
|
bsSkinButton93.Left:=Panel2.Width-bsSkinButton93.Width-20;
|
|
|
bsSkinButton44.Left:=bsSkinButton93.Left-75;
|
|
|
bsSkinButton13.Left:=bsSkinButton44.left-75;
|
|
|
bsSkinButton15.left:=bsSkinButton13.Left-75;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
|
|
|
key_dbedit(Key,DBEdit2);
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit2KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
|
|
|
key_dbedit(Key,DBEdit3);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit3KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
|
|
|
key_dbedit(Key,DBEdit4);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo31);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit8KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit9KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit7KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
if bsSkinPageControl2.Visible then
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo16)
|
|
|
else
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo46);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo49KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit63KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
|
|
|
// key_wwDBLookupCombo(Key,wwDBLookupCombo12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo52KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit10KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit11KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo20KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo21KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBoxBL);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBoxBLKeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo28);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit26);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit26KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit27);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit27KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo20);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo38);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit5KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo37);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo14KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo43);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo39);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit80KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit81);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit81KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo61);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo61KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit82);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit82KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit83);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit12KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo32);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo33);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit13KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo23);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo23KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit17KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit15);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit15KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit14);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo24KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo25);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo25KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo27);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo27KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo26);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo26KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit71);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit71KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit73);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit73KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit109);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit109KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit114);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit114KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit112);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit112KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit111);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo15);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo28KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit25);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit25KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_yh) then
|
|
|
frm_op_seae_edi_yh:=tfrm_op_seae_edi_yh.Create(application);
|
|
|
frm_op_seae_edi_yh.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_yh.free;
|
|
|
frm_op_seae_edi_yh:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Button1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
try
|
|
|
frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self);
|
|
|
frm_op_seae_vessel.v_vessel_voyage.open;
|
|
|
frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo49.text;
|
|
|
op_seae_vessel_num:=1;
|
|
|
frm_op_seae_vessel.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_vessel.Free;
|
|
|
frm_op_seae_vessel:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit18KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit14KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit20);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit20KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit22);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit22KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_seae_fen['<27><>վ']:=t_op_seae['<27><>վ'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>˸<EFBFBD>']:=t_op_seae['<27><><EFBFBD>˸<EFBFBD>'];
|
|
|
t_op_seae_fen['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
|
|
|
t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD≯ۿ<CCB8>']:=t_op_seae['<27><><EFBFBD≯ۿ<CCB8>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>'];
|
|
|
t_op_seae_fen['Ŀ<>ĵ<EFBFBD>']:=t_op_seae['Ŀ<>ĵ<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seae['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];
|
|
|
t_op_seae_fen['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><>ͷ']:=t_op_seae['<27><>ͷ'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>˾']:=t_op_seae['<27><><EFBFBD><EFBFBD>˾'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾'];
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit3Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
|
|
|
if (DBEdit3.Text='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then begin
|
|
|
RxDBLookupCombo1.ReadOnly:=true;
|
|
|
RxDBLookupCombo40.ReadOnly:=true;
|
|
|
DBEdit9.ReadOnly:=true;
|
|
|
DBEdit36.ReadOnly:=true;
|
|
|
RxDBLookupCombo31.ReadOnly:=true;
|
|
|
wwDBLookupCombo49.ReadOnly:=true;
|
|
|
wwDBLookupCombo19.ReadOnly:=true;
|
|
|
wwDBDateTimePicker2.ReadOnly:=true;
|
|
|
wwDBDateTimePicker3.ReadOnly:=true;
|
|
|
RxDBLookupCombo44.ReadOnly:=true;
|
|
|
wwDBComboBox8.ReadOnly:=true;
|
|
|
RxDBLookupCombo13.ReadOnly:=true;
|
|
|
RxDBLookupCombo14.ReadOnly:=True;
|
|
|
RxDBLookupCombo43.ReadOnly:=True;
|
|
|
RxDBLookupCombo9.ReadOnly:=True;
|
|
|
wwDBComboBox2.ReadOnly:=True;
|
|
|
RxDBLookupCombo6.ReadOnly:=True;
|
|
|
RxDBLookupCombo8.ReadOnly:=True;
|
|
|
RxDBLookupCombo7.ReadOnly:=True;
|
|
|
RxDBLookupCombo10.ReadOnly:=True;
|
|
|
|
|
|
end else Begin
|
|
|
RxDBLookupCombo1.ReadOnly:=false;
|
|
|
RxDBLookupCombo40.ReadOnly:=false;
|
|
|
DBEdit9.ReadOnly:=false;
|
|
|
DBEdit36.ReadOnly:=false;
|
|
|
RxDBLookupCombo31.ReadOnly:=false;
|
|
|
wwDBLookupCombo49.ReadOnly:=false;
|
|
|
wwDBLookupCombo19.ReadOnly:=false;
|
|
|
wwDBDateTimePicker2.ReadOnly:=false;
|
|
|
wwDBDateTimePicker3.ReadOnly:=false;
|
|
|
RxDBLookupCombo44.ReadOnly:=false;
|
|
|
wwDBComboBox8.ReadOnly:=false;
|
|
|
RxDBLookupCombo13.ReadOnly:=false;
|
|
|
RxDBLookupCombo14.ReadOnly:=false;
|
|
|
RxDBLookupCombo43.ReadOnly:=false;
|
|
|
RxDBLookupCombo9.ReadOnly:=false;
|
|
|
wwDBComboBox2.ReadOnly:=false;
|
|
|
RxDBLookupCombo6.ReadOnly:=false;
|
|
|
RxDBLookupCombo8.ReadOnly:=false;
|
|
|
RxDBLookupCombo7.ReadOnly:=false;
|
|
|
RxDBLookupCombo10.ReadOnly:=false;
|
|
|
end;
|
|
|
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;
|
|
|
if not t_code_code.Active then t_code_code.Open;
|
|
|
end;
|
|
|
AMSState:=True;
|
|
|
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;
|
|
|
if not t_code_code.Active then t_code_code.Open;
|
|
|
end;
|
|
|
AMSState:=True;
|
|
|
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;
|
|
|
if not t_code_code.Active then t_code_code.Open;
|
|
|
end;
|
|
|
AMSState:=True;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2Enter(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=True;
|
|
|
RxLookupComboEnter(RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3Enter(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=True;
|
|
|
RxLookupComboEnter(RxDBLookupCombo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=True;
|
|
|
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;
|
|
|
if AMSState then
|
|
|
begin
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.Open;
|
|
|
if t_op_ams.RecordCount=0 then t_op_ams.Insert else t_op_ams.Edit;
|
|
|
if wwDBLookupCombo46.DisplayValue<>'' then
|
|
|
begin
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString:=frm_data_share.t_code_code.fieldbyname('<27>绰').asstring;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˵紫').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
|
|
|
table_post(t_op_ams);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46Exit(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=False;
|
|
|
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;
|
|
|
if AMSState then
|
|
|
begin
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.Open;
|
|
|
if t_op_ams.RecordCount=0 then t_op_ams.Insert else t_op_ams.Edit;
|
|
|
if wwDBLookupCombo47.DisplayValue<>'' then
|
|
|
begin
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString:=frm_data_share.t_code_code.fieldbyname('<27>绰').asstring;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB>˵紫').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
|
|
|
table_post(t_op_ams);
|
|
|
end;
|
|
|
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;
|
|
|
if AMSState then
|
|
|
begin
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.Open;
|
|
|
if t_op_ams.RecordCount=0 then t_op_ams.Insert else t_op_ams.Edit;
|
|
|
if wwDBLookupCombo48.DisplayValue<>'' then
|
|
|
begin
|
|
|
t_op_ams.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰').AsString:=frm_data_share.t_code_code.fieldbyname('<27>绰').asstring;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8>˵紫').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>').asstring;
|
|
|
t_op_ams.FieldByName('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').AsString:=frm_data_share.t_code_code.fieldbyname('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>').asstring;
|
|
|
table_post(t_op_ams);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47Exit(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=False;
|
|
|
wwDBLookupCombo47.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48Exit(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=False;
|
|
|
wwDBLookupCombo48.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo33);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo34);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo35);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo47);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo48);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo2.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo5.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo6.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo29KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo30KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo12Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo12.DisplayValue='' then
|
|
|
exit;
|
|
|
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo12.DisplayValue,[]) then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo14Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo14.DisplayValue='' then
|
|
|
exit;
|
|
|
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[]) then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo10);
|
|
|
// key_wwDBComboBox(Key,wwDBComboBox3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N17Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'¼<><C2BC>״̬'+''''+')) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton13Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
|
|
|
PopupMenu3.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N34Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+'))) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N36Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N37Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1)) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo9Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo6Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo8Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo7Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo10Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo9Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo6Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo8Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo7Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo10Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2Exit(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=False;
|
|
|
RxLookupComboExit(RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3Exit(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=False;
|
|
|
RxLookupComboExit(RxDBLookupCombo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
begin
|
|
|
AMSState:=False;
|
|
|
RxLookupComboExit(RxDBLookupCombo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo28Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo28.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo28Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo28.LookupDisplay:='ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD>ѷ<EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD>ѷ<EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo20Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo20Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N40Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet2.show;
|
|
|
if if_open('216') or if_open('217') then
|
|
|
begin
|
|
|
if not assigned(frm_ch_fee_sea) then
|
|
|
begin
|
|
|
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
|
|
|
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
|
|
|
frm_ch_fee_sea.Show;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N42Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet7.show;
|
|
|
if not assigned(frm_op_seae_state) then
|
|
|
begin
|
|
|
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.open;
|
|
|
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
|
|
|
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
|
|
|
frm_op_seae_state.show;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N44Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet3.show;
|
|
|
if not assigned(frm_op_letter) then
|
|
|
begin
|
|
|
frm_op_letter:=tfrm_op_letter.Create (self);
|
|
|
frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
|
|
|
frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient);
|
|
|
frm_op_letter.show;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N46Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet6.show;
|
|
|
if not assigned(frm_op_seae_assistant) then
|
|
|
begin
|
|
|
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
|
|
|
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
|
|
|
frm_op_seae_assistant.show;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label4Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring,frm_data_share.t_crm_client_weituo);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label23Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_shiper);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label24Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring,frm_data_share.t_crm_client_shouhuo);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label29Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('֪ͨ<CDA8><D6AA>').asstring,frm_data_share.t_crm_client_tongzhi);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label33Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_daili);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label12Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><>վ').asstring,frm_data_share.t_crm_client_changzhan);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label9Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label11Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_huodai);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label10Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_baoguan);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label8Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').asstring,frm_data_share.t_crm_client_truck);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2DblClick(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('016');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label125Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('097');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label7Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('011');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label35Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('071');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label30Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('015');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label73Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('012');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label164Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('007');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo61DblClick(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('013');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_fen.first;
|
|
|
while not t_op_seae_fen.Eof do
|
|
|
begin
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton14Click(Sender: TObject);
|
|
|
begin
|
|
|
if not (if_open('216') or if_open('217')) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not assigned(frm_ch_fee_zhupiao) then
|
|
|
frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
|
|
|
frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seae_fen;
|
|
|
with frm_ch_fee_zhupiao do
|
|
|
begin
|
|
|
if if_open('216') then
|
|
|
begin
|
|
|
fra_fee_zhu1.t_ch_accept.close;
|
|
|
fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_ch_accept.open;
|
|
|
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
|
|
|
fra_fee_zhu1.dxDBGrid1.FullExpand;
|
|
|
fra_fee_zhu1.bsSkinPanel3.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
fra_fee_zhu1.bsSkinPanel3.visible:=false;
|
|
|
if if_open('217') then
|
|
|
begin
|
|
|
fra_fee_zhu1.t_ch_pay.close;
|
|
|
fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_ch_pay.open;
|
|
|
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
|
|
|
fra_fee_zhu1.dxDBGrid2.FullExpand;
|
|
|
fra_fee_zhu1.bsSkinPanel4.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
fra_fee_zhu1.bsSkinPanel4.visible:=false;
|
|
|
|
|
|
if fra_fee_zhu1.bsSkinPanel3.visible and
|
|
|
fra_fee_zhu1.bsSkinPanel4.visible then
|
|
|
begin
|
|
|
fra_fee_zhu1.t_op_gain.close;
|
|
|
fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_op_gain.open;
|
|
|
fra_fee_zhu1.t_op_gain_fen.close;
|
|
|
fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_op_gain_fen.open;
|
|
|
fra_fee_zhu1.t_op_pin_he.close;
|
|
|
fra_fee_zhu1.t_op_pin_he.Parameters[0].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_op_pin_he.open;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_fee_zhu1.t_op_gain.close;
|
|
|
fra_fee_zhu1.t_op_gain_fen.close;
|
|
|
fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
|
|
|
end;
|
|
|
fra_fee_zhu1.dxDBGrid3.FullExpand;
|
|
|
end;
|
|
|
frm_ch_fee_zhupiao.ShowModal;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N55Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if if_open('216') and if_open('217') then
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
t_op_seae.first;
|
|
|
while not t_op_seae.eof do
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
t_op_seae.next;
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_ch_piliang_seae.t_op_seae.open;
|
|
|
frm_ch_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_ch_piliang_seae.Free;
|
|
|
frm_ch_piliang_seae:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N51Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if if_open('216') and if_open('217') then
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_ch_piliang_seae.t_op_seae.open;
|
|
|
frm_ch_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
frm_ch_piliang_seae.Free;
|
|
|
frm_ch_piliang_seae:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N53Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><D2B5><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if if_open('216') and if_open('217') then
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_ch_piliang_seae.t_op_seae.open;
|
|
|
frm_ch_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_ch_piliang_seae.Free;
|
|
|
frm_ch_piliang_seae:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo31KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo31Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo31Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N58Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_huanhuo.DataSource:=t_op_seae2;
|
|
|
t_op_seae_huanhuo.Requery();
|
|
|
if t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
try
|
|
|
frm_op_seae_huanhuo_do:=tfrm_op_seae_huanhuo_do.Create (self);
|
|
|
t_op_seae_huanhuo.insert;
|
|
|
frm_op_seae_huanhuo_do.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_huanhuo_do.Free;
|
|
|
frm_op_seae_huanhuo_do:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N60Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_huanhuo.DataSource:=t_op_seae2;
|
|
|
t_op_seae_huanhuo.Requery();
|
|
|
if t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_op_seae_huanhuo.delete;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_huanhuoAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_seae_huanhuo['<27><><EFBFBD><EFBFBD>']:=t_op_seae_huanhuo.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_huanhuo['<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>']:=t_op_seae_huanhuo.DataSource.DataSet['ί<>е<EFBFBD>λ'];
|
|
|
t_op_seae_huanhuo['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_seae_huanhuo['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N32Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_huanhuo.DataSource:=t_op_seae_fen1;
|
|
|
t_op_seae_huanhuo.Requery();
|
|
|
if t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
try
|
|
|
frm_op_seae_huanhuo_do:=tfrm_op_seae_huanhuo_do.Create (self);
|
|
|
t_op_seae_huanhuo.insert;
|
|
|
t_op_seae_huanhuo['<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>']:=t_op_seae2.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring;
|
|
|
frm_op_seae_huanhuo_do.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_huanhuo_do.Free;
|
|
|
frm_op_seae_huanhuo_do:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N26Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_huanhuo.DataSource:=t_op_seae_fen1;
|
|
|
t_op_seae_huanhuo.Requery();
|
|
|
if t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_op_seae_huanhuo.delete;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo7Enter(Sender: TObject);
|
|
|
begin
|
|
|
with frm_data_share do
|
|
|
begin
|
|
|
t_code_code.Filtered:=false;
|
|
|
t_code_code.Filter:='<27><><EFBFBD><EFBFBD>=1';
|
|
|
t_code_code.Filtered:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo7Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo7.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo7Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo7.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo8Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo8.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo8Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo8.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit16KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit21KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton35Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
showmessage('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
{
|
|
|
Send_invocie_check_shen('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'161','37');
|
|
|
}
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit19KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1Change(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
aDate:string;
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.State=dsinsert then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[])then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo1.DisplayValues[1];
|
|
|
// t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo1.DisplayValues[1];
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
{
|
|
|
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
RxDBLookupCombo12Change(Sender);
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[]) then
|
|
|
if (Trim(frm_data_share.t_crm_client.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD>') then exit;
|
|
|
aDate:=t_op_seae2.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
if (aDate='') then aDate:=FormatDateTime('YYYY-MM-DD',date+30);
|
|
|
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'' then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('Select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo1.DisplayValues[1]+''' and ״̬=''<27><><EFBFBD><EFBFBD>'' and <20><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><='''+aDate+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+aDate+'''');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'''');
|
|
|
Open;
|
|
|
if IsEmpty then begin
|
|
|
t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:='';
|
|
|
end else begin
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N62Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N64Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1Column2CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if ANode.Strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=clred;
|
|
|
end else if ANode.Strings[dxDBGrid1Column2.Index]='<27><>ɾ<D7BC><C9BE>' then begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=clred;
|
|
|
end else begin
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid2Column2CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if ANode.Strings[dxDBGrid2Column2.Index]='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=clred;
|
|
|
end else if ANode.Strings[dxDBGrid2Column2.Index]='<27><>ɾ<D7BC><C9BE>' then begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=clred;
|
|
|
end else begin
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid2Column2.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaePostError(DataSet: TDataSet;
|
|
|
E: EDatabaseError; var Action: TDataAction);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='+''''+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+'''';
|
|
|
double_seae(str,1);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='+''''+t_op_seae['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+'''';
|
|
|
double_seae(str,2);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('ί<>б<EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where ί<>б<EFBFBD>='+''''+t_op_seae['ί<>б<EFBFBD>']+'''';
|
|
|
double_seae(str,3);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''';
|
|
|
double_seae(str,4);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ر<EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ر<EFBFBD>='+''''+t_op_seae['<27><><EFBFBD>ر<EFBFBD>']+'''';
|
|
|
double_seae(str,5);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''';
|
|
|
double_seae(str,6);
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N66Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if not do_data('0001',t_op_seae2.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
|
|
|
,t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_date_change:=tfrm_op_date_change.Create (self);
|
|
|
frm_op_date_change.DataSource1.Enabled:=false;
|
|
|
frm_op_date_change.DataSource1.DataSet:=t_op_seae2.DataSet;
|
|
|
frm_op_date_change.DataSource1.Enabled:=true;
|
|
|
frm_op_date_change.ShowModal;
|
|
|
finally
|
|
|
frm_op_date_change.Free;
|
|
|
frm_op_date_change:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeAfterPost(DataSet: TDataSet);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Text:='exec p_exec_accmonth @bsno';
|
|
|
Parameters.ParamByName('bsno').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExecSQL;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
telll_sales;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N68Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_seae_print_mul.t_op_seae.open;
|
|
|
frm_op_seae_print_mul.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_print_mul.Free;
|
|
|
frm_op_seae_print_mul:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N70Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_seae_print_mul.t_op_seae.open;
|
|
|
frm_op_seae_print_mul.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_op_seae_print_mul.Free;
|
|
|
frm_op_seae_print_mul:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N72Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
t_op_seae.first;
|
|
|
while not t_op_seae.eof do
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
t_op_seae.next;
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_seae_print_mul.t_op_seae.open;
|
|
|
frm_op_seae_print_mul.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_op_seae_print_mul.Free;
|
|
|
frm_op_seae_print_mul:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Notebook1PageChanged(Sender: TObject);
|
|
|
begin
|
|
|
if Notebook1.PageIndex<>0 then
|
|
|
begin
|
|
|
if assigned(frm_op_seae_state_up) then
|
|
|
frm_op_seae_state_up.Hide;
|
|
|
if (not t_op_seae_edit.Active) then t_op_seae_edit.Open;
|
|
|
end else begin
|
|
|
if (t_op_seae_edit.Active) then t_op_seae_edit.Close;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton15Click(Sender: TObject);
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_state_up) then
|
|
|
frm_op_seae_state_up:=tfrm_op_seae_state_up.Create (self);
|
|
|
frm_op_seae_state_up.show;
|
|
|
frm_op_seae_state_up.Left:=bsSkinButton15.left+Notebook1.left+2;
|
|
|
frm_op_seae_state_up.top:=70+Notebook1.top;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker14KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker15);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker15KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker14);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N74Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_sort(dxdbgrid1,1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenPostError(DataSet: TDataSet;
|
|
|
E: EDatabaseError; var Action: TDataAction);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='+''''+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+'''';
|
|
|
double_seae(str,1);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='+''''+t_op_seae_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']+'''';
|
|
|
double_seae(str,2);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('ί<>б<EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where ί<>б<EFBFBD>='+''''+t_op_seae_fen['ί<>б<EFBFBD>']+'''';
|
|
|
double_seae(str,3);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''';
|
|
|
double_seae(str,4);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD>ر<EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD>ر<EFBFBD>='+''''+t_op_seae_fen['<27><><EFBFBD>ر<EFBFBD>']+'''';
|
|
|
double_seae(str,5);
|
|
|
abort;
|
|
|
end;
|
|
|
if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''';
|
|
|
double_seae(str,6);
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker2Change(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
if wwDBDateTimePicker2.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then begin
|
|
|
wwDBDateTimePicker2.ReadOnly:=TRUE;
|
|
|
exit;
|
|
|
end;
|
|
|
{
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
close;sql.clear;
|
|
|
sql.add('');
|
|
|
open;
|
|
|
end;
|
|
|
finally
|
|
|
freeandnil(aQuery)
|
|
|
end;
|
|
|
|
|
|
}
|
|
|
if strtobool(get_parameters_value(28,'false'))then
|
|
|
begin
|
|
|
IF wwDBDateTimePicker2.DataSource.DataSet.IsEmpty THEN
|
|
|
BEGIN
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE;
|
|
|
EXIT;
|
|
|
END;
|
|
|
if wwDBDateTimePicker2.DataSource.DataSet.State=dsinsert then
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE
|
|
|
else
|
|
|
if not wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if copy(wwDBDateTimePicker2.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').AsString,1,4)<>'ƴ<><C6B4>'then
|
|
|
begin
|
|
|
if (date-wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>strtoint(get_parameters_value(29,'3')) then begin
|
|
|
wwDBDateTimePicker2.ReadOnly:=TRUE;
|
|
|
end ELSE
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (date-wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>strtoint(get_parameters_value(37,'3')) then begin
|
|
|
wwDBDateTimePicker2.ReadOnly:=TRUE;
|
|
|
end ELSE
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
wwDBDateTimePicker2.ReadOnly:=FALSE;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
book1 := t_op_seae2.DataSet.GetBookmark;
|
|
|
TADOQUERY(t_op_seae2.DataSet).Requery;
|
|
|
t_op_seae2.DataSet.GotoBookmark(book1);
|
|
|
{
|
|
|
book1:=t_op_seae2.DataSet.GetBookmark;
|
|
|
if Notebook1.PageIndex = 1 then
|
|
|
begin
|
|
|
book1 := t_op_seae2.DataSet.GetBookmark;
|
|
|
TADOQUERY(t_op_seae2.DataSet).Requery;
|
|
|
t_op_seae2.DataSet.GotoBookmark(book1);
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
t_op_seae2.DataSet.Refresh;
|
|
|
t_op_seae2.DataSet.GotoBookmark(book1);
|
|
|
end;
|
|
|
}
|
|
|
if t_op_ctn.Active then t_op_ctn.Refresh;
|
|
|
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then begin
|
|
|
if frm_ch_fee_sea<>nil then begin
|
|
|
frm_ch_fee_sea.fra_fee1.getsumstr;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N76Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N78Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N80Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid2,25);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo11Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_tiaokuan.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo11.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_tiaokuan.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo11Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo11.TEXT:='';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo11DblClick(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('188');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
if (if_open('776')) then begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
abort;
|
|
|
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);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforeCancel(DataSet: TDataSet);
|
|
|
begin
|
|
|
delete_no(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo32KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo33KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N82Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee)'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N84Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo36Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo36);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo36Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo36);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton39Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_fen.first;
|
|
|
while not t_op_seae_fen.Eof do
|
|
|
begin
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton42Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton40Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
|
|
|
t_op_seae2.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>˰<EFBFBD><CBB0>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=1;
|
|
|
t_op_seae2.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton41Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('160') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
|
|
|
t_op_seae2.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫǩ<D2AA><C7A9><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=1;
|
|
|
t_op_seae2.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton43Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('161') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.CMAEDI1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_cma) then
|
|
|
frm_op_seae_edi_cma:=tfrm_op_seae_edi_cma.Create(application);
|
|
|
frm_op_seae_edi_cma.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_cma.free;
|
|
|
frm_op_seae_edi_cma:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label92Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_code_package_edi:=tfrm_code_package_edi.Create (application);
|
|
|
frm_code_package_edi.ShowModal;
|
|
|
finally
|
|
|
frm_code_package_edi.Free;
|
|
|
frm_code_package_edi:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label93Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_code_shiper_edi:=tfrm_code_shiper_edi.Create (application);
|
|
|
frm_code_shiper_edi.ShowModal;
|
|
|
finally
|
|
|
frm_code_shiper_edi.Free;
|
|
|
frm_code_shiper_edi:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label56Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('179') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_edi_port) then
|
|
|
frm_code_edi_port:=tfrm_code_edi_port.Create (self);
|
|
|
frm_code_edi_port.ShowModal;
|
|
|
finally
|
|
|
frm_code_edi_port.free;
|
|
|
frm_code_edi_port:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N88Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N87Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then exit;
|
|
|
frm_op_seaehpadd:=Tfrm_op_seaehpadd.Create(Self);
|
|
|
try
|
|
|
frm_op_seaehpadd.showmodal;
|
|
|
finally
|
|
|
FreeAndNil(frm_op_seaehpadd);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.ANE1Click(Sender: TObject);
|
|
|
var
|
|
|
ExcelTemplet:Variant;
|
|
|
i:Integer;
|
|
|
sl:TStrings;
|
|
|
s:String;
|
|
|
begin
|
|
|
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
|
|
|
ExcelTemplet:= CreateOleObject('Excel.Application');
|
|
|
ExcelTemplet.Visible := true;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʾ
|
|
|
ExcelTemplet.Workbooks.Open(ExtractFileDir(ParamStr(0))+'\ANE.xls');
|
|
|
ExcelTemplet.WorkSheets[1].Cells[3,4].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[3,7].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[3,14].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
sl:=TStringList.Create;
|
|
|
try
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,3].value:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,11].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,12].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
sl.Assign(TMemoField(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=sl.Strings[0];
|
|
|
sl.Assign(TMemoField(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>һ')));
|
|
|
if sl.Count>=4 then begin
|
|
|
s:=sl.Strings[0];
|
|
|
ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
end;
|
|
|
|
|
|
// ExcelTemplet.WorkSheets[1].Cells[7+i,3].value:=t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
|
|
|
|
|
|
end;
|
|
|
|
|
|
except
|
|
|
Showmessage('<27><>ȷ<EFBFBD><C8B7>ANE.xls<6C>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԡ<EFBFBD>');
|
|
|
ExcelTemplet.DisplayAlerts := false;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
|
|
|
ExcelTemplet.Quit;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD>
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N97Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N99Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>Ʊ<EFBFBD><C6B1>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.WORD1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_seae_word:=tfrm_op_seae_word.Create (self);
|
|
|
frm_op_seae_word.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_word.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N102Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N104Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ʊ<EFBFBD><C6B1>Ʊ';
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinPanel7MouseLeave(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
bsSkinPanel7.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox16Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery1,aQuery2:TADOQuery;
|
|
|
cntrstr:String;
|
|
|
begin
|
|
|
aQuery1:=CreateAdoQuery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
try
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>1=C<><43><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>1=C<><43><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>2=C<><43><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>2=C<><43><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>3=C<><43><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>3=C<><43><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>4=C<><43><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>4=C<><43><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>5=C<><43><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>5=C<><43><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox16.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>6=C<><43><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set C<><43><EFBFBD><EFBFBD>6=C<><43><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
finally
|
|
|
FreeAndNil(aQuery1);
|
|
|
FreeAndNil(aQuery2);
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton44Click(Sender: TObject);
|
|
|
begin
|
|
|
// if DBEdit5.Text='' then Exit;
|
|
|
bsSkinPanel7.Visible:=not bsSkinPanel7.Visible;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit33KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo39);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox17Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery1,aQuery2:TADOQuery;
|
|
|
cntrstr:string;
|
|
|
begin
|
|
|
aQuery1:=CreateAdoQuery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
// try
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>1=D<><44><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>1=D<><44><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>2=D<><44><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>2=D<><44><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>3=D<><44><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>3=D<><44><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>4=D<><44><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>4=D<><44><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>5=D<><44><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>5=D<><44><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox17.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>6=D<><44><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set D<><44><EFBFBD><EFBFBD>6=D<><44><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
// finally
|
|
|
FreeAndNil(aQuery1);
|
|
|
FreeAndNil(aQuery2);
|
|
|
// end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox18Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery1,aQuery2:TADOQuery;
|
|
|
cntrstr:string;
|
|
|
begin
|
|
|
aQuery1:=CreateAdoQuery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
try
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>1=F<><46><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>1=F<><46><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>2=F<><46><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>2=F<><46><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>3=F<><46><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>3=F<><46><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>4=F<><46><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>4=F<><46><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>5=F<><46><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>5=F<><46><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox18.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>6=F<><46><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set F<><46><EFBFBD><EFBFBD>6=F<><46><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
finally
|
|
|
FreeAndNil(aQuery1);
|
|
|
FreeAndNil(aQuery2);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox19Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery1,aQuery2:TADOQuery;
|
|
|
cntrstr:String;
|
|
|
begin
|
|
|
aQuery1:=CreateAdoQuery;
|
|
|
aQuery2:=CreateAdoQuery;
|
|
|
try
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>1=X<><58><EFBFBD><EFBFBD>1+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>1=X<><58><EFBFBD><EFBFBD>1-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>2=X<><58><EFBFBD><EFBFBD>2+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>2=X<><58><EFBFBD><EFBFBD>2-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>3=X<><58><EFBFBD><EFBFBD>3+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>3=X<><58><EFBFBD><EFBFBD>3-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>4=X<><58><EFBFBD><EFBFBD>4+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>4=X<><58><EFBFBD><EFBFBD>4-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>5=X<><58><EFBFBD><EFBFBD>5+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>5=X<><58><EFBFBD><EFBFBD>5-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring;
|
|
|
CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]);
|
|
|
with aQuery1 do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_ctn where <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ='''+trim(cntrstr)+'''');
|
|
|
Open;
|
|
|
if (not IsEmpty) AND (FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger>0) then begin
|
|
|
aQuery2.Close;
|
|
|
aQuery2.SQL.Clear;
|
|
|
if bsSkinDBCheckRadioBox19.Checked then
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>6=X<><58><EFBFBD><EFBFBD>6+'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''')
|
|
|
else
|
|
|
aQuery2.SQL.Add('Update t_vessel_plan set X<><58><EFBFBD><EFBFBD>6=X<><58><EFBFBD><EFBFBD>6-'+FieldByName('<27><><EFBFBD><EFBFBD>').AsString+' where <20><><EFBFBD><EFBFBD>˾='''+GetCorpID(t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString)+''' and <20><><EFBFBD><EFBFBD>='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value)+''' and <20><><EFBFBD><EFBFBD>='''+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD> like ''%'+t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'%''');
|
|
|
|
|
|
aQuery2.ExecSQL;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
finally
|
|
|
FreeAndNil(aQuery1);
|
|
|
FreeAndNil(aQuery2);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit10);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBLookupComboboxPORTDISCHARGEIDChange(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
{
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo22Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_disport.Locate('EDI<44><49><EFBFBD><EFBFBD>',RxDBLookupCombo22.DisplayValues[0],[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport.FieldByName('Ӣ<><D3A2><EFBFBD><EFBFBD>').AsString;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo21Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_loaport.Locate('EDI<44><49><EFBFBD><EFBFBD>',RxDBLookupCombo21.DisplayValues[0],[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=frm_data_share.t_code_loaport.FieldByName('Ӣ<><D3A2><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo21KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo3);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo22KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI3Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_nor) then
|
|
|
frm_op_seae_edi_nor:=tfrm_op_seae_edi_nor.Create(application);
|
|
|
frm_op_seae_edi_nor.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_nor.free;
|
|
|
frm_op_seae_edi_nor:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton45Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'EDI<44><49>ע');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N106Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_op_data_copy:=tfrm_op_data_copy.Create (self);
|
|
|
frm_op_data_copy.DataSource1.Enabled:=false;
|
|
|
frm_op_data_copy.DataSource1.DataSet:=t_op_seae2.DataSet;
|
|
|
frm_op_data_copy.DataSource1.Enabled:=true;
|
|
|
frm_op_data_copy.ShowModal;
|
|
|
finally
|
|
|
frm_op_data_copy.Free;
|
|
|
frm_op_data_copy:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo40Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo40);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo40Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo40);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton46Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>̼컻֤').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>֤<EFBFBD><D6A4>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>̼컻֤']:=0;
|
|
|
t_op_seae2.DataSet['<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>֤<EFBFBD><D6A4>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>̼컻֤']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton47Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton48Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ͨ<EFBFBD>ص<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>֤<EFBFBD><D6A4>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ͨ<EFBFBD>ص<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27><>֤ʱ<D6A4><CAB1>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>֤<EFBFBD><D6A4>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ͨ<EFBFBD>ص<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton49Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB>ɳ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ͻ<EFBFBD><CDBB>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ͻ<EFBFBD><CDBB>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB>ɳ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ͻ<EFBFBD><CDBB>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ͻ<EFBFBD><CDBB>ɳ<EFBFBD><C9B3><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ͻ<EFBFBD><CDBB>ɳ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton50Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('159') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>Ƿ<EFBFBD><C7B7>ػ<EFBFBD>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE>ػ<EFBFBD><D8BB><EFBFBD><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD>ػ<EFBFBD><D8BB><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ػ<EFBFBD>']:=0;
|
|
|
t_op_seae2.DataSet['<27>ػ<EFBFBD><D8BB><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ػ<EFBFBD><D8BB><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD><C7B7>ػ<EFBFBD>']:=1;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox17Enter(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox16Enter(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox18Enter(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox19Enter(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton51Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
if t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>'] then
|
|
|
t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>']:=0
|
|
|
else
|
|
|
t_op_seae['<27>Ѷ<EFBFBD><D1B6><EFBFBD>']:=1;
|
|
|
t_op_seae.Post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton52Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
if t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>'] then
|
|
|
t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>']:=0
|
|
|
else
|
|
|
t_op_seae['<27>ѳ<EFBFBD><D1B3><EFBFBD>']:=1;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton53Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
if t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>'] then
|
|
|
t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>']:=0
|
|
|
else
|
|
|
t_op_seae['<27>ѷ<EFBFBD><D1B7><EFBFBD>']:=1;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton54Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
if t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>'] then
|
|
|
t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>']:=0
|
|
|
else
|
|
|
t_op_seae['<27>ѱ<EFBFBD><D1B1><EFBFBD>']:=1;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton55Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
try
|
|
|
frm_op_seae_vesselline:=tfrm_op_seae_vesselline.Create (self);
|
|
|
frm_op_seae_vesselline.GetDate:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
frm_op_seae_vesselline.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_vesselline.Free;
|
|
|
frm_op_seae_vesselline:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox8Enter(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
aDate:string;
|
|
|
begin
|
|
|
if wwDBComboBox8.DataSource.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then begin
|
|
|
wwDBComboBox8.ReadOnly:=TRUE;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
wwDBComboBox8.Items.Clear;
|
|
|
if t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').IsNull or (t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString='') then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ί<EFBFBD>е<EFBFBD>λ');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if frm_data_share.t_crm_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString,[]) then begin
|
|
|
if (Trim(frm_data_share.t_crm_client.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD>') then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('Select <20><><EFBFBD><EFBFBD> from t_sys_employee ');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
first;
|
|
|
while not eof do begin
|
|
|
wwDBComboBox8.Items.Add(FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
|
|
|
Next;
|
|
|
end;
|
|
|
end else begin
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end else begin
|
|
|
aDate:= t_op_seae2.DataSet.FieldByName('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
if (aDate='') then aDate:=FormatDateTime('YYYY-MM-DD',Date+30);
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('Select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString+''' and ״̬=''<27><><EFBFBD><EFBFBD>'' and <20><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><='''+aDate+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+aDate+''' ');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
first;
|
|
|
while not eof do begin
|
|
|
wwDBComboBox8.Items.Add(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
Next;
|
|
|
end;
|
|
|
end else begin
|
|
|
wwDBComboBox8.Items.Clear;
|
|
|
MessageDlg('<27><>ί<EFBFBD>е<EFBFBD>λδ<CEBB><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD>˵Ľ<CBB5><C4BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!',mtWarning,[mbOk],0);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
if key<>#13 then key:=#0;
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox8Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if wwDBComboBox8.text='' then
|
|
|
exit;
|
|
|
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',wwDBComboBox8.text,[]) then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI4Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_ym) then
|
|
|
frm_op_seae_edi_ym:=tfrm_op_seae_edi_ym.Create(application);
|
|
|
frm_op_seae_edi_ym.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_ym.free;
|
|
|
frm_op_seae_edi_ym:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo12Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo12.text,[]) then
|
|
|
begin
|
|
|
t_op_ams1.DataSet.edit;
|
|
|
t_op_ams1.DataSet['AMS<4D><53><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo50Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo50.DisplayValue<>'' then
|
|
|
t_op_ams1.DataSet['AMS<4D><53><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.NYKEDI1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_nyk) then
|
|
|
frm_op_seae_edi_nyk:=tfrm_op_seae_edi_nyk.Create(application);
|
|
|
frm_op_seae_edi_nyk.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_nyk.free;
|
|
|
frm_op_seae_edi_nyk:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo51Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo51.DisplayValue<>'' then
|
|
|
t_op_ams1.DataSet['AMS<4D>ջ<EFBFBD><D5BB><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo13Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo13.text,[]) then
|
|
|
begin
|
|
|
t_op_ams1.DataSet.edit;
|
|
|
t_op_ams1.DataSet['AMS<4D>ջ<EFBFBD><D5BB><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo52Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_ams1.DataSet.State=dsinsert)or(t_op_ams1.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo52.DisplayValue<>'' then
|
|
|
t_op_ams1.DataSet['AMS֪ͨ<CDA8><D6AA>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo14Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_ams1.DataSet=nil then
|
|
|
exit;
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo14.text,[]) then
|
|
|
begin
|
|
|
t_op_ams1.DataSet.edit;
|
|
|
t_op_ams1.DataSet['AMS֪ͨ<CDA8><D6AA>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI5Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_COSCO) then
|
|
|
frm_op_seae_edi_COSCO:=tfrm_op_seae_edi_COSCO.Create(application);
|
|
|
frm_op_seae_edi_COSCO.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_COSCO.free;
|
|
|
frm_op_seae_edi_COSCO:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N111Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
if t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').AsString='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet.FieldByName('ҵ<><D2B5>״̬').AsString:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae2.DataSet.post;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
close;sql.Clear;
|
|
|
sql.Add('delete from t_op_delnote where <20><><EFBFBD><EFBFBD>='''+t_op_seae2.DataSet.Fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
ExecSQL;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_wh) then
|
|
|
frm_op_seae_edi_wh:=tfrm_op_seae_edi_wh.Create(application);
|
|
|
frm_op_seae_edi_wh.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_wh.free;
|
|
|
frm_op_seae_edi_wh:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N115Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if not if_open('269') then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_piliang_seae:=tfrm_op_piliang_seae.Create (self);
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
frm_op_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_piliang_seae.t_op_seae.open;
|
|
|
frm_op_piliang_seae.t_op.DataSet:=t_op_seae;
|
|
|
frm_op_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
frm_op_piliang_seae.Free;
|
|
|
frm_op_piliang_seae:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N117Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if not if_open('269') then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if dxDBGrid1.SelectedCount<1 then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD>ĵ<DEB8>ҵ<EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_piliang_seae:=tfrm_op_piliang_seae.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_op_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_piliang_seae.t_op_seae.open;
|
|
|
frm_op_piliang_seae.t_op.DataSet:=t_op_seae;
|
|
|
frm_op_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_op_piliang_seae.Free;
|
|
|
frm_op_piliang_seae:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N119Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if not if_open('269') then begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_piliang_seae:=tfrm_op_piliang_seae.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
t_op_seae.first;
|
|
|
while not t_op_seae.eof do
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
t_op_seae.next;
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+default_sort(53,'t_op_seae','','desc');
|
|
|
frm_op_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_op_piliang_seae.t_op_seae.open;
|
|
|
frm_op_piliang_seae.t_op.DataSet:=t_op_seae;
|
|
|
frm_op_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_op_piliang_seae.Free;
|
|
|
frm_op_piliang_seae:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N121Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>=''<27><>'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''Ӷ<><D3B6>'' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.PILEDI1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_PIL) then
|
|
|
frm_op_seae_edi_PIL:=tfrm_op_seae_edi_PIL.Create(application);
|
|
|
frm_op_seae_edi_PIL.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_PIL.free;
|
|
|
frm_op_seae_edi_PIL:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15Change(Sender: TObject);
|
|
|
begin
|
|
|
if Pos('PREPAID',t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring)>0 then
|
|
|
begin
|
|
|
DBEdit26.Text:='QINGDAO CHINA';
|
|
|
DBEdit27.Text:='';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
DBEdit26.Text:='';
|
|
|
DBEdit27.Text:=wwDBLookupCombo52.Value;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton56Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_ctn.insert;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton57Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton58Click(Sender: TObject);
|
|
|
begin
|
|
|
table_delete(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton59Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.btnMarksClick(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ctn1,'<27><>ͷ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.btnDescClick(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ctn1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton60Click(Sender: TObject);
|
|
|
var
|
|
|
bok:Tbookmark;
|
|
|
if_first:boolean;
|
|
|
begin
|
|
|
if t_op_ctn.IsEmpty then
|
|
|
exit;
|
|
|
op_befor_post(TADOQuery(DBEdit35.DataSource.DataSet),'0001');
|
|
|
t_op_ctn.First;
|
|
|
if_first:=true;
|
|
|
bok:=t_op_ctn.GetBookmark;
|
|
|
while not t_op_ctn.Eof do
|
|
|
begin
|
|
|
if if_first then
|
|
|
begin
|
|
|
memo1.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
memo2.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
|
|
|
memo3.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
|
|
|
memo4.Lines.Text:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
|
|
|
if_first:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
// memo1.Lines.Add(' ');
|
|
|
memo1.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
memo2.Lines.Add(' ');
|
|
|
memo2.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring);
|
|
|
memo3.Lines.Add(' ');
|
|
|
memo3.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS');
|
|
|
memo4.Lines.Add(' ');
|
|
|
memo4.Lines.Add(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM');
|
|
|
end;
|
|
|
t_op_ctn.next;
|
|
|
end;
|
|
|
DBEdit35.DataSource.DataSet.edit;
|
|
|
DBEdit35.DataSource.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=memo1.Lines.Text;
|
|
|
DBEdit35.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=memo2.Lines.Text;
|
|
|
DBEdit35.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo3.Lines.Text;
|
|
|
DBEdit35.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=memo4.Lines.Text;
|
|
|
DBEdit35.DataSource.DataSet.post;
|
|
|
t_op_ctn.GotoBookmark(bok);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=DBEdit35.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnAfterDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
|
|
|
update_edictn(DBEdit35.DataSource.DataSet,True);
|
|
|
UpdateCtnCountFieldName(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
|
if not (DBEdit35.DataSource.DataSet.State in [dsinsert]) then begin
|
|
|
if CheckCtnTotalEquelDetail(TADOQuery(DBEdit35.DataSource.DataSet)) then
|
|
|
begin
|
|
|
if MessageDlg('װ<><D7B0><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD>ء<EFBFBD><D8A1>߲<EFBFBD><DFB2><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>£<EFBFBD>',mtWarning,mbOKCancel,0)=mrok then begin
|
|
|
bsSkinButton60.OnClick(nil);
|
|
|
end;
|
|
|
// abort;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_ctn.Requery;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
if t_op_ctn.RecordCount=1 then
|
|
|
begin
|
|
|
if t_op_ctn.DataSource.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('ҵ<><D2B5><EFBFBD><EFBFBD>װ<EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3>㲻<EFBFBD><E3B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
If IsExsitUsdProject(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring) then
|
|
|
begin
|
|
|
ShowMessage('<27><><EFBFBD>˷ѷ<CBB7><D1B7><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
op_befor_post(TADOQuery(DBEdit35.DataSource.DataSet),'0001');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
{
|
|
|
If IsExsitUsdProject(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString) then
|
|
|
begin
|
|
|
ShowMessage('<27><><EFBFBD>˷ѷ<CBB7><D1B7><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
}
|
|
|
op_befor_post(TADOQuery(DBEdit35.DataSource.DataSet),'0001');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_ctnBeforePost(DataSet: TDataSet);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
|
|
|
if frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='20'then
|
|
|
t_op_ctn['TEU']:=1*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
|
|
|
|
|
|
if (frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='40')OR
|
|
|
(frm_data_share.t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring='45')then
|
|
|
t_op_ctn['TEU']:=2*t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:='';
|
|
|
end;
|
|
|
|
|
|
|
|
|
table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_ctn,'<27><><EFBFBD><EFBFBD>');
|
|
|
|
|
|
|
|
|
if not frm_data_share.t_code_line_ctn.active then
|
|
|
frm_data_share.t_code_line_ctn.Open;
|
|
|
if frm_data_share.t_code_line_ctn.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue<>null then
|
|
|
if (t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue<>t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value) or (t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').OldValue<>t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').Value) then
|
|
|
|
|
|
if (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').OldValue)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring),t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value)>0)
|
|
|
then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do
|
|
|
begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select * from t_ch_fee where ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>=1');
|
|
|
sql.add(' and <20><><EFBFBD><EFBFBD>='''+t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then
|
|
|
begin
|
|
|
MessageDlg('ϵͳ<CFB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>!',mtWarning,[mbOK],0);
|
|
|
Abort;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo17Change(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_ctn.State=dsedit)or(t_op_ctn.State=dsinsert) then
|
|
|
begin
|
|
|
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo17.text,[]) then
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:='';
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N124Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_jtb) then
|
|
|
frm_op_seae_edi_jtb:=tfrm_op_seae_edi_jtb.Create(application);
|
|
|
frm_op_seae_edi_jtb.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_jtb.free;
|
|
|
frm_op_seae_edi_jtb:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeAfterRefresh(DataSet: TDataSet);
|
|
|
begin
|
|
|
// if t_op_ctn.Active then t_op_ctn.Refresh;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit35Change(Sender: TObject);
|
|
|
begin
|
|
|
t_op_ctn.Close;
|
|
|
t_op_ctn.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=DBEdit35.Text;
|
|
|
t_op_ctn.Open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI7Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_custom_Waidai) then
|
|
|
frm_op_seae_edi_custom_Waidai:=tfrm_op_seae_edi_custom_Waidai.Create(application);
|
|
|
frm_op_seae_edi_custom_Waidai.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_custom_Waidai.free;
|
|
|
frm_op_seae_edi_custom_Waidai:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI8Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_custom_ld) then
|
|
|
frm_op_seae_edi_custom_ld:=tfrm_op_seae_edi_custom_ld.Create(application);
|
|
|
frm_op_seae_edi_custom_ld.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_custom_ld.free;
|
|
|
frm_op_seae_edi_custom_ld:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo33Change(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo46.Text:='Num:'+IntToStr(Length(DBMemo33.Lines[DBMemo33.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo33Click(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo46.Text:='Num:'+IntToStr(Length(DBMemo33.Lines[DBMemo33.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo34Change(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo47.Text:='Num:'+IntToStr(Length(DBMemo34.Lines[DBMemo34.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo34Click(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo47.Text:='Num:'+IntToStr(Length(DBMemo34.Lines[DBMemo34.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo35Change(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo48.Text:='Num:'+IntToStr(Length(DBMemo35.Lines[DBMemo35.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo35Click(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo48.Text:='Num:'+IntToStr(Length(DBMemo35.Lines[DBMemo35.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo38Change(Sender: TObject);
|
|
|
begin
|
|
|
Label106.Caption:='<27><>ͷ<EFBFBD>ַ<EFBFBD>Num:'+IntToStr(Length(DBMemo38.Lines[DBMemo38.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo38Click(Sender: TObject);
|
|
|
begin
|
|
|
Label106.Caption:='<27><>ͷ<EFBFBD>ַ<EFBFBD>Num:'+IntToStr(Length(DBMemo38.Lines[DBMemo38.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo39Change(Sender: TObject);
|
|
|
begin
|
|
|
Label106.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Num:'+IntToStr(Length(DBMemo39.Lines[DBMemo39.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo39Click(Sender: TObject);
|
|
|
begin
|
|
|
Label106.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Num:'+IntToStr(Length(DBMemo39.Lines[DBMemo39.CaretPos.Y]));
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.SI1Click(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_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;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton61Click(Sender: TObject);
|
|
|
|
|
|
|
|
|
begin
|
|
|
if Notebook1.pageindex=0 then
|
|
|
CreateCustomLIST(0)
|
|
|
else begin
|
|
|
CreateCustom(0);
|
|
|
end;
|
|
|
|
|
|
if not assigned(frm_op_seae_edi_data) then
|
|
|
frm_op_seae_edi_data:=tfrm_op_seae_edi_data.Create(self);
|
|
|
frm_op_seae_edi_data.ManualDock(frm_main.SearchTabs('frm_op_seae_edi_data',frm_op_seae_edi_data.caption),nil,alClient);
|
|
|
frm_op_seae_edi_data.show;
|
|
|
frm_op_seae_edi_data.t_op_seae.Locate('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,[]);
|
|
|
frm_op_seae_edi_data.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae_edi_data.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.CreateCustom(typeid:Integer);
|
|
|
var
|
|
|
str,strbsno:widestring;
|
|
|
i:integer;
|
|
|
id:string;
|
|
|
TempStr:TStringlist;
|
|
|
aQuery,aQuery2,aQuerycuststr,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> from t_code_vessel where Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>='''+avessel+'''');
|
|
|
Open;
|
|
|
if IsEmpty then
|
|
|
Result:='a'
|
|
|
else
|
|
|
Result:=FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
begin
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
if MessageDlg('ȷʵҪ<CAB5><D2AA><EFBFBD><EFBFBD>Ʊҵ<C6B1><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
|
|
|
// try
|
|
|
TempStr:=TStringList.Create;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
aQuery2:=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>';
|
|
|
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>';
|
|
|
|
|
|
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_seae2.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='CN';
|
|
|
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>']:=now;
|
|
|
t_op_seae_edi['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae2.DataSet['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:=t_op_seae2.DataSet['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae2.DataSet['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];
|
|
|
t_op_seae_edi['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae2.DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
|
|
|
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.parameters[0].value:= t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ams.open;
|
|
|
|
|
|
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'] := t_op_ams['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵绰'] := t_op_ams['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] := t_op_ams['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'] := t_op_ams['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'];
|
|
|
|
|
|
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'] := t_op_ams['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵绰'] := t_op_ams['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰'];
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] := t_op_ams['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'] := t_op_ams['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'];
|
|
|
|
|
|
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'] := t_op_ams['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['֪ͨ<CDA8>˵绰'] := t_op_ams['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰'];
|
|
|
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] := t_op_ams['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'] := t_op_ams['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'];
|
|
|
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>']:=getcustedi(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').AsString);
|
|
|
TempStr.Text:=t_op_seae2.DataSet.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_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
if t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then begin
|
|
|
aQueryShipper.Close;
|
|
|
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.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_seae2.DataSet.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_seae2.DataSet.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_seae2.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>'];
|
|
|
|
|
|
if t_op_seae2.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString<>'' then begin
|
|
|
aQueryShipper.Close;
|
|
|
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.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_seae2.DataSet.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_seae2.DataSet.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_seae2.DataSet.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
|
|
|
t_op_seae_edi['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>'];
|
|
|
if t_op_seae2.DataSet.FieldByName('֪ͨ<CDA8><D6AA>').AsString<>'' then begin
|
|
|
aQueryShipper.Close;
|
|
|
aQueryShipper.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_op_seae2.DataSet.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_seae2.DataSet.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_seae2.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD>IMO']:=GetvesselEdi(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><>վ']:=t_op_seae2.DataSet['<27><>վ'];
|
|
|
t_op_seae_edi['<27><>ǰ״̬']:='δ<><CEB4><EFBFBD><EFBFBD>';
|
|
|
|
|
|
if typeid=3 then
|
|
|
begin
|
|
|
if t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>']='CNTAO' then
|
|
|
begin
|
|
|
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD>']:='QingQianWanGang';
|
|
|
t_op_seae_edi['װ<>۴<EFBFBD><DBB4><EFBFBD>']:='CNQWG/4258';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
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>'];
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
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>'];
|
|
|
end;
|
|
|
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae2.DataSet['װ<><D7B0><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
|
|
|
t_op_seae_edi['Ŀ<>ĵ<EFBFBD>']:=t_op_seae2.DataSet['Ŀ<>ĵ<EFBFBD>'];
|
|
|
t_op_seae_edi['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=t_op_seae2.DataSet['Ŀ<>ĵش<C4B5><D8B4><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><>ͷ']:=t_op_seae2.DataSet['<27><>ͷ'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><>װ']:=t_op_seae2.DataSet['<27><>װ'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27>¶ȵ<C2B6>λ']:=t_op_seae2.DataSet['<27>¶ȵ<C2B6>λ'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>'];
|
|
|
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:=t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ'];
|
|
|
t_op_seae_edi['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>']:=t_op_seae2.DataSet['<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['ʪ<><CAAA>']:=t_op_seae2.DataSet['ʪ<><CAAA>'];
|
|
|
// t_op_seae_edi['<27><><EFBFBD>պ<EFBFBD><D5BA><EFBFBD>']:=t_op_seae2.DataSet['<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>']:='A';
|
|
|
if Pos('ƴ<><C6B4>', t_op_seae2.DataSet.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>䷽ʽ']:=t_op_seae2.DataSet['<27><><EFBFBD>䷽ʽ'];
|
|
|
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_seae2.DataSet.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_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
aQuery.Open;
|
|
|
end;
|
|
|
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;
|
|
|
|
|
|
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;
|
|
|
|
|
|
|
|
|
aQuery.Next;
|
|
|
end;
|
|
|
ShowMessage('<27><><EFBFBD>ɳɹ<C9B3>,<2C>뵽<EFBFBD>յ<EFBFBD><D5B5>걨ģ<EAB1A8><C4A3><EFBFBD>鿴<EFBFBD><E9BFB4>');
|
|
|
// except
|
|
|
// ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ˢ<>º<EFBFBD><C2BA><EFBFBD><EFBFBD>ԣ<EFBFBD>');
|
|
|
// end;
|
|
|
|
|
|
// finally
|
|
|
FreeAndNil(TempStr);
|
|
|
FreeAndNil(aQuery);
|
|
|
FreeAndNil(aQuery2);
|
|
|
FreeAndNil(aQuerycuststr);
|
|
|
// FreeAndNil(aQueryCtnDetail);
|
|
|
FreeAndNil(aQueryShipper);
|
|
|
// end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.CreateCustomLIST(typeid:Integer);
|
|
|
var
|
|
|
str,strbsno,linecode:widestring;
|
|
|
i:integer;
|
|
|
id:string;
|
|
|
TempStr:TStringlist;
|
|
|
aQuery,aQuery2,aQuerycuststr,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> from t_code_vessel where Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>='''+avessel+'''');
|
|
|
Open;
|
|
|
if IsEmpty then
|
|
|
Result:='a'
|
|
|
else
|
|
|
Result:=FieldByName('<27><><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>'+inttostr(dxDBGrid1.SelectedCount)+'Ʊҵ<C6B1><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
|
|
|
try
|
|
|
TempStr:=TStringList.Create;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
aQuery2:=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>';
|
|
|
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]));
|
|
|
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>'];
|
|
|
t_op_seae_edi['EDI<44><49><EFBFBD><EFBFBD>']:='CN';
|
|
|
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>']:=now;
|
|
|
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>'];
|
|
|
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.parameters[0].value:= t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ams.open;
|
|
|
|
|
|
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'] := t_op_ams['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˵绰'] := t_op_ams['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] := t_op_ams['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'] := t_op_ams['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'];
|
|
|
|
|
|
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'] := t_op_ams['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˵绰'] := t_op_ams['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰'];
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] := t_op_ams['<27>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'] := t_op_ams['<27>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'];
|
|
|
|
|
|
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'] := t_op_ams['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['֪ͨ<CDA8>˵绰'] := t_op_ams['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰'];
|
|
|
t_op_seae_edi['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] := t_op_ams['֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_edi['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'] := t_op_ams['֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>'];
|
|
|
|
|
|
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;
|
|
|
t_op_seae_edi['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>'];
|
|
|
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;
|
|
|
t_op_seae_edi['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_seae['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>'];
|
|
|
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><>վ']:=t_op_seae['<27><>վ'];
|
|
|
t_op_seae_edi['<27><>ǰ״̬']:='δ<><CEB4><EFBFBD><EFBFBD>';
|
|
|
|
|
|
|
|
|
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>'];
|
|
|
|
|
|
if typeid=3 then
|
|
|
begin
|
|
|
if t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>']='CNTAO' then
|
|
|
begin
|
|
|
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD>']:='QingQianWanGang';
|
|
|
t_op_seae_edi['װ<>۴<EFBFBD><DBB4><EFBFBD>']:='CNQWG/4258';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
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>'];
|
|
|
end;
|
|
|
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
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>'];
|
|
|
end;
|
|
|
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';
|
|
|
t_op_seae_edi['װ<><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='FCL';
|
|
|
t_op_seae_edi['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=1;
|
|
|
t_op_seae_edi['<27><><EFBFBD>䷽ʽ']:=t_op_seae['<27><><EFBFBD>䷽ʽ'];
|
|
|
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;
|
|
|
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;
|
|
|
aQuery.Next;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
ShowMessage('<27><><EFBFBD>ɳɹ<C9B3>,<2C>뵽<EFBFBD>յ<EFBFBD><D5B5>걨ģ<EAB1A8><C4A3><EFBFBD>鿴<EFBFBD><E9BFB4>');
|
|
|
except
|
|
|
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ˢ<>º<EFBFBD><C2BA><EFBFBD><EFBFBD>ԣ<EFBFBD>');
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(TempStr);
|
|
|
FreeAndNil(aQuery);
|
|
|
FreeAndNil(aQuery2);
|
|
|
FreeAndNil(aQuerycuststr);
|
|
|
FreeAndNil(aQueryShipper);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo17KeyUp(Sender: TObject;
|
|
|
var Key: Word; Shift: TShiftState);
|
|
|
begin
|
|
|
if (t_op_ctn.State=dsedit)or(t_op_ctn.State=dsinsert) then
|
|
|
begin
|
|
|
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo17.text,[]) then
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:='';
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton65Click(Sender: TObject);
|
|
|
begin
|
|
|
if Notebook1.pageindex=0 then
|
|
|
CreateCustomLIST(3)
|
|
|
else begin
|
|
|
CreateCustom(3);
|
|
|
end;
|
|
|
if not assigned(frm_op_seae_edi_data) then
|
|
|
frm_op_seae_edi_data:=tfrm_op_seae_edi_data.Create(self);
|
|
|
frm_op_seae_edi_data.ManualDock(frm_main.SearchTabs('frm_op_seae_edi_data',frm_op_seae_edi_data.caption),nil,alClient);
|
|
|
frm_op_seae_edi_data.show;
|
|
|
frm_op_seae_edi_data.t_op_seae.Locate('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,[]);
|
|
|
frm_op_seae_edi_data.Notebook1.PageIndex:=1;
|
|
|
frm_op_seae_edi_data.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N129Click(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>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_state_igz) then
|
|
|
frm_op_state_igz:=Tfrm_op_state_igz.Create(application);
|
|
|
frm_op_state_igz.mblno:=t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
|
|
|
frm_op_state_igz.ShowModal;
|
|
|
finally
|
|
|
frm_op_state_igz.free;
|
|
|
frm_op_state_igz:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBGrid1DblClick(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>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_state_igz_one) then
|
|
|
frm_op_state_igz_one:=Tfrm_op_state_igz_one.Create(application);
|
|
|
frm_op_state_igz_one.mblno:=t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
|
|
|
frm_op_state_igz_one.ctnNo:=t_op_ctn1.dataset.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
frm_op_state_igz_one.ShowModal;
|
|
|
finally
|
|
|
frm_op_state_igz_one.free;
|
|
|
frm_op_state_igz_one:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label115Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_cd);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo44Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo44);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo44Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo44);
|
|
|
|
|
|
end;
|
|
|
procedure Tfrm_op_seae.FieldReadOnlyColor;
|
|
|
begin
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring)<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if IsReadOnlyExist(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring) then
|
|
|
begin
|
|
|
DBEdit8.ReadOnly:=True;
|
|
|
DBEdit8.Color:=clSkyBlue;
|
|
|
|
|
|
DBEdit9.ReadOnly:=True;
|
|
|
DBEdit9.Color:=clSkyBlue;
|
|
|
wwDBDateTimePicker2.Enabled:=false;
|
|
|
wwDBDateTimePicker3.Enabled:=false;
|
|
|
// RxDBLookupCombo1.Enabled:=false;
|
|
|
// wwDBComboBox8.Enabled:=false;
|
|
|
RxDBLookupCombo40.Enabled:=false;
|
|
|
// RxDBLookupCombo1.Enabled:=false;
|
|
|
// wwDBComboBox8.Enabled:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
DBEdit8.ReadOnly:=false;
|
|
|
DBEdit8.Color:=clWindow;
|
|
|
DBEdit9.ReadOnly:=false;
|
|
|
DBEdit9.Color:=clWindow;
|
|
|
wwDBDateTimePicker2.Enabled:=True;
|
|
|
wwDBDateTimePicker3.Enabled:=True;
|
|
|
// RxDBLookupCombo1.Enabled:=True;
|
|
|
// wwDBComboBox8.Enabled:=True;
|
|
|
RxDBLookupCombo40.Enabled:=True;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.FieldReadOnlyColorDr;
|
|
|
begin
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring)<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if IsReadOnlyExistDr(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring) then
|
|
|
begin
|
|
|
|
|
|
RxDBLookupCombo1.Enabled:=false;
|
|
|
wwDBComboBox8.Enabled:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
RxDBLookupCombo1.Enabled:=True;
|
|
|
wwDBComboBox8.Enabled:=True;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit1Change(Sender: TObject);
|
|
|
begin
|
|
|
if not t_op_seae2.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
|
|
|
begin
|
|
|
FieldReadOnlyColor;
|
|
|
FieldReadOnlyColordr;
|
|
|
end;
|
|
|
SetBookingStatus;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1Column10CustomDraw(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 //dxDBGrid1Column69
|
|
|
if frm_data_share.t_crm_client_sales.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',VarArrayOf([trim(ANode.Strings[dxDBGrid1Column10.Index]),trim(ANode.Strings[dxDBGrid1Column69.Index])]),[]) then
|
|
|
begin
|
|
|
if trim(frm_data_share.t_crm_client_sales.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString)<>'' then
|
|
|
begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=dxgrid_color_fee(frm_data_share.t_crm_client_sales.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
{
|
|
|
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',trim(ANode.Strings[dxDBGrid1Column10.Index]),[]) then
|
|
|
begin
|
|
|
if trim(frm_data_share.t_crm_client_weituo.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString)<>'' then
|
|
|
begin
|
|
|
AColor:=clBtnFace;
|
|
|
AFont.Color:=dxgrid_color_fee(frm_data_share.t_crm_client_weituo.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString);
|
|
|
end;
|
|
|
end;
|
|
|
}
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N131Click(Sender: TObject);
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',trim(t_op_seae2.DataSet.fieldbyname('ί<>е<EFBFBD>λ').AsString),[]) then
|
|
|
begin
|
|
|
showmessage(frm_data_share.t_crm_client_weituo.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton67Click(Sender: TObject);
|
|
|
var
|
|
|
hdgs, hdgsSPXNO,emptyMES,FX: string;
|
|
|
begin
|
|
|
fx:=GetBookingFX;
|
|
|
if (fx='<27><><EFBFBD>˷<EFBFBD>') then begin
|
|
|
ShowMessage('ShippingBox<6F>ݲ<EFBFBD>֧<EFBFBD><D6A7>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
//20150724 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ <20><><EFBFBD><EFBFBD><EFBFBD>˸<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>Ŀ<EFBFBD>ĵؼ<C4B5>װ<EFBFBD><D7B0>Ϊ<EFBFBD><CEAA> <20><><EFBFBD>澯<EFBFBD>˳<EFBFBD>
|
|
|
emptyMES := '';
|
|
|
if t_op_seae.fieldbyname('װ<><D7B0><EFBFBD><EFBFBD>').asstring = '' then
|
|
|
emptyMES := 'װ<><D7B0><EFBFBD><EFBFBD>';
|
|
|
if t_op_seae.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring = '' then
|
|
|
emptyMES := emptyMES + ' ж<><D0B6><EFBFBD><EFBFBD>';
|
|
|
if t_op_seae.fieldbyname('Ŀ<>ĵ<EFBFBD>').asstring = '' then
|
|
|
emptyMES := emptyMES + ' Ŀ<>ĵ<EFBFBD>';
|
|
|
if t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring = '' then
|
|
|
emptyMES := emptyMES + ' <20><>װ<EFBFBD><D7B0>';
|
|
|
if emptyMES <> '' then
|
|
|
begin
|
|
|
ShowMessage(emptyMES + ' <20><><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
try
|
|
|
//showmessage(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring);
|
|
|
hdgs := t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring;
|
|
|
frm_crm_spxcompany := Tfrm_crm_spxcompany.Create(self);
|
|
|
//hdgsSPXNO:='';
|
|
|
if (hdgs <> '') then
|
|
|
begin
|
|
|
|
|
|
frm_crm_spxcompany.sethdgs(hdgs);
|
|
|
frm_crm_spxcompany.SetCanSearch(true);
|
|
|
end;
|
|
|
frm_crm_spxcompany.SOSI:=0;
|
|
|
frm_crm_spxcompany.ShowModal;
|
|
|
finally
|
|
|
//showmessage(frm_crm_spxcompany.t_crm_spxcompany.FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString);
|
|
|
frm_crm_spxcompany.Free;
|
|
|
end;
|
|
|
SetBookingStatus;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae.GetBookingFX: string;
|
|
|
var _s,_r:string;
|
|
|
begin
|
|
|
getwebservice_ds;
|
|
|
if (FX='') and (t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring<>'') then begin
|
|
|
_s := '';
|
|
|
_s := '<?xml version="1.0" encoding="UTF-8" standalone="no"?>';
|
|
|
_s := _s + '<UserInfo xmlns="urn:Declaration:datamodel:standard:CN:MT2101:1"> ';
|
|
|
_s := _s + ' <UserList> ';
|
|
|
_s := _s + ' <User> ';
|
|
|
_s := _s + ' <UserID>' + frm_data_share.t_load_employee.fieldbyname('<27><><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>к<EFBFBD>').asstring + '</UserID> ';
|
|
|
_s := _s + ' <Companyid>' + frm_data_share.t_load_employee.fieldbyname('<27><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>к<EFBFBD>').asstring + '</Companyid> ';
|
|
|
_s := _s + ' <BSNO>' + t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring + '</BSNO> ';
|
|
|
_s := _s + ' </User> ';
|
|
|
_s := _s + ' </UserList> ';
|
|
|
_s := _s + '</UserInfo> ';
|
|
|
//ShowMessage('before send');
|
|
|
if (t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring='') then begin
|
|
|
result:='';
|
|
|
end else begin
|
|
|
_r := mServiceSoap_Ds.GetBookingFX(_s);
|
|
|
result:=_r;
|
|
|
end;
|
|
|
end else result:=FX;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.SetBookingStatus;
|
|
|
begin
|
|
|
with GetSPXStatusQry do
|
|
|
begin
|
|
|
if (t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring <> '') then
|
|
|
begin
|
|
|
Close;
|
|
|
Parameters.ParambyName('<27><><EFBFBD><EFBFBD>1').Value := t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
Parameters.ParambyName('<27><><EFBFBD><EFBFBD>2').Value := t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
Parameters.ParambyName('<27><><EFBFBD><EFBFBD>3').Value := t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
Parameters.ParambyName('<27><><EFBFBD><EFBFBD>4').Value := t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
open;
|
|
|
if GetSPXStatusQry.fieldbyname('dc').asinteger > 0 then
|
|
|
bsSkinButton67.DefaultFont.Color := clGreen
|
|
|
else
|
|
|
bsSkinButton67.DefaultFont.Color := clWindowText;
|
|
|
if GetSPXStatusQry.fieldbyname('rhtz').asinteger > 0 then
|
|
|
bsSkinButton72.DefaultFont.Color := clGreen
|
|
|
else
|
|
|
bsSkinButton72.DefaultFont.Color := clWindowText;
|
|
|
if GetSPXStatusQry.fieldbyname('tdqr').asinteger > 0 then
|
|
|
bsSkinButton73.DefaultFont.Color := clGreen
|
|
|
else
|
|
|
bsSkinButton73.DefaultFont.Color := clWindowText;
|
|
|
// bsSkinButtonLabel1.Caption := '' + GetSPXStatusQry.fieldbyname('SPXNO').AsString;
|
|
|
end
|
|
|
else
|
|
|
//bsSkinButtonLabel1.Caption := '';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
function Tfrm_op_seae.SendShippingOrderEmail(sendercompany, sendername, Email, ReceiverCompany, ReceiverName, ReceiverEmail, Mobile: string): TADOQuery;
|
|
|
var
|
|
|
str_op, str_ctn: Tstringlist;
|
|
|
t_Booking_log: Tadoquery;
|
|
|
i: integer;
|
|
|
M_msg, MBLNO, BSNO, ETD, ETA, CNTR, VESSEL, VOYNO: string;
|
|
|
begin
|
|
|
try
|
|
|
getctnqry.Close;
|
|
|
getctnqry.SQL.text := 'select ''' + sendercompany + ''' sendercompany,''' + sendername + ''' sendername,''' + Email + ''' Email,''' + ReceiverCompany + ''' ReceiverCompany,''' + ReceiverName + ''' ReceiverName,''' + ReceiverEmail + ''' ReceiverEmail,''' + Mobile + ''' Mobile';
|
|
|
getctnqry.Open;
|
|
|
|
|
|
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;
|
|
|
//////////////////
|
|
|
with frm_op_letter do
|
|
|
begin
|
|
|
frm_op_letter_insert := true;
|
|
|
t_op_letter.close;
|
|
|
t_op_letter.open;
|
|
|
t_op_letter.Insert;
|
|
|
t_op_letter['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'] := '<27><><EFBFBD><EFBFBD>֪ͨ';
|
|
|
t_op_letter['HEAD_TO'] := GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('ί<>е<EFBFBD>λ').asstring);
|
|
|
t_op_letter.Post;
|
|
|
t_op_letter_rh.open;
|
|
|
t_op_letter_rh.insert;
|
|
|
GetRHQry.close;
|
|
|
GetRHQry.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value := t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
GetRHQry.Open;
|
|
|
t_op_letter_rh['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>վ'] := GetRHQry.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>վ').asstring;
|
|
|
t_op_letter_rh['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>'] := GetRHQry.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asstring;
|
|
|
t_op_letter_rh['<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5>'] := GetRHQry.fieldbyname('<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5>').asstring;
|
|
|
t_op_letter_rh['<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD>绰'] := GetRHQry.fieldbyname('<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD>绰').asstring;
|
|
|
t_op_letter_rh['<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>'] := GetRHQry.fieldbyname('<27><>վ<EFBFBD><D5BE><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
t_op_letter_rh['<27><>վ<EFBFBD><D5BE>ַ'] := GetRHQry.fieldbyname('<27><>վ<EFBFBD><D5BE>ַ').asstring;
|
|
|
t_op_letter_rh['<27>ص<EFBFBD>ʱ<EFBFBD><CAB1>'] := GetRHQry.fieldbyname('<27>ص<EFBFBD>ʱ<EFBFBD><CAB1>').asstring;
|
|
|
t_op_letter_rh['<27><><EFBFBD>ڿڰ<DABF>'] := GetRHQry.fieldbyname('<27><><EFBFBD>ڿڰ<DABF>').asstring;
|
|
|
t_op_letter_rh.post;
|
|
|
|
|
|
sys_Simpleprint('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֪ͨ', sendername, 1, t_op_letter.DataSource, t_op_letter1, DataSource1, GetCtnDS, DataSource2, nil, nil, nil, nil, nil, nil);
|
|
|
|
|
|
// sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+DBEdit3.Text,1,t_op_letter.DataSource,t_op_letter1,DataSource1,t_op_railway_cnt1,DataSource2,nil,nil,nil,nil,nil,nil);
|
|
|
result := t_op_letter;
|
|
|
end
|
|
|
|
|
|
finally
|
|
|
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.SendBLCRepeat(SQLstr,sendername:String);
|
|
|
|
|
|
begin
|
|
|
try
|
|
|
getctnqry.Close;
|
|
|
getctnqry.SQL.text := SQLstr;
|
|
|
getctnqry.Open;
|
|
|
sys_Simpleprint('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>', sendername, 1, t_op_seae2, nil, nil, GetCtnDS, nil, nil, nil, nil, nil, nil, nil);
|
|
|
|
|
|
finally
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.getwebservice_ds;
|
|
|
var URL:String;
|
|
|
begin
|
|
|
try
|
|
|
URL:=get_WebseviceURL;
|
|
|
mHttpRIO_ds:=THTTPRIO.Create(nil);
|
|
|
|
|
|
mHttpRIO_ds.WSDLLocation:=URL+'?WSDL';
|
|
|
mHttpRIO_ds.URL:=URL;
|
|
|
|
|
|
mHttpRIO_ds.Port:='DsWebServiceSoap';
|
|
|
mHttpRIO_ds.Service:='DsWebService';
|
|
|
mHttpRIO_ds.HTTPWebNode.UseUTF8InHeader:=true;
|
|
|
InvRegistry.RegisterInvokeOptions(TypeInfo(DsWebServiceSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
|
|
|
mServiceSoap_Ds:=mHttpRIO_ds as DsWebServiceSoap;
|
|
|
except
|
|
|
on E:Exception do
|
|
|
begin
|
|
|
ShowMessage(e.Message);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton69Click(Sender: TObject);
|
|
|
var SHIPPERID,AUDITOR,FORWARDER,CARRIER,BSNO,BH,mes,TargetCompany,receiver,OPType,
|
|
|
inputby,onlinetimemark,onlinePosted,msg,searchmsg,CompanySPXNO,hdgs,hdgsSPXNO,emptyMES:string;
|
|
|
_s,_r,_state,block:WideString;
|
|
|
CompanyStr:string;
|
|
|
_l,p1,p2:Integer;
|
|
|
DT:TDateTime;
|
|
|
UserSPXNO,ReceiverName:string;
|
|
|
ShipingboxNo:string;
|
|
|
GetEmployeeQry,GetHDGSQry:TAdoQuery;
|
|
|
begin
|
|
|
fx:=GetBookingFX;
|
|
|
if (fx='<27><><EFBFBD>˷<EFBFBD>') then begin
|
|
|
ShowMessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>ί<EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
|
|
|
getwebservice_ds;
|
|
|
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD><D5B5>Ĺ<EFBFBD>˾<EFBFBD><CBBE>Ϣ
|
|
|
|
|
|
CompanyStr := mServiceSoap_Ds.LoadReceiverCompany(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring);
|
|
|
|
|
|
p1 := frm_data_share.GettimePotion(1, '<Company>', CompanyStr);
|
|
|
p2 := frm_data_share.GettimePotion(1, '</Company>', CompanyStr);
|
|
|
block := Copy(CompanyStr, p1, p2 - p1);
|
|
|
//ReceiverCompany := frm_data_share.GetXMLValue('FullName', block);
|
|
|
ReceiverName := frm_data_share.GetXMLValue('Name', block);
|
|
|
//ReceiverEmail := frm_data_share.GetXMLValue('Email', block);
|
|
|
//Mobile := frm_data_share.GetXMLValue('Mobile', block);
|
|
|
|
|
|
|
|
|
try
|
|
|
hdgs := t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring;
|
|
|
frm_crm_spxcompany := Tfrm_crm_spxcompany.Create(self);
|
|
|
if (hdgs <> '') then
|
|
|
begin
|
|
|
|
|
|
frm_crm_spxcompany.sethdgs(hdgs);
|
|
|
frm_crm_spxcompany.setSPXUSER(ReceiverName);
|
|
|
frm_crm_spxcompany.SetCanSearch(False);
|
|
|
end;
|
|
|
frm_crm_spxcompany.SOSI:=1;
|
|
|
frm_crm_spxcompany.ShowModal;
|
|
|
finally
|
|
|
frm_crm_spxcompany.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton70Click(Sender: TObject);
|
|
|
var
|
|
|
_s, XML, url, CancelReason: string;
|
|
|
//aa:DsWebServiceSoap;
|
|
|
begin
|
|
|
fx:=GetBookingFX;
|
|
|
if (fx='<27><><EFBFBD>˷<EFBFBD>') then begin
|
|
|
ShowMessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD>֪ͨ<CDA8><D6AA><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
|
|
|
if MessageDlg('ȷ<><C8B7>Ҫ<EFBFBD>˵<EFBFBD><CBB5><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', mtWarning, [mbyes, mbno], 0) = mryes then
|
|
|
begin
|
|
|
|
|
|
if InputQueryMEMO('<27>˲<EFBFBD>', '<27>˲յ<CBB2><D5B5><EFBFBD><EFBFBD><EFBFBD>:', CancelReason) then
|
|
|
begin
|
|
|
|
|
|
end;
|
|
|
|
|
|
getwebservice_ds;
|
|
|
//<2F><><EFBFBD>ͽ<EFBFBD><CDBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
|
|
|
_s := '<?xml version="1.0" encoding="UTF-8" standalone="no"?>';
|
|
|
_s := _s + '<BookingCargoSpace xmlns="urn:Declaration:datamodel:standard:CN:MT2101:1"> ';
|
|
|
_s := _s + ' <Head> ';
|
|
|
_s := _s + ' <OPID>' + frm_data_share.t_load_employee.fieldbyname('<27><><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>к<EFBFBD>').asstring + '</OPID> ';
|
|
|
_s := _s + ' <OPTYPE>7</OPTYPE> '; //7 <20><><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD>
|
|
|
_s := _s + ' <OPTIME>' + datetimetostr(Date) + '</OPTIME> ';
|
|
|
_s := _s + ' <Version>1.0</Version> ';
|
|
|
_s := _s + ' </Head> ';
|
|
|
_s := _s + '<OpseaeList> ';
|
|
|
_s := _s + ' <Opseae> ';
|
|
|
_s := _s + ' <BSNO>' + t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring + '</BSNO> ';
|
|
|
_s := _s + ' <PendingReason>' + CancelReason + '</PendingReason> ';
|
|
|
_s := _s + ' </Opseae> ';
|
|
|
_s := _s + '</OpseaeList> ';
|
|
|
_s := _s + '</BookingCargoSpace> ';
|
|
|
XML := mServiceSoap_Ds.SetBookingCargoSpaceAudit(_s);
|
|
|
|
|
|
if (pos('<27>ɹ<EFBFBD>', XML) > 0) then
|
|
|
begin
|
|
|
showmessage('<27>˲<EFBFBD><CBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27>˲<EFBFBD><CBB2><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>');
|
|
|
end;
|
|
|
end
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton68Click(Sender: TObject);
|
|
|
var SHIPPERID,AUDITOR,FORWARDER,CARRIER,BSNO,BH,mes,TargetCompany,receiver,OPType,
|
|
|
inputby,onlinetimemark,onlinePosted,msg,searchmsg,CompanySPXNO,hdgs,hdgsSPXNO,emptyMES:string;
|
|
|
_s,_r,_state,block:WideString;
|
|
|
CompanyStr:string;
|
|
|
_l,p1,p2:Integer;
|
|
|
DT:TDateTime;
|
|
|
UserSPXNO,ReceiverName:string;
|
|
|
ShipingboxNo:string;
|
|
|
GetEmployeeQry,GetHDGSQry:TAdoQuery;
|
|
|
begin
|
|
|
fx:=GetBookingFX;
|
|
|
if (fx='<27><><EFBFBD>˷<EFBFBD>') then begin
|
|
|
ShowMessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>ί<EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
|
|
|
try
|
|
|
//hdgs := t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring;
|
|
|
frm_crm_spxcompany := Tfrm_crm_spxcompany.Create(self);
|
|
|
|
|
|
frm_crm_spxcompany.SetCurrCompany;
|
|
|
frm_crm_spxcompany.SetCanSearch(False);
|
|
|
|
|
|
frm_crm_spxcompany.SOSI:=2;
|
|
|
frm_crm_spxcompany.ShowModal;
|
|
|
finally
|
|
|
frm_crm_spxcompany.Free;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton72Click(Sender: TObject);
|
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD>ύ<EFBFBD><E1BDBB>shippingbox <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>bsstatus
|
|
|
var
|
|
|
SHIPPERID, AUDITOR, FORWARDER, CARRIER, BSNO, BH, mes, TargetCompany, receiver, OPType, inputby, onlinetimemark, onlinePosted, msg, searchmsg, CompanySPXNO, hdgs, hdgsSPXNO: string;
|
|
|
_s, _r, _state, block, CompanyStr: WideString;
|
|
|
_l, p1, p2: Integer;
|
|
|
DT: TDateTime;
|
|
|
UserSPXNO, sendercompany, senderName, Email, ReceiverCompany, ReceiverName
|
|
|
, ReceiverTel, ReceiverEmail, Mobile,fx: string;
|
|
|
_TDS: TADOQuery;
|
|
|
begin
|
|
|
//<2F><><EFBFBD>ȱ<EFBFBD><C8B1><EFBFBD>һ<EFBFBD><D2BB>
|
|
|
fx:=GetBookingFX;
|
|
|
if (fx='ί<>з<EFBFBD>') then begin
|
|
|
ShowMessage('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>Ϊί<CEAA>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD>ó<EFBFBD><C3B3>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
|
|
|
bsSkinButton2Click(Self);
|
|
|
|
|
|
getwebservice_ds;
|
|
|
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ѱ<EFBFBD><D1B1><EFBFBD><EFBFBD>ܻ<DCBB><F2B2B5BB><EFBFBD><EFBFBD>澯
|
|
|
try
|
|
|
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress := tfrm_sys_progress.Create(application);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText := '<27><><EFBFBD>ڻ<EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ<C8BA><F2A1A3A1><EFBFBD>';
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue := 5;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue := 0;
|
|
|
frm_sys_progress.Show;
|
|
|
|
|
|
_s := '<?xml version="1.0" encoding="UTF-8" standalone="no"?> ';
|
|
|
_s := _s + '<BookingInfo xmlns="urn:Declaration:datamodel:standard:CN:MT2101:1"> ';
|
|
|
_s := _s + ' <Booking> ';
|
|
|
_s := _s + ' <BSNO>' + frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring + '</BSNO> ';
|
|
|
_s := _s + ' </Booking> ';
|
|
|
_s := _s + '</BookingInfo> ';
|
|
|
_state := mServiceSoap_Ds.GetBsnoInfo(_s);
|
|
|
|
|
|
p1 := frm_data_share.GettimePotion(1, '<Booking>', _state);
|
|
|
p2 := frm_data_share.GettimePotion(1, '</Booking>', _state);
|
|
|
block := Copy(_state, p1, p2 - p1);
|
|
|
|
|
|
onlinePosted := '0';
|
|
|
onlinePosted := frm_data_share.GetXMLValue('ISPOSTED', block);
|
|
|
|
|
|
|
|
|
//<2F><>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֤<EFBFBD><D6A4>Чֵ
|
|
|
SendedEmail := false;
|
|
|
msg := 'ע<>⣺';
|
|
|
with t_op_seae do
|
|
|
begin
|
|
|
if FieldByName('<27><>վ').AsString = '' then
|
|
|
msg := msg + ' <20><>վ ';
|
|
|
if FieldByName('<27><><EFBFBD><EFBFBD>').AsString = '' then
|
|
|
msg := msg + ' <20><><EFBFBD><EFBFBD> ';
|
|
|
if FieldByName('<27><><EFBFBD><EFBFBD>').AsString = '' then
|
|
|
msg := msg + ' <20><><EFBFBD><EFBFBD> ';
|
|
|
if FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString = '' then
|
|
|
msg := msg + ' <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> ';
|
|
|
if FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString = '' then
|
|
|
msg := msg + ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ';
|
|
|
if FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString = '' then
|
|
|
msg := msg + ' װ<><D7B0><EFBFBD><EFBFBD> ';
|
|
|
if FieldByName('Ŀ<>ĵ<EFBFBD>').AsString = '' then
|
|
|
msg := msg + ' Ŀ<>ĵ<EFBFBD> ';
|
|
|
if FieldByName('<27><>װ<EFBFBD><D7B0>').AsString = '' then
|
|
|
msg := msg + ' <20><>װ<EFBFBD><D7B0> ';
|
|
|
|
|
|
if (msg <> 'ע<>⣺') then
|
|
|
begin
|
|
|
if MessageDlg(msg + #13#10 + ' <20><><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbYes,mbNo],0)<>mrYes then
|
|
|
begin
|
|
|
Exit;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
getwebservice_ds;
|
|
|
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD><D5B5>Ĺ<EFBFBD>˾<EFBFBD><CBBE>Ϣ
|
|
|
CompanyStr := mServiceSoap_Ds.LoadSenderCompany(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring);
|
|
|
|
|
|
p1 := frm_data_share.GettimePotion(1, '<Company>', CompanyStr);
|
|
|
p2 := frm_data_share.GettimePotion(1, '</Company>', CompanyStr);
|
|
|
block := Copy(CompanyStr, p1, p2 - p1);
|
|
|
sendercompany := frm_data_share.GetXMLValue('FullName', block);
|
|
|
senderName := frm_data_share.GetXMLValue('Name', block);
|
|
|
Email := frm_data_share.GetXMLValue('Email', block);
|
|
|
|
|
|
CompanyStr := mServiceSoap_Ds.LoadReceiverCompany(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring);
|
|
|
|
|
|
p1 := frm_data_share.GettimePotion(1, '<Company>', CompanyStr);
|
|
|
p2 := frm_data_share.GettimePotion(1, '</Company>', CompanyStr);
|
|
|
block := Copy(CompanyStr, p1, p2 - p1);
|
|
|
ReceiverCompany := frm_data_share.GetXMLValue('FullName', block);
|
|
|
ReceiverName := frm_data_share.GetXMLValue('Name', block);
|
|
|
ReceiverEmail := frm_data_share.GetXMLValue('Email', block);
|
|
|
Mobile := frm_data_share.GetXMLValue('Mobile', block);
|
|
|
|
|
|
|
|
|
frm_sys_progress.Close;
|
|
|
frm_sys_progress.Free;
|
|
|
frm_sys_progress := nil;
|
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD>磬<F1BAAFB5><E7A3AC><EFBFBD><EFBFBD>simplyprint<6E><74>ӡ
|
|
|
_TDS := TADOQuery.Create(self);
|
|
|
_TDS := SendShippingOrderEmail(sendercompany, sendername, Email, ReceiverCompany, ReceiverName, ReceiverEmail, Mobile);
|
|
|
|
|
|
if (not SendedEmail) then
|
|
|
Exit;
|
|
|
//ShowMessage('begin');
|
|
|
_s := '';
|
|
|
_s := '<?xml version="1.0" encoding="UTF-8" standalone="no"?>';
|
|
|
_s := _s + '<BookingCargoSpace xmlns="urn:Declaration:datamodel:standard:CN:MT2101:1"> ';
|
|
|
_s := _s + ' <Head> ';
|
|
|
_s := _s + ' <OPID>' + frm_data_share.t_load_employee.fieldbyname('<27><><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>к<EFBFBD>').asstring + '</OPID> ';
|
|
|
_s := _s + ' <COMPANYID>' + frm_data_share.t_load_employee.fieldbyname('<27><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>ϵͳ<CFB5><CDB3><EFBFBD>к<EFBFBD>').asstring + '</COMPANYID> ';
|
|
|
_s := _s + ' <OPTYPE>0</OPTYPE> ';
|
|
|
_s := _s + ' <OPTIME>' + datetimetostr(DT) + '</OPTIME> ';
|
|
|
_s := _s + ' <Version>1.0</Version> ';
|
|
|
_s := _s + ' </Head> ';
|
|
|
_s := _s + '<OpseaeList> ';
|
|
|
_s := _s + ' <Opseae> ';
|
|
|
_s := _s + ' <BSNO>' + t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring + '</BSNO> ';
|
|
|
_s := _s + ' <MBLNO>' + t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring + '</MBLNO> ';
|
|
|
_s := _s + ' <ETD>' + t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring + '</ETD> ';
|
|
|
_s := _s + ' <CLOSINGDATE>' + t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring + '</CLOSINGDATE> ';
|
|
|
_s := _s + ' <CNTR>' + t_op_seae.fieldbyname('<27><>װ<EFBFBD><D7B0>').asstring + '</CNTR> ';
|
|
|
_s := _s + ' <VESSEL>' + t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring + '</VESSEL> ';
|
|
|
_s := _s + ' <VOYNO>' + t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring + '</VOYNO> ';
|
|
|
_s := _s + ' <PORTDISCHARGE>' + t_op_seae.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring + '</PORTDISCHARGE> ';
|
|
|
_s := _s + ' <CLOSEDOCDATE>' + t_op_seae.fieldbyname('<27>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>').asstring + '</CLOSEDOCDATE> ';
|
|
|
_s := _s + ' <YARD>' + frm_op_letter.t_op_letter_rh.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>վ').AsString + '</YARD> ';
|
|
|
_s := _s + ' <YARDAddress>' + frm_op_letter.t_op_letter_rh.fieldbyname('<27><>վ<EFBFBD><D5BE>ַ').AsString + '</YARDAddress> ';
|
|
|
_s := _s + ' <YARDLinkman>' + frm_op_letter.t_op_letter_rh.fieldbyname('<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5>').AsString + '</YARDLinkman> ';
|
|
|
_s := _s + ' <YARDTel>' + frm_op_letter.t_op_letter_rh.fieldbyname('<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD>绰').AsString + '</YARDTel> ';
|
|
|
_s := _s + ' <YARDFAX>' + frm_op_letter.t_op_letter_rh.fieldbyname('<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>').AsString + '</YARDFAX> ';
|
|
|
_s := _s + ' <YARDRemark>' + frm_op_letter.t_op_letter_rh.fieldbyname('<27><>ע').AsString + '</YARDRemark> ';
|
|
|
|
|
|
_s := _s + ' </Opseae> ';
|
|
|
_s := _s + '</OpseaeList> ';
|
|
|
_s := _s + '</BookingCargoSpace> ';
|
|
|
//ShowMessage('before send');
|
|
|
_r := mServiceSoap_Ds.SHIPPINGORDER(_s);
|
|
|
|
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ (table:Tadoquery;receiver,spxno,OPType:string);
|
|
|
if (pos('<27>ύ<EFBFBD>ɹ<EFBFBD>', _r) = 1) then
|
|
|
begin
|
|
|
//mes:= '<27>ύ<EFBFBD>ɹ<EFBFBD>';
|
|
|
//showmessage('<27>ύ<EFBFBD>ɹ<EFBFBD>');
|
|
|
Booking_add(_TDS, t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring, employee, sendercompany, t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring, '<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>֪ͨ');
|
|
|
|
|
|
end
|
|
|
else
|
|
|
//end;
|
|
|
SetBookingStatus;
|
|
|
finally
|
|
|
frm_sys_progress.Close;
|
|
|
frm_sys_progress.Free;
|
|
|
frm_sys_progress := nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton73Click(Sender: TObject);
|
|
|
var CompanyStr, block ,sendercompany ,senderName,Email
|
|
|
,ReceiverCompany ,ReceiverName,ReceiverEmail,Mobile,SQLStr:string;
|
|
|
p1,p2:Integer;
|
|
|
begin
|
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD><D0B6>Լ<EFBFBD><D4BC>ڱ<EFBFBD><DAB1><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>˷<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>simpleprint
|
|
|
getwebservice_ds;
|
|
|
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD><D5B5>Ĺ<EFBFBD>˾<EFBFBD><CBBE>Ϣ
|
|
|
CompanyStr := mServiceSoap_Ds.LoadSenderCompany(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring);
|
|
|
|
|
|
p1 := frm_data_share.GettimePotion(1, '<Company>', CompanyStr);
|
|
|
p2 := frm_data_share.GettimePotion(1, '</Company>', CompanyStr);
|
|
|
block := Copy(CompanyStr, p1, p2 - p1);
|
|
|
sendercompany := frm_data_share.GetXMLValue('FullName', block);
|
|
|
senderName := frm_data_share.GetXMLValue('Name', block);
|
|
|
Email := frm_data_share.GetXMLValue('Email', block);
|
|
|
|
|
|
CompanyStr := mServiceSoap_Ds.LoadReceiverCompany(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring);
|
|
|
|
|
|
p1 := frm_data_share.GettimePotion(1, '<Company>', CompanyStr);
|
|
|
p2 := frm_data_share.GettimePotion(1, '</Company>', CompanyStr);
|
|
|
block := Copy(CompanyStr, p1, p2 - p1);
|
|
|
ReceiverCompany := frm_data_share.GetXMLValue('FullName', block);
|
|
|
ReceiverName := frm_data_share.GetXMLValue('Name', block);
|
|
|
ReceiverEmail := frm_data_share.GetXMLValue('Email', block);
|
|
|
Mobile := frm_data_share.GetXMLValue('Mobile', block);
|
|
|
|
|
|
SQLStr:='select ''' + sendercompany + ''' sendercompany,''' + sendername + ''' sendername,''' + Email + ''' Email,''' + ReceiverCompany + ''' ReceiverCompany,''' + ReceiverName + ''' ReceiverName,''' + ReceiverEmail + ''' ReceiverEmail,''' + Mobile + ''' Mobile';
|
|
|
SendBLCRepeat(SQLStr,sendername);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton71Click(Sender: TObject);
|
|
|
begin
|
|
|
fx:=GetBookingFX;
|
|
|
if (fx='ί<>з<EFBFBD>') then begin
|
|
|
ShowMessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>Ϊί<CEAA>з<EFBFBD><D0B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD>ó<EFBFBD><C3B3>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
|
|
|
try
|
|
|
//hdgs := t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring;
|
|
|
frm_crm_spxcompany := Tfrm_crm_spxcompany.Create(self);
|
|
|
|
|
|
frm_crm_spxcompany.SetCurrCompany;
|
|
|
frm_crm_spxcompany.SetCanSearch(False);
|
|
|
|
|
|
frm_crm_spxcompany.SOSI:=2;
|
|
|
frm_crm_spxcompany.ShowModal;
|
|
|
finally
|
|
|
frm_crm_spxcompany.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton64Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton64.ClientToScreen(Point(0,bsSkinButton64.Height));
|
|
|
PopView_Load.Popup(Pnt.x,Pnt.y);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N133Click(Sender: TObject);
|
|
|
var _count:Integer;
|
|
|
begin
|
|
|
try
|
|
|
if not assigned(frm_crm_OnLineBooking) then begin
|
|
|
frm_crm_OnLineBooking:=Tfrm_crm_OnLineBooking.Create (self);
|
|
|
frm_crm_OnLineBooking.ManualDock(frm_main.SearchTabs('frm_crm_OnLineBooking',frm_crm_OnLineBooking.caption),nil,alClient);
|
|
|
|
|
|
// frm_op_seae.ManualDock(frm_main.SearchTabs('frm_op_seae',frm_op_seae.caption),nil,alClient);
|
|
|
|
|
|
frm_crm_OnLineBooking.Caption:='<27><><EFBFBD>߶<EFBFBD><DFB6><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
_count:=frm_crm_OnLineBooking.GetXML;
|
|
|
frm_crm_OnLineBooking.Show;
|
|
|
end else
|
|
|
begin
|
|
|
frm_crm_OnLineBooking.bsSkinButton10Click(self);
|
|
|
end;
|
|
|
finally
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.MenuItem1Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_BookingLog := Tfrm_BookingLog.Create(self);
|
|
|
|
|
|
frm_BookingLog.ShowModal;
|
|
|
finally
|
|
|
//showmessage(frm_crm_spxcompany.t_crm_spxcompany.FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString);
|
|
|
frm_BookingLog.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.MenuItem3Click(Sender: TObject);
|
|
|
begin
|
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><F2BFAAB7><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>б<EFBFBD><D0B1><EFBFBD>
|
|
|
try
|
|
|
frm_SetCompany:=Tfrm_SetCompany.Create (self);
|
|
|
|
|
|
//if (frm_crm_OnLineBooking.GetXML>0) then begin
|
|
|
frm_SetCompany.ShowModal;
|
|
|
//end else begin
|
|
|
// ShowMessage('û<>д<EFBFBD><D0B4><EFBFBD>ȡ<EFBFBD>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD>Ϣ');
|
|
|
//end;
|
|
|
finally
|
|
|
frm_SetCompany.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.MenuItem4Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_SelectLinkMan:=Tfrm_SelectLinkMan.Create (self);
|
|
|
frm_SelectLinkMan.ShowModal;
|
|
|
finally
|
|
|
frm_SelectLinkMan.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.MenuItem5Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_SelectLinkCompany:=Tfrm_SelectLinkCompany.Create (self);
|
|
|
frm_SelectLinkCompany.ShowModal;
|
|
|
finally
|
|
|
frm_SelectLinkCompany.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.strngfld_op_ctnDSDesigner2Change(Sender: TField);
|
|
|
begin
|
|
|
If IsExsitUsdProject(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring) then
|
|
|
begin
|
|
|
ShowMessage('<27><><EFBFBD>˷ѷ<CBB7><D1B7><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
t_op_ctn.cancel;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton66Click(Sender: TObject);
|
|
|
var
|
|
|
afield : variant;
|
|
|
i,j,m,pkgs: Integer;
|
|
|
weigth,column:Double;
|
|
|
book1:TBookmark;
|
|
|
begin
|
|
|
if t_op_ctn.IsEmpty then
|
|
|
exit;
|
|
|
try
|
|
|
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
|
|
|
|
|
|
t_op_ctn.DisableControls;
|
|
|
book1:=t_op_ctn.GetBookmark;
|
|
|
|
|
|
|
|
|
pkgs:=0;
|
|
|
weigth:=0;
|
|
|
column:=0;
|
|
|
|
|
|
|
|
|
m:=t_op_ctn.fieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
|
|
|
|
|
|
if (t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger<>0) and (m<>0) then
|
|
|
pkgs := trunc(t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger/m) ;
|
|
|
|
|
|
if (t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>0) and (m<>0) then
|
|
|
weigth:=StrToFloat(FormatFloat('0.0000;-0.0000;0',t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat/m)) ;
|
|
|
|
|
|
if (t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat<>0) and (m<>0) then
|
|
|
column:=StrToFloat(FormatFloat('0.0000;-0.0000;0',t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat/m));
|
|
|
|
|
|
for j:=0 to m-2 do
|
|
|
begin
|
|
|
afield := vararraycreate([0,t_op_ctn.fieldcount-1],varvariant);
|
|
|
for i := 0 to (t_op_ctn.fieldcount-1) do
|
|
|
begin
|
|
|
afield[i] :=t_op_ctn.fields[i].value ;
|
|
|
end;
|
|
|
t_op_ctn.append;
|
|
|
for i := 0 to (t_op_ctn.fieldcount-1) do
|
|
|
begin
|
|
|
if (t_op_ctn.fields[i].FieldName<>'ctn_id') and (t_op_ctn.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD>') then
|
|
|
t_op_ctn.fields[i].value := afield[i] ;
|
|
|
|
|
|
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=pkgs;
|
|
|
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=weigth;
|
|
|
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=column;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
t_op_ctn.GotoBookmark(book1);
|
|
|
t_op_ctn.EnableControls;
|
|
|
t_op_ctn.Edit;
|
|
|
t_op_ctn.fieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=1;
|
|
|
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=pkgs;
|
|
|
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=weigth;
|
|
|
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=column;
|
|
|
t_op_ctn.Post;
|
|
|
t_op_ctn.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=strngfld_op_ctnDSDesigner2Change;
|
|
|
|
|
|
end;
|
|
|
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_WAIYUN) then
|
|
|
frm_op_seae_edi_WAIYUN:=tfrm_op_seae_edi_WAIYUN.Create(application);
|
|
|
frm_op_seae_edi_WAIYUN.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_WAIYUN.free;
|
|
|
frm_op_seae_edi_WAIYUN:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo46Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo46);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo46Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo46);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.PILEDI2Click(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_NEWpil) then
|
|
|
frm_op_seae_edi_NEWpil:=tfrm_op_seae_edi_NEWpil.Create(application);
|
|
|
frm_op_seae_edi_NEWpil.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_NEWpil.free;
|
|
|
frm_op_seae_edi_NEWpil:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.ONEEDI1Click(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;
|
|
|
{if bsSkinPageControl1.ActivePage<>bsSkinTabSheet8 then
|
|
|
begin
|
|
|
ShowMessage('<27><><EFBFBD><EFBFBD>EDIͨ<49>Ž<EFBFBD><C5BD><EFBFBD><EFBFBD>²<EFBFBD><C2B2><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end; }
|
|
|
try
|
|
|
|
|
|
if not assigned(frm_op_seae_edi_one) then
|
|
|
frm_op_seae_edi_one:=tfrm_op_seae_edi_one.Create(application);
|
|
|
frm_op_seae_edi_one.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_one.free;
|
|
|
frm_op_seae_edi_one:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeAfterScroll(DataSet: TDataSet);
|
|
|
var
|
|
|
bsno:string;
|
|
|
begin
|
|
|
{
|
|
|
t_op_ams.Close;
|
|
|
t_op_ams.parameters[0].value:= t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ams.open;
|
|
|
}
|
|
|
if bsSkinPageControl1.ActivePage = bsSkinTabSheet11 then
|
|
|
begin
|
|
|
bsno:=QuotedStr(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
if trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='' then bsno:=QuotedStr('1111');
|
|
|
|
|
|
with aq_receipt_doc do
|
|
|
begin
|
|
|
Close;
|
|
|
SQL.Clear;
|
|
|
SQL.Add('select * from receipt_doc where bsno=' + bsno + ' order by modifiedtime desc');
|
|
|
Open;
|
|
|
end;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 then
|
|
|
begin
|
|
|
if (t_op_rpastate.Active) then t_op_rpastate.Close;
|
|
|
t_op_rpastate.DataSource:=t_op_seae2;
|
|
|
t_op_rpastate.open;
|
|
|
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit244Exit(Sender: TObject);
|
|
|
begin
|
|
|
if not t_op_ams.Active then t_op_ams.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit244Enter(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_ams);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton74Click(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>VGM<47>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(Frm_op_seae_edi_NB) then
|
|
|
Frm_op_seae_edi_NB:=tFrm_op_seae_edi_NB.Create(application);
|
|
|
Frm_op_seae_edi_NB.ShowModal;
|
|
|
finally
|
|
|
Frm_op_seae_edi_NB.free;
|
|
|
Frm_op_seae_edi_NB:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton75Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ams1,DBMemo27.DataField);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton76Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ams1,DBMemo26.DataField);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton77Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ams1,DBMemo28.DataField);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N138Click(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>VGM<47>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_zywl) then
|
|
|
frm_op_seae_edi_zywl:=tfrm_op_seae_edi_zywl.Create(application);
|
|
|
frm_op_seae_edi_zywl.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_zywl.free;
|
|
|
frm_op_seae_edi_zywl:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1Column126CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if (ANode.strings[dxDBGrid1Column126.Index]='<27>۵<EFBFBD>') or (ANode.strings[dxDBGrid1Column126.Index]='<27>Զ<EFBFBD><D4B6>۵<EFBFBD>') then
|
|
|
AColor:=clRed
|
|
|
else AColor:=clWhite;
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit54Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (DBEdit54.Text='<27>۵<EFBFBD>') or (DBEdit54.Text='<27>Զ<EFBFBD><D4B6>۵<EFBFBD>') then
|
|
|
DBEdit54.Color:=clred
|
|
|
else DBEdit54.Color:=clWhite;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton78Click(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_dscangdan) then
|
|
|
frm_op_seae_dscangdan:=tfrm_op_seae_dscangdan.Create(application);
|
|
|
frm_op_seae_dscangdan.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_dscangdan.free;
|
|
|
frm_op_seae_dscangdan:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI10Click(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_tsl) then
|
|
|
frm_op_seae_edi_tsl:=tfrm_op_seae_edi_tsl.Create(application);
|
|
|
frm_op_seae_edi_tsl.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_tsl.free;
|
|
|
frm_op_seae_edi_tsl:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N141Click(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_esl) then
|
|
|
frm_op_seae_edi_esl:=tfrm_op_seae_edi_esl.Create(application);
|
|
|
frm_op_seae_edi_esl.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_esl.free;
|
|
|
frm_op_seae_edi_esl:=nil;
|
|
|
end;
|
|
|
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.DownLoadProFiles(RemotePathName, Users, pw,
|
|
|
fname: string);
|
|
|
var
|
|
|
path, newpath, Filters: string;
|
|
|
NetSource: TNetResource;
|
|
|
begin
|
|
|
with NetSource do
|
|
|
begin
|
|
|
dwType := RESOURCETYPE_ANY;
|
|
|
lpLocalName := ''; // <20><>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>Դӳ<D4B4>䵽<EFBFBD><E4B5BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
lpRemoteName := pChar(RemotePathName); // Զ<><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ
|
|
|
lpProvider := '';
|
|
|
end;
|
|
|
WnetAddConnection2(NetSource, pChar(Users), pChar(pw), CONNECT_UPDATE_PROFILE);
|
|
|
|
|
|
with SaveDialog1 do
|
|
|
begin
|
|
|
filename := ExtractFileName(fname);
|
|
|
Filters := ExtractFileExt(fname);
|
|
|
Filter := '*' + ExtractFileExt(fname);
|
|
|
if Execute then
|
|
|
begin
|
|
|
path := fname;
|
|
|
newpath := SaveDialog1.FileName + Filters;
|
|
|
if CopyFile(pChar(path), pChar(newpath), false) then
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɣ<EFBFBD>')
|
|
|
else
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>');
|
|
|
end;
|
|
|
end;
|
|
|
try
|
|
|
finally
|
|
|
WNetCancelConnection2(pChar(RemotePathName), CONNECT_UPDATE_PROFILE, True);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.UpLoadProFile(fname, RemotePathName, Users, pw,
|
|
|
bsno,mblno,etd,custname: string);
|
|
|
var
|
|
|
path, newpath: string;
|
|
|
NetSource: TNetResource;
|
|
|
filePath, filepath_pre, filename, fileExt,etdstr: string;
|
|
|
ismustbe:Boolean;
|
|
|
aQuery:TADOQuery;
|
|
|
function getfilemaxno:string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
maxno:Integer;
|
|
|
begin
|
|
|
maxno:=0;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
With aQuery do begin
|
|
|
close;sql.clear;
|
|
|
SQL.Add('select count(1) ct from receipt_doc where bsno='''+bsno+''' and RECEIPTTYPE='''+ComboBox1.Text+''' ');
|
|
|
open;
|
|
|
if not IsEmpty then begin
|
|
|
maxno:=fieldbyname('ct').AsInteger;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
maxno:=maxno+1;
|
|
|
Result:=IntToStr(maxno);
|
|
|
if (Length(Result)=1) then Result:='00'+Result;
|
|
|
if (Length(Result)=2) then Result:='0'+Result;
|
|
|
|
|
|
end;
|
|
|
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);
|
|
|
filename :=FormatDateTime('YYYYMMDD',StrToDateDef(etd,Now))+custname+ComboBox1.Text+getfilemaxno+fileExt;
|
|
|
|
|
|
with NetSource do
|
|
|
begin
|
|
|
dwType := RESOURCETYPE_ANY;
|
|
|
lpLocalName := ''; // <20><>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>Դӳ<D4B4>䵽<EFBFBD><E4B5BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
lpRemoteName := pChar(RemotePathName); // Զ<><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ
|
|
|
lpProvider := '';
|
|
|
end;
|
|
|
|
|
|
WnetAddConnection2(NetSource, pChar(Users), pChar(pw), CONNECT_UPDATE_PROFILE);
|
|
|
|
|
|
filePath := FormatDateTime('YYYY',now);
|
|
|
etdstr:=FormatDateTime('MM',StrToDateDef(etd,Now));
|
|
|
|
|
|
if not DirectoryExists(RemotePathName + '\' + filePath) then
|
|
|
MkDir(RemotePathName + '\' + filePath);
|
|
|
if not DirectoryExists(RemotePathName + '\' + filePath+ '\' + department) then
|
|
|
MkDir(RemotePathName + '\' + filePath+ '\' + department);
|
|
|
if not DirectoryExists(RemotePathName + '\' + filePath+ '\' + department+ '\' + etdstr) then
|
|
|
MkDir(RemotePathName + '\' + filePath+ '\' + department+ '\' + etdstr);
|
|
|
if not DirectoryExists(RemotePathName + '\' + filePath+ '\' + department+ '\' + etdstr+ '\' + mblno) then
|
|
|
MkDir(RemotePathName + '\' + filePath+ '\' + department+ '\' + etdstr+ '\' + mblno);
|
|
|
|
|
|
newpath := RemotePathName + '\' + filePath+ '\' + department+ '\' + etdstr+ '\' + mblno + '\' + filename;
|
|
|
if CopyFile(pChar(fname), pChar(newpath), false) then
|
|
|
|
|
|
else
|
|
|
;
|
|
|
|
|
|
try
|
|
|
finally
|
|
|
WNetCancelConnection2(pChar(RemotePathName), CONNECT_UPDATE_PROFILE, True);
|
|
|
end;
|
|
|
with aq_receipt_doc do
|
|
|
begin
|
|
|
Close;
|
|
|
SQL.Clear;
|
|
|
sql.Add('select * from receipt_doc');
|
|
|
sql.Add('where bsno=:<3A><><EFBFBD><EFBFBD>');
|
|
|
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value := bsno;
|
|
|
Open;
|
|
|
try
|
|
|
append;
|
|
|
FieldByName('Driect_URL').AsString := newpath;
|
|
|
FieldByName('MODIFIEDTIME').AsDateTime := now();
|
|
|
FieldByName('MODIFIEDUSER').Asstring := employee;
|
|
|
FieldByName('BSNO').AsString := bsno;
|
|
|
FieldByName('RECEIPTTYPE').AsString := ComboBox1.Text;
|
|
|
Post;
|
|
|
ismustbe:=True;
|
|
|
frm_data_share.t_code_filetype.First;
|
|
|
while not frm_data_share.t_code_filetype.Eof do begin
|
|
|
if (frm_data_share.t_code_filetype.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean) then begin
|
|
|
if not aq_receipt_doc.Locate('RECEIPTTYPE',frm_data_share.t_code_filetype.fieldbyname('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then
|
|
|
ismustbe:=false;
|
|
|
end;
|
|
|
frm_data_share.t_code_filetype.Next;
|
|
|
end;
|
|
|
|
|
|
if (ismustbe) then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
With aQuery do begin
|
|
|
close;sql.clear;
|
|
|
SQL.Add('update t_op_seae set <20>۵<EFBFBD>״̬='''' where <20><><EFBFBD><EFBFBD>='''+bsno+'''');
|
|
|
ExecSQL;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
// FillType;
|
|
|
// 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;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.FillType;
|
|
|
var
|
|
|
aQuery: TADOQuery;
|
|
|
begin
|
|
|
{
|
|
|
ComboBox1.Items.Clear;
|
|
|
aQuery := CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
begin
|
|
|
Close;
|
|
|
SQL.Clear;
|
|
|
SQL.Add('select distinct RECEIPTTYPE from receipt_doc');
|
|
|
Open;
|
|
|
end;
|
|
|
if aQuery.RecordCount > 0 then
|
|
|
begin
|
|
|
aQuery.First;
|
|
|
while not aQuery.Eof do
|
|
|
begin
|
|
|
ComboBox1.Items.Add(aQuery.fieldbyname('RECEIPTTYPE').AsString);
|
|
|
aQuery.Next;
|
|
|
end;
|
|
|
end;
|
|
|
FreeAndNil(aQuery);
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton89Click(Sender: TObject);
|
|
|
var
|
|
|
FileStream: TFileStream;
|
|
|
fsize: double;
|
|
|
numunzipped: integer;
|
|
|
aQuery: TADOQuery;
|
|
|
begin
|
|
|
if application.MessageBox(Pchar('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD>ϴ<EFBFBD><CFB4>ĸ<EFBFBD><C4B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + ComboBox1.Text + '<27><>?'), '<27><><EFBFBD><EFBFBD>:', MB_OKCANCEL) = IDOK then
|
|
|
begin
|
|
|
if OpenDialog1.Execute then
|
|
|
begin
|
|
|
if Length(Opendialog1.FileName) <= 95 then
|
|
|
begin
|
|
|
FileStream := TFileStream.Create(Opendialog1.FileName, fmopenRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
|
|
|
try
|
|
|
fsize := FileStream.size;
|
|
|
finally
|
|
|
freeandnil(FileStream);
|
|
|
end;
|
|
|
{
|
|
|
if fsize > 5000000 then
|
|
|
begin
|
|
|
MessageDlg('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>5M<35><4D><EFBFBD><EFBFBD>', mtWarning, [mbyes], 0);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
}
|
|
|
try
|
|
|
UpLoadProFile(Opendialog1.FileName, naspath, nasuser, naspwd, t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString, t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString, t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString, t_op_seae.fieldbyname('ί<>е<EFBFBD>λ').AsString);
|
|
|
except
|
|
|
on E: Exception do
|
|
|
begin
|
|
|
ShowMessage('<27>ϴ<EFBFBD><CFB4>ļ<EFBFBD>ʧ<EFBFBD><CAA7>:' + E.Message);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
// end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
MessageDlg('<27>ļ<EFBFBD><C4BC><EFBFBD>̫<EFBFBD><CCAB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>95<39><35><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>', mtWarning, [mbyes], 0);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton90Click(Sender: TObject);
|
|
|
begin
|
|
|
if aq_receipt_doc.IsEmpty then
|
|
|
exit;
|
|
|
// DownLoadProFiles(naspath, nasuser, naspwd, GetFileNameFromNet(aq_receipt_doc.fieldbyname('Driect_URL').asstring));
|
|
|
DownLoadProFiles(naspath, nasuser, naspwd, aq_receipt_doc.fieldbyname('Driect_URL').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton92Click(Sender: TObject);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae, '0001');
|
|
|
if not if_open('617') then begin
|
|
|
if (aq_receipt_doc.FieldByName('MODIFIEDUSER').AsString<>employee) then begin
|
|
|
ShowMessage('<27><>Ȩ<EFBFBD>ı<DEB8><C4B1><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4>ĵ<EFBFBD><C4B5>ӵ<EFBFBD><D3B5><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?', '<27><><EFBFBD><EFBFBD>:', MB_OKCANCEL) = IDOK then
|
|
|
begin
|
|
|
aq_receipt_doc.delete;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton91Click(Sender: TObject);
|
|
|
var
|
|
|
arr: array[0..MAX_PATH] of Char;
|
|
|
num: DWORD;
|
|
|
tmpfile: string;
|
|
|
begin
|
|
|
if aq_receipt_doc.IsEmpty then
|
|
|
exit;
|
|
|
try
|
|
|
tmpfile := aq_receipt_doc.fieldbyname('Driect_URL').asstring;
|
|
|
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>飡');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae.GetFileNameFromNet(Netstr: string): string;
|
|
|
var
|
|
|
i: Integer;
|
|
|
s, str: string;
|
|
|
begin
|
|
|
while Pos('\', Netstr) > 0 do
|
|
|
Netstr := Copy(Netstr, Pos('\', Netstr) + 1, Length(Netstr) - Pos('\', Netstr));
|
|
|
Result := Netstr;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae.GetNetFileShare(VL_ID: Integer;
|
|
|
DefaultStr: string): string;
|
|
|
begin
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton80Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_rpastate);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton81Click(Sender: TObject);
|
|
|
var
|
|
|
i:Integer;
|
|
|
begin
|
|
|
if t_op_rpastate.isempty then
|
|
|
exit;
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
|
|
|
exit;
|
|
|
if wwDBGrid2.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid2.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_op_rpastate.GotoBookmark(pointer(wwDBGrid2.SelectedList[i]));
|
|
|
t_op_rpastate.Delete;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_rpastate.Delete;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton82Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_op_rpastate);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton79Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton79.ClientToScreen(Point(0,bsSkinButton79.Height));
|
|
|
PopupMenu5.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RPA12Click(Sender: TObject);
|
|
|
var
|
|
|
menu_skins:Tmenuitem;
|
|
|
statustr:string;
|
|
|
begin
|
|
|
menu_skins:= Sender as Tmenuitem;
|
|
|
statustr:=menu_skins.caption;
|
|
|
if Pos('(',statustr)>0 then begin
|
|
|
statustr:=Copy(statustr,0,Pos('(',statustr)-1);
|
|
|
end;
|
|
|
t_op_rpastate.Append;
|
|
|
t_op_rpastate['״̬']:=statustr;
|
|
|
t_op_rpastate['״̬<D7B4><CCAC><EFBFBD><EFBFBD>']:=menu_skins.Hint;
|
|
|
t_op_rpastate['˳<><CBB3>']:=menu_skins.Tag;
|
|
|
t_op_rpastate['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_rpastate['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
|
|
|
t_op_rpastate.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton83Click(Sender: TObject);
|
|
|
var
|
|
|
i:Integer;
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
exit;
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>µ<EFBFBD><C2B5><EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
|
|
|
exit;
|
|
|
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
kbmMemTable2.EmptyTable;
|
|
|
kbmMemTable2.LoadFromDataSet(t_op_seae,[]);
|
|
|
kbmMemTable2.First;
|
|
|
while not kbmMemTable2.Eof do begin
|
|
|
if (kbmMemTable2.FieldByName('<27><><EFBFBD><EFBFBD>').AsString<>t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString) then begin
|
|
|
aQuery.Close;aQuery.SQL.Clear;
|
|
|
aQuery.SQL.ADD('INSERT Receipt_Doc(GID,BSNO,Driect_URL,RECEIPTTYPE,documentAttachedCode,documentAttachedNo,MODIFIEDUSER,MODIFIEDTIME)');
|
|
|
aQuery.SQL.ADD('select NEWID(),'''+kbmMemTable2.FIELDBYNAME('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''',Driect_URL,RECEIPTTYPE,documentAttachedCode,documentAttachedNo,'''+employee+''',GETDATE() from Receipt_Doc where GID='''+aq_receipt_doc.Fieldbyname('GID').AsString+'''');
|
|
|
aQuery.ExecSQL;
|
|
|
end;
|
|
|
kbmMemTable2.Next;
|
|
|
end;
|
|
|
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɣ<EFBFBD>');
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1Column131CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if ANode.Strings[dxDBGrid1Column131.Index]='Y' then begin
|
|
|
AColor:=clBlue;
|
|
|
AFont.Color:=clblack;
|
|
|
END;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae.CreateDjyStr: string;
|
|
|
var
|
|
|
str,str2,codetype,codestr,strsql,typestr:string;
|
|
|
aAdoQuery:TAdoQuery;
|
|
|
isfirst:Boolean;
|
|
|
TempStr:TStringlist;
|
|
|
function getcustedi(cust:string):string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
result:='';
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Text:='select <20><><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD> 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;
|
|
|
if Result='' then result:=cust;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
function getempemail(emp:string):string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
result:='';
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Text:='select <20><><EFBFBD><EFBFBD> from t_sys_employee where <20><><EFBFBD><EFBFBD>='''+emp+'''';
|
|
|
aQuery.Open;
|
|
|
if not aQuery.IsEmpty then
|
|
|
result:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
begin
|
|
|
str:=str+'{';
|
|
|
str:=str+'"COMPANY_NAME":"'+frm_data_share.t_sys_company.fieldbyname('ȫ<><C8AB>').AsString+'"';
|
|
|
str:=str+',"BOOKINGS":[';
|
|
|
str:=str+'{';
|
|
|
|
|
|
aAdoQuery:=CreateAdoQuery;
|
|
|
TempStr:=TStringList.Create;
|
|
|
try
|
|
|
str:=str+'"BSNO":"'+ frm_op_seae.t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"CUST_NO":"'+ frm_op_seae.t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"MBLNO":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring+'"';
|
|
|
str:=str+',"HBLNO":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring+'"';
|
|
|
str:=str+',"CONTRACTNO":"'+ frm_op_seae.t_op_seae.FieldByName('<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"SHIPPER":"'+ StringReplace(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').asstring,'"','\"',[rfReplaceAll])+'"';
|
|
|
str:=str+',"CONSIGNEE":"'+ StringReplace(frm_op_seae.t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').asstring,'"','\"',[rfReplaceAll])+'"';
|
|
|
str:=str+',"NOTIFYPARTY":"'+ StringReplace(frm_op_seae.t_op_seae.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').asstring,'"','\"',[rfReplaceAll])+'"';
|
|
|
str:=str+',"NOTIFYPARTY2":""';
|
|
|
str:=str+',"YARD":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><>վ').asstring)+'"';
|
|
|
str:=str+',"VESSEL":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"VOYNO":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"VoynoInner":""';
|
|
|
str:=str+',"ETD":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"CLOSINGDATE":"'+ frm_op_seae.t_op_seae.FieldByName('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"CLOSEDOCDATE":""';
|
|
|
str:=str+',"ETA":""';
|
|
|
str:=str+',"PLACERECEIPTID":""';
|
|
|
str:=str+',"PLACERECEIPT":""';
|
|
|
str:=str+',"PORTLOADID":"CNTAO"';
|
|
|
str:=str+',"PORTLOAD":"QINGDAO,CHINA"';
|
|
|
str:=str+',"PORTDISCHARGEID":"'+ frm_op_seae.t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"PORTDISCHARGE":"'+ frm_op_seae.t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"PLACEDELIVERYID":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"PLACEDELIVERY":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"DESTINATIONID":"'+ frm_op_seae.t_op_seae.FieldByName('Ŀ<>ĵش<C4B5><D8B4><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"DESTINATION":"'+ frm_op_seae.t_op_seae.FieldByName('Ŀ<>ĵ<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"NOBILL":"'+ frm_op_seae.t_op_seae.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"COPYNOBILLL":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"ISSUETYPE":"'+ frm_op_seae.t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').asstring+'"';
|
|
|
str:=str+',"ISSUEDATE":"'+ frm_op_seae.t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring<>'') then begin
|
|
|
str:=str+',"ISSUEPLACEID":"'+GetPortEdiID(trim(frm_op_seae.t_op_seae.fieldbyname('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring))+'"';
|
|
|
str:=str+',"ISSUEPLACE":"'+ frm_op_seae.t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
end else begin
|
|
|
str:=str+',"ISSUEPLACEID":"CNTAO"';
|
|
|
str:=str+',"ISSUEPLACE":"QINGDAO,CHINA"';
|
|
|
end;
|
|
|
str:=str+',"BLFRT":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring+'"';
|
|
|
str:=str+',"PREPARDAT":"'+ frm_op_seae.t_op_seae.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"PAYABLEAT":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"SERVICE":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"MARKS":"'+StringReplace(frm_op_seae.t_op_seae.FieldByName('<27><>ͷ').asstring,'"','\"',[rfReplaceAll])+'"';
|
|
|
str:=str+',"HSCODE":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>䷽ʽ').asstring+'"';
|
|
|
str:=str+',"DESCRIPTION":"'+ StringReplace(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'"','\"',[rfReplaceAll])+'"';
|
|
|
str:=str+',"PKGS":'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"KINDPKGS":"'+ frm_op_seae.t_op_seae.FieldByName('<27><>װ').asstring+'"';
|
|
|
str:=str+',"KGS":'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"CBM":'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"CARRIER":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').asstring+'"';
|
|
|
str:=str+',"CARGOID":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring+'"';
|
|
|
str:=str+',"DCLASS":"'+ frm_op_seae.t_op_seae.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"DUNNO":"'+ frm_op_seae.t_op_seae.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"DPAGE":""';
|
|
|
str:=str+',"DLABEL":""';
|
|
|
str:=str+',"LINKMAN":""';
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring='R') then
|
|
|
str:=str+',"TEMPID":"C"'
|
|
|
else str:=str+',"TEMPID":""';
|
|
|
str:=str+',"TEMPSET":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"REEFERF":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"HUMIDITY":""';
|
|
|
if frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
str:=str+',"ISCONTAINERSOC":true'
|
|
|
else
|
|
|
str:=str+',"ISCONTAINERSOC":false';
|
|
|
|
|
|
strsql:='select * from t_op_ams where <20><><EFBFBD><EFBFBD>='
|
|
|
+#39+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+#39;
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
|
|
|
str:=str+',"REMARK":""';
|
|
|
str:=str+',"EDIREMARK":"'+ frm_op_seae.t_op_seae.FieldByName('EDI<44><49>ע').asstring+'"';
|
|
|
str:=str+',"YardRemark":""';
|
|
|
|
|
|
|
|
|
str:=str+',"PONO":"'+ frm_op_seae.t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"TOTALNO":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').asstring+'"';
|
|
|
str:=str+',"TEMPMIN":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"TEMPMAX":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"OP":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring+'"';
|
|
|
str:=str+',"DOC":""';
|
|
|
str:=str+',"SALE":""';
|
|
|
str:=str+',"CUSTSERVICE":""';
|
|
|
str:=str+',"VGM_TIME":""';
|
|
|
str:=str+',"CUSTOMERNAME":"'+ frm_op_seae.t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring+'"';
|
|
|
str:=str+',"EMAIL":"'+getempemail(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring)+'"';
|
|
|
str:=str+',"FORWARDER":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring+'"';
|
|
|
str:=str+',"SHIPAGENCY":""';
|
|
|
str:=str+',"CUSTOMSER":""';
|
|
|
str:=str+',"TRUCKER":""';
|
|
|
str:=str+',"AGENTID":""';
|
|
|
str:=str+',"CARRIERID":"'+ getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').asstring)+'"';
|
|
|
str:=str+',"YARDID":"'+ getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><>վ').asstring)+'"';
|
|
|
str:=str+',"YardContract":""';
|
|
|
str:=str+',"CUSTOMERID":""';
|
|
|
str:=str+',"FORWARDERID":""';
|
|
|
str:=str+',"SHIPAGENCYID":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"CUSTOMSERID":""';
|
|
|
str:=str+',"TRUCKERID":""';
|
|
|
str:=str+',"AGENTNAME":""';
|
|
|
str:=str+',"WEITUO":""';
|
|
|
str:=str+',"EDIATTN":""';
|
|
|
str:=str+',"EDIATTNTEL":""';
|
|
|
str:=str+',"EDIATTNEMAIL":""';
|
|
|
str:=str+',"CONSIGNEEDOORADDR":""';
|
|
|
str:=str+',"SHIPPERDOORADDR":""';
|
|
|
str:=str+',"SCACCODE":""';
|
|
|
str:=str+',"ITNCODE":""';
|
|
|
str:=str+',"PREPARDAT_ID":"'+GetPortEdiID(frm_op_seae.t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"PAYABLEAT_ID":"'+GetPortEdiID(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"FEE_SELF":false';
|
|
|
|
|
|
{
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27><>վ').asstring='<27>۽ݷ᳡վ(FF)') or (frm_op_seae.t_op_seae.FieldByName('<27><>վ').asstring='<27>ݷ᳡վ') then begin
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27><>α').AsBoolean) then
|
|
|
str:=str+',"FEE_SELF":true'
|
|
|
else
|
|
|
str:=str+',"FEE_SELF":false';
|
|
|
end else begin
|
|
|
str:=str+',"FEE_SELF":true';
|
|
|
end;
|
|
|
}
|
|
|
|
|
|
strsql:='select * from t_op_ctn where <20><><EFBFBD><EFBFBD>='
|
|
|
+#39+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+#39;
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
aAdoQuery.First;
|
|
|
str:=str+',"CtrnList":[';
|
|
|
isfirst:=true;
|
|
|
while not aAdoQuery.Eof do begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"CTNALL":"'+StringReplace(aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring,'''','',[])+'"';
|
|
|
str:=str+',"CTNNUM":'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"CNTRNO":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"SEALNO":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"PKGS":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"KINDPKGS":"'+aAdoQuery.FieldByName('<27><>װ').asstring+'"';
|
|
|
str:=str+',"KGS":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"CBM":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"TAREWEIGHT":'+aAdoQuery.FieldByName('Ƥ<><C6A4>').asstring;
|
|
|
str:=str+',"WEIGHTYPE":"<22>ۼ<EFBFBD>"';
|
|
|
str:=str+',"WEIGHKGS":'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"REMARK":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
aAdoQuery.Next;
|
|
|
end;
|
|
|
str:=str+']';
|
|
|
if (frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',frm_op_seae.t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring,[])) then begin
|
|
|
str:=str+',"CUSTOMER_INFO":{';
|
|
|
str:=str+'"CODENAME":"'+frm_data_share.t_crm_client_all.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'"';
|
|
|
str:=str+',"SHORTNAME":"'+frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'"';
|
|
|
str:=str+',"DESCRIPTION":"'+frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString+'"';
|
|
|
|
|
|
str:=str+',"CONTRACT_LIST":[';
|
|
|
{
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27>ͻ<EFBFBD><CDBB>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString<>'') then begin
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Clear;
|
|
|
aAdoQuery.SQL.Add('select * from t_code_cust_mailproject_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+frm_op_seae.t_op_seae.FieldByName('<27>ͻ<EFBFBD><CDBB>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString+''' and (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD>֪ͨ'' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27>ᵥ<EFBFBD><E1B5A5><EFBFBD>»<EFBFBD>ֽ'' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>'' )');
|
|
|
aAdoQuery.Open;
|
|
|
aAdoQuery.First;
|
|
|
isfirst:=true;
|
|
|
typestr:='BC';
|
|
|
while not aAdoQuery.Eof do begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"EMAIL":"'+aAdoQuery.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').asstring+'"';
|
|
|
if (aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ') then typestr:='BC';
|
|
|
if (aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27>ᵥ<EFBFBD><E1B5A5><EFBFBD>»<EFBFBD>ֽ') then typestr:='TD';
|
|
|
if (aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>') then typestr:='ZD';
|
|
|
str:=str+',"TYPE":"'+typestr+'"';
|
|
|
}
|
|
|
// str:=str+'}';
|
|
|
|
|
|
// isfirst:=false;
|
|
|
// aAdoQuery.Next;
|
|
|
// end;
|
|
|
// end;
|
|
|
|
|
|
|
|
|
str:=str+']';
|
|
|
|
|
|
|
|
|
str:=str+'}';
|
|
|
end;
|
|
|
|
|
|
str:=str+'}';
|
|
|
str:=str+']';
|
|
|
str:=str+'}';
|
|
|
finally
|
|
|
FreeAndNil(aAdoQuery);
|
|
|
FreeAndNil(TempStr);
|
|
|
end;
|
|
|
|
|
|
Result:=str;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Button2Click(Sender: TObject);
|
|
|
var
|
|
|
dsstr,PostUrl,str:string;
|
|
|
IdHttp : TIdHTTP;
|
|
|
errmsg,ScriptPath,filenamestr : string;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ
|
|
|
ResponseStream : TStringStream; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
|
|
|
ResponseStr: string;
|
|
|
RequestStr : string; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
|
|
|
RequestStream : TStringStream;
|
|
|
jo: ISuperObject;
|
|
|
i,k:Integer;
|
|
|
sl:TStrings;
|
|
|
|
|
|
begin
|
|
|
|
|
|
sl:=TStringList.Create;
|
|
|
|
|
|
{
|
|
|
dsstr:=CreateNewDjyVessel;
|
|
|
sl.Add(dsstr);
|
|
|
|
|
|
if (dsstr<>'') then begin
|
|
|
PostUrl:=get_parameters_value(3204,'http://60.209.125.238:25805/DataSync/SyncVesselDate');
|
|
|
TDsDjyThread.create(PostUrl,dsstr,'','0ca73c22aba845d9ae4c73e71519361f','20672b8370a26fe670469da50eb896819a11168fd7b39f9e6fcb8c273130f2c31d5fd908047413dd');
|
|
|
InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD>',frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
dsstr:=CreateNewDjyCustStr(frm_op_seae.t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring);
|
|
|
sl.Clear;
|
|
|
sl.Add(dsstr);
|
|
|
|
|
|
if (dsstr<>'') then begin
|
|
|
PostUrl:=get_parameters_value(3203,'http://60.209.125.238:25805/DataSync/SyncCustomer');
|
|
|
TDsDjyThread.create(PostUrl,dsstr,'','db962d818f384ec6917e9c6f111c2f10','968a323fe42e84fdfdfe7f8c1abf61788ab4dc53df562ca2df0cdc3a4d39dff7ded3183cfa0d5dbd');
|
|
|
InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƿͻ<C6BF>',frm_op_seae.t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring);
|
|
|
end;
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
dsstr:=CreateNewDjyStr;
|
|
|
str:=str+'[';
|
|
|
str:=str+dsstr;
|
|
|
str:=str+']';
|
|
|
sl.Clear;
|
|
|
sl.Add(str);
|
|
|
ScriptPath:=ExtractFilePath(ParamStr(0))+'JSON\';
|
|
|
if not DirectoryExists(ScriptPath) then
|
|
|
CreateDir(ScriptPath);
|
|
|
filenamestr:=ScriptPath
|
|
|
+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring
|
|
|
+FormatDateTime('yyyy',now)
|
|
|
+FormatDateTime('mm',now)
|
|
|
+FormatDateTime('dd',now)
|
|
|
+FormatDateTime('hh',now)
|
|
|
+FormatDateTime('nn',now)+'.txt';
|
|
|
|
|
|
sl.SaveToFile(filenamestr);
|
|
|
|
|
|
|
|
|
PostUrl:=get_parameters_value(3202,'http://60.209.125.238:25805/DataSync/SyncBookingList');
|
|
|
TDsDjyThread.create(PostUrl,str,'','233f271945ee44df8c510cce997a7261','dd0eea7aedef11c7759d8b30a62550078c47b991f3c905bca3722ba19c85fc1f094af899949a4210');
|
|
|
InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',frm_op_seae.t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
ShowMessage('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>ɣ<EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae.GetPortEdiID(Port: String): String;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select EDI<44><49><EFBFBD><EFBFBD> from t_code_disport where Ӣ<><D3A2><EFBFBD><EFBFBD>='''+Port+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then
|
|
|
Result:=Trim(FieldByName('EDI<44><49><EFBFBD><EFBFBD>').asstring)
|
|
|
else
|
|
|
Result:='';
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo19Enter(Sender: TObject);
|
|
|
begin
|
|
|
if t_code_voyage.Active then
|
|
|
t_code_voyage.Close;
|
|
|
t_code_voyage.SQL.Clear;
|
|
|
t_code_voyage.SQL.Add('select v.Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>,v.<2E><><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD>,v.<2E><><EFBFBD><EFBFBD>˾,v.<2E><><EFBFBD><EFBFBD>,a.<2E><><EFBFBD><EFBFBD>,a.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,a.ʵ<>ʿ<EFBFBD><CABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,a.ETD from t_code_voyage a');
|
|
|
t_code_voyage.SQL.Add('left join t_code_vessel v on (v.VS_ID=a.VS_ID) where 1=1 ');
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'') then
|
|
|
t_code_voyage.SQL.Add(' and a.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString<>'') then
|
|
|
t_code_voyage.SQL.Add(' and v.<2E><><EFBFBD><EFBFBD>˾='''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString+'''');
|
|
|
|
|
|
t_code_voyage.Open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo19Change(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 t_code_voyage.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo19.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=t_code_voyage['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>'];
|
|
|
t_op_seae2.DataSet['ETD']:=t_code_voyage['ETD'];
|
|
|
t_op_seae2.DataSet['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_code_voyage['ʵ<>ʿ<EFBFBD><CABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton84Click(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>AMS¼<53><C2BC>').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD>AMS¼<53>룬<EFBFBD><EBA3AC>Ҫȡ<D2AA><C8A1>AMS¼<53><C2BC><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>AMS¼<53><C2BC>']:=0;
|
|
|
t_op_seae2.DataSet['AMS¼<53><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>ҪAMS¼<53><C2BC><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>AMS¼<53><C2BC>']:=1;
|
|
|
t_op_seae2.DataSet['AMS¼<53><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton85Click(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>1Y').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD>1Y<31><59><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1>1Y<31><59>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>1Y']:=0;
|
|
|
t_op_seae2.DataSet['1Y<31><59><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ1Y<31><59>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>1Y']:=1;
|
|
|
t_op_seae2.DataSet['1Y<31><59><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton86Click(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>3Z').asboolean then
|
|
|
begin
|
|
|
if application.MessageBox('ҵ<><D2B5><EFBFBD>Ѿ<EFBFBD>3Z<33><5A><EFBFBD><EFBFBD>Ҫȡ<D2AA><C8A1>3Z<33><5A>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>3Z']:=0;
|
|
|
t_op_seae2.DataSet['3Z<33><5A><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ3Z<33><5A>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>Ƿ<EFBFBD>3Z']:=1;
|
|
|
t_op_seae2.DataSet['3Z<33><5A><EFBFBD><EFBFBD>']:=date;
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.AMS1Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where isnull(<28>Ƿ<EFBFBD><C7B7>ύVGM,0)<>1) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N1Y1Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where isnull(<28>Ƿ<EFBFBD><C7B7>ύ<EFBFBD>յ<EFBFBD>,0)<>1) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N3Z1Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where isnull(<28>Ƿ<EFBFBD>װ<EFBFBD>ط<EFBFBD><D8B7><EFBFBD>,0)<>1) '
|
|
|
+default_sort(53,'t_op_seae','','desc'));
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton87Click(Sender: TObject);
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_trace) then
|
|
|
frm_op_seae_trace:=tfrm_op_seae_trace.Create (self);
|
|
|
frm_op_seae_trace.mblno:=t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
|
|
|
frm_op_seae_trace.GetData;
|
|
|
frm_op_seae_trace.ManualDock(frm_main.SearchTabs('frm_op_seae_trace',frm_op_seae_trace.caption),nil,alClient);
|
|
|
frm_op_seae_trace.show;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae.CreateNewDjyStr: string;
|
|
|
var
|
|
|
str,str2,codetype,codestr,strsql,typestr:string;
|
|
|
aAdoQuery:TAdoQuery;
|
|
|
isfirst:Boolean;
|
|
|
TempStr:TStringlist;
|
|
|
function getcustedi(cust:string):string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
result:='';
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Text:='select <20><><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD> 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;
|
|
|
if Result='' then result:=cust;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
function getempemail(emp:string):string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
result:='';
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Text:='select <20><><EFBFBD><EFBFBD> from t_sys_employee where <20><><EFBFBD><EFBFBD>='''+emp+'''';
|
|
|
aQuery.Open;
|
|
|
if not aQuery.IsEmpty then
|
|
|
result:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
function getempid(emp:string):string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
result:='';
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Text:='select <20><><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD> from t_sys_employee where <20><><EFBFBD><EFBFBD>='''+emp+'''';
|
|
|
aQuery.Open;
|
|
|
if not aQuery.IsEmpty then
|
|
|
result:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD>').AsString;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
function formartjson(str:string):string;
|
|
|
begin
|
|
|
// Result:=StringReplace(StringReplace(str,'&','%26',[rfReplaceAll]),'"','\"',[rfReplaceAll]);
|
|
|
Result:=StringReplace(str,#13,'\r',[rfReplaceAll]);
|
|
|
Result:=StringReplace(Result,#10,'\n',[rfReplaceAll]);
|
|
|
|
|
|
end;
|
|
|
|
|
|
begin
|
|
|
str:=str+'{';
|
|
|
|
|
|
aAdoQuery:=CreateAdoQuery;
|
|
|
TempStr:=TStringList.Create;
|
|
|
try
|
|
|
str:=str+'"bsno":"'+ frm_op_seae.t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"bsdate":"'+FormatDateTime('yyyy-mm-dd hh:nn:ss',frm_op_seae.t_op_seae.FieldByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime)+'"';
|
|
|
str:=str+',"mblno":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring+'"';
|
|
|
str:=str+',"hblno":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring+'"';
|
|
|
str:=str+',"bookingno":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"contractno":"'+ frm_op_seae.t_op_seae.FieldByName('<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"TMBLNO":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring+'"';
|
|
|
str:=str+',"shipper":"'+ formartjson(trim(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').asstring))+'"';
|
|
|
str:=str+',"consignee":"'+ formartjson(trim(frm_op_seae.t_op_seae.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').asstring))+'"';
|
|
|
str:=str+',"notifyparty":"'+ formartjson(trim(frm_op_seae.t_op_seae.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').asstring))+'"';
|
|
|
str:=str+',"notifyparty2":""';
|
|
|
str:=str+',"yardid":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><>վ').asstring)+'"';
|
|
|
str:=str+',"yard":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><>վ').asstring)+'"';
|
|
|
str:=str+',"vessel":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"voyno":""';
|
|
|
str:=str+',"etd":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"closingdate":"'+ frm_op_seae.t_op_seae.FieldByName('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"closedocdate":""';
|
|
|
str:=str+',"eta":""';
|
|
|
str:=str+',"placereceiptid":""';
|
|
|
str:=str+',"placereceipt":""';
|
|
|
str:=str+',"portloadid":"'+ frm_op_seae.t_op_seae.FieldByName('װ<>۴<EFBFBD><DBB4><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"portload":"'+ frm_op_seae.t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"portdischargeid":"'+ frm_op_seae.t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"portdischarge":"'+ frm_op_seae.t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"placedeliveryid":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"placedelivery":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"destinationid":"'+ frm_op_seae.t_op_seae.FieldByName('Ŀ<>ĵش<C4B5><D8B4><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"destination":"'+ frm_op_seae.t_op_seae.FieldByName('Ŀ<>ĵ<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"nobill":"'+ frm_op_seae.t_op_seae.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"copynobill":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"issuetype":"'+ frm_op_seae.t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').asstring+'"';
|
|
|
str:=str+',"issuedate":"'+ frm_op_seae.t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"ShippingMethod":"'+ frm_op_seae.t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring+'"';
|
|
|
str:=str+',"CtnDayNum":"'+ frm_op_seae.t_op_seae.FieldByName('<27><>ʹ<EFBFBD>Ѵ<EFBFBD>').asstring+'"';
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring<>'') then begin
|
|
|
str:=str+',"issueplaceid":"'+GetPortEdiID(trim(frm_op_seae.t_op_seae.fieldbyname('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring))+'"';
|
|
|
str:=str+',"issueplace":"'+ frm_op_seae.t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
end else begin
|
|
|
str:=str+',"issueplaceid":"CNTAO"';
|
|
|
str:=str+',"issueplace":"QINGDAO,CHINA"';
|
|
|
end;
|
|
|
str:=str+',"blfrt":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring+'"';
|
|
|
str:=str+',"prepardat":"'+ frm_op_seae.t_op_seae.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"payableat":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"service":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"marks":"'+formartjson(frm_op_seae.t_op_seae.FieldByName('<27><>ͷ').asstring)+'"';
|
|
|
str:=str+',"hscode":"'+ frm_op_seae.t_op_seae.FieldByName('HS<48><53><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"description":"'+ formartjson(Trim(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring))+'"';
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='') then
|
|
|
str:=str+',"pkgs":0'
|
|
|
else
|
|
|
str:=str+',"pkgs":'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"kindpkgs":"'+ frm_op_seae.t_op_seae.FieldByName('<27><>װ').asstring+'"';
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='') then
|
|
|
str:=str+',"kgs":0'
|
|
|
else
|
|
|
str:=str+',"kgs":'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='') then
|
|
|
str:=str+',"cbm":0'
|
|
|
else
|
|
|
str:=str+',"cbm":'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"totalno":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').asstring+'"';
|
|
|
str:=str+',"cntrtotal":"'+ frm_op_seae.t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring+'"';
|
|
|
str:=str+',"carrierid":"'+ getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').asstring)+'"';
|
|
|
str:=str+',"carrier":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').asstring+'"';
|
|
|
str:=str+',"cargoid":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring+'"';
|
|
|
str:=str+',"dclass":"'+ frm_op_seae.t_op_seae.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"dunno":"'+ frm_op_seae.t_op_seae.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"dpage":""';
|
|
|
str:=str+',"dlabel":""';
|
|
|
str:=str+',"linkman":""';
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring='R') then
|
|
|
str:=str+',"tempid":"C"'
|
|
|
else str:=str+',"tempid":""';
|
|
|
str:=str+',"tempset":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"reeferf":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"humidity":""';
|
|
|
str:=str+',"tempmin":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"tempmax":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
if frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
str:=str+',"iscontainersoc":true'
|
|
|
else
|
|
|
str:=str+',"iscontainersoc":false';
|
|
|
str:=str+',"remark":""';
|
|
|
str:=str+',"soremark":"'+ formartjson(frm_op_seae.t_op_seae.FieldByName('EDI<44><49>ע').asstring)+'"';
|
|
|
str:=str+',"yardremark":""';
|
|
|
str:=str+',"compid":"'+get_parameters_value(3201,'')+'"';
|
|
|
str:=str+',"compname":"'+frm_data_share.t_sys_company.fieldbyname('ȫ<><C8AB>').AsString+'"';
|
|
|
str:=str+',"pono":"'+ frm_op_seae.t_op_seae.FieldByName('<27><>ͬ<EFBFBD>ű<EFBFBD>ע').asstring+'"';
|
|
|
str:=str+',"opid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring)+'"';
|
|
|
str:=str+',"docid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27><>֤Ա').asstring)+'"';
|
|
|
str:=str+',"saleid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"op":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring+'"';
|
|
|
str:=str+',"doc":"'+ frm_op_seae.t_op_seae.FieldByName('<27><>֤Ա').asstring+'"';
|
|
|
str:=str+',"ROUTE":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>߲<EFBFBD><DFB2><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"ROUTEID":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>߲<EFBFBD><DFB2><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"sale":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"custserviceid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27>ͷ<EFBFBD>Ա').asstring)+'"';
|
|
|
str:=str+',"custservice":"'+ frm_op_seae.t_op_seae.FieldByName('<27>ͷ<EFBFBD>Ա').asstring+'"';
|
|
|
str:=str+',"customername":"'+ frm_op_seae.t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring+'"';
|
|
|
str:=str+',"customser":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"trucker":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"forwarder":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring+'"';
|
|
|
str:=str+',"LANECODE":""';
|
|
|
str:=str+',"LANENAME":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"lineName":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"CUSTNO":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"voynoinner":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
{ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring
|
|
|
str:=str+',"forwarder":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring+'"';
|
|
|
str:=str+',"shipagency":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"customser":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"trucker":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"agentname":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
}
|
|
|
str:=str+',"weituo":""';
|
|
|
str:=str+',"EDIATTN":""';
|
|
|
str:=str+',"EDIATTNTEL":""';
|
|
|
str:=str+',"EDIATTNEMAIL":""';
|
|
|
str:=str+',"CONSIGNEEDOORADDR":""';
|
|
|
str:=str+',"SHIPPERDOORADDR":""';
|
|
|
str:=str+',"SCACCODE":""';
|
|
|
str:=str+',"ITNCODE":""';
|
|
|
str:=str+',"prepardatid":"'+GetPortEdiID(frm_op_seae.t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"payableatid":"'+GetPortEdiID(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"dzRemark":"'+formartjson(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע').AsString)+'"';
|
|
|
str:=str+',"czRemark":"'+formartjson(frm_op_seae.t_op_seae.fieldbyname('ռ<>ձ<EFBFBD>ע').AsString)+'"';
|
|
|
strsql:='select * from t_op_state where <20><><EFBFBD><EFBFBD>='
|
|
|
+#39+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+#39;
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
aAdoQuery.First;
|
|
|
str:=str+',"GoodsStatus":[';
|
|
|
isfirst:=true;
|
|
|
while not aAdoQuery.Eof do begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"'+aAdoQuery.FieldByName('ҵ<><D2B5>״̬').asstring+'"';
|
|
|
if aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asstring<>'' then
|
|
|
str:=str+',"FinishTime":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asstring+'"';
|
|
|
str:=str+',"Remark":"'+aAdoQuery.FieldByName('<27><>ע').asstring+'"';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
aAdoQuery.Next;
|
|
|
end;
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>').AsBoolean) then begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>"';
|
|
|
str:=str+',"Remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
end;
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean) then begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"<22>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>"';
|
|
|
str:=str+',"Remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
end;
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7>ύVGM').AsBoolean) then begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"<22>ύVGM"';
|
|
|
str:=str+',"Remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
end;
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7>ύ<EFBFBD>յ<EFBFBD>').AsBoolean) then begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"<22>ύ<EFBFBD>յ<EFBFBD>"';
|
|
|
str:=str+',"Remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
end;
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD>װ<EFBFBD>ط<EFBFBD><D8B7><EFBFBD>').AsBoolean) then begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"װ<>ط<EFBFBD><D8B7><EFBFBD>"';
|
|
|
str:=str+',"Remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
end;
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD>1Y').AsBoolean) then begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"1Y"';
|
|
|
str:=str+',"Remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
end;
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD>AMS¼<53><C2BC>').AsBoolean) then begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"AMS¼<53><C2BC>"';
|
|
|
str:=str+',"Remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
end;
|
|
|
if (frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD>3Z').AsBoolean) then begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"StatusName":"3Z"';
|
|
|
str:=str+',"Remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
end;
|
|
|
|
|
|
str:=str+']';
|
|
|
|
|
|
strsql:='select * from t_op_ctn where <20><><EFBFBD><EFBFBD>='
|
|
|
+#39+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+#39;
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
aAdoQuery.First;
|
|
|
str:=str+',"ctnInputs":[';
|
|
|
isfirst:=true;
|
|
|
while not aAdoQuery.Eof do begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"ctnall":"'+StringReplace(aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring,'''','',[])+'"';
|
|
|
str:=str+',"ctnnum":'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"cntrno":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"sealno":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"pkgs":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"kindpkgs":"'+aAdoQuery.FieldByName('<27><>װ').asstring+'"';
|
|
|
str:=str+',"kgs":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"cbm":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
if (aAdoQuery.FieldByName('Ƥ<><C6A4>').asstring='') then
|
|
|
str:=str+',"tareweight":0'
|
|
|
else
|
|
|
str:=str+',"tareweight":'+aAdoQuery.FieldByName('Ƥ<><C6A4>').asstring;
|
|
|
str:=str+',"weightype":"<22>ۼ<EFBFBD>"';
|
|
|
if (aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='') then
|
|
|
str:=str+',"weighkgs":0'
|
|
|
else
|
|
|
str:=str+',"weighkgs":'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"remark":""';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
aAdoQuery.Next;
|
|
|
end;
|
|
|
str:=str+']';
|
|
|
str:=str+',"goodscode":"'+frm_op_seae.t_op_seae.fieldbyname('HS<48><53><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"goodsname":"'+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"createdUserName":"'+frm_op_seae.t_op_seae.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
strsql:='select * from t_op_ams where <20><><EFBFBD><EFBFBD>='
|
|
|
+#39+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+#39;
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
|
|
|
str:=str+',"bookingEDIExt":{';
|
|
|
str:=str+'"weiTuoFang":""';
|
|
|
str:=str+',"shipperEdiCode":"'+formartjson(aAdoQuery.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString)+'"';
|
|
|
str:=str+',"consigneeEdiCode":"'+formartjson(aAdoQuery.fieldbyname('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString)+'"';
|
|
|
str:=str+',"salerCode":"'+aAdoQuery.fieldbyname('<27><><EFBFBD>۴<EFBFBD><DBB4><EFBFBD>').AsString+'"';
|
|
|
str:=str+',"ediAttn":"'+aAdoQuery.fieldbyname('Σ<><CEA3>Ʒ<EFBFBD><C6B7>ϵ<EFBFBD><CFB5>').AsString+'"';
|
|
|
str:=str+',"ediAttnTel":"'+aAdoQuery.fieldbyname('Σ<><CEA3>Ʒ<EFBFBD><C6B7>ϵ<EFBFBD><CFB5>ʽ').AsString+'"';
|
|
|
str:=str+',"ckhi":"'+aAdoQuery.fieldbyname('ŷ<><C5B7>HSCODE').AsString+'"';
|
|
|
str:=str+',"cncm":"'+aAdoQuery.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>NCM').AsString+'"';
|
|
|
str:=str+',"wncm":"'+aAdoQuery.fieldbyname('<27><><EFBFBD><EFBFBD>ľ<EFBFBD>ʰ<EFBFBD>װ˵<D7B0><CBB5>').AsString+'"';
|
|
|
str:=str+',"orderRemark":"'+formartjson(frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>').AsString)+'"';
|
|
|
|
|
|
|
|
|
|
|
|
str:=str+'}';
|
|
|
str:=str+',"childrens":[';
|
|
|
isfirst:=true;
|
|
|
strsql:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>='
|
|
|
+#39+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+#39;
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
aAdoQuery.First;
|
|
|
while not aAdoQuery.Eof do begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"bsno":"'+ aAdoQuery.FieldByName('AS_ID').asstring+'"';
|
|
|
str:=str+',"bsdate":"'+FormatDateTime('yyyy-mm-dd hh:nn:ss',aAdoQuery.FieldByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime)+'"';
|
|
|
str:=str+',"mblno":"'+ aAdoQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring+'"';
|
|
|
str:=str+',"hblno":"'+ aAdoQuery.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring+'"';
|
|
|
str:=str+',"bookingno":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"contractno":"'+ frm_op_seae.t_op_seae.FieldByName('<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"shipper":"'+ formartjson(aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"consignee":"'+ formartjson(aAdoQuery.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"notifyparty":"'+ formartjson(aAdoQuery.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"notifyparty2":""';
|
|
|
str:=str+',"yardid":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><>վ').asstring)+'"';
|
|
|
str:=str+',"yard":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><>վ').asstring)+'"';
|
|
|
str:=str+',"vessel":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"voyno":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"voynoinner":""';
|
|
|
str:=str+',"etd":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"closingdate":"'+ frm_op_seae.t_op_seae.FieldByName('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"closedocdate":""';
|
|
|
str:=str+',"eta":""';
|
|
|
str:=str+',"placereceiptid":""';
|
|
|
str:=str+',"placereceipt":""';
|
|
|
// str:=str+',"portloadid":"CNTAO"';
|
|
|
// str:=str+',"portload":"QINGDAO,CHINA"';
|
|
|
str:=str+',"portloadid":"'+ frm_op_seae.t_op_seae.FieldByName('װ<>۴<EFBFBD><DBB4><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"portload":"'+ frm_op_seae.t_op_seae.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"portdischargeid":"'+ frm_op_seae.t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"portdischarge":"'+ frm_op_seae.t_op_seae.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"placedeliveryid":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"placedelivery":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"destinationid":"'+ frm_op_seae.t_op_seae.FieldByName('Ŀ<>ĵش<C4B5><D8B4><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"destination":"'+ frm_op_seae.t_op_seae.FieldByName('Ŀ<>ĵ<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"nobill":"'+ aAdoQuery.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"copynobill":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"issuetype":"'+ aAdoQuery.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').asstring+'"';
|
|
|
str:=str+',"issuedate":"'+ aAdoQuery.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
if (aAdoQuery.fieldbyname('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring<>'') then begin
|
|
|
str:=str+',"issueplaceid":"'+GetPortEdiID(trim(aAdoQuery.fieldbyname('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring))+'"';
|
|
|
str:=str+',"issueplace":"'+ aAdoQuery.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
end else begin
|
|
|
str:=str+',"issueplaceid":"CNTAO"';
|
|
|
str:=str+',"issueplace":"QINGDAO,CHINA"';
|
|
|
end;
|
|
|
str:=str+',"blfrt":"'+ aAdoQuery.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').asstring+'"';
|
|
|
str:=str+',"prepardat":"'+ aAdoQuery.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"payableat":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"service":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"marks":"'+formartjson(aAdoQuery.FieldByName('<27><>ͷ').asstring)+'"';
|
|
|
str:=str+',"hscode":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>䷽ʽ').asstring+'"';
|
|
|
str:=str+',"description":"'+ formartjson(aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)+'"';
|
|
|
if (aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='') then
|
|
|
str:=str+',"pkgs":0'
|
|
|
else
|
|
|
str:=str+',"pkgs":'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"kindpkgs":"'+ aAdoQuery.FieldByName('<27><>װ').asstring+'"';
|
|
|
if (aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='') then
|
|
|
str:=str+',"kgs":0'
|
|
|
else
|
|
|
str:=str+',"kgs":'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
if (aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='') then
|
|
|
str:=str+',"cbm":0'
|
|
|
else
|
|
|
str:=str+',"cbm":'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
str:=str+',"totalno":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').asstring+'"';
|
|
|
str:=str+',"cntrtotal":"'+ frm_op_seae.t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring+'"';
|
|
|
str:=str+',"carrierid":"'+ getcustedi(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').asstring)+'"';
|
|
|
str:=str+',"carrier":"'+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>˾').asstring+'"';
|
|
|
str:=str+',"cargoid":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring+'"';
|
|
|
str:=str+',"dclass":"'+ frm_op_seae.t_op_seae.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"dunno":"'+ frm_op_seae.t_op_seae.FieldByName('Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"dpage":""';
|
|
|
str:=str+',"dlabel":""';
|
|
|
str:=str+',"linkman":""';
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ').asstring='R') then
|
|
|
str:=str+',"tempid":"C"'
|
|
|
else str:=str+',"tempid":""';
|
|
|
str:=str+',"tempset":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"reeferf":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"humidity":""';
|
|
|
str:=str+',"tempmin":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
str:=str+',"tempmax":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>¶<EFBFBD>').asstring+'"';
|
|
|
if frm_op_seae.t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean then
|
|
|
str:=str+',"iscontainersoc":true'
|
|
|
else
|
|
|
str:=str+',"iscontainersoc":false';
|
|
|
str:=str+',"remark":""';
|
|
|
str:=str+',"soremark":"'+ formartjson(frm_op_seae.t_op_seae.FieldByName('EDI<44><49>ע').asstring)+'"';
|
|
|
str:=str+',"yardremark":""';
|
|
|
str:=str+',"compid":"'+get_parameters_value(3201,'')+'"';
|
|
|
str:=str+',"compname":"'+frm_data_share.t_sys_company.fieldbyname('ȫ<><C8AB>').AsString+'"';
|
|
|
str:=str+',"pono":"'+ frm_op_seae.t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"opid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring)+'"';
|
|
|
str:=str+',"docid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>߲<EFBFBD><DFB2><EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"saleid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"op":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring+'"';
|
|
|
str:=str+',"doc":"'+ frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD>߲<EFBFBD><DFB2><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"sale":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"custserviceid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('<27>ͷ<EFBFBD>Ա').asstring)+'"';
|
|
|
str:=str+',"custservice":"'+ frm_op_seae.t_op_seae.FieldByName('<27>ͷ<EFBFBD>Ա').asstring+'"';
|
|
|
str:=str+',"customername":"'+ frm_op_seae.t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring+'"';
|
|
|
str:=str+',"weituo":""';
|
|
|
str:=str+',"prepardatid":"'+GetPortEdiID(aAdoQuery.fieldbyname('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').asstring)+'"';
|
|
|
str:=str+',"payableatid":"'+GetPortEdiID(aAdoQuery.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').asstring)+'"';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
aAdoQuery.Next;
|
|
|
end;
|
|
|
str:=str+']';
|
|
|
str:=str+'}';
|
|
|
|
|
|
finally
|
|
|
FreeAndNil(aAdoQuery);
|
|
|
FreeAndNil(TempStr);
|
|
|
end;
|
|
|
|
|
|
Result:=str;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae.CreateNewDjyCustStr(cust: string): string;
|
|
|
var
|
|
|
str,str2,codetype,codestr,strsql,typestr:string;
|
|
|
aAdoQuery:TAdoQuery;
|
|
|
isfirst:Boolean;
|
|
|
TempStr:TStringlist;
|
|
|
|
|
|
begin
|
|
|
|
|
|
|
|
|
aAdoQuery:=CreateAdoQuery;
|
|
|
strsql:='select * from t_crm_client where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='
|
|
|
+#39+cust+#39;
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
if (not aAdoQuery.IsEmpty) then begin
|
|
|
str:=str+'{';
|
|
|
|
|
|
aAdoQuery.First;
|
|
|
|
|
|
TempStr:=TStringList.Create;
|
|
|
try
|
|
|
str:=str+'"codeName":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"shortName":"'+aAdoQuery.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"fullName":"'+ aAdoQuery.FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring+'"';
|
|
|
str:=str+',"chief":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"tel":"'+ aAdoQuery.FieldByName('<27>绰').asstring+'"';
|
|
|
str:=str+',"email":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"qq":"'+ aAdoQuery.FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring+'"';
|
|
|
str:=str+',"webUrl":"'+ aAdoQuery.FieldByName('<27><>վ').asstring+'"';
|
|
|
str:=str+',"city":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"addr":"'+ aAdoQuery.FieldByName('ͨѶ<CDA8><D1B6>ַ').asstring+'"';
|
|
|
str:=str+',"fullNameEN":"'+ aAdoQuery.FieldByName('Ӣ<><D3A2>ȫ<EFBFBD><C8AB>').asstring+'"';
|
|
|
str:=str+',"addrEN":""';
|
|
|
str:=str+',"propString":""';
|
|
|
str:=str+',"invTitle":"'+ aAdoQuery.FieldByName('<27><>Ʊ̧ͷ').asstring+'"';
|
|
|
str:=str+',"taxNO":""';
|
|
|
str:=str+',"invAddrTel":""';
|
|
|
str:=str+',"rmbBank":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RMB').asstring+'"';
|
|
|
str:=str+',"rmbAccount":"'+ aAdoQuery.FieldByName('<27>ʺ<EFBFBD>RMB').asstring+'"';
|
|
|
str:=str+',"usdBank":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD').asstring+'"';
|
|
|
str:=str+',"usdAccount":"'+ aAdoQuery.FieldByName('<27>ʺ<EFBFBD>USD').asstring+'"';
|
|
|
str:=str+',"remark":"'+ aAdoQuery.FieldByName('<27><>ע').asstring+'"';
|
|
|
str:=str+',"contactList":[';
|
|
|
strsql:='select * from t_crm_client_linkman where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='
|
|
|
+#39+cust+#39;
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
aAdoQuery.First;
|
|
|
isfirst:=true;
|
|
|
while not aAdoQuery.Eof do begin
|
|
|
if (isfirst) then str:=str+'{' else str:=str+',{';
|
|
|
str:=str+'"name":"'+StringReplace(aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring,'''','',[])+'"';
|
|
|
str:=str+',"tel":'+aAdoQuery.FieldByName('<27>칫<EFBFBD>绰').asstring;
|
|
|
str:=str+',"email":"'+aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"qq":"'+aAdoQuery.FieldByName('QQ').asstring+'"';
|
|
|
str:=str+',"remark":"'+aAdoQuery.FieldByName('<27><>ע').asstring+'"';
|
|
|
str:=str+'}';
|
|
|
isfirst:=false;
|
|
|
aAdoQuery.Next;
|
|
|
end;
|
|
|
str:=str+']';
|
|
|
str:=str+'}';
|
|
|
|
|
|
finally
|
|
|
FreeAndNil(aAdoQuery);
|
|
|
FreeAndNil(TempStr);
|
|
|
end;
|
|
|
end;
|
|
|
Result:=str;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae.CreateNewDjyVessel: string;
|
|
|
var
|
|
|
str,str2,codetype,codestr,strsql,typestr:string;
|
|
|
aAdoQuery:TAdoQuery;
|
|
|
isfirst:Boolean;
|
|
|
TempStr:TStringlist;
|
|
|
|
|
|
begin
|
|
|
|
|
|
aAdoQuery:=CreateAdoQuery;
|
|
|
strsql:='select * from v_vessel_voyage where Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>='''+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD>='''
|
|
|
+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+FormatDateTime('yyyy-mm-dd',frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)+'''';
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.SQL.Text:=strsql;
|
|
|
aAdoQuery.Open;
|
|
|
if (not aAdoQuery.IsEmpty) then begin
|
|
|
|
|
|
str:=str+'{';
|
|
|
|
|
|
aAdoQuery.First;
|
|
|
|
|
|
TempStr:=TStringList.Create;
|
|
|
try
|
|
|
str:=str+'"bsno":"'+ aAdoQuery.FieldByName('VO_ID').asstring+'"';
|
|
|
str:=str+',"vessel":"'+aAdoQuery.FieldByName('Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"voyno":"'+ aAdoQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"portLoading":"'+ aAdoQuery.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"portDischarge":"'+ aAdoQuery.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').asstring+'"';
|
|
|
str:=str+',"etd":"'+ FormatDateTime('yyyy-mm-dd',aAdoQuery.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)+'"';
|
|
|
str:=str+',"closingDate":"'+ FormatDateTime('yyyy-mm-dd hh:ss:nn',aAdoQuery.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime)+'"';
|
|
|
str:=str+'}';
|
|
|
|
|
|
finally
|
|
|
FreeAndNil(aAdoQuery);
|
|
|
FreeAndNil(TempStr);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
Result:=str;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton88Click(Sender: TObject);
|
|
|
var
|
|
|
i:Integer;
|
|
|
str:string;
|
|
|
dsstr,PostUrl,custstr,ScriptPath,filenamestr:string;
|
|
|
sl:TStringList;
|
|
|
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;
|
|
|
|
|
|
sl:=TStringList.Create;
|
|
|
|
|
|
str:=str+'[';
|
|
|
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if (i<>0) then str:=str+',';
|
|
|
dsstr:=CreateNewDjyStr;
|
|
|
str:=str+dsstr;
|
|
|
{
|
|
|
custstr:=CreateNewDjyVessel;
|
|
|
|
|
|
if (custstr<>'') then begin
|
|
|
PostUrl:=get_parameters_value(3204,'http://60.209.125.238:25805/DataSync/SyncVesselDate');
|
|
|
TDsDjyThread.create(PostUrl,custstr,'','0ca73c22aba845d9ae4c73e71519361f','20672b8370a26fe670469da50eb896819a11168fd7b39f9e6fcb8c273130f2c31d5fd908047413dd');
|
|
|
InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD>',frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+frm_op_seae.t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
custstr:=CreateNewDjyCustStr(frm_op_seae.t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring);
|
|
|
if (custstr<>'') then begin
|
|
|
PostUrl:=get_parameters_value(3203,'http://60.209.125.238:25805/DataSync/SyncCustomer');
|
|
|
TDsDjyThread.create(PostUrl,custstr,'','db962d818f384ec6917e9c6f111c2f10','968a323fe42e84fdfdfe7f8c1abf61788ab4dc53df562ca2df0cdc3a4d39dff7ded3183cfa0d5dbd');
|
|
|
InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƿͻ<C6BF>',frm_op_seae.t_op_seae.FieldByName('ί<>е<EFBFBD>λ').asstring);
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
str:=str+']';
|
|
|
sl.Add(str);
|
|
|
ScriptPath:=ExtractFilePath(ParamStr(0))+'JSON\';
|
|
|
if not DirectoryExists(ScriptPath) then
|
|
|
CreateDir(ScriptPath);
|
|
|
filenamestr:=ScriptPath
|
|
|
+frm_op_seae.t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring
|
|
|
+FormatDateTime('yyyy',now)
|
|
|
+FormatDateTime('mm',now)
|
|
|
+FormatDateTime('dd',now)
|
|
|
+FormatDateTime('hh',now)
|
|
|
+FormatDateTime('nn',now)+'.txt';
|
|
|
|
|
|
sl.SaveToFile(filenamestr);
|
|
|
PostUrl:=get_parameters_value(3202,'http://60.209.125.238:25805/DataSync/SyncBookingList');
|
|
|
TDsDjyThread.create(PostUrl,str,'','233f271945ee44df8c510cce997a7261','dd0eea7aedef11c7759d8b30a62550078c47b991f3c905bca3722ba19c85fc1f094af899949a4210');
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',frm_op_seae.t_op_seae.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
ShowMessage('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>ɣ<EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_amsBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
if (if_open('776')) then begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_amsBeforeInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
if (if_open('776')) then begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButtonSIClick(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ams1,'SI<53><49>ע');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1Column75CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if (ANode.strings[dxDBGrid1Column151.Index]='True') then begin
|
|
|
AColor:=clGreen;
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_editBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae,'0001');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_editBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae,'0001');
|
|
|
delete_add(1,t_op_seae);
|
|
|
delete_usdproject(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
end.
|
|
|
|