unit u_ch_fee_check_seai; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinCtrls, ComCtrls, bsSkinTabs, DB, ADODB, dxExEdtr, dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, u_fee_check, RxLookup, StdCtrls, Mask, DBCtrls, wwdbedit, Wwdotdot, Wwdbcomb, wwdbdatetimepicker, wwdblook, XPMenu, Menus, bsdbctrls, ExtCtrls, Grids, Wwdbigrd, Wwdbgrid; type Tfrm_ch_fee_check_seai = class(TForm) bsSkinPanel1: TbsSkinPanel; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinTabSheet2: TbsSkinTabSheet; bsSkinTabSheet3: TbsSkinTabSheet; t_op_seai1: TDataSource; t_op_state: TADOQuery; t_op_state1: TDataSource; bsSkinPanel2: TbsSkinPanel; dxDBGrid1: TdxDBGrid; dxDBGrid1Column1: TdxDBGridMaskColumn; dxDBGrid1Column2: TdxDBGridMaskColumn; dxDBGrid1Column3: TdxDBGridMaskColumn; dxDBGrid1Column4: TdxDBGridMaskColumn; dxDBGrid1Column5: TdxDBGridMaskColumn; dxDBGrid1Column6: TdxDBGridMaskColumn; dxDBGrid1Column7: TdxDBGridMaskColumn; dxDBGrid1Column8: TdxDBGridDateColumn; dxDBGrid1Column9: TdxDBGridDateColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridMaskColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; dxDBGrid1Column15: TdxDBGridMaskColumn; dxDBGrid1Column16: TdxDBGridMaskColumn; dxDBGrid1Column17: TdxDBGridMaskColumn; dxDBGrid1Column18: TdxDBGridMaskColumn; dxDBGrid11: TdxDBGridMaskColumn; dxDBGrid12: TdxDBGridMaskColumn; dxDBGrid13: TdxDBGridMaskColumn; dxDBGrid14: TdxDBGridMaskColumn; dxDBGrid15: TdxDBGridMaskColumn; dxDBGrid16: TdxDBGridMaskColumn; dxDBGrid17: TdxDBGridMaskColumn; dxDBGrid18: TdxDBGridMaskColumn; dxDBGrid19: TdxDBGridMaskColumn; dxDBGrid110: TdxDBGridMaskColumn; dxDBGrid1Column39: TdxDBGridMaskColumn; dxDBGrid1TEU: TdxDBGridMaskColumn; dxDBGrid1Column41: TdxDBGridMaskColumn; dxDBGrid1Column42: TdxDBGridMaskColumn; dxDBGrid1Column43: TdxDBGridMaskColumn; dxDBGrid1Column44: TdxDBGridColumn; dxDBGrid1Column45: TdxDBGridColumn; dxDBGrid1Column46: TdxDBGridMaskColumn; dxDBGrid1Column47: TdxDBGridMaskColumn; dxDBGrid1Column48: TdxDBGridDateColumn; dxDBGrid1Column49: TdxDBGridMaskColumn; dxDBGrid1Column50: TdxDBGridMaskColumn; dxDBGrid1Column51: TdxDBGridMaskColumn; dxDBGrid1Column52: TdxDBGridMaskColumn; dxDBGrid1Column53: TdxDBGridMaskColumn; dxDBGrid1Column54: TdxDBGridMaskColumn; dxDBGrid1Column55: TdxDBGridMaskColumn; dxDBGrid1Column56: TdxDBGridMaskColumn; dxDBGrid1Column57: TdxDBGridMaskColumn; bsSkinButton10: TbsSkinButton; fra_fee_check1: Tfra_fee_check; bsSkinPanel3: TbsSkinPanel; Label1: TLabel; Label19: TLabel; Label2: TLabel; Label17: TLabel; Label3: TLabel; Label37: TLabel; Label5: TLabel; Label38: TLabel; Label4: TLabel; Label6: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit8: TDBEdit; DBEdit9: TDBEdit; dxDBGrid2: TdxDBGrid; dxDBGrid2Column1: TdxDBGridMaskColumn; dxDBGrid2Column2: TdxDBGridCheckColumn; dxDBGrid2Column3: TdxDBGridDateColumn; dxDBGrid2Column4: TdxDBGridMaskColumn; dxDBGrid2Column5: TdxDBGridMaskColumn; dxDBGrid2Column6: TdxDBGridColumn; dxDBGrid2Column7: TdxDBGridColumn; dxDBGrid1Column58: TdxDBGridColumn; DBEdit18: TDBEdit; Label65: TLabel; DBEdit4: TDBEdit; dxDBGrid1Column59: TdxDBGridColumn; bsSkinButton7: TbsSkinButton; bsSkinButton5: TbsSkinButton; Label122: TLabel; DBMemo33: TDBMemo; Label121: TLabel; DBMemo34: TDBMemo; Label123: TLabel; DBMemo35: TDBMemo; Label125: TLabel; Label124: TLabel; Label11: TLabel; DBEdit10: TDBEdit; Label9: TLabel; DBEdit7: TDBEdit; Label31: TLabel; DBEdit15: TDBEdit; Label32: TLabel; Label25: TLabel; Label24: TLabel; Label33: TLabel; Label30: TLabel; DBEdit14: TDBEdit; DBEdit11: TDBEdit; Label12: TLabel; Label7: TLabel; Label8: TLabel; Label126: TLabel; DBEdit63: TDBEdit; Label10: TLabel; Label26: TLabel; Label13: TLabel; DBEdit12: TDBEdit; Label22: TLabel; Label73: TLabel; Label27: TLabel; Label23: TLabel; Label21: TLabel; Label164: TLabel; Label18: TLabel; DBEdit83: TDBEdit; Label14: TLabel; DBEdit13: TDBEdit; Label20: TLabel; DBEdit82: TDBEdit; Label15: TLabel; DBEdit81: TDBEdit; Label16: TLabel; DBEdit5: TDBEdit; Label28: TLabel; Label29: TLabel; DBMemo1: TDBMemo; Label35: TLabel; DBMemo3: TDBMemo; Label36: TLabel; DBMemo4: TDBMemo; PopupMenu2: TPopupMenu; N10: TMenuItem; N11: TMenuItem; N14: TMenuItem; N13: TMenuItem; N12: TMenuItem; N15: TMenuItem; N16: TMenuItem; XPMenu1: TXPMenu; t_op_card: TADOQuery; t_op_card1: TDataSource; bsSkinTabSheet4: TbsSkinTabSheet; bsSkinGroupBox5: TbsSkinGroupBox; bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox; bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox; bsSkinGroupBox3: TbsSkinGroupBox; dxDBGrid3: TdxDBGrid; dxDBGridButtonColumn1: TdxDBGridButtonColumn; dxDBGridMaskColumn1: TdxDBGridMaskColumn; dxDBGridDateColumn1: TdxDBGridDateColumn; dxDBGridDateColumn2: TdxDBGridDateColumn; dxDBGridCheckColumn1: TdxDBGridCheckColumn; dxDBGridDateColumn3: TdxDBGridDateColumn; dxDBGridCheckColumn2: TdxDBGridCheckColumn; dxDBGridDateColumn4: TdxDBGridDateColumn; dxDBGridMaskColumn2: TdxDBGridMaskColumn; bsSkinButton1: TbsSkinButton; PopupMenu3: TPopupMenu; N37: TMenuItem; N38: TMenuItem; N17: TMenuItem; N18: TMenuItem; N34: TMenuItem; N35: TMenuItem; N36: TMenuItem; t_op_seai: TADOStoredProc; DBEdit6: TDBEdit; DBEdit16: TDBEdit; DBEdit17: TDBEdit; DBEdit19: TDBEdit; DBEdit20: TDBEdit; DBEdit21: TDBEdit; DBEdit22: TDBEdit; DBEdit23: TDBEdit; DBEdit24: TDBEdit; DBEdit25: TDBEdit; DBEdit26: TDBEdit; DBEdit27: TDBEdit; DBEdit28: TDBEdit; DBEdit29: TDBEdit; DBEdit30: TDBEdit; DBEdit31: TDBEdit; DBEdit32: TDBEdit; DBEdit33: TDBEdit; DBEdit34: TDBEdit; DBEdit35: TDBEdit; DBEdit36: TDBEdit; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; t_ch_fee_truck: TADOQuery; t_ch_fee_truck1: TDataSource; bsSkinTabSheet5: TbsSkinTabSheet; Panel1: TPanel; bsSkinButton2: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton12: TbsSkinButton; bsSkinButton13: TbsSkinButton; wwDBGrid1: TwwDBGrid; N9: TMenuItem; N19: TMenuItem; dxDBGrid1Column60: TdxDBGridColumn; dxDBGrid1Column61: TdxDBGridColumn; dxDBGrid1Column62: TdxDBGridColumn; dxDBGrid1Column63: TdxDBGridColumn; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; N23: TMenuItem; procedure FormShow(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); 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 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 bsSkinButton7Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure bsSkinButton1Click(Sender: TObject); procedure N37Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N34Click(Sender: TObject); procedure N36Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton12Click(Sender: TObject); procedure bsSkinButton13Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); procedure N20Click(Sender: TObject); procedure N23Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_ch_fee_check_seai: Tfrm_ch_fee_check_seai; implementation uses u_main, my_sys_function; {$R *.dfm} procedure Tfrm_ch_fee_check_seai.FormShow(Sender: TObject); begin t_op_state.close; t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+')) ' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; t_op_state.open; t_op_card.open; t_ch_fee_truck.open; loadreggrid(dxdbgrid1,true,caption); loadwwgrid(fra_fee_check1.wwDBGrid1); loadwwgrid(fra_fee_check1.wwDBGrid2); bsSkinPageControl1.Align:=alClient; fra_fee_check1.limited_str.text:='0012'; if if_open('058') then begin fra_fee_check1.t_ch_accept.DataSource:=t_op_seai1; fra_fee_check1.t_ch_accept.open; fra_fee_check1.a_shen_delete.open; fra_fee_check1.a_shen_modify_old.open; fra_fee_check1.a_shen_modify_new.open; fra_fee_check1.bsSkinPanel3.visible:=true; end else begin fra_fee_check1.bsSkinPanel3.visible:=false; end; if if_open('059') then begin fra_fee_check1.t_ch_pay.DataSource:=t_op_seai1; fra_fee_check1.t_ch_pay.open; fra_fee_check1.p_shen_delete.open; fra_fee_check1.p_shen_modify_old.open; fra_fee_check1.p_shen_modify_new.open; fra_fee_check1.bsSkinPanel5.visible:=true; end else begin fra_fee_check1.bsSkinPanel5.visible:=false; end; if fra_fee_check1.bsSkinPanel3.visible and fra_fee_check1.bsSkinPanel5.visible then begin fra_fee_check1.Panel3.Visible:=true; fra_fee_check1.t_op_gain.DataSource:=t_op_seai1; fra_fee_check1.t_op_gain.open; fra_fee_check1.bsSkinPanel9.Visible:=false; fra_fee_check1.Panel3.Height:=20; end else begin fra_fee_check1.Panel3.Visible:=false; end; if strtobool(get_parameters_value(30,'false')) then begin bsSkinTabSheet5.TabVisible:=true; N9.Visible:=true; N19.Visible:=true; end else begin bsSkinTabSheet5.TabVisible:=false; N9.Visible:=false; N19.Visible:=false; end; end; procedure Tfrm_ch_fee_check_seai.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_ch_fee_check_seai.FormClose(Sender: TObject; var Action: TCloseAction); begin savereggrid(dxdbgrid1,caption); savewwgrid(fra_fee_check1.wwDBGrid1); savewwgrid(fra_fee_check1.wwDBGrid2); frm_ch_fee_check_seai.Hide; frm_ch_fee_check_seai.ManualFloat(frm_ch_fee_check_seai.BoundsRect ); frm_main.freeTabs('frm_ch_fee_check_seai'); action:=cafree; frm_ch_fee_check_seai:=nil; end; procedure Tfrm_ch_fee_check_seai.bsSkinButton10Click(Sender: TObject); begin query_seai(3,'0012'); end; procedure Tfrm_ch_fee_check_seai.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_ch_fee_check_seai.dxDBGrid1Column2CustomDraw( Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin AColor:=dxgrid_color('海运进口',ANode.Strings[dxDBGrid1Column2.Index]); AFont.Color:=clblack; end; procedure Tfrm_ch_fee_check_seai.bsSkinButton7Click(Sender: TObject); begin try t_op_seai.Refresh; except ; end; end; procedure Tfrm_ch_fee_check_seai.N10Click(Sender: TObject); begin update_grid_view_no(dxdbgrid1); end; procedure Tfrm_ch_fee_check_seai.N14Click(Sender: TObject); begin update_grid_view_all(dxdbgrid1); end; procedure Tfrm_ch_fee_check_seai.N12Click(Sender: TObject); begin update_grid(dxdbgrid1,37); end; procedure Tfrm_ch_fee_check_seai.N16Click(Sender: TObject); begin grid_save_xls(dxdbgrid1); end; procedure Tfrm_ch_fee_check_seai.dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,t_op_seai,'业务编号'); end; procedure Tfrm_ch_fee_check_seai.bsSkinButton1Click(Sender: TObject); var Pnt:Tpoint; begin Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height)); PopupMenu3.Popup(Pnt.x,Pnt.y); end; procedure Tfrm_ch_fee_check_seai.N37Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_op_state where 是否完成<>1) ' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.N17Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态=' +''''+'录入状态'+''''+') ' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open end; procedure Tfrm_ch_fee_check_seai.N34Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+')) ' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.N36Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+')) ' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.N2Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'收'+''''+')' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.N4Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'付'+''''+')' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.N6Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'提交审核'+''''+')) ' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.N8Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'申请修改'+''''+','+''''+'申请删除'+''''+')) ' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.bsSkinButton2Click(Sender: TObject); var i:integer; begin if t_ch_fee_truck.isempty then exit; if (t_ch_fee_truck.State=dsinsert) or (t_ch_fee_truck.State=dsedit) then begin t_ch_fee_truck.post; end; if wwDBGrid1.SelectedList.Count>=1 then begin for i:=0 to wwDBGrid1.SelectedList.Count-1 do begin t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i])); if (t_ch_fee_truck.FieldByName('费用状态').asstring<>'提交审核') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'驳回提交') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'批准修改') then begin showmessage('当前费用状态不能提交审核！！'); exit; end; end; end else begin if (t_ch_fee_truck.FieldByName('费用状态').asstring<>'提交审核') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'驳回提交') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'批准修改') then begin showmessage('当前费用状态不能提交审核！！'); exit; end; end; try frm_main.db.BeginTrans; if wwDBGrid1.SelectedList.Count>=1 then begin for i:=0 to wwDBGrid1.SelectedList.Count-1 do begin t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i])); t_ch_fee_truck.edit; t_ch_fee_truck['费用状态']:='审核通过'; t_ch_fee_truck.post; end; end else begin t_ch_fee_truck.edit; t_ch_fee_truck['费用状态']:='审核通过'; t_ch_fee_truck.post; end; frm_main.db.CommitTrans; except frm_main.db.RollbackTrans; showmessage('费用审核通过失败!'); exit; end; end; procedure Tfrm_ch_fee_check_seai.bsSkinButton9Click(Sender: TObject); var i:integer; begin if t_ch_fee_truck.isempty then exit; if (t_ch_fee_truck.State=dsinsert) or (t_ch_fee_truck.State=dsedit) then begin t_ch_fee_truck.post; end; if wwDBGrid1.SelectedList.Count>=1 then begin for i:=0 to wwDBGrid1.SelectedList.Count-1 do begin t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i])); if (t_ch_fee_truck.FieldByName('收费结算').asfloat<>0) and (t_ch_fee_truck.FieldByName('付费结算').asfloat<>0) then begin showmessage('当前费用已经结算不可以驳回提交！！'); exit; end; if (t_ch_fee_truck.FieldByName('费用状态').asstring<>'审核通过') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'提交审核') then begin showmessage('当前费用状态不能驳回提交！！'); exit; end; end; end else begin if (t_ch_fee_truck.FieldByName('收费结算').asfloat<>0) and (t_ch_fee_truck.FieldByName('付费结算').asfloat<>0) then begin showmessage('当前费用已经结算不可以驳回提交！！'); exit; end; if (t_ch_fee_truck.FieldByName('费用状态').asstring<>'审核通过') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'提交审核') then begin showmessage('当前费用状态不能驳回提交！！'); exit; end; end; try frm_main.db.BeginTrans; if wwDBGrid1.SelectedList.Count>=1 then begin for i:=0 to wwDBGrid1.SelectedList.Count-1 do begin t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i])); t_ch_fee_truck.edit; t_ch_fee_truck['费用状态']:='驳回提交'; t_ch_fee_truck.post; end; end else begin t_ch_fee_truck.edit; t_ch_fee_truck['费用状态']:='驳回提交'; t_ch_fee_truck.post; end; frm_main.db.CommitTrans; except frm_main.db.RollbackTrans; showmessage('费用驳回提交失败!'); exit; end; end; procedure Tfrm_ch_fee_check_seai.bsSkinButton12Click(Sender: TObject); var i:integer; begin if t_ch_fee_truck.isempty then exit; if (t_ch_fee_truck.State=dsinsert) or (t_ch_fee_truck.State=dsedit) then begin t_ch_fee_truck.post; end; if wwDBGrid1.SelectedList.Count>=1 then begin for i:=0 to wwDBGrid1.SelectedList.Count-1 do begin t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i])); if (t_ch_fee_truck.FieldByName('收费结算').asfloat<>0) and (t_ch_fee_truck.FieldByName('付费结算').asfloat<>0) then begin showmessage('当前费用已经结算不可以批准修改！！'); exit; end; if(t_ch_fee_truck.FieldByName('费用状态').asstring<>'申请修改') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'禁止修改') then begin showmessage('当前费用状态不能批准修改！！'); exit; end; end; end else begin if (t_ch_fee_truck.FieldByName('收费结算').asfloat<>0) and (t_ch_fee_truck.FieldByName('付费结算').asfloat<>0) then begin showmessage('当前费用已经结算不可以驳回提交！！'); exit; end; if (t_ch_fee_truck.FieldByName('费用状态').asstring<>'申请修改') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'禁止修改') then begin showmessage('当前费用状态不能批准修改！！'); exit; end; end; try frm_main.db.BeginTrans; if wwDBGrid1.SelectedList.Count>=1 then begin for i:=0 to wwDBGrid1.SelectedList.Count-1 do begin t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i])); t_ch_fee_truck.edit; t_ch_fee_truck['费用状态']:='批准修改'; t_ch_fee_truck.post; end; end else begin t_ch_fee_truck.edit; t_ch_fee_truck['费用状态']:='批准修改'; t_ch_fee_truck.post; end; frm_main.db.CommitTrans; except frm_main.db.RollbackTrans; showmessage('费用批准修改失败!'); exit; end; showmessage('费用批准修改成功!'); end; procedure Tfrm_ch_fee_check_seai.bsSkinButton13Click(Sender: TObject); var i:integer; begin if t_ch_fee_truck.isempty then exit; if (t_ch_fee_truck.State=dsinsert) or (t_ch_fee_truck.State=dsedit) then begin t_ch_fee_truck.post; end; if wwDBGrid1.SelectedList.Count>=1 then begin for i:=0 to wwDBGrid1.SelectedList.Count-1 do begin t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i])); if (t_ch_fee_truck.FieldByName('收费结算').asfloat<>0) and (t_ch_fee_truck.FieldByName('付费结算').asfloat<>0) then begin showmessage('当前费用已经结算不可以禁止修改！！'); exit; end; if(t_ch_fee_truck.FieldByName('费用状态').asstring<>'申请修改') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'批准修改') then begin showmessage('当前费用状态不能禁止修改！！'); exit; end; end; end else begin if (t_ch_fee_truck.FieldByName('收费结算').asfloat<>0) and (t_ch_fee_truck.FieldByName('付费结算').asfloat<>0) then begin showmessage('当前费用已经结算不可以禁止修改！！'); exit; end; if (t_ch_fee_truck.FieldByName('费用状态').asstring<>'申请修改') and (t_ch_fee_truck.FieldByName('费用状态').asstring<>'批准修改') then begin showmessage('当前费用状态不能禁止修改！！'); exit; end; end; try frm_main.db.BeginTrans; if wwDBGrid1.SelectedList.Count>=1 then begin for i:=0 to wwDBGrid1.SelectedList.Count-1 do begin t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i])); t_ch_fee_truck.edit; t_ch_fee_truck['费用状态']:='禁止修改'; t_ch_fee_truck.post; end; end else begin t_ch_fee_truck.edit; t_ch_fee_truck['费用状态']:='禁止修改'; t_ch_fee_truck.post; end; frm_main.db.CommitTrans; except frm_main.db.RollbackTrans; showmessage('费用禁止修改失败!'); exit; end; end; procedure Tfrm_ch_fee_check_seai.N19Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee_truck where 费用状态<>' +''''+'审核通过'+''''+') ' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin fee_color(t_ch_fee_truck,wwDBGrid1,Rect,Field); end; procedure Tfrm_ch_fee_check_seai.N20Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 编号 not in (select distinct 编号 from t_ch_fee )' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; procedure Tfrm_ch_fee_check_seai.N23Click(Sender: TObject); begin t_op_seai.Close; t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where ' +open_data('0012','揽货人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态<>'+''''+'结算完毕'+''''+')' +default_sort(54,'t_op_seai','','desc'); t_op_seai.open; end; end.