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; 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包含完整路径、文件名 procedure DownLoadPro(fname: string); //从数据库的表中下载 procedure UpLoadProFile(fname, RemotePathName, Users, pw, bsno,mblno,etd,custname: string); procedure DownLoadProFiles(RemotePathName, Users, pw, fname: string); //增加获取局域网共享文档路径 function GetNetFileShare(VL_ID: Integer; DefaultStr: string): string; //从局域网共享路径获取文件名 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 代码 from t_crm_client where 客户简称='''+Corp+''''); Open; Result:=FieldByName('代码').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 扣单状态 from t_crm_client where 客户简称='''+Corp+''''); Open; Result:=FieldByName('扣单状态').AsString; end; finally FreeAndNil(aQuery); end; end; begin table_before_post(t_op_seae,'委托单位'); table_before_post(t_op_seae,'操作员'); table_before_post(t_op_seae,'揽货人'); // table_before_post(t_op_seae,'客服员'); table_before_post(t_op_seae,'开船日期'); table_before_post(t_op_seae,'装运方式'); table_before_post(t_op_seae,'装货港'); table_before_post(t_op_seae,'卸货港'); // table_before_post(t_op_seae,'业务来源'); table_before_post(t_op_seae,'是否占舱'); aDate:= t_op_seae.FieldByName('预抵日期').AsString; if (aDate<>'') then begin t_op_seae['会计期间']:=t_op_seae['预抵日期']; aQuery2:=CreateAdoQuery; try with aQuery2 do begin Close;sql.Clear; sql.Add('Select distinct 揽货人 from t_crm_client_sales where 客户简称='''+t_op_seae2.DataSet.FieldByName('委托单位').AsString+''' and 状态=''审核'' and 开始日期<='''+aDate+''' and 结束日期>='''+aDate+''' '); Open; if not IsEmpty then begin first; while not eof do begin t_op_seae2.DataSet['揽货人']:=FieldByName('揽货人').AsString; Next; end; end else begin end; end; finally FreeAndNil(aQuery2); end; end; if frm_data_share.t_sys_employee.locate('姓名',t_op_seae.fieldbyname('揽货人').AsString,[]) then t_op_seae2.DataSet['销售部门']:=frm_data_share.t_sys_employee['部门名称']; if not (GetStrChar(t_op_seae.FieldByName('主提单号').AsString)) then begin showmessage('主提单号有特殊字符,不允许保存！'); abort; end; if not (GetStrChar(t_op_seae.FieldByName('分提单号').AsString)) then begin showmessage('分提单号有特殊字符,不允许保存！'); abort; end; if not (GetStrChar(t_op_seae.FieldByName('真提单号').AsString)) then begin showmessage('真提单号有特殊字符,不允许保存！'); abort; end; //table_before_post(t_op_seae,'销售部门'); // table_before_post(t_op_seae,'操作部门'); if t_op_seae2.DataSet.FieldByName('设置温度').Value<>t_op_seae2.DataSet.FieldByName('设置温度').OldValue then begin t_op_seae2.DataSet['最低温度']:=t_op_seae2.DataSet.FieldByName('设置温度').Value; t_op_seae2.DataSet['最高温度']:=t_op_seae2.DataSet.FieldByName('设置温度').Value; end; { if trim(t_op_seae2.DataSet.fieldbyname('装运方式').asstring)='整箱' then begin if CheckCtnTotalEquelDetail(t_op_seae) then begin showmessage('装箱明细不等于装箱总数,请核对'); // abort; end; end; } if Trim(t_op_seae.FieldByName('订舱序列号').AsString)<>'' then begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;sql.Clear; sql.Add('select count(*) ct from t_op_seae where 编号<>'''+t_op_seae.FieldByName('编号').AsString+''' and (订舱序列号='''+Trim(t_op_seae.FieldByName('订舱序列号').AsString)+''')'); Open; if FieldByName('ct').AsInteger<>0 then begin showmessage('订舱编号不允许重复！！'); abort; end; end; finally FreeAndNil(aQuery); end; end; if Trim(t_op_seae.FieldByName('合同号备注').AsString)<>'' then begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;sql.Clear; sql.Add('select count(*) ct from t_op_seae where 编号<>'''+t_op_seae.FieldByName('编号').AsString+''' and (合同号备注='''+Trim(t_op_seae.FieldByName('合同号备注').AsString)+''')'); Open; if FieldByName('ct').AsInteger<>0 then begin showmessage('合同号不允许重复！！'); abort; end; end; finally FreeAndNil(aQuery); end; end; op_empty('t_op_seae',t_op_seae); Protocolrec:=getProtocol(t_op_seae.fieldbyname('委托单位').asstring,t_op_seae.fieldbyname('揽货人').asstring,t_op_seae.fieldbyname('预抵日期').AsDateTime); t_op_seae2.DataSet.fieldbyname('结费类型').AsString:=Protocolrec.protocolType; if (Protocolrec.protocolDate<>null) and (Protocolrec.protocolDate<>0) then t_op_seae2.DataSet.fieldbyname('应结日期').AsDateTime:=Protocolrec.protocolDate; if (Pos('RH',t_op_seae.fieldbyname('集装箱').asstring)>0) OR (Pos('RF',t_op_seae.fieldbyname('集装箱').asstring)>0) OR (Pos('DO',t_op_seae.fieldbyname('集装箱').asstring)>0) then begin //t_op_seae['货物标识']:='D'; if Trim(t_op_seae.fieldbyname('货物名称').asstring)='' then begin showmessage('冻柜货物名称必添！！'); abort; end; if Trim(t_op_seae.fieldbyname('货物描述').asstring)='' then begin showmessage('冻柜货物描述必添！！'); abort; end; end else if (Pos('GP',t_op_seae.fieldbyname('集装箱').asstring)>0) OR (Pos('HQ',t_op_seae.fieldbyname('集装箱').asstring)>0) then begin //t_op_seae['货物标识']:='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('主提单号').OldValue<>t_op_seae.FieldByName('主提单号').Value) then begin UpdateHblFieldName('主提单号',t_op_seae.FieldByName('主提单号').Value,t_op_seae.FieldByName('编号').Value); end; if (t_op_seae.FieldByName('船公司').OldValue<>t_op_seae.FieldByName('船公司').Value) then begin UpdateHblFieldName('船公司',t_op_seae.FieldByName('船公司').Value,t_op_seae.FieldByName('编号').Value); end; if (t_op_seae.FieldByName('委托单位').OldValue<>t_op_seae.FieldByName('委托单位').Value) then begin UpdateHblFieldName('委托单位',t_op_seae.FieldByName('委托单位').Value,t_op_seae.FieldByName('编号').Value); end; if (t_op_seae.FieldByName('船名').OldValue<>t_op_seae.FieldByName('船名').Value) then begin UpdateHblFieldName('船名',t_op_seae.FieldByName('船名').Value,t_op_seae.FieldByName('编号').Value); end; if (t_op_seae.FieldByName('航次').OldValue<>t_op_seae.FieldByName('航次').Value) then begin UpdateHblFieldName('航次',t_op_seae.FieldByName('航次').Value,t_op_seae.FieldByName('编号').Value); end; if (t_op_seae.FieldByName('货代公司').OldValue<>t_op_seae.FieldByName('货代公司').Value) then begin UpdateHblFieldName('货代公司',t_op_seae.FieldByName('货代公司').Value,t_op_seae.FieldByName('编号').Value); end; if (t_op_seae.FieldByName('开船日期').OldValue<>t_op_seae.FieldByName('开船日期').Value) then begin UpdateHblFieldName('开船日期',t_op_seae.FieldByName('开船日期').Value,t_op_seae.FieldByName('编号').Value); end; if (t_op_seae.FieldByName('集装箱').OldValue<>t_op_seae.FieldByName('集装箱').Value) then begin UpdateHblFieldName('集装箱',t_op_seae.FieldByName('集装箱').Value,t_op_seae.FieldByName('编号').Value); end; if (t_op_seae.FieldByName('卸货港').OldValue<>t_op_seae.FieldByName('卸货港').Value) then begin UpdateHblFieldName('卸货港',t_op_seae.FieldByName('卸货港').Value,t_op_seae.FieldByName('编号').Value); end; /// UpdateCtnCountFieldName(); // { if t_op_seae.fieldbyname('截港日期').asstring<>''then begin if t_op_seae.fieldbyname('截港日期').asdatetime>t_op_seae.fieldbyname('开船日期').asdatetime then begin showmessage('截港日期不能大于开船日期！！'); abort; end; end; } { if t_op_seae.fieldbyname('预抵日期').asstring<>''then begin if t_op_seae.fieldbyname('预抵日期').asdatetime''then begin if t_op_seae.fieldbyname('二程开船日期').asdatetimet_op_seae.FieldByName('委托单位').asstring then begin if frm_data_share.t_crm_client_all.Locate('客户简称',t_op_seae.FieldByName('委托单位').asstring,[])then begin if frm_data_share.t_crm_client_all.fieldbyname('客户状态').asstring='封存客户'then begin showmessage('当前业务委托单位已经封存，不能再进行业务合作，如需合作请进行恢复客户操作！'); abort; end; end; end; // t_op_seae.FieldByName('扣单状态').asstring:=GetCorpKD(t_op_seae.FieldByName('委托单位').asstring); if t_op_seae.State=dsinsert then begin if t_op_seae.fieldbyname('业务编号').asstring=''then begin t_op_seae['业务编号']:=get_no(t_op_seae.fieldbyname('会计期间').AsDateTime,'SE'); if t_op_seae.fieldbyname('编号').asstring=''then t_op_seae['编号']:=get_id; t_op_seae['销售部门']:=GetDeptName(t_op_seae.fieldByName('揽货人').AsString); t_op_seae['操作部门']:=GetDeptName(t_op_seae.fieldByName('操作员').AsString); end; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae['分票编号']:=t_op_seae['编号']; t_op_seae['业务状态']:='接受委托'; t_op_seae['费用状态']:='录入状态'; end else begin if t_op_seae.FieldByName('装运方式').asstring='整箱' then begin table_before_post(t_op_seae,'集装箱'); end; end; t_op_seae['英文船期']:=date_eng(t_op_seae.fieldbyname('开船日期').AsDateTime); if strtobool(get_parameters_value(31,'false')) then begin if trim(t_op_seae.fieldbyname('主提单号').asstring)='' then begin t_op_seae['主提单标准']:=t_op_seae['编号']; end else begin t_op_seae['主提单标准']:=t_op_seae['主提单号']; end; end else begin t_op_seae['主提单标准']:=t_op_seae['编号']; end; if strtobool(get_parameters_value(32,'false')) then begin if trim(t_op_seae.fieldbyname('分提单号').asstring)='' then begin t_op_seae['分提单标准']:=t_op_seae['编号']; end else begin t_op_seae['分提单标准']:=t_op_seae['分提单号']; end; end else begin t_op_seae['分提单标准']:=t_op_seae['编号']; end; if strtobool(get_parameters_value(33,'false')) then begin if trim(t_op_seae.fieldbyname('委托编号').asstring)='' then begin t_op_seae['委托标准']:=t_op_seae['编号']; end else begin t_op_seae['委托标准']:=t_op_seae['委托编号']; end; end else begin t_op_seae['委托标准']:=t_op_seae['编号']; end; if strtobool(get_parameters_value(57,'false')) then begin if trim(t_op_seae.fieldbyname('核销单号').asstring)='' then begin t_op_seae['核销标准']:=t_op_seae['编号']; end else begin t_op_seae['核销标准']:=t_op_seae['核销单号']; end; end else begin t_op_seae['核销标准']:=t_op_seae['编号']; end; if strtobool(get_parameters_value(58,'false')) then begin if trim(t_op_seae.fieldbyname('报关单号').asstring)='' then begin t_op_seae['报关标准']:=t_op_seae['编号']; end else begin t_op_seae['报关标准']:=t_op_seae['报关单号']; end; end else begin t_op_seae['报关标准']:=t_op_seae['编号']; end; if strtobool(get_parameters_value(59,'false')) then begin if trim(t_op_seae.fieldbyname('真提单号').asstring)='' then begin t_op_seae['报检标准']:=t_op_seae['编号']; end else begin t_op_seae['报检标准']:=t_op_seae['真提单号']; end; end else begin t_op_seae['报检标准']:=t_op_seae['编号']; end; t_ch_fee.close; t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('编号').asstring; t_ch_fee.open; if (t_op_seae.fieldbyname('业务编号').asstring<>'') then begin if t_op_seae.FieldByName('开船日期').OldValue<>null then begin if t_op_seae.FieldByName('开船日期').OldValue<>t_op_seae.FieldByName('开船日期').Value then begin DecodeDate(t_op_seae.FieldByName('开船日期').OldValue,aYear,amonth,aDay); DecodeDate(t_op_seae.FieldByName('开船日期').Value,bYear,bmonth,bDay); t_op_modify.Open; t_op_modify.Insert; t_op_modify['更改日期']:=date; t_op_modify['编号']:=t_op_seae.fieldbyname('编号').asstring; t_op_modify['业务编号']:=t_op_seae.fieldbyname('业务编号').asstring; if ((aYear<>bYear) or (amonth<>bMonth)) and (not t_ch_fee.IsEmpty) then t_op_modify['跨月更改']:=1 else t_op_modify['跨月更改']:=0; t_op_modify['更改类型']:='船期更改'; t_op_modify['委托编号']:=t_op_seae.fieldbyname('委托编号').asstring; t_op_modify['委托单位']:=t_op_seae.fieldbyname('委托单位').asstring; t_op_modify['旧船名']:=t_op_seae.FieldByName('船名').OldValue; t_op_modify['旧航次']:=t_op_seae.FieldByName('航次').OldValue; t_op_modify['旧开船日期']:=t_op_seae.FieldByName('开船日期').OldValue; t_op_modify['操作']:=employee; t_op_modify['更改人IP']:=LocalIP; t_op_modify.Post; end; if t_op_seae.FieldByName('揽货人').OldValue<>t_op_seae.FieldByName('揽货人').Value then begin t_op_modify.Open; t_op_modify.Insert; t_op_modify['更改日期']:=date; t_op_modify['编号']:=t_op_seae.fieldbyname('编号').asstring; t_op_modify['更改类型']:='揽货人更改'; if (not t_ch_fee.IsEmpty) then t_op_modify['跨月更改']:=1 else t_op_modify['跨月更改']:=0; t_op_modify['业务编号']:=t_op_seae.fieldbyname('业务编号').asstring; t_op_modify['委托编号']:=t_op_seae.fieldbyname('委托编号').asstring; t_op_modify['委托单位']:=t_op_seae.fieldbyname('委托单位').asstring; t_op_modify['业务员']:=t_op_seae.fieldbyname('揽货人').asstring; t_op_modify['旧业务员']:=t_op_seae.fieldbyname('揽货人').oldvalue; t_op_modify['旧船名']:=t_op_seae.FieldByName('船名').OldValue; t_op_modify['旧航次']:=t_op_seae.FieldByName('航次').OldValue; t_op_modify['旧开船日期']:=t_op_seae.FieldByName('开船日期').OldValue; t_op_modify['操作']:=employee; t_op_modify['更改人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\东胜物流信息管理系统\Grid'; Notebook1.PageIndex:=0; if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); frm_sys_progress.bsSkinGauge1.ProgressText:='加载数据请等候。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=35; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; frm_op_seae_list_type:=1; 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 客户全称 from t_crm_client where 客户简称=t_op_seae.委托单位) 委托单位全称 from t_op_seae where 主编号=编号 and ' +'(录入人='+''''+employee+''''+' or 操作员='+''''+employee+''''+' or 单证员='+''''+employee+'''' +' or 客服员='+''''+employee+''''+' or 报关操作='+''''+employee+''''+' or 航线操作='+''''+employee+'''' +' or 航线管理='+''''+employee+'''' +' or 报检操作='+''''+employee+''''+')' +' order by 开船日期 DESC,船名,航次,主提单号'); t_op_seae.open; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; t_op_seae_fen.open; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; t_op_seae_huanhuo.open; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_data_share.t_code_tiaokuan.open; t_op_ctn.Close; t_op_ctn.Parameters.ParamByName('编号').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,'委托单位'); table_before_post(t_op_seae_fen,'操作员'); table_before_post(t_op_seae_fen,'揽货人'); // table_before_post(t_op_seae_fen,'客服员'); table_before_post(t_op_seae_fen,'开船日期'); table_before_post(t_op_seae_fen,'装货港'); table_before_post(t_op_seae_fen,'卸货港'); // table_before_post(t_op_seae_fen,'业务来源'); table_before_post(t_op_seae_fen,'销售部门'); // table_before_post(t_op_seae_fen,'操作部门'); op_empty('t_op_seae',t_op_seae_fen); if t_op_seae_fen.fieldbyname('截港日期').asstring<>''then begin if t_op_seae_fen.fieldbyname('截港日期').asdatetime>t_op_seae_fen.fieldbyname('开船日期').asdatetime then begin showmessage('截港日期不能大于开船日期！！'); abort; end; end; if t_op_seae_fen.fieldbyname('预抵日期').asstring<>''then begin if t_op_seae_fen.fieldbyname('预抵日期').asdatetime''then begin if t_op_seae_fen.fieldbyname('二程开船日期').asdatetimet_op_seae_fen.FieldByName('委托单位').asstring then begin if frm_data_share.t_crm_client_all.Locate('客户简称',t_op_seae_fen.FieldByName('委托单位').asstring,[])then begin if frm_data_share.t_crm_client_all.fieldbyname('客户状态').asstring='封存客户'then begin showmessage('当前业务委托单位已经封存，不能再进行业务合作，如需合作请进行恢复客户操作！'); abort; end; end; end; if t_op_seae_fen.State=dsinsert then begin if t_op_seae_fen.fieldbyname('业务编号').asstring=''then begin t_op_seae_fen['业务编号']:=get_no(t_op_seae_fen.fieldbyname('会计期间').AsDateTime,'SE'); t_op_seae_fen['编号']:=get_id; end; t_op_seae_fen['主编号']:=t_op_seae['编号']; t_op_seae_fen['分票编号']:=t_op_seae_fen['编号']; t_op_seae_fen['业务状态']:='接受委托'; t_op_seae_fen['费用状态']:='录入状态'; end; t_op_seae_fen['英文船期']:=date_eng(t_op_seae_fen.fieldbyname('开船日期').AsDateTime); if strtobool(get_parameters_value(31,'false')) then begin if trim(t_op_seae_fen.fieldbyname('主提单号').asstring)='' then begin t_op_seae_fen['主提单标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['主提单标准']:=t_op_seae_fen['主提单号']; end; end else begin t_op_seae_fen['主提单标准']:=t_op_seae_fen['编号']; end; if strtobool(get_parameters_value(32,'false')) then begin if trim(t_op_seae_fen.fieldbyname('分提单号').asstring)='' then begin t_op_seae_fen['分提单标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['分提单标准']:=t_op_seae_fen['分提单号']; end; end else begin t_op_seae_fen['分提单标准']:=t_op_seae_fen['编号']; end; if strtobool(get_parameters_value(33,'false')) then begin if trim(t_op_seae_fen.fieldbyname('委托编号').asstring)='' then begin t_op_seae_fen['委托标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['委托标准']:=t_op_seae_fen['委托编号']; end; end else begin t_op_seae_fen['委托标准']:=t_op_seae_fen['编号']; end; if strtobool(get_parameters_value(57,'false')) then begin if trim(t_op_seae_fen.fieldbyname('核销单号').asstring)='' then begin t_op_seae_fen['核销标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['核销标准']:=t_op_seae_fen['核销单号']; end; end else begin t_op_seae_fen['核销标准']:=t_op_seae_fen['编号']; end; if strtobool(get_parameters_value(58,'false')) then begin if trim(t_op_seae_fen.fieldbyname('报关单号').asstring)='' then begin t_op_seae_fen['报关标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['报关标准']:=t_op_seae_fen['报关单号']; end; end else begin t_op_seae_fen['报关标准']:=t_op_seae_fen['编号']; end; if strtobool(get_parameters_value(59,'false')) then begin if trim(t_op_seae_fen.fieldbyname('报检单号').asstring)='' then begin t_op_seae_fen['报检标准']:=t_op_seae_fen['编号']; end else begin t_op_seae_fen['报检标准']:=t_op_seae_fen['报检单号']; end; end else begin t_op_seae_fen['报检标准']:=t_op_seae_fen['编号']; end; end; procedure Tfrm_op_seae.bsSkinButton7Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if not t_op_seae2.DataSet.Bof then t_op_seae2.DataSet.Prior; end; procedure Tfrm_op_seae.bsSkinButton6Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if not t_op_seae2.DataSet.eof then t_op_seae2.DataSet.next; end; procedure Tfrm_op_seae.wwDBComboBox2Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (wwDBComboBox2.text='拼箱主票') or (wwDBComboBox2.text='合票主票') then begin Label14.Caption:='分单列表'; DBMemo2.DataField:='分单列表'; bsSkinButton37.Visible:=true; wwDBLookupCombo11.Visible:=false; bsSkinPageControl2.Visible:=true; bsSkinButton12.Visible:=true; bsSkinButton14.Visible:=true; RxDBLookupCombo2.Visible:=false; RxDBLookupCombo3.Visible:=false; RxDBLookupCombo4.Visible:=false; RxDBLookupCombo5.Visible:=false; DBMemo33.Visible:=false; DBMemo34.Visible:=false; DBMemo35.Visible:=false; DBMemo1.Visible:=false; wwDBLookupCombo46.Visible:=false; wwDBLookupCombo47.Visible:=false; wwDBLookupCombo48.Visible:=false; wwDBLookupCombo7.Visible:=false; end else begin Label14.Caption:='附加条款'; DBMemo2.DataField:='附加条款'; bsSkinButton37.Visible:=false; wwDBLookupCombo11.Visible:=true; bsSkinPageControl2.Visible:=false; bsSkinButton12.Visible:=false; bsSkinButton14.Visible:=false; RxDBLookupCombo2.Visible:=true; RxDBLookupCombo3.Visible:=true; RxDBLookupCombo4.Visible:=true; RxDBLookupCombo5.Visible:=true; DBMemo33.Visible:=true; DBMemo34.Visible:=true; DBMemo35.Visible:=true; DBMemo1.Visible:=true; wwDBLookupCombo46.Visible:=true; wwDBLookupCombo47.Visible:=true; wwDBLookupCombo48.Visible:=true; wwDBLookupCombo7.Visible:=true; end; if (wwDBComboBox2.text='拼箱分票') 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='编辑修改' then begin bsSkinButton11.Caption:='返回列表'; Notebook1.PageIndex:=1; exit; end; if bsSkinButton11.Caption='返回列表' then begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then BEGIN answer:=messagedlg( '数据已经修改，是否保存？',mtWarning,mbYesNoCancel,0); if answer=mrYes then begin t_op_seae.post; end; if answer=mrNo then begin t_op_seae.cancel; end; if answer=mrCancel then begin exit; end; END; bsSkinButton11.Caption:='编辑修改'; Notebook1.PageIndex:=0; exit; end; if bsSkinButton11.Caption='返回主票' then begin if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then BEGIN answer:=messagedlg( '数据已经修改，是否保存？',mtWarning,mbYesNoCancel,0); if answer=mrYes then begin t_op_seae_fen.post; end; if answer=mrNo then begin t_op_seae_fen.cancel; end; if answer=mrCancel then begin exit; end; END; bsSkinButton11.Caption:='返回列表'; try t_op_seae2.Enabled:=false; t_op_seae2.DataSet:=t_op_seae; finally t_op_seae2.Enabled:=true; end; Notebook1.PageIndex:=1; exit; end; end; procedure Tfrm_op_seae.bsSkinButton33Click(Sender: TObject); begin bsSkinButton11.Caption:='返回主票'; try t_op_seae2.Enabled:=false; t_op_seae2.DataSet:=t_op_seae_fen; finally t_op_seae2.Enabled:=true; end; end; procedure Tfrm_op_seae.bsSkinButton2Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; // 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('是否占舱').AsString<>'Y') and (t_op_seae.FieldByName('主提单号').AsString<>'') THEN begin if (t_op_seae.FieldByName('开船日期').AsDateTimet_op_seae.FieldByName('业务编号').AsString) or ((sendbsno=t_op_seae.FieldByName('业务编号').AsString) and (SecondsBetween(now,senddatetime)>2)) then begin sendbsno:=t_op_seae.FieldByName('业务编号').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 删除需经理审批 from t_sys_department where 部门名称=( select 部门名称 from t_sys_employee where 姓名='''+t_op_seae2.DataSet['揽货人']+''')'); open; if fieldbyname('删除需经理审批').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('对不起业务已经进行换货，不能删除！！'); exit; end; t_ch_fee.close; t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.fieldbyname('编号').asstring; t_ch_fee.open; if not t_ch_fee.IsEmpty then begin showmessage('对不起业务存在费用信息，不能删除！！'); exit; end; if t_op_seae2.DataSet.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('对不起拼箱主票存在分票信息，不能删除！！'); exit; end; end; if t_op_seae2.DataSet.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('对不起合票主票存在分票信息，不能删除！！'); exit; end; end; if (t_op_seae2.dataset.fieldbyName('业务状态').AsString='批准删除') or (not isDelete) then begin if application.MessageBox('您确定要删除数据吗?','警告:',MB_OKCANCEL)=IDOK then t_op_seae2.DataSet.delete; end else begin if application.MessageBox('您确定要申请删除数据吗?','警告:',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 编号='''+t_op_seae2.DataSet['编号']+''''); 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('业务状态').AsString:='申请删除'; 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('对不起你没有此模块的操作权限！'); 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('编号').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('装运方式').asstring='拼箱分票') or (t_op_seae2.DataSet.FieldByName('装运方式').asstring='拼箱单票') or (t_op_seae2.DataSet.FieldByName('装运方式').asstring='合票单票') then begin N56.Visible:=true; N57.Visible:=true; end else begin N56.Visible:=false; N57.Visible:=false; end; Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height)); PopupMenu1.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_op_seae.bsSkinButton9Click(Sender: TObject); 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('件数').AsInteger=0) or (memtblrpt.FieldByName('重量').AsFloat=0) or (memtblrpt.FieldByName('尺码').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('件数').AsInteger:=0; memtblrpt.FieldByName('重量').AsFloat:=0.00; memtblrpt.FieldByName('尺码').AsFloat:=0.00; memtblrpt.Post; memtblrpt.Next; end; end; end; sys_print('海运出口单证',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['发货人代码']:=frm_data_share.t_crm_client_shiper.fieldbyname('快捷代码').asstring; end; if AMSState then begin t_op_ams.Close; t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('编号').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('编号').AsString:=t_op_seae.fieldbyname('编号').AsString; t_op_ams.FieldByName('发货人联系电话').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('电话').asstring; t_op_ams.FieldByName('发货人邮箱').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('邮箱').asstring; t_op_ams.FieldByName('发货人电传').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('传真').asstring; t_op_ams.FieldByName('发货人国家代码').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('国家代码').asstring; t_op_ams.FieldByName('发货人企业代码').AsString:=frm_data_share.t_crm_client_shiper.fieldbyname('企业代码').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['收货人代码']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('快捷代码').asstring; end; if AMSState then begin t_op_ams.Close; t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('编号').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('编号').AsString:=t_op_seae.fieldbyname('编号').AsString; t_op_ams.FieldByName('收货人联系电话').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('电话').asstring; t_op_ams.FieldByName('收货人邮箱').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('邮箱').asstring; t_op_ams.FieldByName('收货人电传').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('传真').asstring; t_op_ams.FieldByName('收货人国家代码').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('国家代码').asstring; t_op_ams.FieldByName('收货人企业代码').AsString:=frm_data_share.t_crm_client_shouhuo.fieldbyname('企业代码').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['通知人代码']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('快捷代码').asstring; end; if AMSState then begin t_op_ams.Close; t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('编号').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('编号').AsString:=t_op_seae.fieldbyname('编号').AsString; t_op_ams.FieldByName('通知人联系电话').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('电话').asstring; t_op_ams.FieldByName('通知人邮箱').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('邮箱').asstring; t_op_ams.FieldByName('通知人电传').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('传真').asstring; t_op_ams.FieldByName('通知人国家代码').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('国家代码').asstring; t_op_ams.FieldByName('通知人企业代码').AsString:=frm_data_share.t_crm_client_tongzhi.fieldbyname('企业代码').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['发货人代码']:=frm_data_share.t_crm_client_shiper.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.RxDBLookupCombo18Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then begin if RxDBLookupCombo18.DisplayValue<>'' then t_op_seae2.DataSet['通知人代码']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.bsSkinButton26Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'发货人代码'); end; procedure Tfrm_op_seae.bsSkinButton25Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'收货人代码'); end; procedure Tfrm_op_seae.bsSkinButton24Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'通知人代码'); end; procedure Tfrm_op_seae.bsSkinButton23Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'代理内容'); end; procedure Tfrm_op_seae.bsSkinButton21Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'唛头'); end; procedure Tfrm_op_seae.bsSkinButton22Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'箱号封号'); end; procedure Tfrm_op_seae.bsSkinButton16Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'货物描述'); end; procedure Tfrm_op_seae.bsSkinButton17Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,DBMemo2.DataField); end; procedure Tfrm_op_seae.bsSkinButton18Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'件数包装'); end; procedure Tfrm_op_seae.bsSkinButton19Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'货物重量'); end; procedure Tfrm_op_seae.bsSkinButton20Click(Sender: TObject); begin frm_main.view_momo(t_op_seae2,'货物尺码'); end; procedure Tfrm_op_seae.DBMemo40Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin t_op_seae2.DataSet['件数']:=total_num(DBMemo40); t_op_seae2.DataSet['包装']:=total_package(dbmemo40); t_op_seae2.DataSet['件数大写'] :='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('件数').asfloat,true) +t_op_seae2.DataSet.FieldByName('包装').asstring+' ONLY.'; end; end; procedure Tfrm_op_seae.DBMemo41Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin t_op_seae2.DataSet['重量']:=total_num(DBMemo41); end; end; procedure Tfrm_op_seae.DBMemo42Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin t_op_seae2.DataSet['尺码']:=total_num(DBMemo42); end; end; procedure Tfrm_op_seae.DBMemo41Exit(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin kgs_cbm(DBMemo41,'KGS'); t_op_seae2.DataSet['货物重量']:=DBMemo41.text; end; end; procedure Tfrm_op_seae.DBMemo42Exit(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin kgs_cbm(DBMemo42,'CBM'); t_op_seae2.DataSet['货物尺码']:=DBMemo42.text; end; end; procedure Tfrm_op_seae.wwDBLookupCombo61Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin t_op_seae2.DataSet['件数大写'] :='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('件数').asfloat,true) +wwDBLookupCombo61.text+' ONLY.'; end; end; procedure Tfrm_op_seae.bsSkinButton37Click(Sender: TObject); var if_first:boolean; max,j:integer; begin if t_op_seae.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前拼箱主票业务已经完成，不能加入！！'); exit; end; if not t_op_seae_fen.IsEmpty then begin t_op_seae.Edit; t_op_seae_fen.First; if_first:=true; while not t_op_seae_fen.eof do begin if if_first then begin DBMemo2.text:=t_op_seae_fen.fieldbyname('主提单号').asstring; DBMemo39.text:=t_op_seae_fen.fieldbyname('货物描述').asstring; DBMemo40.text:=t_op_seae_fen.fieldbyname('件数包装').asstring; DBMemo41.text:=t_op_seae_fen.fieldbyname('货物重量').asstring; DBMemo42.text:=t_op_seae_fen.fieldbyname('货物尺码').asstring; if_first:=false; end else begin max:=DBMemo2.Lines.Count; if DBMemo39.Lines.Count>max then max:=DBMemo39.Lines.Count; if DBMemo40.Lines.Count>max then max:=DBMemo40.Lines.Count; if DBMemo41.Lines.Count>max then max:=DBMemo41.Lines.Count; if DBMemo42.Lines.Count>max then max:=DBMemo42.Lines.Count; if max=DBMemo2.Lines.Count then begin DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('主提单号').asstring); end else begin for j:=1 to (max-DBMemo2.Lines.Count) do begin DBMemo2.Lines.Add(' '); end; DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('主提单号').asstring); end; if max=DBMemo39.Lines.Count then begin DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('货物描述').asstring); end else begin for j:=1 to (max-DBMemo39.Lines.Count) do begin DBMemo39.Lines.Add(' '); end; DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('货物描述').asstring); end; if max=DBMemo40.Lines.Count then begin DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('件数包装').asstring); end else begin for j:=1 to (max-DBMemo40.Lines.Count) do begin DBMemo40.Lines.Add(' '); end; DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('件数包装').asstring); end; if max=DBMemo41.Lines.Count then begin DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('货物重量').asstring); end else begin for j:=1 to (max-DBMemo41.Lines.Count) do begin DBMemo41.Lines.Add(' '); end; DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('货物重量').asstring); end; if max=DBMemo42.Lines.Count then begin DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('货物尺码').asstring); end else begin for j:=1 to (max-DBMemo42.Lines.Count) do begin DBMemo42.Lines.Add(' '); end; DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('货物尺码').asstring); end; end; t_op_seae_fen.next; end; t_op_seae['包装']:='PACKAGES'; t_op_seae.post; end; end; procedure Tfrm_op_seae.DBEdit5Click(Sender: TObject); begin { if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)then t_op_seae2.DataSet.post; if t_op_seae2.DataSet.IsEmpty then exit; if (t_op_seae2.DataSet.fieldbyname('装运方式').asstring='拼箱分票') or (t_op_seae2.DataSet.fieldbyname('装运方式').asstring='拼箱单票')then exit; try frm_op_ctn:=tfrm_op_ctn.Create (self); frm_op_ctn.t_op_ctn.DataSource:=t_op_seae2; frm_op_ctn_type:=true; op_ctn_limited:='0001'; frm_op_ctn.ShowModal; finally frm_op_ctn.Free; end; } end; procedure Tfrm_op_seae.wwDBLookupCombo52Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then begin if frm_data_share.t_code_disport.Locate('英文名',wwDBLookupCombo52.text,[]) then begin // t_op_seae2.DataSet['卸货代码']:=frm_data_share.t_code_disport.FieldByName('英文名').AsString; t_op_seae2.DataSet['航线']:=frm_data_share.t_code_disport['航线']; 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:='海运出口'; 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('对不起，你无权操作费用！！'); 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('业务编号').AsString); if trim(t_op_seae.fieldbyname('业务编号').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('装运方式').asstring='整箱' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为整箱！！'); exit; end; end; if t_op_seae.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前合票主票含有分票信息，不能更改为整箱！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='整箱'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N5Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='报关' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为报关！！'); exit; end; end; if t_op_seae.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前合票主票含有分票信息，不能更改为报关！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='报关'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N6Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='其他' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为其他！！'); exit; end; end; if t_op_seae.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前合票主票含有分票信息，不能更改为其他！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='其他'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N4Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票' then exit; if t_op_seae.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前合票主票含有分票信息，不能更改为其他！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='拼箱主票'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N24Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱分票' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为拼箱分票！！'); exit; end; end; if t_op_seae.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前合票主票含有分票信息，不能更改为其他！！'); exit; end; end; if t_op_seae.FieldByName('集装箱').asstring<>''then begin showmessage('此票业务存在集装箱信息不能更改为拼箱分票，如想更改请先将集装箱信息删除！！'); exit; end; t_op_seae.edit; t_op_seae['装运方式']:='拼箱分票'; t_op_seae['主编号']:=t_op_seae['编号']; 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('请选择要转换业务！！'); exit; end; for i:=0 to dxDBGrid1.SelectedCount-1 do begin t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i])); if t_op_seae.FieldByName('装运方式').asstring='拼箱单票' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前拼箱主票含有分票信息，不能更改为拼箱单票！！'); exit; end; end; if t_op_seae.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前合票主票含有分票信息，不能更改为其他！！'); exit; end; end; if t_op_seae.FieldByName('集装箱').asstring<>''then begin showmessage('此票业务存在集装箱信息不能更改为拼箱单票，如想更改请先将集装箱信息删除！！'); exit; end; t_op_seae.edit; t_op_seae['装运方式']:='拼箱单票'; t_op_seae['主编号']:=t_op_seae['编号']; 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['主编号']:=t_op_seae_fen['编号']; t_op_seae_fen['装运方式']:='拼箱单票'; t_op_seae_fen.post; t_op_seae_fen.Requery(); end; procedure Tfrm_op_seae.N29Click(Sender: TObject); begin if t_op_seae_fen.IsEmpty then exit; t_op_seae_fen.edit; t_op_seae_fen['主编号']:=t_op_seae_fen['编号']; t_op_seae_fen.post; t_op_seae_fen.Requery(); end; procedure Tfrm_op_seae.N9Click(Sender: TObject); begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_op_add_ctn:=tfrm_op_add_ctn.Create (self); frm_op_add_ctn.ShowModal; finally frm_op_add_ctn.Free; end; end; procedure Tfrm_op_seae.bsSkinButton34Click(Sender: TObject); var Pnt:Tpoint; begin Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height)); PopupMenu4.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_op_seae.RxDBLookupCombo19Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo19.DisplayValue='' then exit; if trim(t_op_seae2.DataSet.fieldbyname('代理内容').asstring)=''then t_op_seae2.DataSet['代理内容']:=frm_data_share.t_crm_client_daili['快捷代码']; end; end; procedure Tfrm_op_seae.RxDBLookupCombo11Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo11.DisplayValue='' then exit; if trim(t_op_seae2.DataSet.fieldbyname('货物描述').asstring)=''then t_op_seae2.DataSet['货物描述']:=frm_data_share.t_code_goods['货物描述']; end; end; procedure Tfrm_op_seae.RxDBLookupCombo5Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo5.DisplayValue='' then exit; if trim(t_op_seae2.DataSet.fieldbyname('代理内容').asstring)=''then t_op_seae2.DataSet['代理内容']:=frm_data_share.t_crm_client_daili['快捷代码']; end; end; procedure Tfrm_op_seae.bsSkinButton10Click(Sender: TObject); begin 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('编号').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('对不起，没有托单信息，不能生成EDI文件！'); exit; end; try if not assigned(frm_op_seae_edi_yh) then frm_op_seae_edi_yh:=tfrm_op_seae_edi_yh.Create(application); frm_op_seae_edi_yh.ShowModal; finally frm_op_seae_edi_yh.free; frm_op_seae_edi_yh:=nil; end; end; procedure Tfrm_op_seae.Button1Click(Sender: TObject); begin if t_op_seae2.DataSet.IsEmpty then exit; try frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self); frm_op_seae_vessel.v_vessel_voyage.open; frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo49.text; op_seae_vessel_num:=1; frm_op_seae_vessel.ShowModal; finally frm_op_seae_vessel.Free; frm_op_seae_vessel:=nil; end; end; procedure Tfrm_op_seae.DBEdit18KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo1); end; procedure Tfrm_op_seae.DBEdit14KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit20); end; procedure Tfrm_op_seae.DBEdit20KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit22); end; procedure Tfrm_op_seae.DBEdit22KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit21); end; procedure Tfrm_op_seae.t_op_seae_fenAfterInsert(DataSet: TDataSet); begin t_op_seae_fen['场站']:=t_op_seae['场站']; t_op_seae_fen['船名']:=t_op_seae['船名']; t_op_seae_fen['航次']:=t_op_seae['航次']; t_op_seae_fen['开船日期']:=t_op_seae['开船日期']; t_op_seae_fen['截港日期']:=t_op_seae['截港日期']; t_op_seae_fen['预抵日期']:=t_op_seae['预抵日期']; t_op_seae_fen['起运港']:=t_op_seae['起运港']; t_op_seae_fen['装货港']:=t_op_seae['装货港']; t_op_seae_fen['装港代码']:=t_op_seae['装港代码']; t_op_seae_fen['卸货港']:=t_op_seae['卸货港']; t_op_seae_fen['卸货代码']:=t_op_seae['卸货代码']; t_op_seae_fen['二程开船日期']:=t_op_seae['二程开船日期']; t_op_seae_fen['二程港口']:=t_op_seae['二程港口']; t_op_seae_fen['二程船名']:=t_op_seae['二程船名']; t_op_seae_fen['二程航次']:=t_op_seae['二程航次']; t_op_seae_fen['目的地']:=t_op_seae['目的地']; t_op_seae_fen['交货地点']:=t_op_seae['交货地点']; t_op_seae_fen['交货代码']:=t_op_seae['交货代码']; t_op_seae_fen['提单份数']:=t_op_seae['提单份数']; t_op_seae_fen['签单方式']:=t_op_seae['签单方式']; t_op_seae_fen['签单地点']:=t_op_seae['签单地点']; t_op_seae_fen['签单日期']:=t_op_seae['签单日期']; t_op_seae_fen['付费方式']:=t_op_seae['付费方式']; t_op_seae_fen['预付地点']:=t_op_seae['预付地点']; t_op_seae_fen['到付地点']:=t_op_seae['到付地点']; t_op_seae_fen['运输条款']:=t_op_seae['运输条款']; t_op_seae_fen['唛头']:=t_op_seae['唛头']; t_op_seae_fen['箱号封号']:=t_op_seae['箱号封号']; t_op_seae_fen['航线']:=t_op_seae['航线']; t_op_seae_fen['船公司']:=t_op_seae['船公司']; t_op_seae_fen['货代公司']:=t_op_seae['货代公司']; end; procedure Tfrm_op_seae.DBEdit3Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text); if (DBEdit3.Text='费用封帐') 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('海运出口',DBEdit2.text); end; procedure Tfrm_op_seae.wwDBLookupCombo46Enter(Sender: TObject); begin with frm_data_share do begin t_code_code.Filtered:=false; t_code_code.Filter:='发货人=1'; t_code_code.Filtered:=true; 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:='收货人=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:='通知人=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('代码',wwDBLookupCombo46.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['发货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; if AMSState then begin t_op_ams.Close; t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('编号').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('编号').AsString:=t_op_seae.fieldbyname('编号').AsString; t_op_ams.FieldByName('发货人联系电话').AsString:=frm_data_share.t_code_code.fieldbyname('电话').asstring; t_op_ams.FieldByName('发货人邮箱').AsString:=frm_data_share.t_code_code.fieldbyname('邮箱').asstring; t_op_ams.FieldByName('发货人电传').AsString:=frm_data_share.t_code_code.fieldbyname('传真').asstring; t_op_ams.FieldByName('发货人国家代码').AsString:=frm_data_share.t_code_code.fieldbyname('国家代码').asstring; t_op_ams.FieldByName('发货人企业代码').AsString:=frm_data_share.t_code_code.fieldbyname('企业代码').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('代码',wwDBLookupCombo47.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['收货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; if AMSState then begin t_op_ams.Close; t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('编号').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('编号').AsString:=t_op_seae.fieldbyname('编号').AsString; t_op_ams.FieldByName('收货人联系电话').AsString:=frm_data_share.t_code_code.fieldbyname('电话').asstring; t_op_ams.FieldByName('收货人邮箱').AsString:=frm_data_share.t_code_code.fieldbyname('邮箱').asstring; t_op_ams.FieldByName('收货人电传').AsString:=frm_data_share.t_code_code.fieldbyname('传真').asstring; t_op_ams.FieldByName('收货人国家代码').AsString:=frm_data_share.t_code_code.fieldbyname('国家代码').asstring; t_op_ams.FieldByName('收货人企业代码').AsString:=frm_data_share.t_code_code.fieldbyname('企业代码').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('代码',wwDBLookupCombo48.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['通知人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; if AMSState then begin t_op_ams.Close; t_op_ams.Parameters[0].Value:=t_op_seae.fieldbyname('编号').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('编号').AsString:=t_op_seae.fieldbyname('编号').AsString; t_op_ams.FieldByName('通知人联系电话').AsString:=frm_data_share.t_code_code.fieldbyname('电话').asstring; t_op_ams.FieldByName('通知人邮箱').AsString:=frm_data_share.t_code_code.fieldbyname('邮箱').asstring; t_op_ams.FieldByName('通知人电传').AsString:=frm_data_share.t_code_code.fieldbyname('传真').asstring; t_op_ams.FieldByName('通知人国家代码').AsString:=frm_data_share.t_code_code.fieldbyname('国家代码').asstring; t_op_ams.FieldByName('通知人企业代码').AsString:=frm_data_share.t_code_code.fieldbyname('企业代码').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('代码',wwDBLookupCombo2.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['发货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo5Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo5.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['收货人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo6Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo6.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['通知人代码']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo14); end; procedure Tfrm_op_seae.RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo9); end; procedure Tfrm_op_seae.RxDBLookupCombo12Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo12.DisplayValue='' then exit; if frm_data_share.t_sys_employee.locate('姓名',RxDBLookupCombo12.DisplayValue,[]) then t_op_seae2.DataSet['销售部门']:=frm_data_share.t_sys_employee['部门名称']; end; end; procedure Tfrm_op_seae.RxDBLookupCombo14Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then begin if RxDBLookupCombo14.DisplayValue='' then exit; if frm_data_share.t_sys_employee.locate('姓名',RxDBLookupCombo14.DisplayValue,[]) then t_op_seae2.DataSet['操作部门']:=frm_data_share.t_sys_employee['部门名称']; end; end; procedure Tfrm_op_seae.wwDBComboBox3KeyPress(Sender: TObject; var Key: Char); begin key_RxDBLookupCombo(Key,RxDBLookupCombo10); end; procedure Tfrm_op_seae.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,'业务编号'); end; procedure Tfrm_op_seae.N17Click(Sender: TObject); begin t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 主编号 in (select 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态=' +''''+'录入状态'+''''+')) ' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.bsSkinButton13Click(Sender: TObject); var Pnt:Tpoint; begin Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height)); PopupMenu3.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_op_seae.N34Click(Sender: TObject); begin t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+'))) ' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.N36Click(Sender: TObject); begin t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+'))) ' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.N37Click(Sender: TObject); begin t_op_seae.Close; t_op_seae.SQL.clear; t_op_seae.SQL.Add('select * from t_op_seae where 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_op_state where 是否完成<>1)) ' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.RxDBLookupCombo1Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo1); end; procedure Tfrm_op_seae.RxDBLookupCombo1Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo1); end; procedure Tfrm_op_seae.RxDBLookupCombo9Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo9); end; procedure Tfrm_op_seae.RxDBLookupCombo6Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo6); end; procedure Tfrm_op_seae.RxDBLookupCombo8Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo8); end; procedure Tfrm_op_seae.RxDBLookupCombo7Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo7); end; procedure Tfrm_op_seae.RxDBLookupCombo10Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo10); end; procedure Tfrm_op_seae.RxDBLookupCombo9Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo9); end; procedure Tfrm_op_seae.RxDBLookupCombo6Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo6); end; procedure Tfrm_op_seae.RxDBLookupCombo8Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo8); end; procedure Tfrm_op_seae.RxDBLookupCombo7Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo7); end; procedure Tfrm_op_seae.RxDBLookupCombo10Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo10); end; procedure Tfrm_op_seae.RxDBLookupCombo2Exit(Sender: TObject); begin 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:='代码;签单方式'; end; procedure Tfrm_op_seae.RxDBLookupCombo28Exit(Sender: TObject); begin RxDBLookupCombo28.LookupDisplay:='签单方式'; end; procedure Tfrm_op_seae.RxDBLookupCombo15Enter(Sender: TObject); begin RxDBLookupCombo15.LookupDisplay:='代码;付费方式'; end; procedure Tfrm_op_seae.RxDBLookupCombo15Exit(Sender: TObject); begin RxDBLookupCombo15.LookupDisplay:='付费方式'; end; procedure Tfrm_op_seae.RxDBLookupCombo20Enter(Sender: TObject); begin RxDBLookupCombo20.LookupDisplay:='航线代码;航线'; end; procedure Tfrm_op_seae.RxDBLookupCombo20Exit(Sender: TObject); begin RxDBLookupCombo20.LookupDisplay:='航线'; end; procedure Tfrm_op_seae.RxDBLookupCombo11Enter(Sender: TObject); begin RxDBLookupCombo11.LookupDisplay:='代码;货物名称'; end; procedure Tfrm_op_seae.RxDBLookupCombo11Exit(Sender: TObject); begin RxDBLookupCombo11.LookupDisplay:='货物名称'; end; procedure Tfrm_op_seae.N40Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; bsSkinTabSheet2.show; if if_open('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('对不起，你无权操作费用！！'); end; end; procedure Tfrm_op_seae.N42Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; bsSkinTabSheet7.show; if not assigned(frm_op_seae_state) then 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:='返回列表'; 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:='返回列表'; bsSkinTabSheet6.show; if not assigned(frm_op_seae_assistant) then begin frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self); frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2; frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient); frm_op_seae_assistant.show; end; end; procedure Tfrm_op_seae.Label4Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('委托单位').asstring,frm_data_share.t_crm_client_weituo); end; procedure Tfrm_op_seae.Label23Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('发货人').asstring,frm_data_share.t_crm_client_shiper); end; procedure Tfrm_op_seae.Label24Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('收货人').asstring,frm_data_share.t_crm_client_shouhuo); end; procedure Tfrm_op_seae.Label29Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('通知人').asstring,frm_data_share.t_crm_client_tongzhi); end; procedure Tfrm_op_seae.Label33Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('代理').asstring,frm_data_share.t_crm_client_daili); end; procedure Tfrm_op_seae.Label12Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('场站').asstring,frm_data_share.t_crm_client_changzhan); end; procedure Tfrm_op_seae.Label9Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('船公司').asstring,frm_data_share.t_crm_client_ship); end; procedure Tfrm_op_seae.Label11Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('货代公司').asstring,frm_data_share.t_crm_client_huodai); end; procedure Tfrm_op_seae.Label10Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('报关行').asstring,frm_data_share.t_crm_client_baoguan); end; procedure Tfrm_op_seae.Label8Click(Sender: TObject); begin client_view(t_op_seae2.DataSet.fieldbyname('承运车队').asstring,frm_data_share.t_crm_client_truck); end; procedure Tfrm_op_seae.wwDBLookupCombo2DblClick(Sender: TObject); begin open_code_edit('016'); end; procedure Tfrm_op_seae.Label125Click(Sender: TObject); begin open_code_edit('097'); end; procedure Tfrm_op_seae.Label7Click(Sender: TObject); begin open_code_edit('011'); end; procedure Tfrm_op_seae.Label35Click(Sender: TObject); begin open_code_edit('071'); end; procedure Tfrm_op_seae.Label30Click(Sender: TObject); begin open_code_edit('015'); end; procedure Tfrm_op_seae.Label73Click(Sender: TObject); begin open_code_edit('012'); end; procedure Tfrm_op_seae.Label164Click(Sender: TObject); begin open_code_edit('007'); end; procedure Tfrm_op_seae.wwDBLookupCombo61DblClick(Sender: TObject); begin open_code_edit('013'); end; procedure Tfrm_op_seae.bsSkinButton12Click(Sender: TObject); begin t_op_seae_fen.first; while not t_op_seae_fen.Eof do begin t_op_seae_fen.edit; t_op_seae_fen['箱号封号']:=t_op_seae['箱号封号']; t_op_seae_fen.post; t_op_seae_fen.next; end; end; procedure Tfrm_op_seae.bsSkinButton14Click(Sender: TObject); begin if not (if_open('216') or if_open('217')) then begin showmessage('对不起，你无权操作费用！！'); exit; end; if not assigned(frm_ch_fee_zhupiao) then frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self); frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seae_fen; with frm_ch_fee_zhupiao do begin if if_open('216') then begin fra_fee_zhu1.t_ch_accept.close; fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('编号').asstring; fra_fee_zhu1.t_ch_accept.open; fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae; fra_fee_zhu1.dxDBGrid1.FullExpand; fra_fee_zhu1.bsSkinPanel3.visible:=true; end else fra_fee_zhu1.bsSkinPanel3.visible:=false; if if_open('217') then begin fra_fee_zhu1.t_ch_pay.close; fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('编号').asstring; fra_fee_zhu1.t_ch_pay.open; fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae; fra_fee_zhu1.dxDBGrid2.FullExpand; fra_fee_zhu1.bsSkinPanel4.visible:=true; end else fra_fee_zhu1.bsSkinPanel4.visible:=false; if fra_fee_zhu1.bsSkinPanel3.visible and fra_fee_zhu1.bsSkinPanel4.visible then begin fra_fee_zhu1.t_op_gain.close; fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seae.fieldbyname('编号').asstring; fra_fee_zhu1.t_op_gain.open; fra_fee_zhu1.t_op_gain_fen.close; fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seae.fieldbyname('编号').asstring; fra_fee_zhu1.t_op_gain_fen.open; fra_fee_zhu1.t_op_pin_he.close; fra_fee_zhu1.t_op_pin_he.Parameters[0].value:=t_op_seae.fieldbyname('编号').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('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; t_op_seae.next; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 in '+str+default_sort(53,'t_op_seae','','desc'); frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_seae.t_op_seae.open; frm_ch_piliang_seae.ShowModal; finally t_op_seae.EnableControls; frm_ch_piliang_seae.Free; frm_ch_piliang_seae:=nil; end; end else begin showmessage('你无权进行利润帐单批量打印！！'); end; end; procedure Tfrm_op_seae.N51Click(Sender: TObject); var str:widestring; begin if t_op_seae.IsEmpty then exit; if 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 编号=' +''''+t_op_seae.fieldbyname('编号').AsString+''''; frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_seae.t_op_seae.open; frm_ch_piliang_seae.ShowModal; finally frm_ch_piliang_seae.Free; frm_ch_piliang_seae:=nil; end; end else begin showmessage('你无权进行利润帐单批量打印！！'); end; end; procedure Tfrm_op_seae.N53Click(Sender: TObject); var str:widestring; i:integer; begin if t_op_seae.IsEmpty then exit; if dxDBGrid1.SelectedCount<1 then begin showmessage('请选择要打印的业务帐单！！'); exit; end; if if_open('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('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 in '+str+default_sort(53,'t_op_seae','','desc'); frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_seae.t_op_seae.open; frm_ch_piliang_seae.ShowModal; finally t_op_seae.EnableControls; frm_ch_piliang_seae.Free; frm_ch_piliang_seae:=nil; end; end else begin showmessage('你无权进行利润帐单批量打印！！'); end; end; procedure Tfrm_op_seae.RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char); begin key_dbedit(Key,DBEdit8); end; procedure Tfrm_op_seae.RxDBLookupCombo31Enter(Sender: TObject); begin RxDBLookupCombo31.LookupDisplay:='代码;业务来源'; end; procedure Tfrm_op_seae.RxDBLookupCombo31Exit(Sender: TObject); begin RxDBLookupCombo31.LookupDisplay:='业务来源'; end; procedure Tfrm_op_seae.N58Click(Sender: TObject); begin t_op_seae_huanhuo.DataSource:=t_op_seae2; t_op_seae_huanhuo.Requery(); if t_op_seae_huanhuo.IsEmpty then begin try frm_op_seae_huanhuo_do:=tfrm_op_seae_huanhuo_do.Create (self); t_op_seae_huanhuo.insert; frm_op_seae_huanhuo_do.ShowModal; finally frm_op_seae_huanhuo_do.Free; frm_op_seae_huanhuo_do:=nil; end; end else begin showmessage('此票业务已经确认换货！！'); end; end; procedure Tfrm_op_seae.N60Click(Sender: TObject); begin t_op_seae_huanhuo.DataSource:=t_op_seae2; t_op_seae_huanhuo.Requery(); if t_op_seae_huanhuo.IsEmpty then begin showmessage('此票业务还没有确认换货！！'); end else begin if application.MessageBox('您确定取消换货吗?','警告:',MB_OKCANCEL)=IDOK then t_op_seae_huanhuo.delete; end; end; procedure Tfrm_op_seae.t_op_seae_huanhuoAfterInsert(DataSet: TDataSet); begin t_op_seae_huanhuo['编号']:=t_op_seae_huanhuo.DataSource.DataSet['编号']; t_op_seae_huanhuo['换货客户']:=t_op_seae_huanhuo.DataSource.DataSet['委托单位']; t_op_seae_huanhuo['录入人']:=employee; t_op_seae_huanhuo['录入日期']:=date; end; procedure Tfrm_op_seae.N32Click(Sender: TObject); begin t_op_seae_huanhuo.DataSource:=t_op_seae_fen1; t_op_seae_huanhuo.Requery(); if t_op_seae_huanhuo.IsEmpty then begin try frm_op_seae_huanhuo_do:=tfrm_op_seae_huanhuo_do.Create (self); t_op_seae_huanhuo.insert; t_op_seae_huanhuo['换货客户']:=t_op_seae2.DataSet.fieldbyname('委托单位').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('此票业务已经确认换货！！'); end; end; procedure Tfrm_op_seae.N26Click(Sender: TObject); begin t_op_seae_huanhuo.DataSource:=t_op_seae_fen1; t_op_seae_huanhuo.Requery(); if t_op_seae_huanhuo.IsEmpty then begin showmessage('此票业务还没有确认换货！！'); end else begin if application.MessageBox('您确定取消换货吗?','警告:',MB_OKCANCEL)=IDOK then t_op_seae_huanhuo.delete; end; end; 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:='代理=1'; t_code_code.Filtered:=true; end; end; procedure Tfrm_op_seae.wwDBLookupCombo7Exit(Sender: TObject); begin wwDBLookupCombo7.Clear; end; procedure Tfrm_op_seae.wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo1); end; procedure Tfrm_op_seae.RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char); begin key_wwDBLookupCombo(Key,wwDBLookupCombo7); end; procedure Tfrm_op_seae.wwDBLookupCombo7Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo7.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['代理内容']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo8KeyPress(Sender: TObject; var Key: Char); begin key_DBMemo(Key,DBMemo6); end; procedure Tfrm_op_seae.wwDBLookupCombo8Change(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if frm_data_share.t_code_code.locate('代码',wwDBLookupCombo8.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['代理内容']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo8Exit(Sender: TObject); begin wwDBLookupCombo8.Clear; end; procedure Tfrm_op_seae.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('是否派车').asboolean then begin showmessage('业务已经派车！！'); exit; end; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('请求派车').asboolean then begin if application.MessageBox('业务已经请求派车，你要取消请求吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['请求派车']:=0; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要请求派车吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['请求派车']:=1; t_op_seae2.DataSet.post; { Send_invocie_check_shen('申请调度派车,业务编号:'+t_op_seae2.DataSet.fieldbyname('业务编号').AsString +',主提单号:'+t_op_seae2.DataSet.fieldbyname('主提单号').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('客户简称',RxDBLookupCombo1.DisplayValues[1],[])then begin if frm_data_share.t_crm_client_weituo.fieldbyname('发货人').asboolean then begin t_op_seae2.DataSet['发货人']:=RxDBLookupCombo1.DisplayValues[1]; // t_op_seae2.DataSet['第三方付费']:=RxDBLookupCombo1.DisplayValues[1]; t_op_seae2.DataSet['发货人代码']:=frm_data_share.t_crm_client_weituo.fieldbyname('快捷代码').asstring; end; { if frm_data_share.t_crm_client_weituo.fieldbyname('揽货人').asstring<>''then begin t_op_seae2.DataSet['揽货人']:=frm_data_share.t_crm_client_weituo.fieldbyname('揽货人').asstring; RxDBLookupCombo12Change(Sender); end; } end; end; if frm_data_share.t_crm_client.Locate('客户简称',RxDBLookupCombo1.DisplayValues[1],[]) then if (Trim(frm_data_share.t_crm_client.FieldByName('客户性质').AsString)='其他') then exit; aDate:=t_op_seae2.DataSet.FieldByName('预抵日期').asstring; if (aDate='') then aDate:=FormatDateTime('YYYY-MM-DD',date+30); if t_op_seae2.DataSet.FieldByName('揽货人').asstring<>'' then begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;sql.Clear; sql.Add('Select distinct 揽货人 from t_crm_client_sales where 客户简称='''+RxDBLookupCombo1.DisplayValues[1]+''' and 状态=''审核'' and 开始日期<='''+aDate+''' and 结束日期>='''+aDate+''''); sql.add(' and 揽货人='''+t_op_seae2.DataSet.FieldByName('揽货人').asstring+''''); Open; if IsEmpty then begin t_op_seae2.DataSet.FieldByName('揽货人').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 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 主编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'收'+''''+')' +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 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 主编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'付'+''''+')' +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]='申请删除' then begin AColor:=clBtnFace; AFont.Color:=clred; end else if ANode.Strings[dxDBGrid1Column2.Index]='批准删除' then begin AColor:=clBtnFace; AFont.Color:=clred; end else begin AColor:=dxgrid_color('海运出口',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]='申请删除' then begin AColor:=clBtnFace; AFont.Color:=clred; end else if ANode.Strings[dxDBGrid2Column2.Index]='批准删除' then begin AColor:=clBtnFace; AFont.Color:=clred; end else begin AColor:=dxgrid_color('海运出口',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('数据已经被其它用户修改，当前修改不能保存'+#13#10+'请刷新数据后重新录入'); abort; end; if pos('主提单标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 主提单标准='+''''+t_op_seae['主提单标准']+''''; double_seae(str,1); abort; end; if pos('分提单标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 分提单标准='+''''+t_op_seae['分提单标准']+''''; double_seae(str,2); abort; end; if pos('委托标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 委托标准='+''''+t_op_seae['委托标准']+''''; double_seae(str,3); abort; end; if pos('核销标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 核销标准='+''''+t_op_seae['核销标准']+''''; double_seae(str,4); abort; end; if pos('报关标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 报关标准='+''''+t_op_seae['报关标准']+''''; double_seae(str,5); abort; end; if pos('报检标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 报检标准='+''''+t_op_seae['报检标准']+''''; 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('录入人').asstring ,t_op_seae2.DataSet.FieldByName('操作员').asstring ,t_op_seae2.DataSet.FieldByName('揽货人').asstring ,t_op_seae2.DataSet.FieldByName('客服员').asstring ,t_op_seae2.DataSet.FieldByName('报关操作').asstring ,t_op_seae2.DataSet.FieldByName('报检操作').asstring) then begin showmessage('对不起你无权修改此数据！'); abort; end; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('此票业务状态已经为业务封帐状态，不能修改！'); abort; end; if t_op_seae2.DataSet=nil then exit; if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then t_op_seae2.DataSet.post; try frm_op_date_change:=tfrm_op_date_change.Create (self); frm_op_date_change.DataSource1.Enabled:=false; frm_op_date_change.DataSource1.DataSet:=t_op_seae2.DataSet; frm_op_date_change.DataSource1.Enabled:=true; frm_op_date_change.ShowModal; finally frm_op_date_change.Free; frm_op_date_change:=nil; end; end; procedure Tfrm_op_seae.t_op_seaeAfterPost(DataSet: TDataSet); 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('编号').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 编号=' +''''+t_op_seae.fieldbyname('编号').AsString+''''; frm_op_seae_print_mul.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_op_seae_print_mul.t_op_seae.open; frm_op_seae_print_mul.ShowModal; finally frm_op_seae_print_mul.Free; frm_op_seae_print_mul:=nil; end; end; procedure Tfrm_op_seae.N70Click(Sender: TObject); var str:widestring; i:integer; begin if t_op_seae.IsEmpty then exit; if dxDBGrid1.SelectedCount<1 then begin showmessage('请选择要打印的业务！！'); exit; end; if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_op_seae_print_mul:=tfrm_op_seae_print_mul.Create (self); t_op_seae.DisableControls; for i:=0 to dxDBGrid1.SelectedCount-1 do begin t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i])); if str='' then str:=''''+t_op_seae.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 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('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; t_op_seae.next; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 in '+str+default_sort(53,'t_op_seae','','desc'); frm_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('数据已经被其它用户修改，当前修改不能保存'+#13#10+'请刷新数据后重新录入'); abort; end; if pos('主提单标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 主提单标准='+''''+t_op_seae_fen['主提单标准']+''''; double_seae(str,1); abort; end; if pos('分提单标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 分提单标准='+''''+t_op_seae_fen['分提单标准']+''''; double_seae(str,2); abort; end; if pos('委托标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 委托标准='+''''+t_op_seae_fen['委托标准']+''''; double_seae(str,3); abort; end; if pos('核销标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 核销标准='+''''+t_op_seae_fen['核销标准']+''''; double_seae(str,4); abort; end; if pos('报关标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 报关标准='+''''+t_op_seae_fen['报关标准']+''''; double_seae(str,5); abort; end; if pos('报检标准',UpperCase(E.Message))<>0 then begin str:='select * from t_op_seae where 报检标准='+''''+t_op_seae_fen['报检标准']+''''; double_seae(str,6); abort; end; end; procedure Tfrm_op_seae.wwDBDateTimePicker2Change(Sender: TObject); var aQuery:TAdoQuery; begin if wwDBDateTimePicker2.DataSource.DataSet.FieldByName('费用状态').AsString='费用封帐' 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('是否解锁').asboolean then begin if copy(wwDBDateTimePicker2.DataSource.DataSet.FieldByName('装运方式').AsString,1,4)<>'拼箱'then begin if (date-wwDBDateTimePicker2.DataSource.DataSet.fieldbyname('开船日期').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('开船日期').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('代码',wwDBLookupCombo11.text,[]) then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['附加条款']:=frm_data_share.t_code_tiaokuan.fieldbyname('附加条款').asstring; end; end; procedure Tfrm_op_seae.wwDBLookupCombo11Exit(Sender: TObject); begin wwDBLookupCombo11.TEXT:=''; end; procedure Tfrm_op_seae.wwDBLookupCombo11DblClick(Sender: TObject); begin open_code_edit('188'); end; procedure Tfrm_op_seae.t_op_seaeBeforeEdit(DataSet: TDataSet); begin if (if_open('776')) then begin showmessage('此票业务不能修改！'); 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 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 主编号 not in (select distinct 编号 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 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 主编号 in (select distinct 编号 from t_ch_fee where 费用状态<>'+''''+'结算完毕'+''''+')' +default_sort(53,'t_op_seae','','desc')); t_op_seae.open; end; procedure Tfrm_op_seae.RxDBLookupCombo36Enter(Sender: TObject); begin RxLookupComboEnter(RxDBLookupCombo36); end; procedure Tfrm_op_seae.RxDBLookupCombo36Exit(Sender: TObject); begin RxLookupComboExit(RxDBLookupCombo36); end; procedure Tfrm_op_seae.bsSkinButton39Click(Sender: TObject); begin t_op_seae_fen.first; while not t_op_seae_fen.Eof do begin t_op_seae_fen.edit; t_op_seae_fen['代理']:=t_op_seae['代理']; t_op_seae_fen['代理内容']:=t_op_seae['代理内容']; t_op_seae_fen.post; t_op_seae_fen.next; end; end; procedure Tfrm_op_seae.bsSkinButton42Click(Sender: TObject); begin if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否寄单').asboolean then begin if application.MessageBox('业务已经寄单，你要取消寄单吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否寄单']:=0; t_op_seae2.DataSet['寄单日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要寄单吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否寄单']:=1; t_op_seae2.DataSet['寄单日期']:=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('对不起你没有此模块的操作权限！'); exit; end; if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否退税').asboolean then begin if application.MessageBox('业务已经退税，你要取消退税吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否退税']:=0; t_op_seae2.DataSet['退税日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要退税吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否退税']:=1; t_op_seae2.DataSet['退税日期']:=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('对不起你没有此模块的操作权限！'); exit; end; if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否签单').asboolean then begin if application.MessageBox('业务已经签单，你要取消签单吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否签单']:=0; t_op_seae2.DataSet['签单日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要签单吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否签单']:=1; t_op_seae2.DataSet['签单日期']:=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('对不起你没有此模块的操作权限！'); exit; end; if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否派车').asboolean then begin if application.MessageBox('业务已经派车，你要取消派车吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否派车']:=0; t_op_seae2.DataSet['派车日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要派车吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否派车']:=1; t_op_seae2.DataSet['派车日期']:=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('对不起，没有托单信息，不能生成EDI文件！'); 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('对不起你没有此模块的操作权限！'); 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['合票编号']:=t_op_seae_fen['编号']; t_op_seae_fen['拼箱类型']:='合票单票'; 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('请选择要导出的业务！！'); 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;//是否显示 ExcelTemplet.Workbooks.Open(ExtractFileDir(ParamStr(0))+'\ANE.xls'); ExcelTemplet.WorkSheets[1].Cells[3,4].value:=t_op_seae.FieldByName('船名').AsString; ExcelTemplet.WorkSheets[1].Cells[3,7].value:=t_op_seae.FieldByName('航次').AsString; ExcelTemplet.WorkSheets[1].Cells[3,14].value:=t_op_seae.FieldByName('开船日期').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('主提单号').AsString; ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('装货港').AsString; ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('装货港').AsString; ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('装货港').AsString; ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('装货港').AsString; ExcelTemplet.WorkSheets[1].Cells[7+i,4].value:=t_op_seae.FieldByName('装货港').AsString; ExcelTemplet.WorkSheets[1].Cells[7+i,11].value:=t_op_seae.FieldByName('件数').AsString; ExcelTemplet.WorkSheets[1].Cells[7+i,12].value:=t_op_seae.FieldByName('重量').AsString; ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=t_op_seae.FieldByName('尺码').AsString; sl.Assign(TMemoField(t_op_seae.FieldByName('货物描述'))); ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=sl.Strings[0]; sl.Assign(TMemoField(t_op_seae.FieldByName('辅助字段一'))); if sl.Count>=4 then begin s:=sl.Strings[0]; ExcelTemplet.WorkSheets[1].Cells[7+i,13].value:=t_op_seae.FieldByName('尺码').AsString; end; // ExcelTemplet.WorkSheets[1].Cells[7+i,3].value:=t_op_seae.FieldByName('主提单号').AsString; end; except Showmessage('请确认ANE.xls文件是否存在，或者其他错误；请重起再试。'); ExcelTemplet.DisplayAlerts := false;//是否提示存盘 ExcelTemplet.Quit;//如果出错则退出 end; end; procedure Tfrm_op_seae.N97Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱分票' then exit; if t_op_seae.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前合票主票含有分票信息，不能更改为合票主票！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='合票主票'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.N99Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱主票' then exit; if t_op_seae.FieldByName('装运方式').asstring='拼箱分票' then exit; if t_op_seae.FieldByName('装运方式').asstring='合票主票'then begin if not t_op_seae_fen.IsEmpty then begin showmessage('当前合票主票含有分票信息，不能更改为合票分票！！'); exit; end; end; t_op_seae.edit; t_op_seae['装运方式']:='合票分票'; t_op_seae['主编号']:=t_op_seae['编号']; t_op_seae.post; end; procedure Tfrm_op_seae.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['拼箱类型']:='合票主票'; 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['拼箱类型']:='合票分票'; 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('运价箱型1').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型1').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox16.Checked then aQuery2.SQL.Add('Update t_vessel_plan set C箱型1=C箱型1+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set C箱型1=C箱型1-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox16.Checked then aQuery2.SQL.Add('Update t_vessel_plan set C箱型2=C箱型2+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set C箱型2=C箱型2-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox16.Checked then aQuery2.SQL.Add('Update t_vessel_plan set C箱型3=C箱型3+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set C箱型3=C箱型3-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox16.Checked then aQuery2.SQL.Add('Update t_vessel_plan set C箱型4=C箱型4+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set C箱型4=C箱型4-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox16.Checked then aQuery2.SQL.Add('Update t_vessel_plan set C箱型5=C箱型5+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set C箱型5=C箱型5-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox16.Checked then aQuery2.SQL.Add('Update t_vessel_plan set C箱型6=C箱型6+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set C箱型6=C箱型6-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').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('运价箱型1').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型1').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); t_op_seae.Edit; with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox17.Checked then aQuery2.SQL.Add('Update t_vessel_plan set D箱型1=D箱型1+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set D箱型1=D箱型1-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox17.Checked then aQuery2.SQL.Add('Update t_vessel_plan set D箱型2=D箱型2+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set D箱型2=D箱型2-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox17.Checked then aQuery2.SQL.Add('Update t_vessel_plan set D箱型3=D箱型3+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set D箱型3=D箱型3-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox17.Checked then aQuery2.SQL.Add('Update t_vessel_plan set D箱型4=D箱型4+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set D箱型4=D箱型4-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox17.Checked then aQuery2.SQL.Add('Update t_vessel_plan set D箱型5=D箱型5+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set D箱型5=D箱型5-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox17.Checked then aQuery2.SQL.Add('Update t_vessel_plan set D箱型6=D箱型6+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set D箱型6=D箱型6-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').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('运价箱型1').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型1').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); t_op_seae.Edit; with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox18.Checked then aQuery2.SQL.Add('Update t_vessel_plan set F箱型1=F箱型1+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set F箱型1=F箱型1-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox18.Checked then aQuery2.SQL.Add('Update t_vessel_plan set F箱型2=F箱型2+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set F箱型2=F箱型2-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox18.Checked then aQuery2.SQL.Add('Update t_vessel_plan set F箱型3=F箱型3+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set F箱型3=F箱型3-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox18.Checked then aQuery2.SQL.Add('Update t_vessel_plan set F箱型4=F箱型4+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set F箱型4=F箱型4-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox18.Checked then aQuery2.SQL.Add('Update t_vessel_plan set F箱型5=F箱型5+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set F箱型5=F箱型5-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox18.Checked then aQuery2.SQL.Add('Update t_vessel_plan set F箱型6=F箱型6+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set F箱型6=F箱型6-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').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('运价箱型1').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型1').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); t_op_seae.Edit; with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox19.Checked then aQuery2.SQL.Add('Update t_vessel_plan set X箱型1=X箱型1+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set X箱型1=X箱型1-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox19.Checked then aQuery2.SQL.Add('Update t_vessel_plan set X箱型2=X箱型2+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set X箱型2=X箱型2-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox19.Checked then aQuery2.SQL.Add('Update t_vessel_plan set X箱型3=X箱型3+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set X箱型3=X箱型3-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox19.Checked then aQuery2.SQL.Add('Update t_vessel_plan set X箱型4=X箱型4+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set X箱型4=X箱型4-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox19.Checked then aQuery2.SQL.Add('Update t_vessel_plan set X箱型5=X箱型5+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set X箱型5=X箱型5-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%'''); aQuery2.ExecSQL; end; end; end; if trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring)<>'' then begin cntrstr:=frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring; CntrStr:=StringReplace(CntrStr,'''','''''',[rfReplaceAll]); with aQuery1 do begin Close;SQL.Clear; SQL.Add('select sum(数量) as 数量 from t_op_ctn where 编号='''+t_op_seae1.DataSet.fieldbyName('编号').AsString+''' and 表现形式='''+trim(cntrstr)+''''); Open; if (not IsEmpty) AND (FieldByName('数量').AsInteger>0) then begin aQuery2.Close; aQuery2.SQL.Clear; if bsSkinDBCheckRadioBox19.Checked then aQuery2.SQL.Add('Update t_vessel_plan set X箱型6=X箱型6+'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').AsString+'%''') else aQuery2.SQL.Add('Update t_vessel_plan set X箱型6=X箱型6-'+FieldByName('数量').AsString+' where 船公司='''+GetCorpID(t_op_seae1.DataSet.FieldByName('船公司').AsString)+''' and 船期='''+FormatDateTime('YYYY-MM-DD',t_op_seae1.DataSet.FieldByName('开船日期').Value)+''' and 船名='''+t_op_seae1.DataSet.FieldByName('船名').AsString+''' and 航次 like ''%'+t_op_seae1.DataSet.FieldByName('航次').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代码',RxDBLookupCombo22.DisplayValues[0],[]) then begin t_op_seae2.DataSet['卸货港']:=frm_data_share.t_code_disport.FieldByName('英文名').AsString; t_op_seae2.DataSet['航线']:=frm_data_share.t_code_disport['航线']; 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代码',RxDBLookupCombo21.DisplayValues[0],[]) then begin t_op_seae2.DataSet['装货港']:=frm_data_share.t_code_loaport.FieldByName('英文名').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('对不起，没有托单信息，不能生成EDI文件！'); 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备注'); 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('对不起你没有此模块的操作权限！'); exit; end; if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否商检换证').asboolean then begin if application.MessageBox('业务已经换证，你要取消换证吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否商检换证']:=0; t_op_seae2.DataSet['换证日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要换证吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否商检换证']:=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('对不起你没有此模块的操作权限！'); exit; end; if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否客户入货').asboolean then begin if application.MessageBox('业务已经客户入货，你要取消客户入货吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否客户入货']:=0; t_op_seae2.DataSet['客户入货日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要客户入货吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否客户入货']:=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('对不起你没有此模块的操作权限！'); exit; end; if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否出通关单').asboolean then begin if application.MessageBox('业务已经出证，你要取消出证吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否出通关单']:=0; t_op_seae2.DataSet['出证时间']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要出证吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否出通关单']:=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('对不起你没有此模块的操作权限！'); exit; end; if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否客户派车').asboolean then begin if application.MessageBox('业务已经客户派车，你要取消客户派车吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否客户派车']:=0; t_op_seae2.DataSet['客户派车日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要客户派车吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否客户派车']:=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('对不起你没有此模块的操作权限！'); exit; end; if t_op_seae2.DataSet=nil then exit; if t_op_seae2.DataSet.IsEmpty then exit; if t_op_seae2.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否回货').asboolean then begin if application.MessageBox('业务已经回货，你要取消回货吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否回货']:=0; t_op_seae2.DataSet['回货日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要回货吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否回货']:=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['已订舱'] then t_op_seae['已订舱']:=0 else t_op_seae['已订舱']:=1; t_op_seae.Post; end; procedure Tfrm_op_seae.bsSkinButton52Click(Sender: TObject); begin t_op_seae.Edit; if t_op_seae['已出号'] then t_op_seae['已出号']:=0 else t_op_seae['已出号']:=1; t_op_seae.Post; end; procedure Tfrm_op_seae.bsSkinButton53Click(Sender: TObject); begin t_op_seae.Edit; if t_op_seae['已放箱'] then t_op_seae['已放箱']:=0 else t_op_seae['已放箱']:=1; t_op_seae.Post; end; procedure Tfrm_op_seae.bsSkinButton54Click(Sender: TObject); begin t_op_seae.Edit; if t_op_seae['已背箱'] then t_op_seae['已背箱']:=0 else t_op_seae['已背箱']:=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['开船日期']; 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('费用状态').AsString='费用封帐' then begin wwDBComboBox8.ReadOnly:=TRUE; exit; end; wwDBComboBox8.Items.Clear; if t_op_seae2.DataSet.FieldByName('委托单位').IsNull or (t_op_seae2.DataSet.FieldByName('委托单位').AsString='') then begin showmessage('请先录入委托单位'); exit; end; if frm_data_share.t_crm_client.Locate('客户简称',t_op_seae2.DataSet.FieldByName('委托单位').AsString,[]) then begin if (Trim(frm_data_share.t_crm_client.FieldByName('客户性质').AsString)='其他') then begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;sql.Clear; sql.Add('Select 姓名 from t_sys_employee '); Open; if not IsEmpty then begin first; while not eof do begin wwDBComboBox8.Items.Add(FieldByName('姓名').AsString); Next; end; end else begin end; end; finally FreeAndNil(aQuery); end; end else begin aDate:= t_op_seae2.DataSet.FieldByName('预抵日期').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 揽货人 from t_crm_client_sales where 客户简称='''+t_op_seae2.DataSet.FieldByName('委托单位').AsString+''' and 状态=''审核'' and 开始日期<='''+aDate+''' and 结束日期>='''+aDate+''' '); Open; if not IsEmpty then begin first; while not eof do begin wwDBComboBox8.Items.Add(FieldByName('揽货人').AsString); Next; end; end else begin wwDBComboBox8.Items.Clear; MessageDlg('此委托单位未输入结费账期,请先录入相应揽货人的结费账期!',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('姓名',wwDBComboBox8.text,[]) then t_op_seae2.DataSet['销售部门']:=frm_data_share.t_sys_employee['部门名称']; end; end; procedure Tfrm_op_seae.EDI4Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息，不能生成EDI文件！'); 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('代码',wwDBLookupCombo12.text,[]) then begin t_op_ams1.DataSet.edit; t_op_ams1.DataSet['AMS发货人']:=frm_data_share.t_code_code.fieldbyname('内容').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发货人']:=frm_data_share.t_crm_client_shiper.fieldbyname('快捷代码').asstring; end; end; procedure Tfrm_op_seae.NYKEDI1Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息，不能生成EDI文件！'); 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收货人']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('快捷代码').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('代码',wwDBLookupCombo13.text,[]) then begin t_op_ams1.DataSet.edit; t_op_ams1.DataSet['AMS收货人']:=frm_data_share.t_code_code.fieldbyname('内容').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通知人']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('快捷代码').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('代码',wwDBLookupCombo14.text,[]) then begin t_op_ams1.DataSet.edit; t_op_ams1.DataSet['AMS通知人']:=frm_data_share.t_code_code.fieldbyname('内容').asstring; end; end; procedure Tfrm_op_seae.EDI5Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息，不能生成EDI文件！'); 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('业务状态').AsString='申请删除' then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet.FieldByName('业务状态').AsString:='接受委托'; t_op_seae2.DataSet.post; aQuery:=CreateAdoQuery; try with aQuery do begin close;sql.Clear; sql.Add('delete from t_op_delnote where 编号='''+t_op_seae2.DataSet.Fieldbyname('编号').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('对不起，没有托单信息，不能生成EDI文件！'); 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('你无权批量修改！'); 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 编号=' +''''+t_op_seae.fieldbyname('编号').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('你无权批量修改！'); exit; end; if dxDBGrid1.SelectedCount<1 then begin showmessage('请选择要修改的业务！！'); exit; end; if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_op_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('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 in '+str+default_sort(53,'t_op_seae','','desc'); frm_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('你无权批量修改！'); 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('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; t_op_seae.next; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 in '+str+default_sort(53,'t_op_seae','','desc'); frm_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 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 主编号 in (select distinct 编号 from t_ch_fee where 类型=''付'' and 费用名称=''佣金'' and 费用状态<>'+''''+'结算完毕'+''''+')' +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('对不起，没有托单信息，不能生成EDI文件！'); 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('付费方式').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,'唛头'); end; procedure Tfrm_op_seae.btnDescClick(Sender: TObject); begin frm_main.view_momo(t_op_ctn1,'货物描述'); 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('箱号').asstring+'/'+t_op_ctn.fieldbyname('封号').asstring; memo2.Lines.Text:=t_op_ctn.fieldbyname('件数').asstring+t_op_ctn.fieldbyname('包装').asstring; memo3.Lines.Text:=t_op_ctn.fieldbyname('重量').asstring+'KGS'; memo4.Lines.Text:=t_op_ctn.fieldbyname('尺码').asstring+'CBM'; if_first:=false; end else begin // memo1.Lines.Add(' '); memo1.Lines.Add(t_op_ctn.fieldbyname('箱号').asstring+'/'+t_op_ctn.fieldbyname('封号').asstring); memo2.Lines.Add(' '); memo2.Lines.Add(t_op_ctn.fieldbyname('件数').asstring+t_op_ctn.fieldbyname('包装').asstring); memo3.Lines.Add(' '); memo3.Lines.Add(t_op_ctn.fieldbyname('重量').asstring+'KGS'); memo4.Lines.Add(' '); memo4.Lines.Add(t_op_ctn.fieldbyname('尺码').asstring+'CBM'); end; t_op_ctn.next; end; DBEdit35.DataSource.DataSet.edit; DBEdit35.DataSource.DataSet['箱号封号']:=memo1.Lines.Text; DBEdit35.DataSource.DataSet['件数包装']:=memo2.Lines.Text; DBEdit35.DataSource.DataSet['货物重量']:=memo3.Lines.Text; DBEdit35.DataSource.DataSet['货物尺码']:=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['编号']:=DBEdit35.DataSource.DataSet['编号']; t_op_ctn['数量']:=1; end; procedure Tfrm_op_seae.t_op_ctnAfterDelete(DataSet: TDataSet); begin update_edictn(DBEdit35.DataSource.DataSet,True); UpdateCtnCountFieldName(t_op_seae.FieldByName('编号').AsString); if not (DBEdit35.DataSource.DataSet.State in [dsinsert]) then begin if CheckCtnTotalEquelDetail(TADOQuery(DBEdit35.DataSource.DataSet)) then begin if MessageDlg('装箱明细件、重、尺不等于装箱总数，是否更新？',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('装运方式').asstring='整箱' then begin showmessage('业务集装箱不能为空，你不能删除！！'); abort; end; end; If IsExsitUsdProject(t_op_seae.FieldByName('编号').AsString,t_op_ctn.FieldByName('表现形式').asstring) then begin ShowMessage('海运费方案已经生成,不能修改'); 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('编号').AsString) then begin ShowMessage('海运费方案已经生成,不能修改'); 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('代码',t_op_ctn.fieldbyname('代码').asstring,[]) then begin t_op_ctn['表现形式']:=frm_data_share.t_code_ctn['表现形式']; if frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='20'then t_op_ctn['TEU']:=1*t_op_ctn.FieldByName('数量').asinteger; if (frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='40')OR (frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='45')then t_op_ctn['TEU']:=2*t_op_ctn.FieldByName('数量').asinteger; end else begin t_op_ctn['代码']:=''; t_op_ctn['表现形式']:=''; t_op_ctn['箱型']:=''; t_op_ctn['尺寸']:=''; end; table_before_post(t_op_ctn,'代码'); table_before_post(t_op_ctn,'数量'); 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('表现形式').OldValue<>null then if (t_op_ctn.fieldbyname('表现形式').OldValue<>t_op_ctn.fieldbyname('表现形式').Value) or (t_op_ctn.fieldbyname('数量').OldValue<>t_op_ctn.fieldbyname('数量').Value) then if (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型1').asstring),t_op_ctn.fieldbyname('表现形式').OldValue)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring),t_op_ctn.fieldbyname('表现形式').OldValue)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring),t_op_ctn.fieldbyname('表现形式').OldValue)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring),t_op_ctn.fieldbyname('表现形式').OldValue)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring),t_op_ctn.fieldbyname('表现形式').OldValue)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring),t_op_ctn.fieldbyname('表现形式').OldValue)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型2').asstring),t_op_ctn.fieldbyname('表现形式').Value)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型3').asstring),t_op_ctn.fieldbyname('表现形式').Value)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型4').asstring),t_op_ctn.fieldbyname('表现形式').Value)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型5').asstring),t_op_ctn.fieldbyname('表现形式').Value)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型6').asstring),t_op_ctn.fieldbyname('表现形式').Value)>0) or (Pos(trim(frm_data_share.t_code_line_ctn.fieldbyname('运价箱型1').asstring),t_op_ctn.fieldbyname('表现形式').Value)>0) then begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('Select * from t_ch_fee where 系统费用=1'); sql.add(' and 编号='''+t_op_ctn.FieldByName('编号').AsString+''''); Open; if not IsEmpty then begin MessageDlg('系统已经引入系统费用，如要箱型和箱量请先删除系统费用!',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('代码',wwDBLookupCombo17.text,[]) then begin t_op_ctn['表现形式']:=frm_data_share.t_code_ctn['表现形式']; t_op_ctn['箱型']:=frm_data_share.t_code_ctn['箱型']; t_op_ctn['尺寸']:=frm_data_share.t_code_ctn['尺寸']; end else begin t_op_ctn['表现形式']:=''; t_op_ctn['箱型']:=''; t_op_ctn['尺寸']:=''; end; end; end; procedure Tfrm_op_seae.N124Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息，不能生成EDI文件！'); 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('编号').Value:=DBEdit35.Text; t_op_ctn.Open; end; procedure Tfrm_op_seae.EDI7Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息，不能生成EDI文件！'); 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('对不起，没有托单信息，不能生成EDI文件！'); 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:='唛头字符Num:'+IntToStr(Length(DBMemo38.Lines[DBMemo38.CaretPos.Y])); end; procedure Tfrm_op_seae.DBMemo38Click(Sender: TObject); begin Label106.Caption:='唛头字符Num:'+IntToStr(Length(DBMemo38.Lines[DBMemo38.CaretPos.Y])); end; procedure Tfrm_op_seae.DBMemo39Change(Sender: TObject); begin Label106.Caption:='货物描述Num:'+IntToStr(Length(DBMemo39.Lines[DBMemo39.CaretPos.Y])); end; procedure Tfrm_op_seae.DBMemo39Click(Sender: TObject); begin Label106.Caption:='货物描述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('对不起，没有托单信息，不能生成EDI文件！'); 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('主提单号',t_op_seae.FieldByName('主提单号').AsString,[]); frm_op_seae_edi_data.Notebook1.PageIndex:=1; frm_op_seae_edi_data.bsSkinButton11.Caption:='返回列表'; 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代码 from t_crm_client where 客户简称='''+cust+''''; aQuery.Open; if not aQuery.IsEmpty then result:=aQuery.fieldbyname('EDI代码').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 呼号 from t_code_vessel where 英文船名='''+avessel+''''); Open; if IsEmpty then Result:='a' else Result:=FieldByName('呼号').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('确实要将此票业务生成EDI数据吗？',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 编号=:编号'; t_op_ctn_edi.close; t_op_ctn_edi.sql.Text:='select * from t_op_ctn_edi where 编号=:编号'; aQuerycuststr:=CreateAdoQuery; aQuerycuststr.sql.text:=' select 电话,国家,洲,城市 from t_crm_client where 客户简称=:客户简称'; aQueryShipper.sql.Text:='select * from t_code_edicode where 客户简称=:客户简称'; id:=get_id; t_op_seae_edi.Insert; t_op_seae_edi['编号']:=id; t_op_seae_edi['主编号']:=t_op_seae2.DataSet['编号']; t_op_seae_edi['EDI类型']:='CN'; t_op_seae_edi['EDI状态']:='未发送'; t_op_seae_edi['录入人']:=employee; t_op_seae_edi['录入日期']:=now; t_op_seae_edi['业务编号']:=t_op_seae2.DataSet['业务编号']; t_op_seae_edi['主提单号']:=t_op_seae2.DataSet['主提单号']; t_op_seae_edi['分提单号']:=t_op_seae2.DataSet['分提单号']; t_op_seae_edi['付费方式']:=t_op_seae2.DataSet['付费方式']; t_op_seae_edi['签单地点']:=t_op_seae2.DataSet['签单地点']; t_op_ams.Close; t_op_ams.parameters[0].value:= t_op_seae['编号']; t_op_ams.open; t_op_seae_edi['发货人企业代码'] := t_op_ams['发货人企业代码']; t_op_seae_edi['发货人电话'] := t_op_ams['发货人联系电话']; t_op_seae_edi['发货人邮箱'] := t_op_ams['发货人邮箱']; t_op_seae_edi['发货人国家代码'] := t_op_ams['发货人国家代码']; t_op_seae_edi['收货人企业代码'] := t_op_ams['收货人企业代码']; t_op_seae_edi['收货人电话'] := t_op_ams['收货人联系电话']; t_op_seae_edi['收货人邮箱'] := t_op_ams['收货人邮箱']; t_op_seae_edi['收货人国家代码'] := t_op_ams['收货人国家代码']; t_op_seae_edi['通知人企业代码'] := t_op_ams['通知人企业代码']; t_op_seae_edi['通知人电话'] := t_op_ams['通知人联系电话']; t_op_seae_edi['通知人邮箱'] := t_op_ams['通知人邮箱']; t_op_seae_edi['通知人国家代码'] := t_op_ams['通知人国家代码']; t_op_seae_edi['发货人代码']:=t_op_seae2.DataSet['发货人代码']; t_op_seae_edi['船公司代码']:=getcustedi(t_op_seae2.DataSet.fieldbyname('船公司').AsString); TempStr.Text:=t_op_seae2.DataSet.fieldbyname('发货人代码').AsString; if TempStr.Count>=1 then t_op_seae_edi['发货人名称']:=TempStr.Strings[0]; if TempStr.Count>=2 then t_op_seae_edi['发货人地址1']:=TempStr.Strings[1]; if TempStr.Count>=3 then t_op_seae_edi['发货人地址2']:=TempStr.Strings[2]; if TempStr.Count>=4 then t_op_seae_edi['发货人地址3']:=TempStr.Strings[3]; t_op_seae_edi['发货人']:=t_op_seae2.DataSet.FieldByName('发货人').AsString; if t_op_seae2.DataSet.FieldByName('发货人').AsString<>'' then begin aQueryShipper.Close; aQueryShipper.Parameters.ParamByName('客户简称').Value:=t_op_seae2.DataSet.FieldByName('发货人').AsString; aQueryShipper.Open; if not aQueryShipper.IsEmpty then begin t_op_seae_edi.fieldbyname('发货人名称').AsString:=aQueryShipper.FieldByName('名称').AsString; t_op_seae_edi.fieldbyname('发货人地址1').AsString:=aQueryShipper.FieldByName('地址1').AsString; t_op_seae_edi.fieldbyname('发货人地址2').AsString:=aQueryShipper.FieldByName('地址2').AsString; t_op_seae_edi.fieldbyname('发货人地址3').AsString:=aQueryShipper.FieldByName('地址3').AsString; t_op_seae_edi.fieldbyname('发货人城市').AsString:=aQueryShipper.FieldByName('城市').AsString; t_op_seae_edi.fieldbyname('发货人邮编').AsString:=aQueryShipper.FieldByName('邮编').AsString; //t_op_seae_edi.fieldbyname('发货人国家代码').AsString:=aQueryShipper.FieldByName('国家代码').AsString; t_op_seae_edi.fieldbyname('发货人联系人').AsString:=aQueryShipper.FieldByName('联系人').AsString; //t_op_seae_edi.fieldbyname('发货人电话').AsString:=aQueryShipper.FieldByName('电话').AsString; t_op_seae_edi.fieldbyname('发货人州').AsString:=aQueryShipper.FieldByName('州').AsString; end else begin aQuerycuststr.close; aQuerycuststr.Parameters.ParamByName('客户简称').Value:=t_op_seae2.DataSet.FieldByName('发货人').AsString; aQuerycuststr.Open; if not aQuerycuststr.IsEmpty then begin t_op_seae_edi['发货人城市']:=aQuerycuststr.fieldbyname('城市').AsString; // t_op_seae_edi['发货人国家代码']:=aQuerycuststr.fieldbyname('国家').AsString; // t_op_seae_edi['发货人电话']:=aQuerycuststr.fieldbyname('电话').AsString; t_op_seae_edi['发货人州']:=aQuerycuststr.fieldbyname('洲').AsString; end; end; end; TempStr.Text:=t_op_seae2.DataSet.fieldbyname('收货人代码').AsString; if TempStr.Count>=1 then t_op_seae_edi['收货人名称']:=TempStr.Strings[0]; if TempStr.Count>=2 then t_op_seae_edi['收货人地址1']:=TempStr.Strings[1]; if TempStr.Count>=3 then t_op_seae_edi['收货人地址2']:=TempStr.Strings[2]; if TempStr.Count>=4 then t_op_seae_edi['收货人地址3']:=TempStr.Strings[3]; t_op_seae_edi['收货人']:=t_op_seae2.DataSet.FieldByName('收货人').AsString; t_op_seae_edi['收货人代码']:=t_op_seae2.DataSet['收货人代码']; if t_op_seae2.DataSet.FieldByName('收货人').AsString<>'' then begin aQueryShipper.Close; aQueryShipper.Parameters.ParamByName('客户简称').Value:=t_op_seae2.DataSet.FieldByName('收货人').AsString; aQueryShipper.Open; if not aQueryShipper.IsEmpty then begin t_op_seae_edi.fieldbyname('收货人名称').AsString:=aQueryShipper.FieldByName('名称').AsString; t_op_seae_edi.fieldbyname('收货人地址1').AsString:=aQueryShipper.FieldByName('地址1').AsString; t_op_seae_edi.fieldbyname('收货人地址2').AsString:=aQueryShipper.FieldByName('地址2').AsString; t_op_seae_edi.fieldbyname('收货人地址3').AsString:=aQueryShipper.FieldByName('地址3').AsString; t_op_seae_edi.fieldbyname('收货人城市').AsString:=aQueryShipper.FieldByName('城市').AsString; t_op_seae_edi.fieldbyname('收货人邮编').AsString:=aQueryShipper.FieldByName('邮编').AsString; // t_op_seae_edi.fieldbyname('收货人国家代码').AsString:=aQueryShipper.FieldByName('国家代码').AsString; t_op_seae_edi.fieldbyname('收货人联系人').AsString:=aQueryShipper.FieldByName('联系人').AsString; // t_op_seae_edi.fieldbyname('收货人电话').AsString:=aQueryShipper.FieldByName('电话').AsString; t_op_seae_edi.fieldbyname('收货人州').AsString:=aQueryShipper.FieldByName('州').AsString; end else begin aQuerycuststr.close; aQuerycuststr.Parameters.ParamByName('客户简称').Value:=t_op_seae2.DataSet.FieldByName('收货人').AsString; aQuerycuststr.Open; if not aQuerycuststr.IsEmpty then begin t_op_seae_edi['收货人城市']:=aQuerycuststr.fieldbyname('城市').AsString; // t_op_seae_edi['收货人国家代码']:=aQuerycuststr.fieldbyname('国家').AsString; // t_op_seae_edi['收货人电话']:=aQuerycuststr.fieldbyname('电话').AsString; t_op_seae_edi['收货人州']:=aQuerycuststr.fieldbyname('洲').AsString; end; end; end; TempStr.Text:=t_op_seae2.DataSet.fieldbyname('通知人代码').AsString; if TempStr.Count>=1 then t_op_seae_edi['通知人名称']:=TempStr.Strings[0]; if TempStr.Count>=2 then t_op_seae_edi['通知人地址1']:=TempStr.Strings[1]; if TempStr.Count>=3 then t_op_seae_edi['通知人地址2']:=TempStr.Strings[2]; if TempStr.Count>=4 then t_op_seae_edi['通知人地址3']:=TempStr.Strings[3]; t_op_seae_edi['通知人']:=t_op_seae2.DataSet.FieldByName('通知人').AsString; t_op_seae_edi['通知人代码']:=t_op_seae2.DataSet['通知人代码']; if t_op_seae2.DataSet.FieldByName('通知人').AsString<>'' then begin aQueryShipper.Close; aQueryShipper.Parameters.ParamByName('客户简称').Value:=t_op_seae2.DataSet.FieldByName('通知人').AsString; aQueryShipper.Open; if not aQueryShipper.IsEmpty then begin t_op_seae_edi.fieldbyname('通知人名称').AsString:=aQueryShipper.FieldByName('名称').AsString; t_op_seae_edi.fieldbyname('通知人地址1').AsString:=aQueryShipper.FieldByName('地址1').AsString; t_op_seae_edi.fieldbyname('通知人地址2').AsString:=aQueryShipper.FieldByName('地址2').AsString; t_op_seae_edi.fieldbyname('通知人地址3').AsString:=aQueryShipper.FieldByName('地址3').AsString; t_op_seae_edi.fieldbyname('通知人城市').AsString:=aQueryShipper.FieldByName('城市').AsString; t_op_seae_edi.fieldbyname('通知人邮编').AsString:=aQueryShipper.FieldByName('邮编').AsString; // t_op_seae_edi.fieldbyname('通知人国家代码').AsString:=aQueryShipper.FieldByName('国家代码').AsString; t_op_seae_edi.fieldbyname('通知人联系人').AsString:=aQueryShipper.FieldByName('联系人').AsString; // t_op_seae_edi.fieldbyname('通知人电话').AsString:=aQueryShipper.FieldByName('电话').AsString; t_op_seae_edi.fieldbyname('通知人州').AsString:=aQueryShipper.FieldByName('州').AsString; end else begin aQuerycuststr.close; aQuerycuststr.Parameters.ParamByName('客户简称').Value:=t_op_seae2.DataSet.FieldByName('通知人').AsString; aQuerycuststr.Open; if not aQuerycuststr.IsEmpty then begin t_op_seae_edi['通知人城市']:=aQuerycuststr.fieldbyname('城市').AsString; // t_op_seae_edi['通知人国家代码']:=aQuerycuststr.fieldbyname('国家').AsString; // t_op_seae_edi['通知人电话']:=aQuerycuststr.fieldbyname('电话').AsString; t_op_seae_edi['通知人州']:=aQuerycuststr.fieldbyname('洲').AsString; end; end; end; t_op_seae_edi['船名']:=t_op_seae2.DataSet['船名']; t_op_seae_edi['船舶IMO']:=GetvesselEdi(t_op_seae2.DataSet.fieldbyname('船名').AsString); t_op_seae_edi['航次']:=t_op_seae2.DataSet['航次']; t_op_seae_edi['开船日期']:=t_op_seae2.DataSet['开船日期']; t_op_seae_edi['预抵日期']:=t_op_seae2.DataSet['预抵日期']; t_op_seae_edi['场站']:=t_op_seae2.DataSet['场站']; t_op_seae_edi['当前状态']:='未发送'; if typeid=3 then begin if t_op_seae['装港代码']='CNTAO' then begin t_op_seae_edi['装货港']:='QingQianWanGang'; t_op_seae_edi['装港代码']:='CNQWG/4258'; end else begin t_op_seae_edi['装货港']:=t_op_seae['装货港']; t_op_seae_edi['装港代码']:=t_op_seae['装港代码']; end; end else begin t_op_seae_edi['装货港']:=t_op_seae['装货港']; t_op_seae_edi['装港代码']:=t_op_seae['装港代码']; end; t_op_seae_edi['卸货港']:=t_op_seae2.DataSet['卸货港']; t_op_seae_edi['卸货代码']:=t_op_seae2.DataSet['卸货代码']; t_op_seae_edi['交货地点']:=t_op_seae2.DataSet['装货港']; t_op_seae_edi['交货代码']:=t_op_seae2.DataSet['装港代码']; t_op_seae_edi['目的地']:=t_op_seae2.DataSet['目的地']; t_op_seae_edi['目的代码']:=t_op_seae2.DataSet['目的地代码']; t_op_seae_edi['运输条款']:=t_op_seae2.DataSet['运输条款']; t_op_seae_edi['唛头']:=t_op_seae2.DataSet['唛头']; t_op_seae_edi['货物描述']:=t_op_seae2.DataSet['货物描述']; t_op_seae_edi['件数']:=t_op_seae2.DataSet['件数']; t_op_seae_edi['包装']:=t_op_seae2.DataSet['包装']; t_op_seae_edi['重量']:=t_op_seae2.DataSet['重量']; t_op_seae_edi['尺码']:=t_op_seae2.DataSet['尺码']; t_op_seae_edi['危险品分类']:=t_op_seae2.DataSet['危险品分类']; t_op_seae_edi['危险品编号']:=t_op_seae2.DataSet['危险品编号']; t_op_seae_edi['冷藏通风量']:=t_op_seae2.DataSet['冷藏通风量']; t_op_seae_edi['温度单位']:=t_op_seae2.DataSet['温度单位']; t_op_seae_edi['设置温度']:=t_op_seae2.DataSet['设置温度']; t_op_seae_edi['最低温度']:=t_op_seae2.DataSet['最低温度']; t_op_seae_edi['最高温度']:=t_op_seae2.DataSet['最高温度']; t_op_seae_edi['货物标识']:=t_op_seae2.DataSet['货物标识']; t_op_seae_edi['运费协议号']:=t_op_seae2.DataSet['运费协议号']; t_op_seae_edi['湿度']:=t_op_seae2.DataSet['湿度']; // t_op_seae_edi['订舱号码']:=t_op_seae2.DataSet['订舱单号']; t_op_seae_edi['传输目的']:='A'; if Pos('拼箱', t_op_seae2.DataSet.FieldByName('装运方式').AsString)>0 then begin t_op_seae_edi['装运类型']:='LCL'; t_op_seae_edi['是否最后分票']:=0; end else begin t_op_seae_edi['装运类型']:='FCL'; t_op_seae_edi['是否最后分票']:=1; end; t_op_seae_edi['运输方式']:=t_op_seae2.DataSet['运输方式']; t_op_seae_edi['文件类型']:='Master'; t_op_seae_edi.Post; aQuery.Close; aQuery.Parameters.ParamByName('编号').Value:=t_op_seae2.DataSet.fieldbyname('编号').AsString; aQuery.Open; t_op_ctn_edi.Close; t_op_ctn_edi.Parameters.ParamByName('编号').Value:=id; t_op_ctn_edi.Open; if aQuery.IsEmpty then begin aQuery.Close; aQuery.Parameters.ParamByName('编号').Value:=t_op_seae2.DataSet.fieldbyname('主编号').AsString; aQuery.Open; end; aQuery.First; while not aQuery.Eof do begin t_op_ctn_edi.Insert; t_op_ctn_edi['编号']:=id; t_op_ctn_edi['代码']:=aQuery['代码']; t_op_ctn_edi['尺寸']:=aQuery['尺寸']; t_op_ctn_edi['箱型']:=aQuery['箱型']; t_op_ctn_edi['数量']:=1; t_op_ctn_edi['表现形式']:=aQuery['表现形式']; t_op_ctn_edi['箱号']:=aQuery['箱号']; t_op_ctn_edi['封号']:=aQuery['封号']; t_op_ctn_edi['件数']:=aQuery['件数']; t_op_ctn_edi['包装']:=aQuery['包装']; t_op_ctn_edi['重量']:=aQuery['重量']; t_op_ctn_edi['尺码']:=aQuery['尺码']; t_op_ctn_edi['货描']:=aQuery['货物描述']; t_op_ctn_edi['唛头']:=aQuery['唛头']; if frm_data_share.t_code_ctn.Locate('代码',t_op_ctn_edi.fieldbyname('代码').asstring,[]) then begin if frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='20'then t_op_ctn_edi['TEU']:=1; if (frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='40')OR (frm_data_share.t_code_ctn.FieldByName('尺寸').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['件数']:=aQuery['件数']; t_op_ctn_detail_edi['包装']:=aQuery['包装']; t_op_ctn_detail_edi['重量']:=aQuery['重量']; t_op_ctn_detail_edi['尺码']:=aQuery['尺码']; t_op_ctn_detail_edi.Post; aQuery.Next; end; ShowMessage('生成成功,请到舱单申报模块查看！'); // except // ShowMessage('发生错误,刷新后重试！'); // 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代码 from t_crm_client where 客户简称='''+cust+''''; aQuery.Open; if not aQuery.IsEmpty then result:=aQuery.fieldbyname('EDI代码').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 呼号 from t_code_vessel where 英文船名='''+avessel+''''); Open; if IsEmpty then Result:='a' else Result:=FieldByName('呼号').AsString; end; finally FreeAndNil(aQuery); end; end; begin if t_op_seae.IsEmpty then exit; if dxDBGrid1.SelectedCount<1 then begin showmessage('请选择要生成EDI数据的业务！！'); exit; end; if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; if MessageDlg('确实要将选中的'+inttostr(dxDBGrid1.SelectedCount)+'票业务生成EDI数据吗？',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 编号=:编号'; t_op_ctn_edi.close; t_op_ctn_edi.sql.Text:='select * from t_op_ctn_edi where 编号=:编号'; aQuerycuststr:=CreateAdoQuery; aQuerycuststr.sql.text:=' select 电话,国家,洲,城市 from t_crm_client where 客户简称=:客户简称'; aQueryShipper.sql.Text:='select * from t_code_edicode where 客户简称=:客户简称'; 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['编号']:=id; t_op_seae_edi['主编号']:=t_op_seae['编号']; t_op_seae_edi['EDI类型']:='CN'; t_op_seae_edi['EDI状态']:='未发送'; t_op_seae_edi['录入人']:=employee; t_op_seae_edi['录入日期']:=now; t_op_seae_edi['业务编号']:=t_op_seae['业务编号']; t_op_seae_edi['主提单号']:=t_op_seae['主提单号']; t_op_seae_edi['分提单号']:=t_op_seae['分提单号']; t_op_seae_edi['付费方式']:=t_op_seae['付费方式']; t_op_seae_edi['签单地点']:=t_op_seae['签单地点']; t_op_ams.Close; t_op_ams.parameters[0].value:= t_op_seae['编号']; t_op_ams.open; t_op_seae_edi['发货人企业代码'] := t_op_ams['发货人企业代码']; t_op_seae_edi['发货人电话'] := t_op_ams['发货人联系电话']; t_op_seae_edi['发货人邮箱'] := t_op_ams['发货人邮箱']; t_op_seae_edi['发货人国家代码'] := t_op_ams['发货人国家代码']; t_op_seae_edi['收货人企业代码'] := t_op_ams['收货人企业代码']; t_op_seae_edi['收货人电话'] := t_op_ams['收货人联系电话']; t_op_seae_edi['收货人邮箱'] := t_op_ams['收货人邮箱']; t_op_seae_edi['收货人国家代码'] := t_op_ams['收货人国家代码']; t_op_seae_edi['通知人企业代码'] := t_op_ams['通知人企业代码']; t_op_seae_edi['通知人电话'] := t_op_ams['通知人联系电话']; t_op_seae_edi['通知人邮箱'] := t_op_ams['通知人邮箱']; t_op_seae_edi['通知人国家代码'] := t_op_ams['通知人国家代码']; t_op_seae_edi['发货人代码']:=t_op_seae['发货人代码']; t_op_seae_edi['船公司代码']:=getcustedi(t_op_seae.fieldbyname('船公司').AsString); TempStr.Text:=t_op_seae.fieldbyname('发货人代码').AsString; if TempStr.Count>=1 then t_op_seae_edi['发货人名称']:=TempStr.Strings[0]; if TempStr.Count>=2 then t_op_seae_edi['发货人地址1']:=TempStr.Strings[1]; if TempStr.Count>=3 then t_op_seae_edi['发货人地址2']:=TempStr.Strings[2]; if TempStr.Count>=4 then t_op_seae_edi['发货人地址3']:=TempStr.Strings[3]; t_op_seae_edi['发货人']:=t_op_seae.FieldByName('发货人').AsString; if t_op_seae.FieldByName('发货人').AsString<>'' then begin aQueryShipper.Close; aQueryShipper.Parameters.ParamByName('客户简称').Value:=t_op_seae.FieldByName('发货人').AsString; aQueryShipper.Open; if not aQueryShipper.IsEmpty then begin t_op_seae_edi.fieldbyname('发货人名称').AsString:=aQueryShipper.FieldByName('名称').AsString; t_op_seae_edi.fieldbyname('发货人地址1').AsString:=aQueryShipper.FieldByName('地址1').AsString; t_op_seae_edi.fieldbyname('发货人地址2').AsString:=aQueryShipper.FieldByName('地址2').AsString; t_op_seae_edi.fieldbyname('发货人地址3').AsString:=aQueryShipper.FieldByName('地址3').AsString; t_op_seae_edi.fieldbyname('发货人城市').AsString:=aQueryShipper.FieldByName('城市').AsString; t_op_seae_edi.fieldbyname('发货人邮编').AsString:=aQueryShipper.FieldByName('邮编').AsString; // t_op_seae_edi.fieldbyname('发货人国家代码').AsString:=aQueryShipper.FieldByName('国家代码').AsString; t_op_seae_edi.fieldbyname('发货人联系人').AsString:=aQueryShipper.FieldByName('联系人').AsString; // t_op_seae_edi.fieldbyname('发货人电话').AsString:=aQueryShipper.FieldByName('电话').AsString; t_op_seae_edi.fieldbyname('发货人州').AsString:=aQueryShipper.FieldByName('州').AsString; end else begin aQuerycuststr.close; aQuerycuststr.Parameters.ParamByName('客户简称').Value:=t_op_seae.FieldByName('发货人').AsString; aQuerycuststr.Open; if not aQuerycuststr.IsEmpty then begin t_op_seae_edi['发货人城市']:=aQuerycuststr.fieldbyname('城市').AsString; //t_op_seae_edi['发货人国家代码']:=aQuerycuststr.fieldbyname('国家').AsString; //t_op_seae_edi['发货人电话']:=aQuerycuststr.fieldbyname('电话').AsString; t_op_seae_edi['发货人州']:=aQuerycuststr.fieldbyname('洲').AsString; end; end; end; TempStr.Text:=t_op_seae.fieldbyname('收货人代码').AsString; if TempStr.Count>=1 then t_op_seae_edi['收货人名称']:=TempStr.Strings[0]; if TempStr.Count>=2 then t_op_seae_edi['收货人地址1']:=TempStr.Strings[1]; if TempStr.Count>=3 then t_op_seae_edi['收货人地址2']:=TempStr.Strings[2]; if TempStr.Count>=4 then t_op_seae_edi['收货人地址3']:=TempStr.Strings[3]; t_op_seae_edi['收货人']:=t_op_seae.FieldByName('收货人').AsString; t_op_seae_edi['收货人代码']:=t_op_seae['收货人代码']; if t_op_seae.FieldByName('收货人').AsString<>'' then begin aQueryShipper.Close; aQueryShipper.Parameters.ParamByName('客户简称').Value:=t_op_seae.FieldByName('收货人').AsString; aQueryShipper.Open; if not aQueryShipper.IsEmpty then begin t_op_seae_edi.fieldbyname('收货人名称').AsString:=aQueryShipper.FieldByName('名称').AsString; t_op_seae_edi.fieldbyname('收货人地址1').AsString:=aQueryShipper.FieldByName('地址1').AsString; t_op_seae_edi.fieldbyname('收货人地址2').AsString:=aQueryShipper.FieldByName('地址2').AsString; t_op_seae_edi.fieldbyname('收货人地址3').AsString:=aQueryShipper.FieldByName('地址3').AsString; t_op_seae_edi.fieldbyname('收货人城市').AsString:=aQueryShipper.FieldByName('城市').AsString; t_op_seae_edi.fieldbyname('收货人邮编').AsString:=aQueryShipper.FieldByName('邮编').AsString; // t_op_seae_edi.fieldbyname('收货人国家代码').AsString:=aQueryShipper.FieldByName('国家代码').AsString; t_op_seae_edi.fieldbyname('收货人联系人').AsString:=aQueryShipper.FieldByName('联系人').AsString; // t_op_seae_edi.fieldbyname('收货人电话').AsString:=aQueryShipper.FieldByName('电话').AsString; t_op_seae_edi.fieldbyname('收货人州').AsString:=aQueryShipper.FieldByName('州').AsString; end else begin aQuerycuststr.close; aQuerycuststr.Parameters.ParamByName('客户简称').Value:=t_op_seae.FieldByName('收货人').AsString; aQuerycuststr.Open; if not aQuerycuststr.IsEmpty then begin t_op_seae_edi['收货人城市']:=aQuerycuststr.fieldbyname('城市').AsString; // t_op_seae_edi['收货人国家代码']:=aQuerycuststr.fieldbyname('国家').AsString; // t_op_seae_edi['收货人电话']:=aQuerycuststr.fieldbyname('电话').AsString; t_op_seae_edi['收货人州']:=aQuerycuststr.fieldbyname('洲').AsString; end; end; end; TempStr.Text:=t_op_seae.fieldbyname('通知人代码').AsString; if TempStr.Count>=1 then t_op_seae_edi['通知人名称']:=TempStr.Strings[0]; if TempStr.Count>=2 then t_op_seae_edi['通知人地址1']:=TempStr.Strings[1]; if TempStr.Count>=3 then t_op_seae_edi['通知人地址2']:=TempStr.Strings[2]; if TempStr.Count>=4 then t_op_seae_edi['通知人地址3']:=TempStr.Strings[3]; t_op_seae_edi['通知人']:=t_op_seae.FieldByName('通知人').AsString; t_op_seae_edi['通知人代码']:=t_op_seae['通知人代码']; if t_op_seae.FieldByName('通知人').AsString<>'' then begin aQueryShipper.Close; aQueryShipper.Parameters.ParamByName('客户简称').Value:=t_op_seae.FieldByName('通知人').AsString; aQueryShipper.Open; if not aQueryShipper.IsEmpty then begin t_op_seae_edi.fieldbyname('通知人名称').AsString:=aQueryShipper.FieldByName('名称').AsString; t_op_seae_edi.fieldbyname('通知人地址1').AsString:=aQueryShipper.FieldByName('地址1').AsString; t_op_seae_edi.fieldbyname('通知人地址2').AsString:=aQueryShipper.FieldByName('地址2').AsString; t_op_seae_edi.fieldbyname('通知人地址3').AsString:=aQueryShipper.FieldByName('地址3').AsString; t_op_seae_edi.fieldbyname('通知人城市').AsString:=aQueryShipper.FieldByName('城市').AsString; t_op_seae_edi.fieldbyname('通知人邮编').AsString:=aQueryShipper.FieldByName('邮编').AsString; // t_op_seae_edi.fieldbyname('通知人国家代码').AsString:=aQueryShipper.FieldByName('国家代码').AsString; t_op_seae_edi.fieldbyname('通知人联系人').AsString:=aQueryShipper.FieldByName('联系人').AsString; //t_op_seae_edi.fieldbyname('通知人电话').AsString:=aQueryShipper.FieldByName('电话').AsString; t_op_seae_edi.fieldbyname('通知人州').AsString:=aQueryShipper.FieldByName('州').AsString; end else begin aQuerycuststr.close; aQuerycuststr.Parameters.ParamByName('客户简称').Value:=t_op_seae.FieldByName('通知人').AsString; aQuerycuststr.Open; if not aQuerycuststr.IsEmpty then begin t_op_seae_edi['通知人城市']:=aQuerycuststr.fieldbyname('城市').AsString; // t_op_seae_edi['通知人国家代码']:=aQuerycuststr.fieldbyname('国家').AsString; // t_op_seae_edi['通知人电话']:=aQuerycuststr.fieldbyname('电话').AsString; t_op_seae_edi['通知人州']:=aQuerycuststr.fieldbyname('洲').AsString; end; end; end; t_op_seae_edi['船名']:=t_op_seae['船名']; t_op_seae_edi['船舶IMO']:=GetvesselEdi(t_op_seae.fieldbyname('船名').AsString); t_op_seae_edi['场站']:=t_op_seae['场站']; t_op_seae_edi['当前状态']:='未发送'; t_op_seae_edi['航次']:=t_op_seae['航次']; t_op_seae_edi['开船日期']:=t_op_seae['开船日期']; t_op_seae_edi['预抵日期']:=t_op_seae['预抵日期']; if typeid=3 then begin if t_op_seae['装港代码']='CNTAO' then begin t_op_seae_edi['装货港']:='QingQianWanGang'; t_op_seae_edi['装港代码']:='CNQWG/4258'; end else begin t_op_seae_edi['装货港']:=t_op_seae['装货港']; t_op_seae_edi['装港代码']:=t_op_seae['装港代码']; end; end else begin t_op_seae_edi['装货港']:=t_op_seae['装货港']; t_op_seae_edi['装港代码']:=t_op_seae['装港代码']; end; t_op_seae_edi['卸货港']:=t_op_seae['卸货港']; t_op_seae_edi['卸货代码']:=t_op_seae['卸货代码']; t_op_seae_edi['交货地点']:=t_op_seae['装货港']; t_op_seae_edi['交货代码']:=t_op_seae['装港代码']; t_op_seae_edi['目的地']:=t_op_seae['目的地']; t_op_seae_edi['目的代码']:=t_op_seae['目的地代码']; t_op_seae_edi['运输条款']:=t_op_seae['运输条款']; t_op_seae_edi['唛头']:=t_op_seae['唛头']; t_op_seae_edi['货物描述']:=t_op_seae['货物描述']; t_op_seae_edi['件数']:=t_op_seae['件数']; t_op_seae_edi['包装']:=t_op_seae['包装']; t_op_seae_edi['重量']:=t_op_seae['重量']; t_op_seae_edi['尺码']:=t_op_seae['尺码']; t_op_seae_edi['危险品分类']:=t_op_seae['危险品分类']; t_op_seae_edi['危险品编号']:=t_op_seae['危险品编号']; t_op_seae_edi['冷藏通风量']:=t_op_seae['冷藏通风量']; t_op_seae_edi['温度单位']:=t_op_seae['温度单位']; t_op_seae_edi['设置温度']:=t_op_seae['设置温度']; t_op_seae_edi['最低温度']:=t_op_seae['最低温度']; t_op_seae_edi['最高温度']:=t_op_seae['最高温度']; t_op_seae_edi['货物标识']:=t_op_seae['货物标识']; t_op_seae_edi['运费协议号']:=t_op_seae['运费协议号']; t_op_seae_edi['湿度']:=t_op_seae['湿度']; // t_op_seae_edi['订舱号码']:=t_op_seae['订舱单号']; t_op_seae_edi['传输目的']:='A'; t_op_seae_edi['装运类型']:='FCL'; t_op_seae_edi['是否最后分票']:=1; t_op_seae_edi['运输方式']:=t_op_seae['运输方式']; t_op_seae_edi['文件类型']:='Master'; t_op_seae_edi.Post; aQuery.Close; aQuery.Parameters.ParamByName('编号').Value:=t_op_seae.fieldbyname('编号').AsString; aQuery.Open; aQuery.First; t_op_ctn_edi.Close; t_op_ctn_edi.Parameters.ParamByName('编号').Value:=id; t_op_ctn_edi.Open; while not aQuery.Eof do begin t_op_ctn_edi.Insert; t_op_ctn_edi['编号']:=id; t_op_ctn_edi['代码']:=aQuery['代码']; t_op_ctn_edi['尺寸']:=aQuery['尺寸']; t_op_ctn_edi['箱型']:=aQuery['箱型']; t_op_ctn_edi['数量']:=1; t_op_ctn_edi['表现形式']:=aQuery['表现形式']; t_op_ctn_edi['箱号']:=aQuery['箱号']; t_op_ctn_edi['封号']:=aQuery['封号']; t_op_ctn_edi['件数']:=aQuery['件数']; t_op_ctn_edi['包装']:=aQuery['包装']; t_op_ctn_edi['重量']:=aQuery['重量']; t_op_ctn_edi['尺码']:=aQuery['尺码']; t_op_ctn_edi['货描']:=aQuery['货物描述']; t_op_ctn_edi['唛头']:=aQuery['唛头']; if frm_data_share.t_code_ctn.Locate('代码',t_op_ctn_edi.fieldbyname('代码').asstring,[]) then begin if frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='20'then t_op_ctn_edi['TEU']:=1; if (frm_data_share.t_code_ctn.FieldByName('尺寸').asstring='40')OR (frm_data_share.t_code_ctn.FieldByName('尺寸').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['件数']:=aQuery['件数']; t_op_ctn_detail_edi['包装']:=aQuery['包装']; t_op_ctn_detail_edi['重量']:=aQuery['重量']; t_op_ctn_detail_edi['尺码']:=aQuery['尺码']; t_op_ctn_detail_edi.Post; aQuery.Next; end; end; ShowMessage('生成成功,请到舱单申报模块查看！'); except ShowMessage('发生错误,刷新后重试！'); 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('代码',wwDBLookupCombo17.text,[]) then begin t_op_ctn['表现形式']:=frm_data_share.t_code_ctn['表现形式']; t_op_ctn['箱型']:=frm_data_share.t_code_ctn['箱型']; t_op_ctn['尺寸']:=frm_data_share.t_code_ctn['尺寸']; end else begin t_op_ctn['表现形式']:=''; t_op_ctn['箱型']:=''; t_op_ctn['尺寸']:=''; 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('主提单号',t_op_seae.FieldByName('主提单号').AsString,[]); frm_op_seae_edi_data.Notebook1.PageIndex:=1; frm_op_seae_edi_data.bsSkinButton11.Caption:='返回列表'; end; procedure Tfrm_op_seae.N129Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息！'); 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('主提单号').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('对不起，没有托单信息！'); 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('主提单号').AsString; frm_op_state_igz_one.ctnNo:=t_op_ctn1.dataset.fieldbyname('箱号').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('船代').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('业务状态').asstring)<>'业务封帐' then begin if IsReadOnlyExist(t_op_seae2.DataSet.fieldbyname('编号').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('业务状态').asstring)<>'业务封帐' then begin if IsReadOnlyExistDr(t_op_seae2.DataSet.fieldbyname('编号').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('业务解锁').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('客户简称;揽货人',VarArrayOf([trim(ANode.Strings[dxDBGrid1Column10.Index]),trim(ANode.Strings[dxDBGrid1Column69.Index])]),[]) then begin if trim(frm_data_share.t_crm_client_sales.FieldByName('帐龄状态').AsString)<>'' then begin AColor:=clBtnFace; AFont.Color:=dxgrid_color_fee(frm_data_share.t_crm_client_sales.FieldByName('帐龄状态').AsString); end; end; { if frm_data_share.t_crm_client_weituo.Locate('客户简称',trim(ANode.Strings[dxDBGrid1Column10.Index]),[]) then begin if trim(frm_data_share.t_crm_client_weituo.FieldByName('帐龄状态').AsString)<>'' then begin AColor:=clBtnFace; AFont.Color:=dxgrid_color_fee(frm_data_share.t_crm_client_weituo.FieldByName('帐龄状态').AsString); end; end; } end; procedure Tfrm_op_seae.N131Click(Sender: TObject); begin if frm_data_share.t_crm_client_weituo.Locate('客户简称',trim(t_op_seae2.DataSet.fieldbyname('委托单位').AsString),[]) then begin showmessage(frm_data_share.t_crm_client_weituo.FieldByName('帐龄状态').AsString); end; end; procedure Tfrm_op_seae.bsSkinButton67Click(Sender: TObject); var hdgs, hdgsSPXNO,emptyMES,FX: string; begin fx:=GetBookingFX; if (fx='承运方') then begin ShowMessage('ShippingBox暂不支持转订舱'); Exit; end; //20150724 检查基本信息 如起运港卸货港目的地集装箱为空 则告警退出 emptyMES := ''; if t_op_seae.fieldbyname('装货港').asstring = '' then emptyMES := '装货港'; if t_op_seae.fieldbyname('卸货港').asstring = '' then emptyMES := emptyMES + ' 卸货港'; if t_op_seae.fieldbyname('目的地').asstring = '' then emptyMES := emptyMES + ' 目的地'; if t_op_seae.fieldbyname('集装箱').asstring = '' then emptyMES := emptyMES + ' 集装箱'; if emptyMES <> '' then begin ShowMessage(emptyMES + ' 内容不能为空'); exit; end; try //showmessage(t_op_seae.fieldbyname('货代公司').asstring); hdgs := t_op_seae.fieldbyname('货代公司').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('客户全称').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('订舱序列号').asstring<>'') then begin _s := ''; _s := ''; _s := _s + ' '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' ' + frm_data_share.t_load_employee.fieldbyname('订舱系统序列号').asstring + ' '; _s := _s + ' ' + frm_data_share.t_load_employee.fieldbyname('公司订舱系统序列号').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('订舱序列号').asstring + ' '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' '; //ShowMessage('before send'); if (t_op_seae.fieldbyname('订舱序列号').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('编号').asstring <> '') then begin Close; Parameters.ParambyName('编号1').Value := t_op_seae.fieldbyname('编号').asstring; Parameters.ParambyName('编号2').Value := t_op_seae.fieldbyname('编号').asstring; Parameters.ParambyName('编号3').Value := t_op_seae.fieldbyname('编号').asstring; Parameters.ParambyName('编号4').Value := t_op_seae.fieldbyname('编号').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['函电名称'] := '入货通知'; t_op_letter['HEAD_TO'] := GetCorpCName(t_op_letter.DataSource.DataSet.FieldByName('委托单位').asstring); t_op_letter.Post; t_op_letter_rh.open; t_op_letter_rh.insert; GetRHQry.close; GetRHQry.Parameters.ParamByName('编号').value := t_op_seae2.DataSet.fieldbyname('编号').asstring; GetRHQry.Open; t_op_letter_rh['入货场站'] := GetRHQry.fieldbyname('入货场站').asstring; t_op_letter_rh['入货截至时间'] := GetRHQry.fieldbyname('入货截至时间').asstring; t_op_letter_rh['场站联系人'] := GetRHQry.fieldbyname('场站联系人').asstring; t_op_letter_rh['场站联系电话'] := GetRHQry.fieldbyname('场站联系电话').asstring; t_op_letter_rh['场站联系传真'] := GetRHQry.fieldbyname('场站传真').asstring; t_op_letter_rh['场站地址'] := GetRHQry.fieldbyname('场站地址').asstring; t_op_letter_rh['截单时间'] := GetRHQry.fieldbyname('截单时间').asstring; t_op_letter_rh['出口口岸'] := GetRHQry.fieldbyname('出口口岸').asstring; t_op_letter_rh.post; sys_Simpleprint('海运出口入货通知', sendername, 1, t_op_letter.DataSource, t_op_letter1, DataSource1, GetCtnDS, DataSource2, nil, nil, nil, nil, nil, nil); // sys_print('海运出口'+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('提单样本', 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 );//就是这一行 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='承运方') then begin ShowMessage('该票业务您为承运方，请勿使用委托方功能'); Exit; end; getwebservice_ds; //读取发出订舱单的公司信息 CompanyStr := mServiceSoap_Ds.LoadReceiverCompany(t_op_seae.fieldbyname('订舱序列号').asstring); p1 := frm_data_share.GettimePotion(1, '', CompanyStr); p2 := frm_data_share.GettimePotion(1, '', 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('货代公司').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='承运方') then begin ShowMessage('本票业务您为承运方，请通知发送方点击退舱'); Exit; end; if MessageDlg('确定要退掉此票订舱吗？', mtWarning, [mbyes, mbno], 0) = mryes then begin if InputQueryMEMO('退舱', '退舱的理由:', CancelReason) then begin end; getwebservice_ds; //发送接收信息 _s := ''; _s := _s + ' '; _s := _s + ' '; _s := _s + ' ' + frm_data_share.t_load_employee.fieldbyname('订舱系统序列号').asstring + ' '; _s := _s + ' 7 '; //7 申请退舱 _s := _s + ' ' + datetimetostr(Date) + ' '; _s := _s + ' 1.0 '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('订舱序列号').asstring + ' '; _s := _s + ' ' + CancelReason + ' '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' '; XML := mServiceSoap_Ds.SetBookingCargoSpaceAudit(_s); if (pos('成功', XML) > 0) then begin showmessage('退舱申请成功'); end else begin showmessage('退舱申请失败'); 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='承运方') then begin ShowMessage('该票业务您为承运方，请勿使用委托方功能'); Exit; end; try //hdgs := t_op_seae.fieldbyname('货代公司').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); //将本地信息提交至shippingbox 将其更新 并将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 //首先保存一下 fx:=GetBookingFX; if (fx='委托方') then begin ShowMessage('本票货您为委托方，请勿使用承运方功能'); Exit; end; bsSkinButton2Click(Self); getwebservice_ds; //读取订舱单工作状态，如已被接受或驳回则告警 try if not ASSIGNED(frm_sys_progress) then frm_sys_progress := tfrm_sys_progress.Create(application); frm_sys_progress.bsSkinGauge1.ProgressText := '正在获取数据请等候。。。'; frm_sys_progress.bsSkinGauge1.MaxValue := 5; frm_sys_progress.bsSkinGauge1.MinValue := 0; frm_sys_progress.Show; _s := ' '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' ' + frm_op_seae.t_op_seae.fieldbyname('订舱序列号').asstring + ' '; _s := _s + ' '; _s := _s + ' '; _state := mServiceSoap_Ds.GetBsnoInfo(_s); p1 := frm_data_share.GettimePotion(1, '', _state); p2 := frm_data_share.GettimePotion(1, '', _state); block := Copy(_state, p1, p2 - p1); onlinePosted := '0'; onlinePosted := frm_data_share.GetXMLValue('ISPOSTED', block); //改为首先验证有效值 SendedEmail := false; msg := '注意：'; with t_op_seae do begin if FieldByName('场站').AsString = '' then msg := msg + ' 场站 '; if FieldByName('船名').AsString = '' then msg := msg + ' 船名 '; if FieldByName('航次').AsString = '' then msg := msg + ' 航次 '; if FieldByName('主提单号').AsString = '' then msg := msg + ' 主提单号 '; if FieldByName('开船日期').AsString = '' then msg := msg + ' 开船日期 '; if FieldByName('装货港').AsString = '' then msg := msg + ' 装货港 '; if FieldByName('目的地').AsString = '' then msg := msg + ' 目的地 '; if FieldByName('集装箱').AsString = '' then msg := msg + ' 集装箱 '; if (msg <> '注意：') then begin if MessageDlg(msg + #13#10 + ' 内容为空，是否继续',mtWarning,[mbYes,mbNo],0)<>mrYes then begin Exit; end; end; end; getwebservice_ds; //读取发出订舱单的公司信息 CompanyStr := mServiceSoap_Ds.LoadSenderCompany(t_op_seae.fieldbyname('订舱序列号').asstring); p1 := frm_data_share.GettimePotion(1, '', CompanyStr); p2 := frm_data_share.GettimePotion(1, '', 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('订舱序列号').asstring); p1 := frm_data_share.GettimePotion(1, '', CompanyStr); p2 := frm_data_share.GettimePotion(1, '', 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; //首先生成业务函电，调用simplyprint打印 _TDS := TADOQuery.Create(self); _TDS := SendShippingOrderEmail(sendercompany, sendername, Email, ReceiverCompany, ReceiverName, ReceiverEmail, Mobile); if (not SendedEmail) then Exit; //ShowMessage('begin'); _s := ''; _s := ''; _s := _s + ' '; _s := _s + ' '; _s := _s + ' ' + frm_data_share.t_load_employee.fieldbyname('订舱系统序列号').asstring + ' '; _s := _s + ' ' + frm_data_share.t_load_employee.fieldbyname('公司订舱系统序列号').asstring + ' '; _s := _s + ' 0 '; _s := _s + ' ' + datetimetostr(DT) + ' '; _s := _s + ' 1.0 '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('订舱序列号').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('主提单号').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('开船日期').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('截港日期').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('集装箱').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('船名').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('航次').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('卸货港').asstring + ' '; _s := _s + ' ' + t_op_seae.fieldbyname('截单日期').asstring + ' '; _s := _s + ' ' + frm_op_letter.t_op_letter_rh.fieldbyname('入货场站').AsString + ' '; _s := _s + ' ' + frm_op_letter.t_op_letter_rh.fieldbyname('场站地址').AsString + ' '; _s := _s + ' ' + frm_op_letter.t_op_letter_rh.fieldbyname('场站联系人').AsString + ' '; _s := _s + ' ' + frm_op_letter.t_op_letter_rh.fieldbyname('场站联系电话').AsString + ' '; _s := _s + ' ' + frm_op_letter.t_op_letter_rh.fieldbyname('场站联系传真').AsString + ' '; _s := _s + ' ' + frm_op_letter.t_op_letter_rh.fieldbyname('备注').AsString + ' '; _s := _s + ' '; _s := _s + ' '; _s := _s + ' '; //ShowMessage('before send'); _r := mServiceSoap_Ds.SHIPPINGORDER(_s); //处理返回值 (table:Tadoquery;receiver,spxno,OPType:string); if (pos('提交成功', _r) = 1) then begin //mes:= '提交成功'; //showmessage('提交成功'); Booking_add(_TDS, t_op_seae.fieldbyname('编号').asstring, employee, sendercompany, t_op_seae.fieldbyname('订舱序列号').asstring, '发送 入货通知'); 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 //首先判断自己在本条业务中是否为承运方 如否则退出 如是则允许调用simpleprint getwebservice_ds; //读取发出订舱单的公司信息 CompanyStr := mServiceSoap_Ds.LoadSenderCompany(t_op_seae.fieldbyname('订舱序列号').asstring); p1 := frm_data_share.GettimePotion(1, '', CompanyStr); p2 := frm_data_share.GettimePotion(1, '', 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('订舱序列号').asstring); p1 := frm_data_share.GettimePotion(1, '', CompanyStr); p2 := frm_data_share.GettimePotion(1, '', 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='委托方') then begin ShowMessage('该票业务您为委托方，请勿使用承运方功能'); Exit; end; try //hdgs := t_op_seae.fieldbyname('货代公司').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:='在线订舱列表'; _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('客户全称').AsString); frm_BookingLog.Free; end; end; procedure Tfrm_op_seae.MenuItem3Click(Sender: TObject); begin //点击打开服务端 待接收的业务列表。 try frm_SetCompany:=Tfrm_SetCompany.Create (self); //if (frm_crm_OnLineBooking.GetXML>0) then begin frm_SetCompany.ShowModal; //end else begin // ShowMessage('没有待获取的订舱信息'); //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('编号').AsString,t_op_ctn.FieldByName('表现形式').asstring) then begin ShowMessage('海运费方案已经生成,不能修改'); 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('代码').OnChange:=nil; t_op_ctn.DisableControls; book1:=t_op_ctn.GetBookmark; pkgs:=0; weigth:=0; column:=0; m:=t_op_ctn.fieldByName('数量').AsInteger; if (t_op_ctn.FieldByName('件数').AsInteger<>0) and (m<>0) then pkgs := trunc(t_op_ctn.FieldByName('件数').AsInteger/m) ; if (t_op_ctn.FieldByName('重量').AsFloat<>0) and (m<>0) then weigth:=StrToFloat(FormatFloat('0.0000;-0.0000;0',t_op_ctn.FieldByName('重量').AsFloat/m)) ; if (t_op_ctn.FieldByName('尺码').AsFloat<>0) and (m<>0) then column:=StrToFloat(FormatFloat('0.0000;-0.0000;0',t_op_ctn.FieldByName('尺码').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<>'数量') then t_op_ctn.fields[i].value := afield[i] ; t_op_ctn.FieldByName('件数').AsInteger:=pkgs; t_op_ctn.FieldByName('重量').AsFloat:=weigth; t_op_ctn.FieldByName('尺码').AsFloat:=column; end; end; finally t_op_ctn.GotoBookmark(book1); t_op_ctn.EnableControls; t_op_ctn.Edit; t_op_ctn.fieldByName('数量').AsInteger:=1; t_op_ctn.FieldByName('件数').AsInteger:=pkgs; t_op_ctn.FieldByName('重量').AsFloat:=weigth; t_op_ctn.FieldByName('尺码').AsFloat:=column; t_op_ctn.Post; t_op_ctn.FieldByName('代码').OnChange:=strngfld_op_ctnDSDesigner2Change; end; end; procedure Tfrm_op_seae.EDI9Click(Sender: TObject); begin if t_op_seae.isempty then begin showmessage('对不起，没有托单信息，不能生成EDI文件！'); 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('对不起，没有托单信息，不能生成EDI文件！'); 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('对不起，没有托单信息，不能生成EDI文件！'); exit; end; {if bsSkinPageControl1.ActivePage<>bsSkinTabSheet8 then begin ShowMessage('请在EDI通信界面下操作！'); 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['编号']; t_op_ams.open; } if bsSkinPageControl1.ActivePage = bsSkinTabSheet11 then begin bsno:=QuotedStr(t_op_seae.fieldbyname('业务编号').AsString); if trim(t_op_seae.fieldbyname('业务编号').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('对不起，没有托单信息，不能生成VGM文件！'); 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('对不起，没有托单信息，不能生成VGM文件！'); 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]='扣单') or (ANode.strings[dxDBGrid1Column126.Index]='自动扣单') 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='扣单') or (DBEdit54.Text='自动扣单') 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('对不起，没有托单信息，不能生成EDI文件！'); 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('对不起，没有托单信息，不能生成EDI文件！'); 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('对不起，没有托单信息，不能生成EDI文件！'); 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; //保存文件的路径和文件名 myfileStream, exeBlobStream: TStream; Count, BufSize, N: Integer; Buffer: PChar; begin //下载文件 if not ASSIGNED(frm_sys_progress) then frm_sys_progress := tfrm_sys_progress.Create(self); frm_sys_progress.bsSkinGauge1.ProgressText := '加载数据请等候。。。'; frm_sys_progress.Show; frm_sys_progress.Update; myfilename := fname; with t_op_file do begin myfilename := myfilename; //+fieldbyname('类型').asstring ; myfileStream := TFileStream.Create(myfilename, fmCreate); //创建文件 try //SaveToStream(Stream); exeBlobStream := CreateBlobStream(FieldByName('内容'), bmRead); //从数据库中取得记录 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); //从数据库表中取数据流 myfileStream.WriteBuffer(Buffer^, N); //将数据流写入文件 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 //上传文件 if not ASSIGNED(frm_sys_progress) then frm_sys_progress := tfrm_sys_progress.Create(self); frm_sys_progress.bsSkinGauge1.ProgressText := '加载数据请等候。。。'; frm_sys_progress.Show; frm_sys_progress.Update; filename := ExtractFileName(fname); fileExt := ExtractFileExt(filename); ExeFileStream := TFileStream.Create(fname, fmopenRead); //打开文件 with t_op_file do begin Open; append; try FieldStrm := CreateBlobStream(FieldByName('内容'), 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('名称').AsString := filename; FieldByName('大小').AsFloat := size_tmp; FieldByName('上传日期').AsDateTime := now(); FieldByName('所有者').Asstring := employee; FieldByName('类型').Asstring := fileExt; Post; Application.MessageBox('程序上传至服务器成功!', '提示', 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 := ''; // 将远程资源映射到此驱动器 lpRemoteName := pChar(RemotePathName); // 远程网络资源 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('下载完成！') else showmessage('下载失败'); 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 //上传文件 if not ASSIGNED(frm_sys_progress) then frm_sys_progress := tfrm_sys_progress.Create(self); frm_sys_progress.bsSkinGauge1.ProgressText := '加载数据请等候。。。'; frm_sys_progress.Show; frm_sys_progress.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 := ''; // 将远程资源映射到此驱动器 lpRemoteName := pChar(RemotePathName); // 远程网络资源 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=:编号'); Parameters.ParamByName('编号').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('是否必须').AsBoolean) then begin if not aq_receipt_doc.Locate('RECEIPTTYPE',frm_data_share.t_code_filetype.fieldbyname('文件类型').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 扣单状态='''' where 编号='''+bsno+''''); ExecSQL; end; finally FreeAndNil(aQuery); end; end; // FillType; // Application.MessageBox('程序上传至服务器成功!','提示',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('您确定要上传的附件类型是' + ComboBox1.Text + '吗?'), '警告:', MB_OKCANCEL) = IDOK then begin if OpenDialog1.Execute then begin if Length(Opendialog1.FileName) <= 95 then begin FileStream := TFileStream.Create(Opendialog1.FileName, fmopenRead); //打开文件 try fsize := FileStream.size; finally freeandnil(FileStream); end; { if fsize > 5000000 then begin MessageDlg('文件不能超过5M！！', mtWarning, [mbyes], 0); end else begin } try UpLoadProFile(Opendialog1.FileName, naspath, nasuser, naspwd, t_op_seae.fieldbyname('业务编号').AsString, t_op_seae.fieldbyname('主提单号').AsString, t_op_seae.fieldbyname('开船日期').AsString, t_op_seae.fieldbyname('委托单位').AsString); except on E: Exception do begin ShowMessage('上传文件失败:' + E.Message); exit; end; end; // end; end else begin MessageDlg('文件名太长，不能超过95个字符！！', 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('无权修改别人上传的电子档案'); Exit; end; end; if application.MessageBox('您确定要删除附件吗?', '警告:', 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('不能打开文件，请检查！'); 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('您确定要删除数据吗?','警告:',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['状态类别']:=menu_skins.Hint; t_op_rpastate['顺序']:=menu_skins.Tag; t_op_rpastate['录入人']:=employee; t_op_rpastate['录入日期']:=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('您确定要将电子档案信息更新到查询出来的业务数据中吗?','警告:',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('编号').AsString<>t_op_seae.FieldByName('编号').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('业务编号').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('更新完成！'); 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 大简云代码 EDI代码 from t_crm_client where 客户简称='''+cust+''''; aQuery.Open; if not aQuery.IsEmpty then result:=aQuery.fieldbyname('EDI代码').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 邮箱 from t_sys_employee where 姓名='''+emp+''''; aQuery.Open; if not aQuery.IsEmpty then result:=aQuery.fieldbyname('邮箱').AsString; finally FreeAndNil(aQuery); end; end; begin str:=str+'{'; str:=str+'"COMPANY_NAME":"'+frm_data_share.t_sys_company.fieldbyname('全称').AsString+'"'; str:=str+',"BOOKINGS":['; str:=str+'{'; aAdoQuery:=CreateAdoQuery; TempStr:=TStringList.Create; try str:=str+'"BSNO":"'+ frm_op_seae.t_op_seae.FieldByName('业务编号').asstring+'"'; str:=str+',"CUST_NO":"'+ frm_op_seae.t_op_seae.FieldByName('业务编号').asstring+'"'; str:=str+',"MBLNO":"'+ frm_op_seae.t_op_seae.FieldByName('主提单号').asstring+'"'; str:=str+',"HBLNO":"'+ frm_op_seae.t_op_seae.FieldByName('分提单号').asstring+'"'; str:=str+',"CONTRACTNO":"'+ frm_op_seae.t_op_seae.FieldByName('运费协议号').asstring+'"'; str:=str+',"SHIPPER":"'+ StringReplace(frm_op_seae.t_op_seae.FieldByName('发货人代码').asstring,'"','\"',[rfReplaceAll])+'"'; str:=str+',"CONSIGNEE":"'+ StringReplace(frm_op_seae.t_op_seae.FieldByName('收货人代码').asstring,'"','\"',[rfReplaceAll])+'"'; str:=str+',"NOTIFYPARTY":"'+ StringReplace(frm_op_seae.t_op_seae.FieldByName('通知人代码').asstring,'"','\"',[rfReplaceAll])+'"'; str:=str+',"NOTIFYPARTY2":""'; str:=str+',"YARD":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('场站').asstring)+'"'; str:=str+',"VESSEL":"'+ frm_op_seae.t_op_seae.FieldByName('船名').asstring+'"'; str:=str+',"VOYNO":"'+ frm_op_seae.t_op_seae.FieldByName('航次').asstring+'"'; str:=str+',"VoynoInner":""'; str:=str+',"ETD":"'+ frm_op_seae.t_op_seae.FieldByName('开船日期').asstring+'"'; str:=str+',"CLOSINGDATE":"'+ frm_op_seae.t_op_seae.FieldByName('截港日期').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('卸货代码').asstring+'"'; str:=str+',"PORTDISCHARGE":"'+ frm_op_seae.t_op_seae.FieldByName('卸货港').asstring+'"'; str:=str+',"PLACEDELIVERYID":"'+ frm_op_seae.t_op_seae.FieldByName('交货代码').asstring+'"'; str:=str+',"PLACEDELIVERY":"'+ frm_op_seae.t_op_seae.FieldByName('交货地点').asstring+'"'; str:=str+',"DESTINATIONID":"'+ frm_op_seae.t_op_seae.FieldByName('目的地代码').asstring+'"'; str:=str+',"DESTINATION":"'+ frm_op_seae.t_op_seae.FieldByName('目的地').asstring+'"'; str:=str+',"NOBILL":"'+ frm_op_seae.t_op_seae.FieldByName('提单份数').asstring+'"'; str:=str+',"COPYNOBILLL":"'+ frm_op_seae.t_op_seae.FieldByName('副本提单份数').asstring+'"'; str:=str+',"ISSUETYPE":"'+ frm_op_seae.t_op_seae.FieldByName('签单方式').asstring+'"'; str:=str+',"ISSUEDATE":"'+ frm_op_seae.t_op_seae.FieldByName('签单日期').asstring+'"'; if (frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring<>'') then begin str:=str+',"ISSUEPLACEID":"'+GetPortEdiID(trim(frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring))+'"'; str:=str+',"ISSUEPLACE":"'+ frm_op_seae.t_op_seae.FieldByName('签单地点').asstring+'"'; end else begin str:=str+',"ISSUEPLACEID":"CNTAO"'; str:=str+',"ISSUEPLACE":"QINGDAO,CHINA"'; end; str:=str+',"BLFRT":"'+ frm_op_seae.t_op_seae.FieldByName('付费方式').asstring+'"'; str:=str+',"PREPARDAT":"'+ frm_op_seae.t_op_seae.FieldByName('预付地点').asstring+'"'; str:=str+',"PAYABLEAT":"'+ frm_op_seae.t_op_seae.FieldByName('到付地点').asstring+'"'; str:=str+',"SERVICE":"'+ frm_op_seae.t_op_seae.FieldByName('运输条款').asstring+'"'; str:=str+',"MARKS":"'+StringReplace(frm_op_seae.t_op_seae.FieldByName('唛头').asstring,'"','\"',[rfReplaceAll])+'"'; str:=str+',"HSCODE":"'+ frm_op_seae.t_op_seae.FieldByName('运输方式').asstring+'"'; str:=str+',"DESCRIPTION":"'+ StringReplace(frm_op_seae.t_op_seae.FieldByName('货物描述').asstring,'"','\"',[rfReplaceAll])+'"'; str:=str+',"PKGS":'+ frm_op_seae.t_op_seae.FieldByName('件数').asstring; str:=str+',"KINDPKGS":"'+ frm_op_seae.t_op_seae.FieldByName('包装').asstring+'"'; str:=str+',"KGS":'+ frm_op_seae.t_op_seae.FieldByName('重量').asstring; str:=str+',"CBM":'+ frm_op_seae.t_op_seae.FieldByName('尺码').asstring; str:=str+',"CARRIER":"'+frm_op_seae.t_op_seae.FieldByName('船公司').asstring+'"'; str:=str+',"CARGOID":"'+ frm_op_seae.t_op_seae.FieldByName('货物标识').asstring+'"'; str:=str+',"DCLASS":"'+ frm_op_seae.t_op_seae.FieldByName('危险品分类').asstring+'"'; str:=str+',"DUNNO":"'+ frm_op_seae.t_op_seae.FieldByName('危险品编号').asstring+'"'; str:=str+',"DPAGE":""'; str:=str+',"DLABEL":""'; str:=str+',"LINKMAN":""'; if (frm_op_seae.t_op_seae.FieldByName('货物标识').asstring='R') then str:=str+',"TEMPID":"C"' else str:=str+',"TEMPID":""'; str:=str+',"TEMPSET":"'+ frm_op_seae.t_op_seae.FieldByName('设置温度').asstring+'"'; str:=str+',"REEFERF":"'+ frm_op_seae.t_op_seae.FieldByName('冷藏通风量').asstring+'"'; str:=str+',"HUMIDITY":""'; if frm_op_seae.t_op_seae.fieldbyname('是否自有箱').asboolean then str:=str+',"ISCONTAINERSOC":true' else str:=str+',"ISCONTAINERSOC":false'; strsql:='select * from t_op_ams where 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39; aAdoQuery.Close; aAdoQuery.SQL.Text:=strsql; aAdoQuery.Open; str:=str+',"REMARK":""'; str:=str+',"EDIREMARK":"'+ frm_op_seae.t_op_seae.FieldByName('EDI备注').asstring+'"'; str:=str+',"YardRemark":""'; str:=str+',"PONO":"'+ frm_op_seae.t_op_seae.FieldByName('委托编号').asstring+'"'; str:=str+',"TOTALNO":"'+ frm_op_seae.t_op_seae.FieldByName('件数大写').asstring+'"'; str:=str+',"TEMPMIN":"'+ frm_op_seae.t_op_seae.FieldByName('最低温度').asstring+'"'; str:=str+',"TEMPMAX":"'+ frm_op_seae.t_op_seae.FieldByName('最高温度').asstring+'"'; str:=str+',"OP":"'+ frm_op_seae.t_op_seae.FieldByName('操作员').asstring+'"'; str:=str+',"DOC":""'; str:=str+',"SALE":""'; str:=str+',"CUSTSERVICE":""'; str:=str+',"VGM_TIME":""'; str:=str+',"CUSTOMERNAME":"'+ frm_op_seae.t_op_seae.FieldByName('委托单位').asstring+'"'; str:=str+',"EMAIL":"'+getempemail(frm_op_seae.t_op_seae.FieldByName('操作员').asstring)+'"'; str:=str+',"FORWARDER":"'+ frm_op_seae.t_op_seae.FieldByName('货代公司').asstring+'"'; str:=str+',"SHIPAGENCY":""'; str:=str+',"CUSTOMSER":""'; str:=str+',"TRUCKER":""'; str:=str+',"AGENTID":""'; str:=str+',"CARRIERID":"'+ getcustedi(frm_op_seae.t_op_seae.FieldByName('船公司').asstring)+'"'; str:=str+',"YARDID":"'+ getcustedi(frm_op_seae.t_op_seae.FieldByName('场站').asstring)+'"'; str:=str+',"YardContract":""'; str:=str+',"CUSTOMERID":""'; str:=str+',"FORWARDERID":""'; str:=str+',"SHIPAGENCYID":"'+frm_op_seae.t_op_seae.FieldByName('船代').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('预付地点').asstring)+'"'; str:=str+',"PAYABLEAT_ID":"'+GetPortEdiID(frm_op_seae.t_op_seae.fieldbyname('到付地点').asstring)+'"'; str:=str+',"FEE_SELF":false'; { if (frm_op_seae.t_op_seae.FieldByName('场站').asstring='港捷丰场站(FF)') or (frm_op_seae.t_op_seae.FieldByName('场站').asstring='捷丰场站') then begin if (frm_op_seae.t_op_seae.FieldByName('防伪').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 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').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('表现形式').asstring,'''','',[])+'"'; str:=str+',"CTNNUM":'+aAdoQuery.FieldByName('数量').asstring; str:=str+',"CNTRNO":"'+aAdoQuery.FieldByName('箱号').asstring+'"'; str:=str+',"SEALNO":"'+aAdoQuery.FieldByName('封号').asstring+'"'; str:=str+',"PKGS":"'+aAdoQuery.FieldByName('件数').asstring+'"'; str:=str+',"KINDPKGS":"'+aAdoQuery.FieldByName('包装').asstring+'"'; str:=str+',"KGS":"'+aAdoQuery.FieldByName('重量').asstring+'"'; str:=str+',"CBM":"'+aAdoQuery.FieldByName('尺码').asstring+'"'; str:=str+',"TAREWEIGHT":'+aAdoQuery.FieldByName('皮重').asstring; str:=str+',"WEIGHTYPE":"累加"'; str:=str+',"WEIGHKGS":'+aAdoQuery.FieldByName('称重重量').asstring; str:=str+',"REMARK":""'; str:=str+'}'; isfirst:=false; aAdoQuery.Next; end; str:=str+']'; if (frm_data_share.t_crm_client_all.Locate('客户简称',frm_op_seae.t_op_seae.FieldByName('委托单位').asstring,[])) then begin str:=str+',"CUSTOMER_INFO":{'; str:=str+'"CODENAME":"'+frm_data_share.t_crm_client_all.fieldbyname('代码').AsString+'"'; str:=str+',"SHORTNAME":"'+frm_data_share.t_crm_client_all.fieldbyname('客户简称').AsString+'"'; str:=str+',"DESCRIPTION":"'+frm_data_share.t_crm_client_all.fieldbyname('客户全称').AsString+'"'; str:=str+',"CONTRACT_LIST":['; { if (frm_op_seae.t_op_seae.FieldByName('客户邮件方案').AsString<>'') then begin aAdoQuery.Close; aAdoQuery.SQL.Clear; aAdoQuery.SQL.Add('select * from t_code_cust_mailproject_detail where 方案代码='''+frm_op_seae.t_op_seae.FieldByName('客户邮件方案').AsString+''' and (单据类型=''入货通知'' or 单据类型=''提单及下货纸'' or 单据类型=''费用确认'' )'); 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('收件人').asstring+'"'; if (aAdoQuery.FieldByName('单据类型').asstring='入货通知') then typestr:='BC'; if (aAdoQuery.FieldByName('单据类型').asstring='提单及下货纸') then typestr:='TD'; if (aAdoQuery.FieldByName('单据类型').asstring='费用确认') 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;//请求地址 ResponseStream : TStringStream; //返回信息 ResponseStr: string; RequestStr : string; //请求信息 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('上传大简云船期',frm_op_seae.t_op_seae.FieldByName('船名').asstring+frm_op_seae.t_op_seae.FieldByName('航次').asstring); end; dsstr:=CreateNewDjyCustStr(frm_op_seae.t_op_seae.FieldByName('委托单位').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('上传大简云客户',frm_op_seae.t_op_seae.FieldByName('委托单位').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('主提单号').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('上传大简云',frm_op_seae.t_op_seae.FieldByName('业务编号').asstring); ShowMessage('上传完成！'); 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代码 from t_code_disport where 英文名='''+Port+''''); Open; if not IsEmpty then Result:=Trim(FieldByName('EDI代码').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.英文船名,v.中文船名,v.船公司,v.航线,a.航次,a.开船日期,a.实际开船日期,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('开船日期').AsString<>'') then t_code_voyage.SQL.Add(' and a.开船日期='''+t_op_seae.FieldByName('开船日期').AsString+''''); if (t_op_seae.FieldByName('船公司').AsString<>'') then t_code_voyage.SQL.Add(' and v.船公司='''+t_op_seae.FieldByName('船公司').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('航次',wwDBLookupCombo19.text,[]) then begin t_op_seae2.DataSet['船名']:=t_code_voyage['英文船名']; t_op_seae2.DataSet['ETD']:=t_code_voyage['ETD']; t_op_seae2.DataSet['预抵日期']:=t_code_voyage['实际开船日期']; 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('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否AMS录入').asboolean then begin if application.MessageBox('业务已经AMS录入，你要取消AMS录入吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否AMS录入']:=0; t_op_seae2.DataSet['AMS录入日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要AMS录入吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否AMS录入']:=1; t_op_seae2.DataSet['AMS录入日期']:=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('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否1Y').asboolean then begin if application.MessageBox('业务已经1Y，你要取消1Y吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否1Y']:=0; t_op_seae2.DataSet['1Y日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要1Y吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否1Y']:=1; t_op_seae2.DataSet['1Y日期']:=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('业务状态').asstring='业务封帐' then begin showmessage('当前业务已经封帐！！'); exit; end; if t_op_seae2.DataSet.FieldByName('是否3Z').asboolean then begin if application.MessageBox('业务已经3Z，你要取消3Z吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否3Z']:=0; t_op_seae2.DataSet['3Z日期']:=null; t_op_seae2.DataSet.post; end; end else begin if application.MessageBox('您确定要3Z吗?','警告:',MB_OKCANCEL)=IDOK then begin t_op_seae2.DataSet.edit; t_op_seae2.DataSet['是否3Z']:=1; t_op_seae2.DataSet['3Z日期']:=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 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 主编号 in (select distinct 主编号 from t_op_seae where isnull(是否提交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 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 主编号 in (select distinct 主编号 from t_op_seae where isnull(是否提交舱单,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 主编号=编号 and ' +open_data('0001','录入人','操作员','客服员','报关操作','报检操作') +' and 主编号 in (select distinct 主编号 from t_op_seae where isnull(是否装载放行,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('主提单号').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 大简云代码 EDI代码 from t_crm_client where 客户简称='''+cust+''''; aQuery.Open; if not aQuery.IsEmpty then result:=aQuery.fieldbyname('EDI代码').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 邮箱 from t_sys_employee where 姓名='''+emp+''''; aQuery.Open; if not aQuery.IsEmpty then result:=aQuery.fieldbyname('邮箱').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 大简云代码 from t_sys_employee where 姓名='''+emp+''''; aQuery.Open; if not aQuery.IsEmpty then result:=aQuery.fieldbyname('大简云代码').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('业务编号').asstring+'"'; str:=str+',"bsdate":"'+FormatDateTime('yyyy-mm-dd hh:nn:ss',frm_op_seae.t_op_seae.FieldByName('录入日期').AsDateTime)+'"'; str:=str+',"mblno":"'+ frm_op_seae.t_op_seae.FieldByName('主提单号').asstring+'"'; str:=str+',"hblno":"'+ frm_op_seae.t_op_seae.FieldByName('分提单号').asstring+'"'; str:=str+',"bookingno":"'+ frm_op_seae.t_op_seae.FieldByName('订舱序列号').asstring+'"'; str:=str+',"contractno":"'+ frm_op_seae.t_op_seae.FieldByName('运费协议号').asstring+'"'; str:=str+',"TMBLNO":"'+ frm_op_seae.t_op_seae.FieldByName('真提单号').asstring+'"'; str:=str+',"shipper":"'+ formartjson(trim(frm_op_seae.t_op_seae.FieldByName('发货人代码').asstring))+'"'; str:=str+',"consignee":"'+ formartjson(trim(frm_op_seae.t_op_seae.FieldByName('收货人代码').asstring))+'"'; str:=str+',"notifyparty":"'+ formartjson(trim(frm_op_seae.t_op_seae.FieldByName('通知人代码').asstring))+'"'; str:=str+',"notifyparty2":""'; str:=str+',"yardid":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('场站').asstring)+'"'; str:=str+',"yard":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('场站').asstring)+'"'; str:=str+',"vessel":"'+ frm_op_seae.t_op_seae.FieldByName('船名').asstring+'"'; str:=str+',"voyno":""'; str:=str+',"etd":"'+ frm_op_seae.t_op_seae.FieldByName('开船日期').asstring+'"'; str:=str+',"closingdate":"'+ frm_op_seae.t_op_seae.FieldByName('截港日期').asstring+'"'; str:=str+',"closedocdate":""'; str:=str+',"eta":""'; str:=str+',"placereceiptid":""'; str:=str+',"placereceipt":""'; str:=str+',"portloadid":"'+ frm_op_seae.t_op_seae.FieldByName('装港代码').asstring+'"'; str:=str+',"portload":"'+ frm_op_seae.t_op_seae.FieldByName('装货港').asstring+'"'; str:=str+',"portdischargeid":"'+ frm_op_seae.t_op_seae.FieldByName('卸货代码').asstring+'"'; str:=str+',"portdischarge":"'+ frm_op_seae.t_op_seae.FieldByName('卸货港').asstring+'"'; str:=str+',"placedeliveryid":"'+ frm_op_seae.t_op_seae.FieldByName('交货代码').asstring+'"'; str:=str+',"placedelivery":"'+ frm_op_seae.t_op_seae.FieldByName('交货地点').asstring+'"'; str:=str+',"destinationid":"'+ frm_op_seae.t_op_seae.FieldByName('目的地代码').asstring+'"'; str:=str+',"destination":"'+ frm_op_seae.t_op_seae.FieldByName('目的地').asstring+'"'; str:=str+',"nobill":"'+ frm_op_seae.t_op_seae.FieldByName('提单份数').asstring+'"'; str:=str+',"copynobill":"'+ frm_op_seae.t_op_seae.FieldByName('副本提单份数').asstring+'"'; str:=str+',"issuetype":"'+ frm_op_seae.t_op_seae.FieldByName('签单方式').asstring+'"'; str:=str+',"issuedate":"'+ frm_op_seae.t_op_seae.FieldByName('签单日期').asstring+'"'; str:=str+',"ShippingMethod":"'+ frm_op_seae.t_op_seae.FieldByName('装运方式').asstring+'"'; str:=str+',"CtnDayNum":"'+ frm_op_seae.t_op_seae.FieldByName('箱使堆存').asstring+'"'; if (frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring<>'') then begin str:=str+',"issueplaceid":"'+GetPortEdiID(trim(frm_op_seae.t_op_seae.fieldbyname('签单地点').asstring))+'"'; str:=str+',"issueplace":"'+ frm_op_seae.t_op_seae.FieldByName('签单地点').asstring+'"'; end else begin str:=str+',"issueplaceid":"CNTAO"'; str:=str+',"issueplace":"QINGDAO,CHINA"'; end; str:=str+',"blfrt":"'+ frm_op_seae.t_op_seae.FieldByName('付费方式').asstring+'"'; str:=str+',"prepardat":"'+ frm_op_seae.t_op_seae.FieldByName('预付地点').asstring+'"'; str:=str+',"payableat":"'+ frm_op_seae.t_op_seae.FieldByName('到付地点').asstring+'"'; str:=str+',"service":"'+ frm_op_seae.t_op_seae.FieldByName('运输条款').asstring+'"'; str:=str+',"marks":"'+formartjson(frm_op_seae.t_op_seae.FieldByName('唛头').asstring)+'"'; str:=str+',"hscode":"'+ frm_op_seae.t_op_seae.FieldByName('HS编码').asstring+'"'; str:=str+',"description":"'+ formartjson(Trim(frm_op_seae.t_op_seae.FieldByName('货物描述').asstring))+'"'; if (frm_op_seae.t_op_seae.FieldByName('件数').asstring='') then str:=str+',"pkgs":0' else str:=str+',"pkgs":'+ frm_op_seae.t_op_seae.FieldByName('件数').asstring; str:=str+',"kindpkgs":"'+ frm_op_seae.t_op_seae.FieldByName('包装').asstring+'"'; if (frm_op_seae.t_op_seae.FieldByName('重量').asstring='') then str:=str+',"kgs":0' else str:=str+',"kgs":'+ frm_op_seae.t_op_seae.FieldByName('重量').asstring; if (frm_op_seae.t_op_seae.FieldByName('尺码').asstring='') then str:=str+',"cbm":0' else str:=str+',"cbm":'+ frm_op_seae.t_op_seae.FieldByName('尺码').asstring; str:=str+',"totalno":"'+ frm_op_seae.t_op_seae.FieldByName('件数大写').asstring+'"'; str:=str+',"cntrtotal":"'+ frm_op_seae.t_op_seae.FieldByName('集装箱').asstring+'"'; str:=str+',"carrierid":"'+ getcustedi(frm_op_seae.t_op_seae.FieldByName('船公司').asstring)+'"'; str:=str+',"carrier":"'+frm_op_seae.t_op_seae.FieldByName('船公司').asstring+'"'; str:=str+',"cargoid":"'+ frm_op_seae.t_op_seae.FieldByName('货物标识').asstring+'"'; str:=str+',"dclass":"'+ frm_op_seae.t_op_seae.FieldByName('危险品分类').asstring+'"'; str:=str+',"dunno":"'+ frm_op_seae.t_op_seae.FieldByName('危险品编号').asstring+'"'; str:=str+',"dpage":""'; str:=str+',"dlabel":""'; str:=str+',"linkman":""'; if (frm_op_seae.t_op_seae.FieldByName('货物标识').asstring='R') then str:=str+',"tempid":"C"' else str:=str+',"tempid":""'; str:=str+',"tempset":"'+ frm_op_seae.t_op_seae.FieldByName('设置温度').asstring+'"'; str:=str+',"reeferf":"'+ frm_op_seae.t_op_seae.FieldByName('冷藏通风量').asstring+'"'; str:=str+',"humidity":""'; str:=str+',"tempmin":"'+ frm_op_seae.t_op_seae.FieldByName('最低温度').asstring+'"'; str:=str+',"tempmax":"'+ frm_op_seae.t_op_seae.FieldByName('最高温度').asstring+'"'; if frm_op_seae.t_op_seae.fieldbyname('是否自有箱').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备注').asstring)+'"'; str:=str+',"yardremark":""'; str:=str+',"compid":"'+get_parameters_value(3201,'')+'"'; str:=str+',"compname":"'+frm_data_share.t_sys_company.fieldbyname('全称').AsString+'"'; str:=str+',"pono":"'+ frm_op_seae.t_op_seae.FieldByName('合同号备注').asstring+'"'; str:=str+',"opid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('操作员').asstring)+'"'; str:=str+',"docid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('单证员').asstring)+'"'; str:=str+',"saleid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('揽货人').asstring)+'"'; str:=str+',"op":"'+ frm_op_seae.t_op_seae.FieldByName('操作员').asstring+'"'; str:=str+',"doc":"'+ frm_op_seae.t_op_seae.FieldByName('单证员').asstring+'"'; str:=str+',"ROUTE":"'+ frm_op_seae.t_op_seae.FieldByName('航线操作').asstring+'"'; str:=str+',"ROUTEID":"'+ frm_op_seae.t_op_seae.FieldByName('航线操作').asstring+'"'; str:=str+',"sale":"'+ frm_op_seae.t_op_seae.FieldByName('揽货人').asstring+'"'; str:=str+',"custserviceid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('客服员').asstring)+'"'; str:=str+',"custservice":"'+ frm_op_seae.t_op_seae.FieldByName('客服员').asstring+'"'; str:=str+',"customername":"'+ frm_op_seae.t_op_seae.FieldByName('委托单位').asstring+'"'; str:=str+',"customser":"'+frm_op_seae.t_op_seae.FieldByName('报关行').asstring+'"'; str:=str+',"trucker":"'+frm_op_seae.t_op_seae.FieldByName('承运车队').asstring+'"'; str:=str+',"forwarder":"'+ frm_op_seae.t_op_seae.FieldByName('货代公司').asstring+'"'; str:=str+',"LANECODE":""'; str:=str+',"LANENAME":"'+ frm_op_seae.t_op_seae.FieldByName('备案号').asstring+'"'; str:=str+',"lineName":"'+ frm_op_seae.t_op_seae.FieldByName('航线').asstring+'"'; str:=str+',"CUSTNO":"'+ frm_op_seae.t_op_seae.FieldByName('订舱序列号').asstring+'"'; str:=str+',"voynoinner":"'+ frm_op_seae.t_op_seae.FieldByName('航次').asstring+'"'; { frm_op_seae.t_op_seae.FieldByName('航线').asstring str:=str+',"forwarder":"'+ frm_op_seae.t_op_seae.FieldByName('货代公司').asstring+'"'; str:=str+',"shipagency":"'+frm_op_seae.t_op_seae.FieldByName('船代').asstring+'"'; str:=str+',"customser":"'+frm_op_seae.t_op_seae.FieldByName('报关行').asstring+'"'; str:=str+',"trucker":"'+frm_op_seae.t_op_seae.FieldByName('承运车队').asstring+'"'; str:=str+',"agentname":"'+frm_op_seae.t_op_seae.FieldByName('代理').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('预付地点').asstring)+'"'; str:=str+',"payableatid":"'+GetPortEdiID(frm_op_seae.t_op_seae.fieldbyname('到付地点').asstring)+'"'; str:=str+',"dzRemark":"'+formartjson(frm_op_seae.t_op_seae.fieldbyname('其他备注').AsString)+'"'; str:=str+',"czRemark":"'+formartjson(frm_op_seae.t_op_seae.fieldbyname('占舱备注').AsString)+'"'; strsql:='select * from t_op_state where 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').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('业务状态').asstring+'"'; if aAdoQuery.FieldByName('完成时间').asstring<>'' then str:=str+',"FinishTime":"'+aAdoQuery.FieldByName('完成时间').asstring+'"'; str:=str+',"Remark":"'+aAdoQuery.FieldByName('备注').asstring+'"'; str:=str+'}'; isfirst:=false; aAdoQuery.Next; end; if (frm_op_seae.t_op_seae.fieldbyname('通知到港').AsBoolean) then begin if (isfirst) then str:=str+'{' else str:=str+',{'; str:=str+'"StatusName":"通知到港"'; str:=str+',"Remark":""'; str:=str+'}'; isfirst:=false; end; if (frm_op_seae.t_op_seae.fieldbyname('是否提货').AsBoolean) then begin if (isfirst) then str:=str+'{' else str:=str+',{'; str:=str+'"StatusName":"是否提货"'; str:=str+',"Remark":""'; str:=str+'}'; isfirst:=false; end; if (frm_op_seae.t_op_seae.fieldbyname('是否提交VGM').AsBoolean) then begin if (isfirst) then str:=str+'{' else str:=str+',{'; str:=str+'"StatusName":"提交VGM"'; str:=str+',"Remark":""'; str:=str+'}'; isfirst:=false; end; if (frm_op_seae.t_op_seae.fieldbyname('是否提交舱单').AsBoolean) then begin if (isfirst) then str:=str+'{' else str:=str+',{'; str:=str+'"StatusName":"提交舱单"'; str:=str+',"Remark":""'; str:=str+'}'; isfirst:=false; end; if (frm_op_seae.t_op_seae.fieldbyname('是否装载放行').AsBoolean) then begin if (isfirst) then str:=str+'{' else str:=str+',{'; str:=str+'"StatusName":"装载放行"'; str:=str+',"Remark":""'; str:=str+'}'; isfirst:=false; end; if (frm_op_seae.t_op_seae.fieldbyname('是否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('是否AMS录入').AsBoolean) then begin if (isfirst) then str:=str+'{' else str:=str+',{'; str:=str+'"StatusName":"AMS录入"'; str:=str+',"Remark":""'; str:=str+'}'; isfirst:=false; end; if (frm_op_seae.t_op_seae.fieldbyname('是否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 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').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('表现形式').asstring,'''','',[])+'"'; str:=str+',"ctnnum":'+aAdoQuery.FieldByName('数量').asstring; str:=str+',"cntrno":"'+aAdoQuery.FieldByName('箱号').asstring+'"'; str:=str+',"sealno":"'+aAdoQuery.FieldByName('封号').asstring+'"'; str:=str+',"pkgs":"'+aAdoQuery.FieldByName('件数').asstring+'"'; str:=str+',"kindpkgs":"'+aAdoQuery.FieldByName('包装').asstring+'"'; str:=str+',"kgs":"'+aAdoQuery.FieldByName('重量').asstring+'"'; str:=str+',"cbm":"'+aAdoQuery.FieldByName('尺码').asstring+'"'; if (aAdoQuery.FieldByName('皮重').asstring='') then str:=str+',"tareweight":0' else str:=str+',"tareweight":'+aAdoQuery.FieldByName('皮重').asstring; str:=str+',"weightype":"累加"'; if (aAdoQuery.FieldByName('称重重量').asstring='') then str:=str+',"weighkgs":0' else str:=str+',"weighkgs":'+aAdoQuery.FieldByName('称重重量').asstring; str:=str+',"remark":""'; str:=str+'}'; isfirst:=false; aAdoQuery.Next; end; str:=str+']'; str:=str+',"goodscode":"'+frm_op_seae.t_op_seae.fieldbyname('HS编码').asstring+'"'; str:=str+',"goodsname":"'+frm_op_seae.t_op_seae.fieldbyname('货物名称').asstring+'"'; str:=str+',"createdUserName":"'+frm_op_seae.t_op_seae.FieldByName('录入人').asstring+'"'; strsql:='select * from t_op_ams where 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').asstring+#39; aAdoQuery.Close; aAdoQuery.SQL.Text:=strsql; aAdoQuery.Open; str:=str+',"bookingEDIExt":{'; str:=str+'"weiTuoFang":""'; str:=str+',"shipperEdiCode":"'+formartjson(aAdoQuery.fieldbyname('发货人代码').AsString)+'"'; str:=str+',"consigneeEdiCode":"'+formartjson(aAdoQuery.fieldbyname('收货人代码').AsString)+'"'; str:=str+',"salerCode":"'+aAdoQuery.fieldbyname('销售代码').AsString+'"'; str:=str+',"ediAttn":"'+aAdoQuery.fieldbyname('危险品联系人').AsString+'"'; str:=str+',"ediAttnTel":"'+aAdoQuery.fieldbyname('危险品联系方式').AsString+'"'; str:=str+',"ckhi":"'+aAdoQuery.fieldbyname('欧盟HSCODE').AsString+'"'; str:=str+',"cncm":"'+aAdoQuery.fieldbyname('南美东NCM').AsString+'"'; str:=str+',"wncm":"'+aAdoQuery.fieldbyname('巴西木质包装说明').AsString+'"'; str:=str+',"orderRemark":"'+formartjson(frm_op_seae.t_op_seae.fieldbyname('订舱人说明').AsString)+'"'; str:=str+'}'; str:=str+',"childrens":['; isfirst:=true; strsql:='select * from t_op_seae_assistant where 编号=' +#39+frm_op_seae.t_op_seae.fieldbyname('编号').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('录入日期').AsDateTime)+'"'; str:=str+',"mblno":"'+ aAdoQuery.FieldByName('主提单号').asstring+'"'; str:=str+',"hblno":"'+ aAdoQuery.FieldByName('分提单号').asstring+'"'; str:=str+',"bookingno":"'+ frm_op_seae.t_op_seae.FieldByName('订舱序列号').asstring+'"'; str:=str+',"contractno":"'+ frm_op_seae.t_op_seae.FieldByName('运费协议号').asstring+'"'; str:=str+',"shipper":"'+ formartjson(aAdoQuery.FieldByName('发货人代码').asstring)+'"'; str:=str+',"consignee":"'+ formartjson(aAdoQuery.FieldByName('收货人代码').asstring)+'"'; str:=str+',"notifyparty":"'+ formartjson(aAdoQuery.FieldByName('通知人代码').asstring)+'"'; str:=str+',"notifyparty2":""'; str:=str+',"yardid":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('场站').asstring)+'"'; str:=str+',"yard":"'+getcustedi(frm_op_seae.t_op_seae.FieldByName('场站').asstring)+'"'; str:=str+',"vessel":"'+ frm_op_seae.t_op_seae.FieldByName('船名').asstring+'"'; str:=str+',"voyno":"'+ frm_op_seae.t_op_seae.FieldByName('航次').asstring+'"'; str:=str+',"voynoinner":""'; str:=str+',"etd":"'+ frm_op_seae.t_op_seae.FieldByName('开船日期').asstring+'"'; str:=str+',"closingdate":"'+ frm_op_seae.t_op_seae.FieldByName('截港日期').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('装港代码').asstring+'"'; str:=str+',"portload":"'+ frm_op_seae.t_op_seae.FieldByName('装货港').asstring+'"'; str:=str+',"portdischargeid":"'+ frm_op_seae.t_op_seae.FieldByName('卸货代码').asstring+'"'; str:=str+',"portdischarge":"'+ frm_op_seae.t_op_seae.FieldByName('卸货港').asstring+'"'; str:=str+',"placedeliveryid":"'+ frm_op_seae.t_op_seae.FieldByName('交货代码').asstring+'"'; str:=str+',"placedelivery":"'+ frm_op_seae.t_op_seae.FieldByName('交货地点').asstring+'"'; str:=str+',"destinationid":"'+ frm_op_seae.t_op_seae.FieldByName('目的地代码').asstring+'"'; str:=str+',"destination":"'+ frm_op_seae.t_op_seae.FieldByName('目的地').asstring+'"'; str:=str+',"nobill":"'+ aAdoQuery.FieldByName('提单份数').asstring+'"'; str:=str+',"copynobill":"'+ frm_op_seae.t_op_seae.FieldByName('副本提单份数').asstring+'"'; str:=str+',"issuetype":"'+ aAdoQuery.FieldByName('签单方式').asstring+'"'; str:=str+',"issuedate":"'+ aAdoQuery.FieldByName('签单日期').asstring+'"'; if (aAdoQuery.fieldbyname('签单地点').asstring<>'') then begin str:=str+',"issueplaceid":"'+GetPortEdiID(trim(aAdoQuery.fieldbyname('签单地点').asstring))+'"'; str:=str+',"issueplace":"'+ aAdoQuery.FieldByName('签单地点').asstring+'"'; end else begin str:=str+',"issueplaceid":"CNTAO"'; str:=str+',"issueplace":"QINGDAO,CHINA"'; end; str:=str+',"blfrt":"'+ aAdoQuery.FieldByName('付费方式').asstring+'"'; str:=str+',"prepardat":"'+ aAdoQuery.FieldByName('预付地点').asstring+'"'; str:=str+',"payableat":"'+ aAdoQuery.FieldByName('到付地点').asstring+'"'; str:=str+',"service":"'+ aAdoQuery.FieldByName('运输条款').asstring+'"'; str:=str+',"marks":"'+formartjson(aAdoQuery.FieldByName('唛头').asstring)+'"'; str:=str+',"hscode":"'+ frm_op_seae.t_op_seae.FieldByName('运输方式').asstring+'"'; str:=str+',"description":"'+ formartjson(aAdoQuery.FieldByName('货物描述').asstring)+'"'; if (aAdoQuery.FieldByName('件数').asstring='') then str:=str+',"pkgs":0' else str:=str+',"pkgs":'+ aAdoQuery.FieldByName('件数').asstring; str:=str+',"kindpkgs":"'+ aAdoQuery.FieldByName('包装').asstring+'"'; if (aAdoQuery.FieldByName('重量').asstring='') then str:=str+',"kgs":0' else str:=str+',"kgs":'+ aAdoQuery.FieldByName('重量').asstring; if (aAdoQuery.FieldByName('尺码').asstring='') then str:=str+',"cbm":0' else str:=str+',"cbm":'+ aAdoQuery.FieldByName('尺码').asstring; str:=str+',"totalno":"'+ aAdoQuery.FieldByName('件数大写').asstring+'"'; str:=str+',"cntrtotal":"'+ frm_op_seae.t_op_seae.FieldByName('集装箱').asstring+'"'; str:=str+',"carrierid":"'+ getcustedi(frm_op_seae.t_op_seae.FieldByName('船公司').asstring)+'"'; str:=str+',"carrier":"'+frm_op_seae.t_op_seae.FieldByName('船公司').asstring+'"'; str:=str+',"cargoid":"'+ frm_op_seae.t_op_seae.FieldByName('货物标识').asstring+'"'; str:=str+',"dclass":"'+ frm_op_seae.t_op_seae.FieldByName('危险品分类').asstring+'"'; str:=str+',"dunno":"'+ frm_op_seae.t_op_seae.FieldByName('危险品编号').asstring+'"'; str:=str+',"dpage":""'; str:=str+',"dlabel":""'; str:=str+',"linkman":""'; if (frm_op_seae.t_op_seae.FieldByName('货物标识').asstring='R') then str:=str+',"tempid":"C"' else str:=str+',"tempid":""'; str:=str+',"tempset":"'+ frm_op_seae.t_op_seae.FieldByName('设置温度').asstring+'"'; str:=str+',"reeferf":"'+ frm_op_seae.t_op_seae.FieldByName('冷藏通风量').asstring+'"'; str:=str+',"humidity":""'; str:=str+',"tempmin":"'+ frm_op_seae.t_op_seae.FieldByName('最低温度').asstring+'"'; str:=str+',"tempmax":"'+ frm_op_seae.t_op_seae.FieldByName('最高温度').asstring+'"'; if frm_op_seae.t_op_seae.fieldbyname('是否自有箱').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备注').asstring)+'"'; str:=str+',"yardremark":""'; str:=str+',"compid":"'+get_parameters_value(3201,'')+'"'; str:=str+',"compname":"'+frm_data_share.t_sys_company.fieldbyname('全称').AsString+'"'; str:=str+',"pono":"'+ frm_op_seae.t_op_seae.FieldByName('委托编号').asstring+'"'; str:=str+',"opid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('操作员').asstring)+'"'; str:=str+',"docid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('航线操作').asstring)+'"'; str:=str+',"saleid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('揽货人').asstring)+'"'; str:=str+',"op":"'+ frm_op_seae.t_op_seae.FieldByName('操作员').asstring+'"'; str:=str+',"doc":"'+ frm_op_seae.t_op_seae.FieldByName('航线操作').asstring+'"'; str:=str+',"sale":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('揽货人').asstring)+'"'; str:=str+',"custserviceid":"'+ getempid(frm_op_seae.t_op_seae.FieldByName('客服员').asstring)+'"'; str:=str+',"custservice":"'+ frm_op_seae.t_op_seae.FieldByName('客服员').asstring+'"'; str:=str+',"customername":"'+ frm_op_seae.t_op_seae.FieldByName('委托单位').asstring+'"'; str:=str+',"weituo":""'; str:=str+',"prepardatid":"'+GetPortEdiID(aAdoQuery.fieldbyname('预付地点').asstring)+'"'; str:=str+',"payableatid":"'+GetPortEdiID(aAdoQuery.fieldbyname('到付地点').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 客户简称=' +#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('代码').asstring+'"'; str:=str+',"shortName":"'+aAdoQuery.FieldByName('客户简称').asstring+'"'; str:=str+',"fullName":"'+ aAdoQuery.FieldByName('客户全称').asstring+'"'; str:=str+',"chief":"'+ aAdoQuery.FieldByName('法人').asstring+'"'; str:=str+',"tel":"'+ aAdoQuery.FieldByName('电话').asstring+'"'; str:=str+',"email":"'+ aAdoQuery.FieldByName('邮箱').asstring+'"'; str:=str+',"qq":"'+ aAdoQuery.FieldByName('客户全称').asstring+'"'; str:=str+',"webUrl":"'+ aAdoQuery.FieldByName('网站').asstring+'"'; str:=str+',"city":"'+ aAdoQuery.FieldByName('城市').asstring+'"'; str:=str+',"addr":"'+ aAdoQuery.FieldByName('通讯地址').asstring+'"'; str:=str+',"fullNameEN":"'+ aAdoQuery.FieldByName('英文全称').asstring+'"'; str:=str+',"addrEN":""'; str:=str+',"propString":""'; str:=str+',"invTitle":"'+ aAdoQuery.FieldByName('发票抬头').asstring+'"'; str:=str+',"taxNO":""'; str:=str+',"invAddrTel":""'; str:=str+',"rmbBank":"'+ aAdoQuery.FieldByName('开户行RMB').asstring+'"'; str:=str+',"rmbAccount":"'+ aAdoQuery.FieldByName('帐号RMB').asstring+'"'; str:=str+',"usdBank":"'+ aAdoQuery.FieldByName('开户行USD').asstring+'"'; str:=str+',"usdAccount":"'+ aAdoQuery.FieldByName('帐号USD').asstring+'"'; str:=str+',"remark":"'+ aAdoQuery.FieldByName('备注').asstring+'"'; str:=str+',"contactList":['; strsql:='select * from t_crm_client_linkman where 客户简称=' +#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('姓名').asstring,'''','',[])+'"'; str:=str+',"tel":'+aAdoQuery.FieldByName('办公电话').asstring; str:=str+',"email":"'+aAdoQuery.FieldByName('邮箱').asstring+'"'; str:=str+',"qq":"'+aAdoQuery.FieldByName('QQ').asstring+'"'; str:=str+',"remark":"'+aAdoQuery.FieldByName('备注').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 英文船名='''+frm_op_seae.t_op_seae.fieldbyname('船名').AsString+''' and 航次=''' +frm_op_seae.t_op_seae.fieldbyname('航次').AsString+''' and 开船日期='''+FormatDateTime('yyyy-mm-dd',frm_op_seae.t_op_seae.fieldbyname('开船日期').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('英文船名').asstring+'"'; str:=str+',"voyno":"'+ aAdoQuery.FieldByName('航次').asstring+'"'; str:=str+',"portLoading":"'+ aAdoQuery.FieldByName('装货港').asstring+'"'; str:=str+',"portDischarge":"'+ aAdoQuery.FieldByName('卸货港').asstring+'"'; str:=str+',"etd":"'+ FormatDateTime('yyyy-mm-dd',aAdoQuery.fieldbyname('开船日期').asdatetime)+'"'; str:=str+',"closingDate":"'+ FormatDateTime('yyyy-mm-dd hh:ss:nn',aAdoQuery.fieldbyname('截港日期').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('请选择要生成EDI数据的业务！！'); 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('上传大简云船期',frm_op_seae.t_op_seae.FieldByName('船名').asstring+frm_op_seae.t_op_seae.FieldByName('航次').asstring); end; custstr:=CreateNewDjyCustStr(frm_op_seae.t_op_seae.FieldByName('委托单位').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('上传大简云客户',frm_op_seae.t_op_seae.FieldByName('委托单位').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('主提单号').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('上传大简云',frm_op_seae.t_op_seae.FieldByName('业务编号').asstring); end; ShowMessage('上传完成！'); end; procedure Tfrm_op_seae.t_op_amsBeforeEdit(DataSet: TDataSet); begin if (if_open('776')) then begin showmessage('此票业务不能修改！'); abort; end; end; procedure Tfrm_op_seae.t_op_amsBeforeInsert(DataSet: TDataSet); begin if (if_open('776')) then begin showmessage('此票业务不能修改！'); abort; end; end; procedure Tfrm_op_seae.bsSkinButtonSIClick(Sender: TObject); begin frm_main.view_momo(t_op_ams1,'SI备注'); 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('编号').asstring); end; end.