unit u_op_seae_query; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RxLookup, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb,Registry, wwdbdatetimepicker, wwdblook, bsSkinCtrls, BusinessSkinForm, DB, ComCtrls, bsSkinTabs, ADODB, DBCtrls, RxMemDS, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms; type Tfrm_op_seae_query = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinTabSheet2: TbsSkinTabSheet; Label10: TLabel; Label9: TLabel; Label14: TLabel; Label15: TLabel; Label6: TLabel; Label7: TLabel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label8: TLabel; Label11: TLabel; Label12: TLabel; Label20: TLabel; Label124: TLabel; Label16: TLabel; Label28: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label21: TLabel; Label24: TLabel; Label22: TLabel; Label23: TLabel; Label25: TLabel; Label26: TLabel; Label27: TLabel; Label29: TLabel; Label125: TLabel; Label30: TLabel; Label31: TLabel; Label32: TLabel; Edit1: TEdit; RxDBLookupCombo2: TRxDBLookupCombo; RxDBLookupCombo3: TRxDBLookupCombo; RxDBLookupCombo4: TRxDBLookupCombo; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; wwDBComboBox1: TwwDBComboBox; wwDBComboBox2: TwwDBComboBox; wwDBDateTimePicker1: TwwDBDateTimePicker; wwDBDateTimePicker2: TwwDBDateTimePicker; wwDBDateTimePicker3: TwwDBDateTimePicker; wwDBDateTimePicker4: TwwDBDateTimePicker; RxDBLookupCombo1: TRxDBLookupCombo; wwDBLookupCombo3: TwwDBLookupCombo; wwDBLookupCombo52: TwwDBLookupCombo; RxDBLookupCombo6: TRxDBLookupCombo; bsSkinButton10: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton1: TbsSkinButton; RxDBLookupCombo7: TRxDBLookupCombo; RxDBLookupCombo8: TRxDBLookupCombo; RxDBLookupCombo9: TRxDBLookupCombo; RxDBLookupCombo11: TRxDBLookupCombo; RxDBLookupCombo20: TRxDBLookupCombo; wwDBComboBox3: TwwDBComboBox; wwDBComboBox4: TwwDBComboBox; wwDBComboBox5: TwwDBComboBox; wwDBComboBox6: TwwDBComboBox; wwDBComboBox7: TwwDBComboBox; wwDBComboBox8: TwwDBComboBox; wwDBComboBox9: TwwDBComboBox; wwDBComboBox10: TwwDBComboBox; wwDBComboBox11: TwwDBComboBox; wwDBComboBox12: TwwDBComboBox; wwDBComboBox14: TwwDBComboBox; wwDBComboBox15: TwwDBComboBox; wwDBComboBox16: TwwDBComboBox; wwDBComboBox17: TwwDBComboBox; wwDBComboBox18: TwwDBComboBox; wwDBComboBox19: TwwDBComboBox; wwDBComboBox20: TwwDBComboBox; wwDBComboBox21: TwwDBComboBox; wwDBComboBox22: TwwDBComboBox; wwDBComboBox23: TwwDBComboBox; wwDBComboBox24: TwwDBComboBox; wwDBComboBox25: TwwDBComboBox; wwDBComboBox26: TwwDBComboBox; wwDBComboBox27: TwwDBComboBox; wwDBComboBox28: TwwDBComboBox; RxDBLookupCombo10: TRxDBLookupCombo; RxDBLookupCombo12: TRxDBLookupCombo; wwDBComboBox29: TwwDBComboBox; wwDBComboBox30: TwwDBComboBox; wwDBComboBox31: TwwDBComboBox; wwDBComboBox32: TwwDBComboBox; RxDBLookupCombo13: TRxDBLookupCombo; wwDBComboBox33: TwwDBComboBox; Edit5: TEdit; wwDBComboBox34: TwwDBComboBox; Edit6: TEdit; wwDBLookupCombo49: TwwDBLookupCombo; wwDBComboBox35: TwwDBComboBox; Edit7: TEdit; wwDBComboBox36: TwwDBComboBox; wwDBComboBox37: TwwDBComboBox; Edit8: TEdit; Edit9: TEdit; wwDBComboBox38: TwwDBComboBox; t_sys_queryfields: TADOQuery; t_sys_queryfields1: TDataSource; bsSkinGroupBox1: TbsSkinGroupBox; bsSkinPanel1: TbsSkinPanel; bsSkinButton2: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinPanel2: TbsSkinPanel; Label33: TLabel; RxDBLookupList1: TRxDBLookupList; RxDBLookupCombo14: TRxDBLookupCombo; Label34: TLabel; wwDBComboBox39: TwwDBComboBox; Label35: TLabel; wwDBComboBox40: TwwDBComboBox; Label36: TLabel; bsSkinGroupBox2: TbsSkinGroupBox; bsSkinPanel3: TbsSkinPanel; bsSkinButton3: TbsSkinButton; bsSkinButton7: TbsSkinButton; t_sys_query_detail1: TDataSource; dxDBGrid1: TdxDBGrid; dxDBGrid1Column2: TdxDBGridMaskColumn; dxDBGrid1Column4: TdxDBGridMaskColumn; query_bit: TwwDBComboBox; query_str_int: TEdit; query_date: TwwDBDateTimePicker; t_sys_query: TADOQuery; t_sys_query1: TDataSource; t_sys_query_detail: TADOQuery; dxDBGrid2: TdxDBGrid; dxDBGrid2SQ_ID: TdxDBGridMaskColumn; bsSkinButton6: TbsSkinButton; bsSkinButton9: TbsSkinButton; dxDBGrid1Column1: TdxDBGridPickColumn; dxDBGrid1Column3: TdxDBGridPickColumn; Label37: TLabel; wwDBComboBox41: TwwDBComboBox; Edit10: TEdit; Label38: TLabel; wwDBComboBox42: TwwDBComboBox; Edit11: TEdit; Label39: TLabel; wwDBComboBox43: TwwDBComboBox; RxDBLookupCombo15: TRxDBLookupCombo; Label40: TLabel; wwDBComboBox44: TwwDBComboBox; RxDBLookupCombo16: TRxDBLookupCombo; Label41: TLabel; wwDBComboBox45: TwwDBComboBox; Label42: TLabel; wwDBComboBox46: TwwDBComboBox; wwDBDateTimePicker5: TwwDBDateTimePicker; Label43: TLabel; wwDBComboBox47: TwwDBComboBox; wwDBDateTimePicker6: TwwDBDateTimePicker; Label44: TLabel; wwDBComboBox48: TwwDBComboBox; Edit12: TEdit; Label45: TLabel; wwDBComboBox49: TwwDBComboBox; Label13: TLabel; RxDBLookupCombo5: TRxDBLookupCombo; wwDBComboBox13: TwwDBComboBox; Label46: TLabel; RxDBLookupCombo17: TRxDBLookupCombo; wwDBComboBox50: TwwDBComboBox; lbl1: TLabel; wdbcmbx4: TwwDBComboBox; lbl2: TLabel; wdbcmbx3: TwwDBComboBox; Label47: TLabel; wwDBComboBox51: TwwDBComboBox; Edit13: TEdit; Label48: TLabel; wwDBComboBox52: TwwDBComboBox; Edit14: TEdit; Label49: TLabel; wwDBComboBox53: TwwDBComboBox; RxDBLookupCombo18: TRxDBLookupCombo; Edit15: TEdit; wwDBComboBox54: TwwDBComboBox; Label50: TLabel; Label51: TLabel; wwDBComboBox55: TwwDBComboBox; wwDBDateTimePicker7: TwwDBDateTimePicker; Label52: TLabel; wwDBComboBox56: TwwDBComboBox; wwDBDateTimePicker8: TwwDBDateTimePicker; Label53: TLabel; wwDBComboBox57: TwwDBComboBox; wwDBComboBox58: TwwDBComboBox; Label54: TLabel; wwDBComboBox59: TwwDBComboBox; wwDBDateTimePicker9: TwwDBDateTimePicker; Label55: TLabel; wwDBComboBox60: TwwDBComboBox; wwDBDateTimePicker10: TwwDBDateTimePicker; Label56: TLabel; wwDBComboBox61: TwwDBComboBox; wwDBDateTimePicker11: TwwDBDateTimePicker; Label57: TLabel; wwDBComboBox62: TwwDBComboBox; wwDBDateTimePicker12: TwwDBDateTimePicker; Label58: TLabel; wwDBComboBox63: TwwDBComboBox; wwDBDateTimePicker13: TwwDBDateTimePicker; Label59: TLabel; wwDBComboBox64: TwwDBComboBox; wwDBDateTimePicker14: TwwDBDateTimePicker; Label60: TLabel; wwDBComboBox65: TwwDBComboBox; wwDBComboBox66: TwwDBComboBox; Label61: TLabel; wwDBComboBox67: TwwDBComboBox; wwDBComboBox68: TwwDBComboBox; Label62: TLabel; wwDBComboBox69: TwwDBComboBox; wwDBDateTimePicker15: TwwDBDateTimePicker; Label63: TLabel; wwDBComboBox70: TwwDBComboBox; wwDBDateTimePicker16: TwwDBDateTimePicker; wwDBComboBox71: TwwDBComboBox; wwDBComboBox72: TwwDBComboBox; Label64: TLabel; Label65: TLabel; wwDBComboBox73: TwwDBComboBox; wwDBComboBox74: TwwDBComboBox; Label66: TLabel; wwDBComboBox75: TwwDBComboBox; wwDBComboBox76: TwwDBComboBox; Label67: TLabel; wwDBComboBox77: TwwDBComboBox; wwDBComboBox78: TwwDBComboBox; Label68: TLabel; wwDBComboBox79: TwwDBComboBox; wwDBComboBox80: TwwDBComboBox; Label69: TLabel; wwDBComboBox81: TwwDBComboBox; wwDBComboBox82: TwwDBComboBox; Label70: TLabel; wwDBComboBox83: TwwDBComboBox; wwDBComboBox84: TwwDBComboBox; Label71: TLabel; wwDBComboBox85: TwwDBComboBox; Edit16: TEdit; Label72: TLabel; wwDBComboBox86: TwwDBComboBox; Edit17: TEdit; Label73: TLabel; wwDBComboBox87: TwwDBComboBox; Edit18: TEdit; wwDBComboBox88: TwwDBComboBox; wwDBComboBox89: TwwDBComboBox; Label74: TLabel; Label75: TLabel; RxDBLookupCombo19: TRxDBLookupCombo; Label76: TLabel; wwDBComboBox90: TwwDBComboBox; wwDBDateTimePicker17: TwwDBDateTimePicker; Label77: TLabel; wwDBComboBox91: TwwDBComboBox; wwDBDateTimePicker18: TwwDBDateTimePicker; Label78: TLabel; wwDBComboBox92: TwwDBComboBox; Edit19: TEdit; Label79: TLabel; wwDBComboBox93: TwwDBComboBox; Edit20: TEdit; dxDBGrid1Column5: TdxDBGridColumn; dxDBGrid2Column2: TdxDBGridColumn; procedure bsSkinButton5Click(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure RxDBLookupCombo14Change(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure RxDBLookupList1DblClick(Sender: TObject); procedure wwDBComboBox15KeyPress(Sender: TObject; var Key: Char); procedure t_sys_queryAfterInsert(DataSet: TDataSet); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure t_sys_query_detailBeforePost(DataSet: TDataSet); procedure t_sys_query_detailAfterScroll(DataSet: TDataSet); private { Private declarations } public { Public declarations } end; var frm_op_seae_query: Tfrm_op_seae_query; seae_query_limited:string; seae_query_table:integer; implementation uses my_sys_function, u_op_seae, u_ch_fee_sea_sales, u_ch_fee_check_seae, u_op_seae_close, u_rp_tai_seae, u_rp_rp_seae, u_rp_zou_seae, u_rp_fen_seae, u_rp_fee_modify, u_data_share, u_main, u_rp_fen_seae_ctn, u_op_seae_apply, u_rp_no_histry, u_rp_sales_profit2022, u_op_seae_trace, u_op_seae_feeunclose, u_rp_zou_linehistry; {$R *.dfm} procedure Tfrm_op_seae_query.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_op_seae_query.bsSkinButton10Click(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; Edit4.text:=''; Edit5.text:=''; Edit6.text:=''; Edit14.text:=''; Edit15.text:=''; Edit19.text:=''; wwDBComboBox1.text:=''; wwDBComboBox2.text:=''; wwDBDateTimePicker1.Clear; wwDBDateTimePicker2.Clear; wwDBDateTimePicker3.Clear; wwDBDateTimePicker4.Clear; wwDBComboBox3.text:=''; RxDBLookupCombo20.ClearValue; RxDBLookupCombo2.ClearValue; RxDBLookupCombo1.ClearValue; RxDBLookupCombo9.ClearValue; RxDBLookupCombo8.ClearValue; RxDBLookupCombo11.ClearValue; RxDBLookupCombo7.ClearValue; wwDBLookupCombo3.text:=''; wwDBLookupCombo52.text:=''; RxDBLookupCombo4.ClearValue; RxDBLookupCombo3.ClearValue; RxDBLookupCombo6.ClearValue; RxDBLookupCombo5.ClearValue; RxDBLookupCombo10.ClearValue; RxDBLookupCombo12.ClearValue; RxDBLookupCombo18.ClearValue; RxDBLookupCombo17.ClearValue; wwDBComboBox31.text:=''; RxDBLookupCombo13.ClearValue; wwDBDateTimePicker7.Clear; wwDBDateTimePicker8.Clear; wwDBComboBox58.text:=''; wwDBDateTimePicker9.Clear; wwDBDateTimePicker10.Clear; wwDBDateTimePicker11.Clear; wwDBDateTimePicker12.Clear; wwDBDateTimePicker13.Clear; wwDBDateTimePicker14.Clear; wwDBDateTimePicker15.Clear; wwDBDateTimePicker16.Clear; wwDBComboBox66.text:=''; wwDBComboBox68.text:=''; wwDBComboBox71.text:=''; wwDBComboBox78.text:=''; wwDBComboBox74.text:=''; wwDBComboBox76.text:=''; wwDBComboBox80.text:=''; wwDBComboBox82.text:=''; wwDBComboBox84.text:=''; Edit16.text:=''; Edit17.text:=''; Edit18.text:=''; end; procedure Tfrm_op_seae_query.bsSkinButton1Click(Sender: TObject); var str,str2,str_fee,ctnstr:widestring; str_date:string; strsort:string; i:integer; ExeFileName:String; begin str:=''; if bsSkinTabSheet2.Showing then begin str:=query_tiaojian(1,str,'t_op_seae.业务编号',wwDBComboBox15.text,Edit1.text); str:=query_tiaojian(1,str,'t_op_seae.委托编号',wwDBComboBox4.text,Edit4.text); str:=query_tiaojian(1,str,'t_op_seae.主提单号',wwDBComboBox16.text,Edit2.text); str:=query_tiaojian(1,str,'t_op_seae.分提单号',wwDBComboBox5.text,Edit3.text); str:=query_tiaojian(1,str,'t_op_seae.真提单号',wwDBComboBox51.text,Edit13.text); str:=query_tiaojian(1,str,'t_op_seae.报关单号',wwDBComboBox41.text,Edit10.text); str:=query_tiaojian(1,str,'t_op_seae.报检单号',wwDBComboBox42.text,Edit11.text); str:=query_tiaojian(1,str,'t_op_seae.委托单位',wwDBComboBox92.text,Edit19.text); str:=query_tiaojian(1,str,'t_op_seae.货物描述',wwDBComboBox93.text,Edit20.text); str:=query_tiaojian(1,str,'t_op_seae.发票号',wwDBComboBox33.text,Edit5.text); str:=query_tiaojian(1,str,'t_op_seae.核销单号',wwDBComboBox34.text,Edit6.text); str:=query_tiaojian(1,str,'t_op_seae.合同号备注',wwDBComboBox52.text,Edit14.text); // str:=query_tiaojian(1,str,'t_op_seae.业务状态',wwDBComboBox17.text,wwDBComboBox1.text); str:=query_tiaojian(1,str,'t_op_seae.费用状态',wwDBComboBox7.text,wwDBComboBox2.text); str:=query_tiaojian(1,str,'t_op_seae.开船日期',wwDBComboBox18.text,wwDBDateTimePicker1.text); str:=query_tiaojian(1,str,'t_op_seae.开船日期',wwDBComboBox6.text,wwDBDateTimePicker2.text); str:=query_tiaojian(1,str,'t_op_seae.会计期间',wwDBComboBox19.text,wwDBDateTimePicker3.text); str:=query_tiaojian(1,str,'t_op_seae.会计期间',wwDBComboBox11.text,wwDBDateTimePicker4.text); str:=query_tiaojian(1,str,'t_op_seae.装运方式',wwDBComboBox20.text,wwDBComboBox3.text); str:=query_tiaojian(1,str,'t_op_seae.航线',wwDBComboBox10.text,RxDBLookupCombo20.DisplayValues[1]); str:=query_tiaojian(1,str,'t_op_seae.委托单位',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]); str:=query_tiaojian(1,str,'t_op_seae.船公司',wwDBComboBox9.text,RxDBLookupCombo1.DisplayValues[1]); str:=query_tiaojian(1,str,'t_op_seae.报关行',wwDBComboBox22.text,RxDBLookupCombo9.DisplayValues[1]); str:=query_tiaojian(1,str,'t_op_seae.货代公司',wwDBComboBox8.text,RxDBLookupCombo8.DisplayValues[1]); str:=query_tiaojian(1,str,'t_op_seae.承运车队',wwDBComboBox23.text,RxDBLookupCombo11.DisplayValues[1]); str:=query_tiaojian(1,str,'t_op_seae.场站',wwDBComboBox12.text,RxDBLookupCombo7.DisplayValues[1]); str:=query_tiaojian(1,str,'t_op_seae.装货港',wwDBComboBox26.text,wwDBLookupCombo3.text); str:=query_tiaojian(1,str,'t_op_seae.卸货港',wwDBComboBox27.text,wwDBLookupCombo52.text); str:=query_tiaojian(1,str,'t_op_seae.客服员',wwDBComboBox24.text,RxDBLookupCombo4.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.揽货人',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.操作员',wwDBComboBox25.text,RxDBLookupCombo6.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.航线操作',wwDBComboBox43.text,RxDBLookupCombo15.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.业务来源',wwDBComboBox44.text,RxDBLookupCombo16.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.录入人',wwDBComboBox13.text,RxDBLookupCombo5.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.第三方付费',wwDBComboBox53.text,RxDBLookupCombo18.DisplayValues[1]); str:=query_tiaojian(1,str,'t_op_seae.单证员',wwDBComboBox50.text,RxDBLookupCombo17.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.货物名称',wwDBComboBox32.text,RxDBLookupCombo13.DisplayValues[1]); str:=query_tiaojian(3,str,'t_op_seae.报关服务',wwDBComboBox30.text,wwDBComboBox31.text); str:=query_tiaojian(1,str,'t_op_seae.销售部门',wwDBComboBox28.text,RxDBLookupCombo10.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.操作部门',wwDBComboBox29.text,RxDBLookupCombo12.DisplayValue); str:=query_tiaojian(1,str,'t_op_seae.船名',wwDBComboBox36.text,wwDBLookupCombo49.text); str:=query_tiaojian(1,str,'t_op_seae.航次',wwDBComboBox35.text,Edit7.text); str:=query_tiaojian(1,str,'t_op_seae.方案名称',wwDBComboBox48.text,Edit12.text); str:=query_tiaojian(1,str,'t_op_seae.备案号',wwDBComboBox54.text,Edit15.text); str:=query_tiaojian(1,str,'t_op_seae.箱号封号',wwDBComboBox37.text,Edit8.text); str:=query_tiaojian(2,str,'t_op_seae.周次',wwDBComboBox38.text,Edit9.text); str:=query_tiaojian(1,str,'t_op_seae.预抵日期',wwDBComboBox46.text,wwDBDateTimePicker5.text); str:=query_tiaojian(1,str,'t_op_seae.预抵日期',wwDBComboBox47.text,wwDBDateTimePicker6.text); str:=query_tiaojian(3,str,'t_op_seae.FEE2',wdbcmbx4.text,wdbcmbx3.text); str:=query_tiaojian(1,str,'t_op_seae.到港日期',wwDBComboBox55.text,wwDBDateTimePicker7.text); str:=query_tiaojian(1,str,'t_op_seae.到港日期',wwDBComboBox56.text,wwDBDateTimePicker8.text); str:=query_tiaojian(1,str,'t_op_seae.是否占舱',wwDBComboBox57.text,wwDBComboBox58.Value); str:=query_tiaojian(1,str,'t_op_seae.ETA',wwDBComboBox59.text,wwDBDateTimePicker9.text); str:=query_tiaojian(1,str,'t_op_seae.ETA',wwDBComboBox60.text,wwDBDateTimePicker10.text); str:=query_tiaojian(1,str,'t_op_seae.ATA',wwDBComboBox61.text,wwDBDateTimePicker11.text); str:=query_tiaojian(1,str,'t_op_seae.ATA',wwDBComboBox62.text,wwDBDateTimePicker12.text); str:=query_tiaojian(1,str,'t_op_seae.ETD',wwDBComboBox63.text,wwDBDateTimePicker13.text); str:=query_tiaojian(1,str,'t_op_seae.ETD',wwDBComboBox64.text,wwDBDateTimePicker14.text); str:=query_tiaojian(1,str,'t_op_seae.应结日期',wwDBComboBox69.text,wwDBDateTimePicker15.text); str:=query_tiaojian(1,str,'t_op_seae.应结日期',wwDBComboBox70.text,wwDBDateTimePicker16.text); str:=query_tiaojian(3,str,'t_op_seae.通知到港',wwDBComboBox65.text,wwDBComboBox66.text); str:=query_tiaojian(3,str,'t_op_seae.是否提货',wwDBComboBox67.text,wwDBComboBox68.text); str:=query_tiaojian(1,str,'t_op_seae.结费类型',wwDBComboBox72.text,wwDBComboBox71.text); str:=query_tiaojian(3,str,'t_op_seae.是否AMS录入',wwDBComboBox77.text,wwDBComboBox78.text); str:=query_tiaojian(3,str,'t_op_seae.是否1Y',wwDBComboBox73.text,wwDBComboBox74.text); str:=query_tiaojian(3,str,'t_op_seae.是否3Z',wwDBComboBox75.text,wwDBComboBox76.text); str:=query_tiaojian(3,str,'t_op_seae.是否提交VGM',wwDBComboBox79.text,wwDBComboBox80.text); str:=query_tiaojian(3,str,'t_op_seae.是否提交舱单',wwDBComboBox81.text,wwDBComboBox82.text); str:=query_tiaojian(3,str,'t_op_seae.是否装载放行',wwDBComboBox83.text,wwDBComboBox84.text); str:=query_tiaojian(3,str,'t_op_seae.是否费用解封',wwDBComboBox89.text,wwDBComboBox88.text); str:=query_tiaojian(1,str,'t_op_seae.其他备注',wwDBComboBox85.text,Edit16.text); str:=query_tiaojian(1,str,'t_op_seae.占舱备注',wwDBComboBox86.text,Edit17.text); str:=query_tiaojian(1,str,'t_op_seae.订舱序列号',wwDBComboBox87.text,Edit18.text); if wwDBComboBox1.text<>'' then begin if str='' then str:='where t_op_seae.主编号 in (select distinct 编号 from t_op_state where 业务状态 like ''%'+wwDBComboBox1.text+'%'') ' else str:=str+' and t_op_seae.主编号 in (select distinct 编号 from t_op_state where 业务状态 like ''%'+wwDBComboBox1.text+'%'') ' end; if RxDBLookupCombo19.DisplayValues[1]<>'' then begin if str='' then str:='where t_op_seae.委托单位 in (select 客户简称 from t_crm_client where 客户全称='''+RxDBLookupCombo19.DisplayValues[1]+''') ' else str:=str+' and t_op_seae.委托单位 in (select 客户简称 from t_crm_client where 客户全称='''+RxDBLookupCombo19.DisplayValues[1]+''') ' end; if wwDBComboBox45.Text<>'' then begin if wwDBComboBox45.Text='未完成业务' then begin if str='' then str:=' t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_op_state where 是否完成<>1)) ' else str:=str+' and t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_op_state where 是否完成<>1)) '; end else if wwDBComboBox45.Text='未录入收费' then begin if str='' then str:=' t_op_seae.费用状态<>'+''''+'费用封帐'+''''+' and t_op_seae.主编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'收'+''''+')' else str:=str+' and t_op_seae.费用状态<>'+''''+'费用封帐'+''''+' and t_op_seae.主编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'收'+''''+')'; end else if wwDBComboBox45.Text='未录入付费' then begin if str='' then str:=' t_op_seae.费用状态<>'+''''+'费用封帐'+''''+' and t_op_seae.主编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'付'+''''+')' else str:=str+' and t_op_seae.费用状态<>'+''''+'费用封帐'+''''+' and t_op_seae.主编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'付'+''''+')'; end else if wwDBComboBox45.Text='未录入费用' then begin if str='' then str:=' t_op_seae.费用状态<>'+''''+'费用封帐'+''''+' and t_op_seae.主编号 not in (select distinct 编号 from t_ch_fee)' else str:=str+' and t_op_seae.费用状态<>'+''''+'费用封帐'+''''+' and t_op_seae.主编号 not in (select distinct 编号 from t_ch_fee)'; end else if wwDBComboBox45.Text='未提交费用' then begin if str='' then str:=' t_op_seae.主编号 in (select 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态='+''''+'录入状态'+''''+')) ' else str:=str+' and t_op_seae.主编号 in (select 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态='+''''+'录入状态'+''''+')) '; end else if wwDBComboBox45.Text='被驳回费用' then begin if str='' then str:=' and t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('+''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+'))) ' else str:=str+' and t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('+''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+'))) '; end else if wwDBComboBox45.Text='未审核费用' then begin if str='' then str:=' t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('+''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+'))) ' else str:=str+' and t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in ('+''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+'))) '; end else if wwDBComboBox45.Text='未结算费用' then begin if str='' then str:=' t_op_seae.费用状态<>'+''''+'费用封帐'+''''+' and t_op_seae.主编号 in (select distinct 编号 from t_ch_fee where 费用状态<>'+''''+'结算完毕'+''''+')' else str:=str+' and t_op_seae.费用状态<>'+''''+'费用封帐'+''''+' and t_op_seae.主编号 in (select distinct 编号 from t_ch_fee where 费用状态<>'+''''+'结算完毕'+''''+')'; end; end; if wwDBComboBox49.Text<>'' then begin if wwDBComboBox49.Text='存在' then begin if str='' then str:=' where t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 方案编号<>''''))' else str:=str+' and t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where 方案编号<>''''))'; end else if wwDBComboBox49.Text='不存在' then begin if str='' then str:=' where t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where (方案编号='''' or 方案编号 is null)))' else str:=str+' and t_op_seae.主编号 in (select distinct 主编号 from t_op_seae where 编号 in (select distinct 编号 from t_ch_fee where (方案编号='''' or 方案编号 is null )))'; end; end; if (wwDBDateTimePicker17.Text<>'') or (wwDBDateTimePicker18.Text<>'') then begin if (seae_query_table=6) then begin str:=query_tiaojian(1,str,'v_op_gain.会计月份',wwDBComboBox90.text,wwDBDateTimePicker17.text); str:=query_tiaojian(1,str,'v_op_gain.会计月份',wwDBComboBox91.text,wwDBDateTimePicker18.text); end else begin str_fee:=query_tiaojian(1,str_fee,'t_ch_fee.会计月份',wwDBComboBox90.text,wwDBDateTimePicker17.text); str_fee:=query_tiaojian(1,str_fee,'t_ch_fee.会计月份',wwDBComboBox91.text,wwDBDateTimePicker18.text); if str='' then str:=' t_op_seae.主编号 in (select distinct 编号 from t_ch_fee '+str_fee+')' else str:=str+' and t_op_seae.主编号 in (select distinct 编号 from t_ch_fee '+str_fee+')'; end; end; end else begin if query_wanneng_error(t_sys_query_detail)then begin showmessage('‘或’的条件必须在2个以上！！'); exit; end; str:=query_wanneng(t_sys_query_detail); end; case seae_query_table of 1,11: begin if seae_query_limited<>'no'then begin if trim(str)='' then begin str:='where ('+open_data(seae_query_limited,'t_op_seae.录入人','t_op_seae.操作员','t_op_seae.客服员','t_op_seae.单证员','no','no')+' or t_op_seae.航线操作='''+employee+''' or t_op_seae.航线管理='''+employee+''')'; end else begin str:=str+' and ('+open_data(seae_query_limited,'t_op_seae.录入人','t_op_seae.操作员','t_op_seae.客服员','t_op_seae.单证员','no','no')+' or t_op_seae.航线操作='''+employee+''' or t_op_seae.航线管理='''+employee+''')'; end; end; end; 2: begin if seae_query_limited<>'no'then begin if trim(str)='' then begin str:='where '+open_data(seae_query_limited,'t_op_seae.揽货人','no','no','no','no'); end else begin str:=str+' and '+open_data(seae_query_limited,'t_op_seae.揽货人','no','no','no','no'); end; end; end; 3,5,6,7,8,9,10: begin if seae_query_limited<>'no'then begin if trim(str)='' then begin str:='where ('+open_data(seae_query_limited,'t_op_seae.录入人','t_op_seae.操作员','t_op_seae.客服员','t_op_seae.揽货人','no','no')+' or t_op_seae.航线操作='''+employee+''' or t_op_seae.航线管理='''+employee+''')'; end else begin str:=str+' and ('+open_data(seae_query_limited,'t_op_seae.录入人','t_op_seae.操作员','t_op_seae.客服员','t_op_seae.揽货人','no','no')+' or t_op_seae.航线操作='''+employee+''' or t_op_seae.航线管理='''+employee+''')'; end; end; end; 101: begin if seae_query_limited<>'no'then begin if trim(str)='' then begin str:='where ('+open_data(seae_query_limited,'t_op_seae.录入人','t_op_seae.操作员','t_op_seae.客服员','t_op_seae.单证员','no','no')+' or t_op_seae.航线操作='''+employee+''' or t_op_seae.航线管理='''+employee+''' or '+open_data('0021','t_op_seae.揽货人','no','no','no','no')+')'; end else begin str:=str+' and ('+open_data(seae_query_limited,'t_op_seae.录入人','t_op_seae.操作员','t_op_seae.客服员','t_op_seae.单证员','no','no')+' or t_op_seae.航线操作='''+employee+''' or t_op_seae.航线管理='''+employee+''' or '+open_data('0021','t_op_seae.揽货人','no','no','no','no')+')'; end; end; end; end; case seae_query_table of 1,3: begin str:='select *,(select top 1 客户全称 from t_crm_client where 客户简称=t_op_seae.委托单位) 委托单位全称 from t_op_seae where 主编号=编号'+' and 编号 in (select 主编号 from t_op_seae ' +str+')'+' order by 开船日期 DESC,船名,航次,主提单号'; end; 2,4,11,14: begin str:='select *,case isnull(T_OP_SEAE.FEE2,0) when 0 then '''' else ''已发提成'' end FEE2REF from t_op_seae '+str+default_sort(53,'t_op_seae','','desc'); end; 5: begin str:='SELECT t_op_seae.*,case isnull(T_OP_SEAE.FEE2,0) when 0 then '''' else ''已发提成'' end FEE2REF ' +',t_op_gain.应收USD, t_op_gain.已收USD,(t_op_gain.应收USD-t_op_gain.已收USD)' +' AS 未收USD,t_op_gain.应收RMB, t_op_gain.已收RMB,(t_op_gain.应收RMB-t_op_gain.已收RMB)' +' AS 未收RMB, t_op_gain.合计应收,t_op_gain.合计已收,(t_op_gain.合计应收-t_op_gain.合计已收)' +' AS 合计未收,t_op_gain.应付USD, t_op_gain.已付USD, (t_op_gain.应付USD-t_op_gain.已付USD)' +' AS 未付USD,t_op_gain.应付RMB, t_op_gain.已付RMB,(t_op_gain.应付RMB- t_op_gain.已付RMB)' +' AS 未付RMB,t_op_gain.合计应付,t_op_gain.合计已付,(t_op_gain.合计应付-t_op_gain.合计已付)' +' AS 合计未付,t_op_gain.利润USD, t_op_gain.利润RMB, t_op_gain.毛利润, t_op_gain.利润率,t_crm_client_class.客户等级,(select top 1 客户全称 from t_crm_client where 客户简称=t_op_seae.委托单位) 委托单位全称 ' +' FROM t_op_seae left JOIN t_op_gain ON t_op_seae.编号 = t_op_gain.编号 ' +' left join t_crm_client_class on t_op_seae.委托单位=t_crm_client_class.客户简称 and t_crm_client_class.开始日期<=t_op_seae.预抵日期 and convert(varchar(100),t_op_seae.预抵日期,23)<=t_crm_client_class.结束日期 and t_crm_client_class.状态=''审核'' ' +str +' order by (case when t_op_seae.编号<>t_op_seae.主编号 then '+''''+'拼箱主票'+''''+' else t_op_seae.装运方式 end)' +',主编号,装运方式 desc,主提单号'; end; 101: begin ctnstr:='select t_op_seae_trace_ctn.* from t_op_seae_trace_ctn left join t_op_seae on (t_op_seae_trace_ctn.编号=t_op_seae.编号) ' + str + default_sort(53, 't_op_seae', '', 'desc'); str:='select t_op_seae_trace.*,t_op_seae.主提单号,t_op_seae.船公司,t_op_seae.委托单位,t_op_seae.揽货人,t_op_seae.开船日期,t_op_seae.真提单号,t_op_seae.预抵日期,t_op_seae.卸货港,t_op_seae.目的地, ' +'t_op_seae.ETD from t_op_seae left join t_op_seae_trace on (t_op_seae_trace.编号=t_op_seae.编号) ' +str+' order by t_op_seae.开船日期 DESC,t_op_seae.船名,t_op_seae.航次,t_op_seae.主提单号'; end; end; case seae_query_table of 1: begin frm_op_seae.t_op_seae.close; frm_op_seae.t_op_seae.sql.clear; frm_op_seae.t_op_seae.sql.add(str); frm_op_seae.t_op_seae.Open; if frm_op_seae.t_op_seae.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; ExeFileName:='\SoftWare\DongSheng\东胜物流信息管理系统\Grid'; try frm_op_seae.t_op_seae.DisableControls; for i:=0 to frm_op_seae.dxdbgrid1.ColumnCount-1 do begin frm_op_seae.dxdbgrid1.Columns[i].Sorted:=csNone; end; with TRegIniFile.Create do try RootKey:=HKEY_LOCAL_MACHINE; strsort:=ReadString(ExeFileName,'Sort',''); if strsort<>'' then frm_op_seae.t_op_seae.Sort:=strSort; finally Free; end; finally frm_op_seae.t_op_seae.First; frm_op_seae.t_op_seae.EnableControls; end; end; 2: begin frm_ch_fee_seae_sales.t_op_seae.Close; frm_ch_fee_seae_sales.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_fee_seae_sales.t_op_seae.Open; if frm_ch_fee_seae_sales.t_op_seae.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; end; 3: begin frm_ch_fee_check_seae.t_op_seae.Close; frm_ch_fee_check_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_fee_check_seae.t_op_seae.Open; if frm_ch_fee_check_seae.t_op_seae.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; end; 4: begin frm_op_seae_close.t_op_seae.Close; frm_op_seae_close.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_op_seae_close.t_op_seae.Open; frm_op_seae_close.t_ch_accept.open; frm_op_seae_close.t_ch_pay.open; frm_op_seae_close.t_op_gain.OPEN; if frm_op_seae_close.t_op_seae.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; end; 14: begin frm_op_seae_feeunclose.t_op_seae.Close; frm_op_seae_feeunclose.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_op_seae_feeunclose.t_op_seae.Open; frm_op_seae_feeunclose.t_ch_accept.open; frm_op_seae_feeunclose.t_ch_pay.open; frm_op_seae_feeunclose.t_op_gain.OPEN; if frm_op_seae_feeunclose.t_op_seae.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; end; 5: begin frm_rp_tai_seae.p_query_table.close; frm_rp_tai_seae.p_query_table.Parameters.ParamByName('SQLStr').value:=str; frm_rp_tai_seae.p_query_table.Open; if frm_rp_tai_seae.p_query_table.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; end; 6: begin { frm_rp_rp_seae.p_detail.close; frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seae.*, t_op_gain_main.应收USD, t_op_gain_main.已收USD,(t_op_gain_main.应收USD-t_op_gain_main.已收USD)' +' AS 未收USD,t_op_gain_main.应收RMB, t_op_gain_main.已收RMB,(t_op_gain_main.应收RMB-t_op_gain_main.已收RMB)' +' AS 未收RMB, t_op_gain_main.合计应收,t_op_gain_main.合计已收,(t_op_gain_main.合计应收-t_op_gain_main.合计已收)' +' AS 合计未收,t_op_gain_main.应付USD, t_op_gain_main.已付USD, (t_op_gain_main.应付USD-t_op_gain_main.已付USD)' +' AS 未付USD,t_op_gain_main.应付RMB, t_op_gain_main.已付RMB,(t_op_gain_main.应付RMB- t_op_gain_main.已付RMB)' +' AS 未付RMB,t_op_gain_main.合计应付,t_op_gain_main.合计已付,(t_op_gain_main.合计应付-t_op_gain_main.合计已付)' +' AS 合计未付,t_op_gain_main.利润USD, t_op_gain_main.利润RMB, t_op_gain_main.毛利润, t_op_gain_main.利润率' +' FROM t_op_seae left JOIN t_op_gain_main ON t_op_seae.编号 = t_op_gain_main.编号 ' +str+' and t_op_seae.编号=t_op_seae.主编号 '+default_sort(53,'t_op_seae','','desc'); rp_rp_seae_str:=str; frm_rp_rp_seae.p_detail.Open; } { frm_rp_rp_seae.p_detail.close; frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seae.*,case t_op_seae.装运方式 when ''拼箱单票'' THEN (case when isnull((CASE WHEN t_op_seae.重量 / 1000 > t_op_seae.尺码 THEN t_op_seae.重量 / 1000 ELSE t_op_seae.尺码 END), 0)>1 then ' +' isnull((CASE WHEN t_op_seae.重量 / 1000 > t_op_seae.尺码 THEN t_op_seae.重量 / 1000 ELSE t_op_seae.尺码 END), 0) else 1 end) ELSE ' +' case t_op_seae.装运方式 when ''拼箱分票'' THEN (case when isnull((CASE WHEN t_op_seae.重量 / 1000 > t_op_seae.尺码 THEN t_op_seae.重量 / 1000 ELSE t_op_seae.尺码 END), 0)>1 then ' +' isnull((CASE WHEN t_op_seae.重量 / 1000 > t_op_seae.尺码 THEN t_op_seae.重量 / 1000 ELSE t_op_seae.尺码 END), 0) else 1 end) ELSE 0 END END ' +'AS 计费吨, t_op_gain.应收USD, t_op_gain.已收USD,(t_op_gain.应收USD-t_op_gain.已收USD)' +' AS 未收USD,t_op_gain.应收RMB, t_op_gain.已收RMB,(t_op_gain.应收RMB-t_op_gain.已收RMB)' +' AS 未收RMB, t_op_gain.合计应收,t_op_gain.合计已收,(t_op_gain.合计应收-t_op_gain.合计已收)' +' AS 合计未收,t_op_gain.应付USD, t_op_gain.已付USD, (t_op_gain.应付USD-t_op_gain.已付USD)' +' AS 未付USD,t_op_gain.应付RMB, t_op_gain.已付RMB,(t_op_gain.应付RMB- t_op_gain.已付RMB)' +' AS 未付RMB,t_op_gain.合计应付,t_op_gain.合计已付,(t_op_gain.合计应付-t_op_gain.合计已付)' +' AS 合计未付,t_op_gain.利润USD, t_op_gain.利润RMB, t_op_gain.毛利润, t_op_gain.利润率' +' FROM t_op_seae left JOIN t_op_gain ON t_op_seae.编号 = t_op_gain.编号 ' +str+default_sort(53,'t_op_seae','','desc'); rp_rp_seae_str:=str; frm_rp_rp_seae.p_detail.Open; } frm_rp_rp_seae.p_detail.close; frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seae.*,case t_op_seae.装运方式 when ''拼箱单票'' THEN (case when isnull((CASE WHEN t_op_seae.重量 / 1000 > t_op_seae.尺码 THEN t_op_seae.重量 / 1000 ELSE t_op_seae.尺码 END), 0)>1 then ' +' isnull((CASE WHEN t_op_seae.重量 / 1000 > t_op_seae.尺码 THEN t_op_seae.重量 / 1000 ELSE t_op_seae.尺码 END), 0) else 1 end) ELSE ' +' case t_op_seae.装运方式 when ''拼箱分票'' THEN (case when isnull((CASE WHEN t_op_seae.重量 / 1000 > t_op_seae.尺码 THEN t_op_seae.重量 / 1000 ELSE t_op_seae.尺码 END), 0)>1 then ' +' isnull((CASE WHEN t_op_seae.重量 / 1000 > t_op_seae.尺码 THEN t_op_seae.重量 / 1000 ELSE t_op_seae.尺码 END), 0) else 1 end) ELSE 0 END END '; if (wwDBDateTimePicker17.Text<>'') or (wwDBDateTimePicker18.Text<>'') then begin frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value:=frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value+'AS 计费吨, v_op_gain.会计月份,v_op_gain.应收USD, v_op_gain.已收USD,(v_op_gain.应收USD-v_op_gain.已收USD)' +' AS 未收USD,v_op_gain.应收RMB, v_op_gain.已收RMB,(v_op_gain.应收RMB-v_op_gain.已收RMB)' +' AS 未收RMB, v_op_gain.合计应收,v_op_gain.合计已收,(v_op_gain.合计应收-v_op_gain.合计已收)' +' AS 合计未收,v_op_gain.应付USD, v_op_gain.已付USD, (v_op_gain.应付USD-v_op_gain.已付USD)' +' AS 未付USD,v_op_gain.应付RMB, v_op_gain.已付RMB,(v_op_gain.应付RMB- v_op_gain.已付RMB)' +' AS 未付RMB,v_op_gain.合计应付,v_op_gain.合计已付,(v_op_gain.合计应付-v_op_gain.合计已付)' +' AS 合计未付,v_op_gain.利润USD, v_op_gain.利润RMB, v_op_gain.毛利润, v_op_gain.利润率' +',isnull(v_op_feestatus.应收YF,0) 应收YF,isnull(v_op_feestatus.应付YF,0) 应付YF,t_crm_client_class.客户等级,(select top 1 客户全称 from t_crm_client where 客户简称=t_op_seae.委托单位) 委托单位全称' +' ,CAST(CASE WHEN CAST(t_op_seae.箱TEU AS DECIMAL)=0 THEN 0 ELSE CAST(v_op_gain.毛利润 AS DECIMAL)/CAST(t_op_seae.箱TEU AS DECIMAL) END AS decimal(10,2)) 标箱利润' +' FROM t_op_seae left JOIN v_op_gain ON t_op_seae.编号 = v_op_gain.编号 left JOIN v_op_feestatus ON t_op_seae.编号 = v_op_feestatus.编号 ' +' left join t_crm_client_class on t_op_seae.委托单位=t_crm_client_class.客户简称 and t_op_seae.揽货人=t_crm_client_class.揽货人 ' +' and t_crm_client_class.开始日期<=t_op_seae.预抵日期 and convert(varchar(100),t_op_seae.预抵日期,23)<=t_crm_client_class.结束日期 and t_crm_client_class.状态=''审核'' ' end else begin frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value:=frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value+'AS 计费吨,'''' 会计月份,t_op_gain.应收USD, t_op_gain.已收USD,(t_op_gain.应收USD-t_op_gain.已收USD)' +' AS 未收USD,t_op_gain.应收RMB, t_op_gain.已收RMB,(t_op_gain.应收RMB-t_op_gain.已收RMB)' +' AS 未收RMB, t_op_gain.合计应收,t_op_gain.合计已收,(t_op_gain.合计应收-t_op_gain.合计已收)' +' AS 合计未收,t_op_gain.应付USD, t_op_gain.已付USD, (t_op_gain.应付USD-t_op_gain.已付USD)' +' AS 未付USD,t_op_gain.应付RMB, t_op_gain.已付RMB,(t_op_gain.应付RMB- t_op_gain.已付RMB)' +' AS 未付RMB,t_op_gain.合计应付,t_op_gain.合计已付,(t_op_gain.合计应付-t_op_gain.合计已付)' +' AS 合计未付,t_op_gain.利润USD, t_op_gain.利润RMB, t_op_gain.毛利润, t_op_gain.利润率' +',isnull(v_op_feestatus.应收YF,0) 应收YF,isnull(v_op_feestatus.应付YF,0) 应付YF,t_crm_client_class.客户等级,(select top 1 客户全称 from t_crm_client where 客户简称=t_op_seae.委托单位) 委托单位全称' +' ,CAST(CASE WHEN CAST(t_op_seae.箱TEU AS DECIMAL)=0 THEN 0 ELSE CAST(t_op_gain.毛利润 AS DECIMAL)/CAST(t_op_seae.箱TEU AS DECIMAL) END AS decimal(10,2)) 标箱利润' +' FROM t_op_seae left JOIN t_op_gain ON t_op_seae.编号 = t_op_gain.编号 left JOIN v_op_feestatus ON t_op_seae.编号 = v_op_feestatus.编号 ' +' left join t_crm_client_class on t_op_seae.委托单位=t_crm_client_class.客户简称 and t_op_seae.揽货人=t_crm_client_class.揽货人 ' +' and t_crm_client_class.开始日期<=t_op_seae.预抵日期 and convert(varchar(100),t_op_seae.预抵日期,23)<=t_crm_client_class.结束日期 and t_crm_client_class.状态=''审核'' ' end; frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value:=frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value+str+default_sort(53,'t_op_seae','','desc'); rp_rp_seae_str:=str; frm_rp_rp_seae.p_detail.Open; if frm_rp_rp_seae.p_detail.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; end; 7: begin if frm_rp_zou_seae.bsSkinCheckRadioBox3.Checked then str_date:='会计期间' else if frm_rp_zou_seae.bsSkinCheckRadioBox1.Checked then str_date:='预抵日期' else str_date:='开船日期'; frm_rp_zou_seae.p_lirun.close; frm_rp_zou_seae.p_lirun.SQL.Text:= // frm_rp_zou_seae.p_lirun.Parameters.ParamByName('SQLStr').value:= 'SELECT SUBSTRING(CONVERT(char(15),t_op_seae.'+str_date+',111),1,7) AS 月份,' +'SUM(dbo.t_op_gain_main.毛利润) AS 毛利润,' +'sum(t_op_seae.箱TEU) as 箱TEU,count(t_op_seae.编号) as 票数' +' FROM t_op_seae inner JOIN t_op_gain_main' +' ON t_op_seae.编号 =t_op_gain_main.编号 ' +str +' GROUP BY SUBSTRING(CONVERT(char(15),t_op_seae.'+str_date+',111),1,7)' +' order by SUBSTRING(CONVERT(char(15),'+str_date+', 111), 1, 7)'; frm_rp_zou_seae.p_lirun.Open; end; 8: begin fen_seae_str:=str; end; 9: begin {frm_rp_fee_modify.t_ch_fee_modify.close; frm_rp_fee_modify.a_shen_delete.close; frm_rp_fee_modify.a_shen_modify_old.close; frm_rp_fee_modify.a_shen_modify_new.close; frm_rp_fee_modify.p_seae.close; frm_rp_fee_modify.p_seae.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seae.*, v_ch_fee_modify_sum.利润调整 AS 利润调整 ' +'FROM t_op_seae INNER JOIN ' +'v_ch_fee_modify_sum ON t_op_seae.编号 = v_ch_fee_modify_sum.编号 '+str+default_sort(53,'t_op_seae','','desc'); frm_rp_fee_modify.p_seae.open; frm_rp_fee_modify.t_ch_fee_modify.open; frm_rp_fee_modify.a_shen_delete.open; frm_rp_fee_modify.a_shen_modify_old.open; frm_rp_fee_modify.a_shen_modify_new.open;} end; 10: begin fen_seae_ctn_str:=str; end; 11: begin frm_op_seae_apply.t_op_seae.close; frm_op_seae_apply.t_op_seae.sql.clear; frm_op_seae_apply.t_op_seae.sql.add(str); frm_op_seae_apply.t_op_seae.Open; if frm_op_seae_apply.t_op_seae.IsEmpty then begin showmessage('没有检索出所需数据！！'); exit; end; end; 12: begin frm_rp_no_histry.sqlstr:=str; end; 22: begin frm_rp_sales_profit2022.sqlstr:=str; end; 26: begin frm_rp_zou_linehistry.linesqlstr:=str; end; 101: begin frm_op_seae_trace.t_op_seae_trace.close; frm_op_seae_trace.t_op_seae_trace.sql.clear; frm_op_seae_trace.t_op_seae_trace.sql.add(str); frm_op_seae_trace.t_op_seae_trace.Open; frm_op_seae_trace.t_op_seae_trace_ctn.Close; frm_op_seae_trace.t_op_seae_trace_ctn.SQL.Clear; frm_op_seae_trace.t_op_seae_trace_ctn.SQL.Add(ctnstr); frm_op_seae_trace.t_op_seae_trace_ctn.Open; end; end; close; end; procedure Tfrm_op_seae_query.FormShow(Sender:TObject); begin wwDBComboBox15.text:='模糊'; wwDBComboBox16.text:='模糊'; wwDBComboBox51.text:='模糊'; wwDBComboBox41.text:='模糊'; wwDBComboBox42.text:='模糊'; wwDBComboBox33.text:='模糊'; wwDBComboBox34.text:='模糊'; wwDBComboBox52.text:='模糊'; wwDBComboBox4.text:='模糊'; wwDBComboBox5.text:='模糊'; wwDBComboBox35.text:='模糊'; wwDBComboBox36.text:='模糊'; wwDBComboBox37.text:='模糊'; wwDBComboBox17.text:='等于'; wwDBComboBox7.text:='等于'; wwDBComboBox18.text:='大于'; wwDBComboBox6.text:='小于'; wwDBComboBox46.text:='大于'; wwDBComboBox47.text:='小于'; wwDBComboBox48.text:='模糊'; wwDBComboBox11.text:='小于'; wwDBComboBox19.text:='大于'; wwDBComboBox10.text:='等于'; wwDBComboBox20.text:='等于'; wwDBComboBox21.text:='等于'; wwDBComboBox22.text:='等于'; wwDBComboBox23.text:='等于'; wwDBComboBox24.text:='等于'; wwDBComboBox25.text:='等于'; wwDBComboBox26.text:='模糊'; wwDBComboBox27.text:='模糊'; wwDBComboBox9.text:='等于'; wwDBComboBox8.text:='等于'; wwDBComboBox12.text:='等于'; wwDBComboBox13.text:='等于'; wwDBComboBox14.text:='等于'; wwDBComboBox28.text:='等于'; wwDBComboBox29.text:='等于'; wwDBComboBox30.text:='等于'; wwDBComboBox32.text:='等于'; wwDBComboBox38.text:='等于'; wwDBComboBox43.text:='等于'; wwDBComboBox44.text:='等于'; wwDBComboBox50.text:='等于'; wwDBComboBox53.text:='等于'; wwDBComboBox54.Text:='等于'; wwDBComboBox55.text:='大于'; wwDBComboBox56.text:='小于'; wwDBComboBox57.text:='等于'; wwDBComboBox89.text:='等于'; // wwDBComboBox49.text:='等于'; // wwDBComboBox90.Text:='等于'; frm_data_share.t_code_state.Filtered:=false; frm_data_share.t_code_state.Filter:='业务种类='+''''+'海运出口'+''''; frm_data_share.t_code_state.Filtered:=true; frm_data_share.t_crm_client_ship.requery; frm_data_share.t_crm_client_changzhan.requery; frm_data_share.t_crm_client_truck.requery; frm_data_share.t_crm_client_baoguan.requery; frm_data_share.t_crm_client_weituo.requery; frm_data_share.t_crm_client_daili.requery; frm_data_share.t_crm_client_huodai.requery; frm_data_share.t_code_state.first; while not frm_data_share.t_code_state.eof do begin wwDBComboBox1.Items.Add(frm_data_share.t_code_state.fieldbyname('业务状态').asstring); frm_data_share.t_code_state.next; end; wwDBComboBox1.Items.Add('业务封帐'); t_sys_queryfields.open; t_sys_query.Parameters.ParamByName('查询类型').Value:='海运出口'; t_sys_query.Parameters.ParamByName('录入人').Value:=employee; t_sys_query.open; t_sys_query_detail.open; wwDBComboBox39.ItemIndex:=0; wwDBComboBox59.text:='大于'; wwDBComboBox60.text:='小于'; wwDBComboBox61.text:='大于'; wwDBComboBox62.text:='小于'; wwDBComboBox63.text:='大于'; wwDBComboBox64.text:='小于'; wwDBComboBox69.text:='大于'; wwDBComboBox70.text:='小于'; wwDBComboBox65.text:='等于'; wwDBComboBox67.text:='等于'; wwDBComboBox72.text:='等于'; wwDBComboBox77.text:='等于'; wwDBComboBox73.text:='等于'; wwDBComboBox75.text:='等于'; wwDBComboBox79.text:='等于'; wwDBComboBox81.text:='等于'; wwDBComboBox83.text:='等于'; wwDBComboBox85.text:='模糊'; wwDBComboBox86.text:='模糊'; wwDBComboBox87.text:='模糊'; wwDBComboBox90.text:='大于'; wwDBComboBox91.text:='小于'; wwDBComboBox92.Text:='模糊'; wwDBComboBox93.Text:='模糊'; end; procedure Tfrm_op_seae_query.RxDBLookupCombo14Change(Sender: TObject); begin query_str_int.text:=''; query_bit.text:=''; query_date.text:=''; if t_sys_queryfields.Locate('字段名称',RxDBLookupCombo14.DisplayValue,[])then begin wwDBComboBox40.ItemIndex:=-1; wwDBComboBox40.Items.Clear; if (t_sys_queryfields.FieldByName('类型').asstring='varchar') then begin query_str_int.Visible:=true; query_bit.Visible:=false; query_date.Visible:=false; wwDBComboBox40.Items.Add('等于'); wwDBComboBox40.Items.Add('不等于'); wwDBComboBox40.Items.Add('模糊'); wwDBComboBox40.Items.Add('不包含'); wwDBComboBox40.ItemIndex:=2; end; if (t_sys_queryfields.FieldByName('类型').asstring='int') then begin query_str_int.Visible:=true; query_bit.Visible:=false; query_date.Visible:=false; wwDBComboBox40.Items.Add('等于'); wwDBComboBox40.Items.Add('不等于'); wwDBComboBox40.Items.Add('大于'); wwDBComboBox40.Items.Add('小于'); wwDBComboBox40.ItemIndex:=0; end; if (t_sys_queryfields.FieldByName('类型').asstring='bit') then begin query_str_int.Visible:=false; query_bit.Visible:=true; query_date.Visible:=false; wwDBComboBox40.Items.Add('等于'); wwDBComboBox40.Items.Add('不等于'); wwDBComboBox40.ItemIndex:=0; end; if (t_sys_queryfields.FieldByName('类型').asstring='date') then begin query_str_int.Visible:=false; query_bit.Visible:=false; query_date.Visible:=true; wwDBComboBox40.Items.Add('等于'); wwDBComboBox40.Items.Add('不等于'); wwDBComboBox40.Items.Add('大于'); wwDBComboBox40.Items.Add('小于'); wwDBComboBox40.ItemIndex:=0; end; end else begin query_str_int.Visible:=false; query_bit.Visible:=false; query_date.Visible:=false; end; end; procedure Tfrm_op_seae_query.bsSkinButton2Click(Sender: TObject); begin if RxDBLookupCombo14.DisplayValue='' then begin showmessage('请输入条件名称！！'); exit; end; if wwDBComboBox39.ItemIndex=-1 then begin showmessage('请输入条件关系！！'); exit; end; if wwDBComboBox40.ItemIndex=-1 then begin showmessage('请输入查询类型！！'); exit; end; if query_str_int.Visible then begin if query_str_int.text='' then begin showmessage('请输入条件值！！'); exit; end; if (t_sys_queryfields.FieldByName('类型').asstring='int') then begin try strtoint(query_str_int.text); except showmessage('条件值只能输入数字！！'); exit; end; end; end; if query_bit.Visible then begin if query_bit.ItemIndex=-1 then begin showmessage('请输入条件值！！'); exit; end; end; if query_date.Visible then begin if query_date.text='' then begin showmessage('请输入条件值！！'); exit; end; end; if t_sys_query.IsEmpty then begin t_sys_query.Insert; t_sys_query.post; end; t_sys_query_detail.Append; t_sys_query_detail['表']:=t_sys_queryfields['表']; t_sys_query_detail['字段名']:=t_sys_queryfields['字段名称']; if query_str_int.Visible then begin t_sys_query_detail['条件值']:=query_str_int.text; end; if query_bit.Visible then begin t_sys_query_detail['条件值']:=query_bit.text; end; if query_date.Visible then begin t_sys_query_detail['条件值']:=query_date.text; end; t_sys_query_detail['字段类型']:=t_sys_queryfields['类型']; t_sys_query_detail['条件关系']:=wwDBComboBox39.text; t_sys_query_detail['查询类型']:=wwDBComboBox40.text; t_sys_query_detail.post; end; procedure Tfrm_op_seae_query.bsSkinButton4Click(Sender: TObject); begin if not t_sys_query_detail.IsEmpty then t_sys_query_detail.Delete; end; procedure Tfrm_op_seae_query.RxDBLookupList1DblClick(Sender: TObject); begin RxDBLookupCombo14.DisplayValue:=RxDBLookupList1.DisplayValue; end; procedure Tfrm_op_seae_query.wwDBComboBox15KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; frm_op_seae_query.bsSkinButton1Click(Sender); end; end; procedure Tfrm_op_seae_query.t_sys_queryAfterInsert(DataSet: TDataSet); begin t_sys_query['查询类型']:='海运出口'; t_sys_query['录入人']:=employee; t_sys_query['录入日期']:=date; end; procedure Tfrm_op_seae_query.bsSkinButton6Click(Sender: TObject); begin t_sys_query.Insert; t_sys_query.post; end; procedure Tfrm_op_seae_query.bsSkinButton9Click(Sender: TObject); begin if MessageDlg('确实要删除此记忆吗?',mtWarning,[mbYes,mbNo],0)<>mryes then exit; while not t_sys_query_detail.eof do begin t_sys_query_detail.Delete; end; if not t_sys_query.Eof then t_sys_query.delete; end; procedure Tfrm_op_seae_query.t_sys_query_detailBeforePost( DataSet: TDataSet); begin if t_sys_query_detail.fieldbyname('字段类型').asstring='int' then begin try strtoint(t_sys_query_detail.fieldbyname('条件值').asstring); except showmessage('条件值只能输入数字！！'); abort; end; end; if t_sys_query_detail.fieldbyname('字段类型').asstring='date' then begin try strtodate(t_sys_query_detail.fieldbyname('条件值').asstring); except showmessage('条件值只能输入日期！！'); abort; end; end; if t_sys_query_detail.fieldbyname('字段类型').asstring='bit' then begin if (t_sys_query_detail.fieldbyname('条件值').asstring<>'否') and(t_sys_query_detail.fieldbyname('条件值').asstring<>'是')then begin showmessage('条件值只能输入是\否！！'); abort; end; end; if (t_sys_query_detail.fieldbyname('条件关系').asstring<>'且') and(t_sys_query_detail.fieldbyname('条件关系').asstring<>'或')then begin showmessage('条件关系只能输入且\或！！'); abort; end; if (dxDBGrid1Column3.Items.IndexOf(t_sys_query_detail.fieldbyname('查询类型').asstring)=-1) and (t_sys_query_detail.state<>dsinsert) then begin showmessage('查询类型只能输入'+dxDBGrid1Column3.Items.text+'！！'); abort; end; end; procedure Tfrm_op_seae_query.t_sys_query_detailAfterScroll( DataSet: TDataSet); begin if (t_sys_query_detail.fieldbyname('字段类型').asstring='varchar') then begin dxDBGrid1Column3.Items.Clear; dxDBGrid1Column3.Items.Add('等于'); dxDBGrid1Column3.Items.Add('不等于'); dxDBGrid1Column3.Items.Add('模糊'); end; if (t_sys_query_detail.fieldbyname('字段类型').asstring='int') then begin dxDBGrid1Column3.Items.Clear; dxDBGrid1Column3.Items.Add('等于'); dxDBGrid1Column3.Items.Add('不等于'); dxDBGrid1Column3.Items.Add('大于'); dxDBGrid1Column3.Items.Add('小于'); end; if (t_sys_query_detail.fieldbyname('字段类型').asstring='bit') then begin dxDBGrid1Column3.Items.Clear; dxDBGrid1Column3.Items.Add('等于'); dxDBGrid1Column3.Items.Add('不等于'); end; if (t_sys_query_detail.fieldbyname('字段类型').asstring='date') then begin dxDBGrid1Column3.Items.Clear; dxDBGrid1Column3.Items.Add('等于'); dxDBGrid1Column3.Items.Add('不等于'); dxDBGrid1Column3.Items.Add('大于'); dxDBGrid1Column3.Items.Add('小于'); end; end; end.