DS6JIEFENG/海运业务/u_op_seae_weituo.pas

unit u_op_seae_weituo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask,
  DBCtrls, wwdbdatetimepicker, wwdblook, u_op_sate, u_fee, u_op_card, Menus,
  dxDBTLCl, dxGrClms, bsdbctrls, XPMenu, Grids, Wwdbigrd, Wwdbgrid, RxMemDS,
  wwdbedit, Wwdotdot, Wwdbcomb, DBCtrlsEh,DateUtils, bsSkinBoxCtrls;

type
  Tfrm_op_seae_weituo = class(TForm)
    Panel2: TPanel;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton38: TbsSkinButton;
    t_op_seae_order: TADOQuery;
    t_op_seae_order1: TDataSource;
    t_ch_fee: TADOQuery;
    PopupMenu3: TPopupMenu;
    N37: TMenuItem;
    N38: TMenuItem;
    N62: TMenuItem;
    N25: TMenuItem;
    N64: TMenuItem;
    N63: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    XPMenu1: TXPMenu;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinPanel1: TbsSkinPanel;
    Label19: TLabel;
    RxDBLookupCombo12: TRxDBLookupCombo;
    Label4: TLabel;
    RxDBLookupCombo1: TRxDBLookupCombo;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    Label26: TLabel;
    t_ch_fee1: TDataSource;
    t_bz_balance: TRxMemoryData;
    DBEdit2: TDBEdit;
    Label2: TLabel;
    bsSkinPanel4: TbsSkinPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column10: TdxDBGridColumn;
    dxDBGrid1Column9: TdxDBGridColumn;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column114: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridDateColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridColumn;
    bsSkinPanel3: TbsSkinPanel;
    Label6: TLabel;
    Label39: TLabel;
    Label14: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    wwDBComboBox44: TwwDBComboBox;
    RxDBLookupCombo3: TRxDBLookupCombo;
    RxDBLookupCombo2: TRxDBLookupCombo;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    dxDBGrid1Column11: TdxDBGridColumn;
    bsSkinPageControl2: TbsSkinPageControl;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label124: TLabel;
    Label15: TLabel;
    Label13: TLabel;
    Label35: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    Label20: TLabel;
    wwDBLookupCombo52: TwwDBLookupCombo;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    DBEdit5: TDBEdit;
    RxDBLookupCombo28: TRxDBLookupCombo;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    wwDBGrid1: TwwDBGrid;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBLookupCombo3: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    bsSkinButton14: TbsSkinButton;
    wwDBLookupCombo4: TwwDBLookupCombo;
    wwDBComboBox3: TwwDBComboBox;
    wwDBComboBox4: TwwDBComboBox;
    wwDBComboBox1: TwwDBComboBox;
    bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
    DBMemo1: TDBMemo;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBDateTimePicker7: TwwDBDateTimePicker;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    wwDBComboBox2: TwwDBComboBox;
    DBEdit3: TDBEdit;
    DBMemo2: TDBMemo;
    Label122: TLabel;
    DBMemo33: TDBMemo;
    RxDBLookupCombo4: TRxDBLookupCombo;
    wwDBLookupCombo6: TwwDBLookupCombo;
    Label121: TLabel;
    RxDBLookupCombo5: TRxDBLookupCombo;
    wwDBLookupCombo7: TwwDBLookupCombo;
    DBMemo34: TDBMemo;
    DBMemo35: TDBMemo;
    RxDBLookupCombo6: TRxDBLookupCombo;
    wwDBLookupCombo8: TwwDBLookupCombo;
    Label123: TLabel;
    Label21: TLabel;
    DBMemo39: TDBMemo;
    Label163: TLabel;
    DBMemo38: TDBMemo;
    Label165: TLabel;
    DBMemo40: TDBMemo;
    Label166: TLabel;
    DBMemo41: TDBMemo;
    Label167: TLabel;
    DBMemo42: TDBMemo;
    wwDBLookupCombo61: TwwDBLookupCombo;
    DBEdit81: TDBEdit;
    DBEdit82: TDBEdit;
    Label169: TLabel;
    DBEdit83: TDBEdit;
    Label170: TLabel;
    Label32: TLabel;
    wwDBLookupCombo21: TwwDBLookupCombo;
    Label27: TLabel;
    DBEdit25: TDBEdit;
    Label30: TLabel;
    RxDBLookupCombo15: TRxDBLookupCombo;
    Label22: TLabel;
    wwDBLookupCombo9: TwwDBLookupCombo;
    qrysales: TADOQuery;
    dsrsales: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    lblsales: TLabel;
    dxDBGrid1Column12: TdxDBGridColumn;
    dxDBGrid1Column13: TdxDBGridColumn;
    Label23: TLabel;
    DBEdit4: TDBEdit;
    Label24: TLabel;
    DBEdit6: TDBEdit;
    dxDBGrid1Column14: TdxDBGridColumn;
    dxDBGrid1Column15: TdxDBGridColumn;
    dxDBGrid1Column16: TdxDBGridColumn;
    Label25: TLabel;
    DBEdit7: TDBEdit;
    dxDBGrid1Column17: TdxDBGridColumn;
    Label28: TLabel;
    RxDBLookupCombo7: TRxDBLookupCombo;
    dxDBGrid1Column18: TdxDBGridColumn;
    wwDBComboBox5: TwwDBComboBox;
    Label29: TLabel;
    dxDBGrid1Column19: TdxDBGridColumn;
    Label31: TLabel;
    wwDBLookupCombo10: TwwDBLookupCombo;
    t_op_ctn: TADOQuery;
    dxDBGrid1Column20: TdxDBGridColumn;
    dxDBGrid1Column21: TdxDBGridColumn;
    dxDBGrid1Column22: TdxDBGridColumn;
    dxDBGrid1Column23: TdxDBGridColumn;
    dxDBGrid1Column24: TdxDBGridColumn;
    dxDBGrid1Column25: TdxDBGridColumn;
    dxDBGrid1Column26: TdxDBGridColumn;
    dxDBGrid1Column27: TdxDBGridColumn;
    dxDBGrid1Column28: TdxDBGridColumn;
    dxDBGrid1Column29: TdxDBGridColumn;
    dxDBGrid1Column30: TdxDBGridColumn;
    dxDBGrid1Column31: TdxDBGridColumn;
    dxDBGrid1Column32: TdxDBGridColumn;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinButton21: TbsSkinButton;
    RxDBLookupCombo9: TRxDBLookupCombo;
    Label33: TLabel;
    DBEdit37: TDBEdit;
    Label108: TLabel;
    DBEdit38: TDBEdit;
    Label109: TLabel;
    wwDBComboBox8: TwwDBComboBox;
    Label119: TLabel;
    dxDBGrid1Column33: TdxDBGridColumn;
    dxDBGrid1Column34: TdxDBGridColumn;
    dxDBGrid1Column35: TdxDBGridColumn;
    Label34: TLabel;
    DBEdit8: TDBEdit;
    dxDBGrid1Column36: TdxDBGridColumn;
    bsSkinTabSheet3: TbsSkinTabSheet;
    t_ch_accept: TADOQuery;
    t_ch_accept1: TDataSource;
    t_ch_pay: TADOQuery;
    t_ch_pay1: TDataSource;
    t_op_seae: TADOQuery;
    dxDBGrid2: TdxDBGrid;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGrid2Column2: TdxDBGridColumn;
    dxDBGrid2Column3: TdxDBGridColumn;
    dxDBGrid2Column4: TdxDBGridColumn;
    dxDBGrid2Column5: TdxDBGridColumn;
    dxDBGrid2Column6: TdxDBGridColumn;
    dxDBGrid2Column7: TdxDBGridColumn;
    dxDBGrid2Column8: TdxDBGridColumn;
    dxDBGrid2Column9: TdxDBGridColumn;
    dxDBGrid3: TdxDBGrid;
    dxDBGridColumn2: TdxDBGridColumn;
    dxDBGridColumn3: TdxDBGridColumn;
    dxDBGridColumn4: TdxDBGridColumn;
    dxDBGridColumn5: TdxDBGridColumn;
    dxDBGridColumn6: TdxDBGridColumn;
    dxDBGridColumn7: TdxDBGridColumn;
    dxDBGridColumn8: TdxDBGridColumn;
    dxDBGridColumn9: TdxDBGridColumn;
    dxDBGridColumn10: TdxDBGridColumn;
    Panel1: TPanel;
    Memo1: TMemo;
    bsSkinButton18: TbsSkinButton;
    ADOQuery1: TADOQuery;
    t_op_seae1: TDataSource;
    t_op_fee: TADOQuery;
    t_op_ctn_insert: TADOQuery;
    bsSkinTabSheet4: TbsSkinTabSheet;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBMemo5: TDBMemo;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    t_op_seae_act1: TDataSource;
    t_op_seae_act: TADOQuery;
    DBEdit9: TDBEdit;
    Label40: TLabel;
    Label41: TLabel;
    DBMemo6: TDBMemo;
    Label42: TLabel;
    DBMemo7: TDBMemo;
    DBEdit10: TDBEdit;
    wwDBLookupCombo11: TwwDBLookupCombo;
    DBMemo8: TDBMemo;
    DBMemo9: TDBMemo;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    RxDBLookupCombo10: TRxDBLookupCombo;
    DBEdit13: TDBEdit;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    wwDBLookupCombo12: TwwDBLookupCombo;
    Label11: TLabel;
    RxDBLookupCombo8: TRxDBLookupCombo;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    dxDBGrid1Column37: TdxDBGridColumn;
    Label43: TLabel;
    DBMemo10: TDBMemo;
    RxDBLookupCombo19: TRxDBLookupCombo;
    wwDBLookupCombo13: TwwDBLookupCombo;
    Edit2: TEdit;
    Button1: TButton;
    dxDBGrid1Column38: TdxDBGridColumn;
    Label49: TLabel;
    Edit3: TEdit;
    Label50: TLabel;
    DBEdit14: TDBEdit;
    Label51: TLabel;
    DBEdit15: TDBEdit;
    Label52: TLabel;
    DBEdit16: TDBEdit;
    Label53: TLabel;
    DBEdit17: TDBEdit;
    bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    CheckBox1: TCheckBox;
    Edit7: TEdit;
    bsSkinDBComboBox1: TbsSkinDBComboBox;
    bsSkinLabel1: TbsSkinLabel;
    Label54: TLabel;
    RxDBLookupCombo31: TRxDBLookupCombo;
    Label55: TLabel;
    wwDBComboBox9: TwwDBComboBox;
    dxDBGrid1Column39: TdxDBGridColumn;
    dxDBGrid1Column41: TdxDBGridColumn;
    dxDBGrid1Column42: TdxDBGridColumn;
    Label56: TLabel;
    RxDBLookupCombo16: TRxDBLookupCombo;
    Label57: TLabel;
    RxDBLookupCombo17: TRxDBLookupCombo;
    Label73: TLabel;
    dxDBGrid1Column43: TdxDBGridColumn;
    dxDBGrid1Column44: TdxDBGridCheckColumn;
    bsSkinButton16: TbsSkinButton;
    t_op_seae2: TADOQuery;
    wwDBLookupCombo25: TwwDBLookupCombo;
    bsSkinButton17: TbsSkinButton;
    bsSkinButton19: TbsSkinButton;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panel2Resize(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton38Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure t_op_seae_orderBeforeCancel(DataSet: TDataSet);
    procedure t_op_seae_orderPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure t_op_seae_orderBeforePost(DataSet: TDataSet);
    procedure t_ch_feeAfterInsert(DataSet: TDataSet);
    procedure t_ch_feeBeforePost(DataSet: TDataSet);
    procedure t_op_seae_orderBeforeEdit(DataSet: TDataSet);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure DBEdit5Click(Sender: TObject);
    procedure wwDBLookupCombo1Change(Sender: TObject);
    procedure wwDBLookupCombo3Change(Sender: TObject);
    procedure wwDBLookupCombo5Change(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure RxDBLookupCombo12Change(Sender: TObject);
    procedure RxDBLookupCombo1Enter(Sender: TObject);
    procedure RxDBLookupCombo8Enter(Sender: TObject);
    procedure RxDBLookupCombo1Exit(Sender: TObject);
    procedure RxDBLookupCombo8Exit(Sender: TObject);
    procedure RxDBLookupCombo4Change(Sender: TObject);
    procedure RxDBLookupCombo5Change(Sender: TObject);
    procedure RxDBLookupCombo6Change(Sender: TObject);
    procedure DBMemo40Change(Sender: TObject);
    procedure DBMemo41Change(Sender: TObject);
    procedure DBMemo42Change(Sender: TObject);
    procedure wwDBLookupCombo6Change(Sender: TObject);
    procedure wwDBLookupCombo7Change(Sender: TObject);
    procedure wwDBLookupCombo8Change(Sender: TObject);
    procedure wwDBLookupCombo6Exit(Sender: TObject);
    procedure wwDBLookupCombo7Exit(Sender: TObject);
    procedure wwDBLookupCombo8Exit(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure RxDBLookupCombo1Change(Sender: TObject);
    procedure t_ch_feeAfterOpen(DataSet: TDataSet);
    procedure t_ch_feeAfterPost(DataSet: TDataSet);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure dxDBGrid1Column9CustomDraw(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 dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
    procedure wwDBLookupCombo52Change(Sender: TObject);
    procedure bsSkinButton21Click(Sender: TObject);
    procedure wwDBComboBox3DropDown(Sender: TObject);
    procedure wwDBComboBox4DropDown(Sender: TObject);
    procedure bsSkinPageControl2Change(Sender: TObject);
    procedure bsSkinButton18Click(Sender: TObject);
    procedure t_op_ctn_insertAfterInsert(DataSet: TDataSet);
    procedure wwDBComboBox3Change(Sender: TObject);
    procedure wwDBComboBox4Change(Sender: TObject);
    procedure RxDBLookupCombo19Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RxDBLookupCombo31Change(Sender: TObject);
    procedure RxDBLookupCombo31Enter(Sender: TObject);
    procedure RxDBLookupCombo31Exit(Sender: TObject);
    procedure wwDBComboBox9DropDown(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure t_op_seaeBeforeRefresh(DataSet: TDataSet);
    procedure bsSkinButton17Click(Sender: TObject);
    procedure bsSkinButton19Click(Sender: TObject);
  private
    procedure t_billsalescharge(Sender: TField);
    procedure OpFeeItem(bsNo:string);
    function checkctn(aOR_ID:integer):Boolean;
    procedure t_ch_acceptdjoncharge(Sender: TField);
    procedure t_ch_paydjoncharge(Sender: TField);
    procedure  getsumstr;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seae_weituo: Tfrm_op_seae_weituo;

implementation

uses u_main,u_data_share, my_sys_function, u_sys_progress,
  u_op_seae_apply_add, u_op_add_code, u_op_ctn, u_opor_ctn,u_op_seae_oder_add,
  u_op_seaewt_pladd, u_op_seae_oder_pladd;

{$R *.dfm}



procedure Tfrm_op_seae_weituo.getsumstr;
var
  aQuery1,aQuery2:TAdoQuery;
  str1,str2:string;
  acceptstr,paystr:widestring;
  accepteof,payeof:boolean;
  armb,ausd,aot,atotal,prmb,pusd,pot,ptotal:double;
begin
  //<2F><><EFBFBD><EFBFBD><EFBFBD>²<EFBFBD><C2B2>ϼ<EFBFBD><CFBC>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  memo1.Lines.Clear;
  if (t_ch_accept.IsEmpty or (not t_ch_accept.Active)) and (t_ch_pay.IsEmpty or (not t_ch_pay.Active)) then exit;
  aQuery1:=CreateAdoQuery;
  aQuery2:=CreateAdoQuery;

  armb:=0;
  ausd:=0;
  aot:=0;
  atotal:=0;
  prmb:=0;
  pusd:=0;
  pot:=0;
  ptotal:=0;

  try
    accepteof:=false;
    payeof:=false;
    if (t_ch_accept.IsEmpty or (not t_ch_accept.Active)) then
      aQuery1.SQL.Text:='select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,sum(case <20>ұ<EFBFBD> when ''RMB'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else <20><><EFBFBD><EFBFBD> end) end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
      +'sum(<28><><EFBFBD><EFBFBD>*<2A><><EFBFBD><EFBFBD>) as <20>ϼƽ<CFBC><C6BD><EFBFBD>'
      +' from t_ch_fee where 1=2 group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'
    else begin
      acceptstr:=new_query(t_ch_accept);
      aQuery1.SQL.Text:='select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,sum(case <20>ұ<EFBFBD> when ''RMB'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else <20><><EFBFBD><EFBFBD> end) end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
      +'sum(<28><><EFBFBD><EFBFBD>*<2A><><EFBFBD><EFBFBD>) as <20>ϼƽ<CFBC><C6BD><EFBFBD>'
      +' from t_ch_fee '+acceptstr+' group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
      aQuery1.DataSource:=t_ch_accept.DataSource;
    end;
    aQuery1.Open;
    aQuery1.first;

    if (t_ch_pay.IsEmpty or (not t_ch_pay.Active)) then
      aQuery2.SQL.Text:='select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,sum(case <20>ұ<EFBFBD> when ''RMB'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else <20><><EFBFBD><EFBFBD> end) end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
      +'sum(<28><><EFBFBD><EFBFBD>*<2A><><EFBFBD><EFBFBD>) as <20>ϼƽ<CFBC><C6BD><EFBFBD>'
      +' from t_ch_fee where 1=2 group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'
    else begin
      paystr:=new_query(t_ch_pay);
      aQuery2.SQL.Text:='select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,sum(case <20>ұ<EFBFBD> when ''RMB'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then <20><><EFBFBD><EFBFBD> else 0 end) as <20><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>,'
      +'sum(case <20>ұ<EFBFBD> when ''USD'' then 0 else (case <20>ұ<EFBFBD> when ''RMB'' then 0 else <20><><EFBFBD><EFBFBD> end) end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
      +'sum(<28><><EFBFBD><EFBFBD>*<2A><><EFBFBD><EFBFBD>) as <20>ϼƽ<CFBC><C6BD><EFBFBD>'
      +' from t_ch_fee '+paystr+' group by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
      aQuery2.DataSource:=t_ch_pay.DataSource;
    end;
    aQuery2.Open;
    aQuery2.first;
    while (not aQuery1.Eof) or (not aQuery2.Eof) do begin
       if aQuery1.Eof then begin
           str1:=FixLenStr('',72);
       end else begin
         str1:=FixLenStr(aQuery1.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,20)+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat),12,' ',false)
           +' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat),12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat),12,' ',false)
           +' '+FixLenStr(FormatFloat('#,##0.00',aQuery1.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').Asfloat),12,' ',false);
         armb:=armb+aquery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').AsFloat;
         ausd:=ausd+aquery1.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').AsFloat;
         aot:=aot+aquery1.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
         atotal:=atotal+aquery1.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').AsFloat;
         aQuery1.Next;
       end;
       if aQuery2.Eof then begin
         str2:=FixLenStr('',72);
       end else begin
         str2:=FixLenStr(aQuery2.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,20)+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Asfloat),12,' ',false)
           +' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Asfloat),12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat),12,' ',false)
           +' '+FixLenStr(FormatFloat('#,##0.00',aQuery2.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').Asfloat),12,' ',false);
         prmb:=prmb+aquery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').AsFloat;
         pusd:=pusd+aquery2.fieldbyname('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').AsFloat;
         pot:=pot+aquery2.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
         ptotal:=ptotal+aquery2.fieldbyname('<27>ϼƽ<CFBC><C6BD><EFBFBD>').AsFloat;
         aQuery2.Next;
       end;
      memo1.Lines.Add(str1+'|'+str2);
    end;
    str1:=FixLenStr('-',72,'-');
    str2:=FixLenStr('-',72,'-');
    memo1.Lines.Add(str1+'|'+str2);
    str1:=FixLenStr('Ӧ<>պϼ<D5BA>',20)+' '+FixLenStr(FormatFloat('#,##0.00',armb),12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',ausd),12,' ',false)
    +' '+FixLenStr(FormatFloat('#,##0.00',aot),12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',atotal),12,' ',false);
    str2:=FixLenStr('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>',20)+' '+FixLenStr(FormatFloat('#,##0.00',prmb),12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',pusd),12,' ',false)
    +' '+FixLenStr(FormatFloat('#,##0.00',pot),12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',ptotal),12,' ',false);
    memo1.Lines.Add(str1+'|'+str2);

    str1:=FixLenStr('-',72,'-');
    str2:=FixLenStr('-',72,'-');
    memo1.Lines.Add(str1+'|'+str2);

    str1:=FixLenStr('<27><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>:',20)+' '+FixLenStr('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:',12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',armb-prmb),12,' ',false)
    +' '+FixLenStr('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>:',12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',ausd-pusd),12,' ',false);
    str2:=FixLenStr('',19)+' '+FixLenStr('<27><><EFBFBD><EFBFBD><EFBFBD>ұ<EFBFBD><D2B1><EFBFBD><EFBFBD><EFBFBD>:',13,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',aot-pot),12,' ',false)
    +' '+FixLenStr('<27>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>:',12,' ',false)+' '+FixLenStr(FormatFloat('#,##0.00',atotal-ptotal),12,' ',false);

    if if_open('226') then
     memo1.Lines.Add(str1+'|'+str2);

    if if_open('319') then
      memo1.Lines.Add(str1+'|'+str2);
  finally
    freeandnil(aQuery1);
    freeandnil(aQuery2);
  end;
  if memo1.Lines.Count>0 then begin
    str1:=FixLenStr('Ӧ<>տͻ<D5BF>',20)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',12,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD>Ԫ',12,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',12,' ',false)+' '+FixLenStr('Ӧ<>պϼ<D5BA>',12,' ',false);
    str2:=FixLenStr('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD>',20)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',12,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD>Ԫ',12,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',12,' ',false)+' '+FixLenStr('Ӧ<><D3A6><EFBFBD>ϼ<EFBFBD>',12,' ',false);
    Memo1.Lines.Insert(0,str1+'|'+str2);
  end;
end;


procedure Tfrm_op_seae_weituo.t_ch_acceptdjoncharge(Sender: TField);
begin
  if (t_ch_fee.state=dsedit)or(t_ch_fee.state=dsinsert)then
  begin
    if (t_ch_fee.fieldbyname('Ӧ<>յ<EFBFBD><D5B5><EFBFBD>').asfloat<>0) and (t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<>0)then
      t_ch_fee['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_fee.fieldbyname('Ӧ<>յ<EFBFBD><D5B5><EFBFBD>').asfloat*t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat);
  end;
end;

procedure Tfrm_op_seae_weituo.t_ch_paydjoncharge(Sender: TField);
begin
  if (t_ch_fee.state=dsedit)or(t_ch_fee.state=dsinsert)then
  begin
    if (t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<>0) and (t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<>0)then
      t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat*t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat);
  end;
end;


procedure Tfrm_op_seae_weituo.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_seae_weituo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  frm_op_seae_weituo.Hide;
  frm_op_seae_weituo.ManualFloat(frm_op_seae_weituo.BoundsRect );
  frm_main.freeTabs('frm_op_seae_weituo');
  action:=cafree;
  frm_op_seae_weituo:=nil;
end;

procedure Tfrm_op_seae_weituo.Panel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel2.Width/13);
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton38.Width:=i;
  bsSkinButton16.Width:=i;
  bsSkinButton19.Width:=i;
  bsSkinButton17.Width:=i;
end;

procedure Tfrm_op_seae_weituo.bsSkinButton7Click(Sender: TObject);
begin
  table_Prior(t_op_seae_order);
end;

procedure Tfrm_op_seae_weituo.bsSkinButton6Click(Sender: TObject);
begin
  table_next(t_op_seae_order);
end;

procedure Tfrm_op_seae_weituo.bsSkinButton2Click(Sender: TObject);

begin



  table_post(t_ch_fee);
  table_post(t_op_seae_order);
end;

procedure Tfrm_op_seae_weituo.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڶ<EFBFBD><DAB6>տ<EFBFBD>',2,t_op_seae_order1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfrm_op_seae_weituo.bsSkinButton11Click(Sender: TObject);
begin



  table_before_post(t_op_seae_order,'¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_order,'ί<>е<EFBFBD>λ');
  table_before_post(t_op_seae_order,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_order,'<27><><EFBFBD>ѷ<EFBFBD>ʽ');

  table_before_post(t_op_seae_order,'¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');


  table_before_post(t_op_seae_order,'װ<><D7B0><EFBFBD><EFBFBD>');


  table_before_post(t_op_seae_order,'ж<><D0B6><EFBFBD><EFBFBD>');


  table_before_post(t_op_seae_order,'Ŀ<>ĵ<EFBFBD>');


////



  if t_op_seae_order.State in [dsedit,dsinsert] then t_op_seae_order.post;

  {
  if  t_op_seae_order.FieldByName('<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>').AsBoolean and  (Trim(t_op_seae_order.FieldByName('<27><><EFBFBD>۸<EFBFBD><DBB8>Ѷ<EFBFBD><D1B6><EFBFBD>').AsString)='') then
  begin
    ShowMessage('<27><><EFBFBD>۸<EFBFBD><DBB8>Ѷ<EFBFBD><D1B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>');
    exit;
  end;
   }
  if Trim(t_op_seae_order.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)='' then
  begin
    ShowMessage('ҵ<><D2B5><EFBFBD><EFBFBD>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>');
    exit;
  end;

  if Trim(t_op_seae_order.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)='Sales' then
  begin
    if Trim(t_op_seae_order.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString)='' then
    begin
      ShowMessage('<27><>Դ<EFBFBD><D4B4>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>');
      exit;
    end;
  end;

  if strtobool(get_parameters_value(161,'false')) then
  begin
    if t_op_seae_order.IsEmpty or (Trim(t_op_seae_order.FieldByName('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').AsString)='') then
    begin
      ShowMessage('ί<>б<EFBFBD><D0B1><EFBFBD>');
      exit;
    end;
    t_op_seae_order.edit;
    if t_op_seae_order.FieldByName('״̬').AsString='<27><><EFBFBD>ض<EFBFBD><D8B6><EFBFBD>' then begin
      t_op_seae_order.FieldByName('״̬').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD>ύ';
      t_op_seae_order.post;
    end else begin
      t_op_seae_order.FieldByName('״̬').AsString:='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>';
      t_op_seae_order.post;
//      Send_saleorder_shen('<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>,ί<>б<EFBFBD><D0B1><EFBFBD>:'+t_op_seae_order.FieldByName('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').AsString,employee)
    end;
  end
  else
  begin

    if t_op_seae_order=nil then
      exit;

    if IsSeaeOrder(t_op_seae_order.fieldbyname('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').AsString) then
    begin
      MessageDlg('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>,<2C><><EFBFBD><EFBFBD>Ҫȷ<D2AA><C8B7>,<2C><>ˢ<EFBFBD>£<EFBFBD>', mtConfirmation, [mbYes],0);
      exit;
    end;
    try
      frm_op_seae_order_add:=tfrm_op_seae_order_add.Create (self);
      frm_op_seae_order_add.data1.Enabled:=false;
      frm_op_seae_order_add.data1.DataSet:=t_op_seae;
      frm_op_seae_order_add.data1.Enabled:=true;

      frm_op_seae_order_add.data2.Enabled:=false;
      frm_op_seae_order_add.data2.DataSet:=t_op_seae_order;
      frm_op_seae_order_add.data2.Enabled:=true;

      frm_op_seae_order_add.data3.Enabled:=false;
      frm_op_seae_order_add.data3.DataSet:=t_op_ctn_insert;
      frm_op_seae_order_add.data3.Enabled:=true;

      frm_op_seae_order_add.data4.Enabled:=false;
      frm_op_seae_order_add.data4.DataSet:=t_op_fee;
      frm_op_seae_order_add.data4.Enabled:=true;

      frm_op_seae_order_add.data5.Enabled:=false;
      frm_op_seae_order_add.data5.DataSet:=t_ch_fee;
      frm_op_seae_order_add.data5.Enabled:=true;
      frm_op_seae_order_add.ShowModal;
    finally
      frm_op_seae_order_add.Free;
      frm_op_seae_order_add:=nil;
    end;
  end;
end;

procedure Tfrm_op_seae_weituo.bsSkinButton4Click(Sender: TObject);
begin
  if not t_ch_fee.IsEmpty then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  table_delete(t_op_seae_order);
end;

procedure Tfrm_op_seae_weituo.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_op_seae_order);
end;

procedure Tfrm_op_seae_weituo.bsSkinButton38Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  book1:=t_op_seae_order.GetBookmark;
  t_op_seae_order.Requery;
  t_op_seae_order.GotoBookmark(book1);
end;

procedure Tfrm_op_seae_weituo.OpFeeItem(bsno:string);
begin
  if if_open('293') then
  begin
    if (strtobool(get_parameters_value(153,'false'))=true) then begin
      if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
      begin
        t_ch_accept.close;
        t_ch_accept.SQL.Clear;
        t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
          +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>='+''''+bsno+''''+ ' and (¼<><C2BC><EFBFBD><EFBFBD>='
          +''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
          +' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
          +' order by ˳<><CBB3>,CH_ID');
//        t_ch_accept.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
        t_ch_accept.open;
      end else begin
        t_ch_accept.close;
        t_ch_accept.SQL.Clear;
        t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
          +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>='+''''+bsno+''''+ '  and '
           +open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
          +' order by ˳<><CBB3>,CH_ID');
      //  t_ch_accept.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
        t_ch_accept.open;
      end;
    end else begin
      if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
      begin
        t_ch_accept.close;
        t_ch_accept.SQL.Clear;
        t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
          +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>='+''''+bsno+''''+ '  and (¼<><C2BC><EFBFBD><EFBFBD>='
          +''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
          +' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
        t_ch_accept.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
      //  t_ch_accept.open;
      end;
    end;
  end;


  if if_open('294') then
  begin
    if (strtobool(get_parameters_value(153,'false'))=true) then
    begin
      if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
      begin
        t_ch_pay.close;
        t_ch_pay.SQL.Clear;
        t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
          +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>='+''''+bsno+''''+ '  and (¼<><C2BC><EFBFBD><EFBFBD>='
          +''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
          +' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
           +' order by ˳<><CBB3>,CH_ID');
       // t_ch_pay.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
        t_ch_pay.open;
      end
      else
      begin
        t_ch_pay.close;
        t_ch_pay.SQL.Clear;
        t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
          +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>='+''''+bsno+''''+ '  and '
          +open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
          +' order by ˳<><CBB3>,CH_ID');
     //   t_ch_pay.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
        t_ch_pay.open;
      end;
    end
    else
    begin
      if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
      begin
        t_ch_pay.close;
        t_ch_pay.SQL.Clear;
        t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
          +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>='+''''+bsno+''''+ ' and (¼<><C2BC><EFBFBD><EFBFBD>='
          +''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
          +' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
     //   t_ch_pay.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
        t_ch_pay.open;
      end;
    end;
  end;
end;


procedure Tfrm_op_seae_weituo.FormShow(Sender: TObject);

begin


  if not ASSIGNED(frm_sys_progress) then
    frm_sys_progress:=tfrm_sys_progress.Create(self);
  frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
  frm_sys_progress.Show;
  frm_sys_progress.bsSkinGauge1.MaxValue:=28;
  frm_sys_progress.bsSkinGauge1.MinValue:=0;
  frm_sys_progress.bsSkinGauge1.Value:=0;
  frm_sys_progress.Update;
  bsSkinPageControl1.ActivePageIndex:=0;
  t_op_seae_order.Close;
  t_op_seae_order.SQL.clear;
  t_op_seae_order.SQL.Add('select * from t_op_seae_order where (״̬=''<27>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD>'' or ״̬=''<27><><EFBFBD>ض<EFBFBD><D8B6><EFBFBD>'') and '
                   +open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no')
                   +' order by ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_op_seae_order.open;
  t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_billsalescharge;
  t_op_seae_order.FieldByName('Ĭ<><C4AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_billsalescharge;
  t_billsalescharge(nil);
  t_ch_fee.Open;

  t_op_seae.Close;
  t_op_seae.open;


  loadreggrid(dxdbgrid1,false,caption);

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  frm_sys_progress.close;
  frm_sys_progress:=nil;
  wwDBDateTimePicker2.MinDate:=Date;
  if strtobool(get_parameters_value(161,'true')) then
    bsSkinButton11.Caption:='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'
  else
    bsSkinButton11.Caption:='ȷ<>϶<EFBFBD><CFB6><EFBFBD>';

  if if_open('501') then
    bsSkinButton16.Visible:=True
  else
    bsSkinButton16.Visible:=false;

end;

procedure Tfrm_op_seae_weituo.t_op_seae_orderBeforeCancel(DataSet: TDataSet);
begin
  delete_no(t_op_seae_order);
end;

procedure Tfrm_op_seae_weituo.t_op_seae_orderPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  str:widestring;
begin
end;

procedure Tfrm_op_seae_weituo.bsSkinButton10Click(Sender: TObject);
var
  str:string;
begin
  str:=' and '+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no');
  if Edit1.text<>''then
    str:=str+' and <20><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
  if wwDBComboBox44.text<>''then
    str:=str+' and ״̬='+''''+wwDBComboBox44.text+'''';
  if RxDBLookupCombo2.DisplayValues[1]<>''then
    str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
  if RxDBLookupCombo3.DisplayValues[1]<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo3.DisplayValues[1]+'''';


  if RxDBLookupCombo16.DisplayValues[1]<>''then
    str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD>Դ='+''''+RxDBLookupCombo16.DisplayValues[1]+'''';

  if RxDBLookupCombo17.DisplayValues[1]<>''then
    str:=str+' and <20><>Դ<EFBFBD><D4B4>ϸ='+''''+RxDBLookupCombo17.DisplayValues[1]+'''';

  if Edit3.text<>''then
    str:=str+' and <20>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD> like '+''''+'%'+Edit3.text+'%'+'''';


  if wwDBDateTimePicker1.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
  if wwDBDateTimePicker3.text<>''then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker3.text+'''';
  if wwDBDateTimePicker5.text<>''then
    str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker5.text+'''';
  if wwDBDateTimePicker6.text<>''then
    str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker6.text+'''';
  if bsSkinCheckRadioBox1.Checked then
     str:=str+' and ״̬<>''<27><><EFBFBD>˲<EFBFBD>''';


  t_op_seae_order.Close;
  t_op_seae_order.SQL.clear;
  t_op_seae_order.SQL.Add('select * from t_op_seae_order where 1=1 '
                   +str
                   +' order by ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  t_op_seae_order.open;


end;

procedure Tfrm_op_seae_weituo.bsSkinButton8Click(Sender: TObject);
begin
  t_ch_fee.insert;
end;

procedure Tfrm_op_seae_weituo.bsSkinButton12Click(Sender: TObject);
begin
  t_ch_fee.Post;
end;

procedure Tfrm_op_seae_weituo.bsSkinButton13Click(Sender: TObject);
begin
  table_delete(t_ch_fee);
end;

procedure Tfrm_op_seae_weituo.bsSkinButton14Click(Sender: TObject);
begin
  table_cancel(t_ch_fee);
end;

procedure Tfrm_op_seae_weituo.t_op_seae_orderBeforePost(DataSet: TDataSet);
var
  aQuery:TADOQuery;
begin
  if not checkctn( t_op_seae_order.FieldByName('OR_ID').AsInteger) then
  begin
    ShowMessage('<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC><EFBFBD>!');
    Abort;
  end;
  table_before_post(t_op_seae_order,'¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_order,'ί<>е<EFBFBD>λ');
  table_before_post(t_op_seae_order,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_order,'<27><><EFBFBD>ѷ<EFBFBD>ʽ');
  table_before_post(t_op_seae_order,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
  table_before_post(t_op_seae_order,'¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_order,'<27><><EFBFBD><EFBFBD>˾');

  table_before_post(t_op_seae_order,'װ<><D7B0><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_order,'<27><><EFBFBD><EFBFBD>');


  table_before_post(t_op_seae_order,'ж<><D0B6><EFBFBD><EFBFBD>');


  table_before_post(t_op_seae_order,'Ŀ<>ĵ<EFBFBD>');
  if ((t_op_seae_order.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='ƴ<>䵥Ʊ') or (t_op_seae_order.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')) and (t_op_seae_order.FieldByName('<27><>װ<EFBFBD><D7B0>').AsString<>'') then begin
    if MessageDlg('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mrno then
    Abort;
    aQuery:=CreateAdoQuery;
    try
      with aQuery do begin
        Close;SQL.Clear;
        SQL.Add('delete from t_opor_ctn where OR_ID='''+t_op_seae_order.fieldbyname('OR_ID').AsString+'''');
        ExecSQL;
      end;
    finally
      FreeAndNil(aQuery);
    end;

   t_op_seae_order['<27><>װ<EFBFBD><D7B0>']:='';

  end;
  

  if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
    table_before_post(t_op_seae_order,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    if t_op_seae_order.FieldByName('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').IsNull or (trim(t_op_seae_order['<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>'])='') then
    t_op_seae_order['<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
  end else begin
    if t_op_seae_order.FieldByName('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').IsNull or (trim(t_op_seae_order['<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>'])='') then
     t_op_seae_order['<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_seae_order.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
  end;

end;

procedure Tfrm_op_seae_weituo.t_ch_feeAfterInsert(DataSet: TDataSet);
begin
  t_ch_fee['OR_ID']:=t_op_seae_order['OR_ID'];
  t_ch_fee['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  t_ch_fee['Ӧ<>յ<EFBFBD><D5B5><EFBFBD>']:=0;
  t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_fee['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=0;
  t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  if t_op_seae_order.FieldByName('ί<>е<EFBFBD>λ').AsString<>'' then
    t_ch_fee.FieldByName('Ӧ<>տͻ<D5BF>').AsString:=t_op_seae_order.FieldByName('ί<>е<EFBFBD>λ').AsString;
  if t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').AsString<>'' then
    t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD>').AsString:=t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').AsString;

end;

procedure Tfrm_op_seae_weituo.t_ch_feeBeforePost(DataSet: TDataSet);
begin
  if t_ch_fee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='' then begin
    MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
    abort;
  end;

  if (t_ch_fee.fieldbyname('Ӧ<>յ<EFBFBD><D5B5><EFBFBD>').asfloat<>0) and  (t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<>0) then
  begin
    t_ch_fee['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=
      s_w(strtoint(apointnum),t_ch_fee.fieldbyname('Ӧ<>յ<EFBFBD><D5B5><EFBFBD>').asfloat*t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat);
  end;

  if (t_ch_fee.fieldbyname('Ӧ<>ս<EFBFBD><D5BD><EFBFBD>').asfloat<>0) then begin
    if t_ch_fee.fieldbyname('Ӧ<>ձұ<D5B1>').AsString='' then begin
      MessageDlg('Ӧ<>ձұ<D5B1><D2B1><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
      abort;
    end;
    if t_ch_fee.fieldbyname('Ӧ<>ջ<EFBFBD><D5BB><EFBFBD>').Asfloat=0 then begin
      MessageDlg('Ӧ<>ջ<EFBFBD><D5BB>ʲ<EFBFBD><CAB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
      abort;
    end;

  end;
  t_ch_fee['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_fee['Ӧ<>ս<EFBFBD><D5BD><EFBFBD>']);

  if (t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<>0) and (t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<>0)then
  begin
    t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=
      s_w(strtoint(apointnum),t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat*t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat);
  end;
  if (t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<>0) then begin
    if t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD>ұ<EFBFBD>').AsString='' then begin
      MessageDlg('Ӧ<><D3A6><EFBFBD>ұ<EFBFBD><D2B1><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
      abort;
    end;
    if t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat=0 then begin
      MessageDlg('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>ʲ<EFBFBD><CAB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
      abort;
    end;

  end;

  t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=s_w(strtoint(apointnum),t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);


end;

procedure Tfrm_op_seae_weituo.t_op_seae_orderBeforeEdit(DataSet: TDataSet);
begin
  if (t_op_seae_order.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').AsString<>employee) and (t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>employee) then begin
    MessageDlg('ֻ<><D6BB><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ĺ<DEB8>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbyes],0);
    abort;
  end;



  if t_op_seae_order.FieldByName('״̬').AsString='<27><><EFBFBD>ܶ<EFBFBD><DCB6><EFBFBD>' then begin
    MessageDlg('<27>ѽ<EFBFBD><D1BD>ܶ<EFBFBD><DCB6>ղ<EFBFBD><D5B2><EFBFBD><EFBFBD>޸ģ<DEB8>',mtWarning,[mbyes],0);
    abort;
  end;
  if t_op_seae_order.FieldByName('״̬').AsString='<27><><EFBFBD>˲<EFBFBD>' then begin
    MessageDlg('<27><><EFBFBD>˲ղ<CBB2><D5B2><EFBFBD><EFBFBD>޸ģ<DEB8>',mtWarning,[mbyes],0);
    abort;
  end;
  if t_op_seae_order.FieldByName('״̬').AsString='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then begin
    MessageDlg('<27><><EFBFBD>˲ղ<CBB2><D5B2><EFBFBD><EFBFBD>޸ģ<DEB8>',mtWarning,[mbyes],0);
    abort;
  end;
  if t_op_seae_order.State in [dsedit,dsinsert] then t_op_seae_order.post;

end;

procedure Tfrm_op_seae_weituo.bsSkinButton15Click(Sender: TObject);
begin
  Edit1.text:='';
  wwDBComboBox44.text:='';
  RxDBLookupCombo2.ClearValue;
  RxDBLookupCombo3.ClearValue;
  wwDBDateTimePicker1.text:='';
  wwDBDateTimePicker3.text:='';
  wwDBDateTimePicker5.text:='';
  wwDBDateTimePicker6.text:='';
 end;

procedure Tfrm_op_seae_weituo.DBEdit5Click(Sender: TObject);
begin

  if (t_op_seae_order.State=dsinsert)then
    t_op_seae_order.post;
  if t_op_seae_order.IsEmpty then
    exit;
  if (t_op_seae_order.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
  or (t_op_seae_order.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')then
    exit;
  try
    frm_opor_ctn:=tfrm_opor_ctn.Create (self);
    frm_opor_ctn.t_op_ctn.DataSource:=t_op_seae_order1;
    frm_opor_ctn_type:=true;
    frm_opor_ctn.ShowModal;
  finally
    frm_opor_ctn.Free;
  end;
end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo1Change(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
  try
    aAdoQuery:=CreateAdoQuery;
    with aAdoQuery do
    begin
      Close;SQL.Clear;
      SQL.Add('select Top 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ,<2C><><EFBFBD><EFBFBD> from t_opor_ctn');
      SQL.Add('where OR_ID=:OR_ID');
      Parameters.ParamByName('OR_ID').Value:=t_op_seae_order.fieldbyname('OR_ID').asinteger;
      open;
    end;
  if (t_ch_fee.state=dsinsert)or(t_ch_fee.state=dsedit) then
  begin
    if not frm_data_share.t_code_fee.IsEmpty then
    if frm_data_share.t_code_fee.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo1.text,[]) then
    begin
      t_ch_fee['Ӧ<>ձұ<D5B1>']:=frm_data_share.t_code_fee.fieldbyname('Ĭ<>ϱұ<CFB1>').asstring;
      t_ch_fee['Ӧ<><D3A6><EFBFBD>ұ<EFBFBD>']:=frm_data_share.t_code_fee.fieldbyname('Ĭ<>ϱұ<CFB1>').asstring;

      if frm_data_share.t_code_fee.fieldbyname('<27><>׼').asstring='<27><><EFBFBD><EFBFBD>' then
      begin

        if not aAdoQuery.IsEmpty then
        begin
          t_ch_fee['Ӧ<>ձ<EFBFBD>׼']:=aAdoQuery.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring;
          t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aAdoQuery.fieldByName('<27><><EFBFBD><EFBFBD>').asinteger;

          t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD>׼']:=aAdoQuery.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring;
          t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aAdoQuery.fieldByName('<27><><EFBFBD><EFBFBD>').asinteger;
        end;

      end
      else
      begin
        t_ch_fee['Ӧ<>ձ<EFBFBD>׼']:=frm_data_share.t_code_fee.fieldbyname('<27><>׼').asstring;
        t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD>׼']:=frm_data_share.t_code_fee.fieldbyname('<27><>׼').asstring;
      end;


    end;
  end;
  finally
    aAdoQuery.Free;
  end;
end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo3Change(Sender: TObject);
begin
  if (t_ch_fee.state=dsinsert)or(t_ch_fee.state=dsedit) then
  begin
    IF frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',wwDBLookupCombo3.text,[])THEN
    begin
      if wwDBLookupCombo3.text='USD' then begin
          t_ch_fee['Ӧ<>ջ<EFBFBD><D5BB><EFBFBD>']:=getUsdExRate(t_ch_fee.datasource.dataset.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
      end else
        t_ch_fee['Ӧ<>ջ<EFBFBD><D5BB><EFBFBD>']:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
    end;
  end;

end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo5Change(Sender: TObject);
begin
  if (t_ch_fee.state=dsinsert)or(t_ch_fee.state=dsedit) then
  begin
    IF frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',wwDBLookupCombo5.text,[])THEN
    begin
      if wwDBLookupCombo5.text='USD' then begin
         t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_fee.datasource.dataset.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
      end else
        t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
    end;
  end;

end;

procedure Tfrm_op_seae_weituo.dxDBGrid1DblClick(Sender: TObject);
begin
  bsSkinPageControl1.ActivePageIndex:=1;

end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo12Change(Sender: TObject);
begin
  if RxDBLookupCombo12.DisplayValue='' then
   exit;
  if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo12.DisplayValue,[]) then  begin
      t_op_seae_order['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_order['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=frm_data_share.t_sys_employee['ҵ<><D2B5><EFBFBD><EFBFBD>Դ'];
      t_op_seae_order['<27><>Դ<EFBFBD><D4B4>ϸ']:=frm_data_share.t_sys_employee['<27><>Դ<EFBFBD><D4B4>ϸ'];
  end;
end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo1Enter(Sender: TObject);
begin
  RxLookupComboEnter_All(RxDBLookupCombo1);
end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo8Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo8);

end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo1Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo1);

end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo8Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo8);

end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo4Change(Sender: TObject);
begin
  if (t_op_seae_order.State=dsinsert)or(t_op_seae_order.State=dsedit)then
  begin
    if RxDBLookupCombo4.DisplayValue<>'' then
      t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo5Change(Sender: TObject);
begin
  if (t_op_seae_order.State=dsinsert)or(t_op_seae_order.State=dsedit)then
  begin
    if RxDBLookupCombo5.DisplayValue<>'' then
      t_op_seae_order['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo6Change(Sender: TObject);
begin
  if (t_op_seae_order.State=dsinsert)or(t_op_seae_order.State=dsedit)then
  begin
    if RxDBLookupCombo6.DisplayValue<>'' then
      t_op_seae_order['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_weituo.DBMemo40Change(Sender: TObject);
begin
  if (t_op_seae_order.state=dsedit)or(t_op_seae_order.state=dsinsert)then
  begin
    t_op_seae_order['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo40);
    t_op_seae_order['<27><>װ']:=total_package(dbmemo40);
    t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
          :='SAY:'+ntoc(t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
           +t_op_seae_order.FieldByName('<27><>װ').asstring+' ONLY.';
  end;
end;

procedure Tfrm_op_seae_weituo.DBMemo41Change(Sender: TObject);
begin
  if (t_op_seae_order.state=dsedit)or(t_op_seae_order.state=dsinsert)then
  begin
    t_op_seae_order['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo41);
  end;
end;

procedure Tfrm_op_seae_weituo.DBMemo42Change(Sender: TObject);
begin
  if (t_op_seae_order.state=dsedit)or(t_op_seae_order.state=dsinsert)then
  begin
    t_op_seae_order['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo42);
  end;
end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo6Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
  begin
    t_op_seae_order.edit;
    t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo7Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo7.text,[]) then
  begin
    t_op_seae_order.edit;
    t_op_seae_order['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo8Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo8.text,[]) then
  begin
    t_op_seae_order.edit;
    t_op_seae_order['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo6Exit(Sender: TObject);
begin
  wwDBLookupCombo6.Clear;

end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo7Exit(Sender: TObject);
begin
  wwDBLookupCombo7.Clear;
end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo8Exit(Sender: TObject);
begin
  wwDBLookupCombo8.Clear;
end;

procedure Tfrm_op_seae_weituo.N1Click(Sender: TObject);
begin
  t_op_seae_order.Insert;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
  t_op_seae_order['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_op_seae_order['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_op_seae_order['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=department;
  t_op_seae_order['״̬']:='<27>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD>';
  t_op_seae_order['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
  t_op_seae_order['<27><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae_order['<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae_order['<27>ӻ<EFBFBD><D3BB><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae_order['<27>ֵ<EFBFBD>']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
  t_op_seae_order['<27>Ƿ<EFBFBD><C7B7><EFBFBD>Ӷ']:=0;
  t_op_seae_order['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>1']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>2']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>3']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>4']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>5']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>6']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>7']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>8']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>9']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>10']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae_order['<27><>TEU']:=0;
  t_op_seae_order['<27><>װ<EFBFBD><D7B0>']:='';
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
  t_op_seae_order['װ<><D7B0><EFBFBD><EFBFBD>']:=get_parameters_value(14,'QINGDAO,CHINA');

  t_op_seae_order['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
  t_op_seae_order['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae_order['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
  t_op_seae_order['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;

  if frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',employee,[]) then begin
    t_op_seae_order['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=frm_data_share.t_sys_employee.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString;
    t_op_seae_order['<27><>Դ<EFBFBD><D4B4>ϸ']:=frm_data_share.t_sys_employee.fieldbyname('<27><>Դ<EFBFBD><D4B4>ϸ').AsString;
  end;

  t_op_seae_order['<27><><EFBFBD><EFBFBD>Ա']:='';
  t_op_seae_order['<27>ͷ<EFBFBD>Ա']:='';


  bsSkinPageControl1.ActivePageIndex:=1;

end;

procedure Tfrm_op_seae_weituo.bsSkinButton1Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);

end;

function Tfrm_op_seae_weituo.checkctn(aOR_ID:integer):Boolean;
var
  aQuery:TAdoQuery;
begin
  Result:=True;
  aQuery:=CreateAdoQuery;
    with aQuery do
    begin
      close;sql.clear;
      sql.Add('select a.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ as opor<6F><72><EFBFBD><EFBFBD> ,b.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ from t_opor_ctn a inner join t_code_ctn b on a.<2E><><EFBFBD><EFBFBD>=b.<2E><><EFBFBD><EFBFBD> where a.OR_ID='+inttostr(aOR_ID));
      open;
    end;
   aQuery.First;
   while not aQuery.Eof do
   begin
     if aQuery.FieldByName('opor<6F><72><EFBFBD><EFBFBD>').AsString<> aQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString  then
     begin
       Result:=False;
       Break;
     end;
     aQuery.Next;
   end;

end;


procedure Tfrm_op_seae_weituo.N3Click(Sender: TObject);
var
  afield,afieldfee : variant;
  aOR_ID:integer;
  aQuery:TAdoQuery;
  i:integer;
  s:string;
begin
  if t_op_seae_order.IsEmpty then begin
    exit;
    MessageDlg('û<>и<EFBFBD><D0B8>Ƶ<EFBFBD><C6B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӣ<EFBFBD>',mtWarning,[mbok],0);
  end;
  afield := vararraycreate([0,t_op_seae_order.fieldcount-1],varvariant);
  for i := 0 to (t_op_seae_order.fieldcount-1) do
  begin
    afield[i] :=t_op_seae_order.fields[i].value ;
  end;
  aOR_ID:=t_op_seae_order.fieldbyname('OR_ID').AsInteger;


  if not  checkctn(aOR_ID) then
  begin
    ShowMessage('<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC><EFBFBD>!');
    Exit;
  end;

  s:=t_op_seae_order.fieldbyname('<27><>װ<EFBFBD><D7B0>').AsString;

  t_op_seae_order.append;
  for i := 0 to (t_op_seae_order.fieldcount-1) do
  begin
    if t_op_seae_order.fields[i].FieldName<>'OR_ID' then
    t_op_seae_order.fields[i].value := afield[i] ;
  end;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
  t_op_seae_order['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_op_seae_order['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_op_seae_order['<27><><EFBFBD>˷<EFBFBD>']:=0;
  t_op_seae_order['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=department;
  t_op_seae_order['״̬']:='<27>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD>';
  t_op_seae_order['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:='';
  t_op_seae_order['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:='';
  t_op_seae_order['<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>']:='';

  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
  t_op_seae_order['״̬']:='<27>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD>';
  t_op_seae_order['<27><><EFBFBD><EFBFBD>']:='';
  t_op_seae_order['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_op_seae_order['<27>ύ<EFBFBD><E1BDBB>']:='';
  t_op_seae_order['<27>ύʱ<E1BDBB><CAB1>']:=null;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_op_seae_order['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=null;
  t_op_seae_order['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:='';

  if frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',employee,[]) then begin
    t_op_seae_order['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=frm_data_share.t_sys_employee.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString;
    t_op_seae_order['<27><>Դ<EFBFBD><D4B4>ϸ']:=frm_data_share.t_sys_employee.fieldbyname('<27><>Դ<EFBFBD><D4B4>ϸ').AsString;
  end;
  t_op_seae_order['<27><><EFBFBD><EFBFBD>Ա']:='';
  t_op_seae_order['<27>ͷ<EFBFBD>Ա']:='';



  t_op_seae_order.Post;

  bsSkinPageControl1.ActivePageIndex:=1;
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      close;sql.clear;
      sql.Add('select * from t_opor_ctn where OR_ID='+inttostr(aOR_ID));
      open;
      if not t_op_ctn.active then
      t_op_ctn.Open;
      first;
      while not eof do begin
        t_op_ctn.Insert;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
        t_op_ctn.fieldbyname('<27>ߴ<EFBFBD>').AsString:=aQuery.fieldbyname('<27>ߴ<EFBFBD>').AsString;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').Asinteger:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').Asinteger;
        t_op_ctn.fieldbyname('TEU').Asinteger:=aQuery.fieldbyname('TEU').Asinteger;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').Asinteger:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').Asinteger;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').Asfloat:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').Asfloat;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').Asfloat:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').Asfloat;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
        t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
        t_op_ctn.fieldbyname('<27><>װ').AsString:=aQuery.fieldbyname('<27><>װ').AsString;
        t_op_ctn.fieldbyname('Ʒ<><C6B7>').AsString:=aQuery.fieldbyname('Ʒ<><C6B7>').AsString;
        t_op_ctn.fieldbyname('<27><>ͷ').AsString:=aQuery.fieldbyname('<27><>ͷ').AsString;
        t_op_ctn.fieldbyname('<27><>ע').AsString:=aQuery.fieldbyname('<27><>ע').AsString;
        t_op_ctn.Post;
        next;
      end;
      if Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>','<27><>ʾ',MB_YESNO+ MB_ICONINFORMATION)=IDYES then begin
        close;sql.clear;
        sql.Add('select * from t_ch_orderfee where OR_ID='+inttostr(aOR_ID));
        open;
        if not IsEmpty then begin
          first;
          while not eof do begin
            t_ch_fee.Insert;
            t_ch_fee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=aQuery.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            t_ch_fee.fieldbyname('Ӧ<>ձ<EFBFBD>׼').AsString:=aQuery.fieldbyname('Ӧ<>ձ<EFBFBD>׼').AsString;
            t_ch_fee.fieldbyname('Ӧ<>ձұ<D5B1>').AsString:=aQuery.fieldbyname('Ӧ<>ձұ<D5B1>').AsString;
            t_ch_fee.fieldbyname('Ӧ<>յ<EFBFBD><D5B5><EFBFBD>').Asfloat:=aQuery.fieldbyname('Ӧ<>յ<EFBFBD><D5B5><EFBFBD>').Asfloat;
            t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat:=aQuery.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat;
            t_ch_fee.fieldbyname('Ӧ<>ս<EFBFBD><D5BD><EFBFBD>').Asfloat:=aQuery.fieldbyname('Ӧ<>ս<EFBFBD><D5BD><EFBFBD>').Asfloat;
            t_ch_fee.fieldbyname('Ӧ<>ջ<EFBFBD><D5BB><EFBFBD>').Asfloat:=aQuery.fieldbyname('Ӧ<>ջ<EFBFBD><D5BB><EFBFBD>').Asfloat;
            t_ch_fee.fieldbyname('Ӧ<>տͻ<D5BF>').AsString:=aQuery.fieldbyname('Ӧ<>տͻ<D5BF>').AsString;
            t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD>׼').AsString:=aQuery.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD>׼').AsString;
            t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD>ұ<EFBFBD>').AsString:=aQuery.fieldbyname('Ӧ<><D3A6><EFBFBD>ұ<EFBFBD>').AsString;
            t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat:=aQuery.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat;
            t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat:=aQuery.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat;
            t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat:=aQuery.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat;
            t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat:=aQuery.fieldbyname('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asfloat;
            t_ch_fee.fieldbyname('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD>').AsString:=aQuery.fieldbyname('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD>').AsString;
	    t_ch_fee.post;
            next;
          end;
        end;
      end;
    end;
  finally
    freeandnil(aQuery);
  end;
  t_op_seae_order.Edit;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
  t_op_seae_order['״̬']:='<27>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD>';
  t_op_seae_order['<27><><EFBFBD><EFBFBD>']:='';
  t_op_seae_order['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_op_seae_order['<27>ύ<EFBFBD><E1BDBB>']:='';
  t_op_seae_order['<27>ύʱ<E1BDBB><CAB1>']:=null;
  t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
  t_op_seae_order['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=null;
  t_op_seae_order['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:='';

 // t_op_seae_order['<27><>װ<EFBFBD><D7B0>']:=s;
  t_op_seae_order.post;
end;

procedure Tfrm_op_seae_weituo.N10Click(Sender: TObject);
begin
  update_grid_view_no(dxdbgrid1);
end;

procedure Tfrm_op_seae_weituo.N16Click(Sender: TObject);
begin
  grid_save_xls(dxdbgrid1);
end;

procedure Tfrm_op_seae_weituo.N14Click(Sender: TObject);
begin
  update_grid_view_all(dxdbgrid1);
end;

procedure Tfrm_op_seae_weituo.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,209);
end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo1Change(Sender: TObject);
begin
  if t_op_seae_order.State in [dsedit,dsinsert] then begin
    if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[])then
    begin
      if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
      begin
        t_op_seae_order['Ĭ<><C4AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
      end else
        t_op_seae_order['Ĭ<><C4AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
    end;

  end;
end;

procedure Tfrm_op_seae_weituo.t_billsalescharge(Sender: TField);
begin
  lblsales.Caption:='';
  if (t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'') and (t_op_seae_order.FieldByName('Ĭ<><C4AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>'') then
  if t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString<>t_op_seae_order.FieldByName('Ĭ<><C4AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString then begin
    lblsales.Caption:='ע<>⣺<EFBFBD><E2A3BA>ί<EFBFBD>е<EFBFBD>λ<EFBFBD><CEBB>Ĭ<EFBFBD><C4AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ'+t_op_seae_order.FieldByName('Ĭ<><C4AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
  end;
end;

procedure Tfrm_op_seae_weituo.t_ch_feeAfterOpen(DataSet: TDataSet);
begin
  t_ch_fee.FieldByName('Ӧ<>յ<EFBFBD><D5B5><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
  t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_ch_acceptdjoncharge;
  t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_ch_paydjoncharge;
  t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_ch_paydjoncharge;

end;

procedure Tfrm_op_seae_weituo.t_ch_feeAfterPost(DataSet: TDataSet);
var
  aQuery:TAdOQuery;
begin
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      close;sql.clear;
      sql.add('select sum(Ӧ<>ս<EFBFBD><D5BD><EFBFBD>) as Ӧ<>ս<EFBFBD><D5BD><EFBFBD> from t_ch_orderfee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD>˷<EFBFBD>'' and Ӧ<>ս<EFBFBD><D5BD><EFBFBD><>0 and OR_ID='+DataSet.fieldbyname('OR_ID').AsString);
      open;
      if not IsEmpty then begin
        t_op_seae_order.Edit;
        t_op_seae_order.FieldByName('<27><><EFBFBD>˷<EFBFBD>').AsFloat:=fieldbyname('Ӧ<>ս<EFBFBD><D5BD><EFBFBD>').AsFloat;
        t_op_seae_order.post;
      end else begin
        t_op_seae_order.Edit;
        t_op_seae_order.FieldByName('<27><><EFBFBD>˷<EFBFBD>').AsFloat:=0;
        t_op_seae_order.post;
      end;
    end;
  finally
    freeandnil(aQuery);
  end;

end;

procedure Tfrm_op_seae_weituo.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  table_post(t_ch_fee);
  table_post(t_op_seae_order);

end;

procedure Tfrm_op_seae_weituo.dxDBGrid1Column9CustomDraw(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[dxDBGrid1Column9.Index]='<27><><EFBFBD>ض<EFBFBD><D8B6><EFBFBD>' then
    AColor:=clRed;
  if ANode.Strings[dxDBGrid1Column9.Index]='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
    AColor:=clYellow;
  if ANode.Strings[dxDBGrid1Column9.Index]='<27><><EFBFBD>ܶ<EFBFBD><DCB6><EFBFBD>' then
    AColor:=clGreen;
  AFont.Color:=clblack;

end;

procedure Tfrm_op_seae_weituo.dxDBGrid1CustomDraw(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
  if trim(ANode.Strings[dxDBGrid1Column9.Index])='<27><><EFBFBD>˲<EFBFBD>' then begin
   AFont.Style:=AFont.Style+[fsStrikeOut];
   AFont.Color:=clred;
  end;
  if trim(ANode.Strings[dxDBGrid1Column9.Index])='<27><><EFBFBD>ƺ<EFBFBD><C6BA><EFBFBD>' then begin
//    AFont.Style:=AFont.Style+[fsStrikeOut];
    AColor:=clFuchsia;
  end;
  if trim(ANode.Strings[dxDBGrid1Column9.Index])='<27>Ѹĸ<D1B8>' then begin
//    AFont.Style:=AFont.Style+[fsStrikeOut];
    AColor:=clYellow;
  end;

end;

procedure Tfrm_op_seae_weituo.wwDBLookupCombo52Change(Sender: TObject);
begin
  if t_op_seae_order1.DataSet=nil then
    exit;
  if (t_op_seae_order1.DataSet.state=dsedit)or(t_op_seae_order1.DataSet.state=dsinsert)then
  begin
    if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
    begin
      t_op_seae_order1.DataSet['Ŀ<>ĵ<EFBFBD>']:=wwDBLookupCombo52.text;
    end;
  end;

end;

procedure Tfrm_op_seae_weituo.bsSkinButton21Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_order1,'<27><>ע');

end;

procedure Tfrm_op_seae_weituo.wwDBComboBox3DropDown(Sender: TObject);
var
  str_list:tstringlist;
  i:Integer;
begin
  wwDBComboBox3.Items.Clear;
  wwDBComboBox3.Items.Add('<27><>Ʊ');
  wwDBComboBox3.Items.Add('<27><><EFBFBD><EFBFBD>');
  wwDBComboBox3.Items.Add('<27>ƷѶ<C6B7>');
  wwDBComboBox3.Items.Add('TEU');
  str_list:=Tstringlist.Create();
  try
    str_list.Text:=t_op_seae_order.fieldbyname('<27>Ʒѱ<C6B7>׼').asstring;
    for i:=0 to str_list.Count-1 do
    begin
      wwDBComboBox3.Items.Add(copy(str_list[i],pos('-',str_list[i])+1,length(str_list[i])+1-pos('-',str_list[i])));
    end;
  finally
    freeandnil(str_list);
  end;


end;

procedure Tfrm_op_seae_weituo.wwDBComboBox4DropDown(Sender: TObject);
var
  str_list:tstringlist;
  i:Integer;
begin
  wwDBComboBox4.Items.Clear;
  wwDBComboBox4.Items.Add('<27><>Ʊ');
  wwDBComboBox4.Items.Add('<27><><EFBFBD><EFBFBD>');
  wwDBComboBox4.Items.Add('<27>ƷѶ<C6B7>');
  wwDBComboBox4.Items.Add('TEU');
  str_list:=Tstringlist.Create();
  try
    str_list.Text:=t_op_seae_order.fieldbyname('<27>Ʒѱ<C6B7>׼').asstring;
    for i:=0 to str_list.Count-1 do
    begin
      wwDBComboBox4.Items.Add(copy(str_list[i],pos('-',str_list[i])+1,length(str_list[i])+1-pos('-',str_list[i])));
    end;
  finally
    freeandnil(str_list);
  end;

end;

procedure Tfrm_op_seae_weituo.bsSkinPageControl2Change(Sender: TObject);
begin
  if bsSkinPageControl2.TabIndex=2 then
  begin
    if t_op_seae_order.IsEmpty then exit;
{
    t_op_seae.Close;
    t_op_seae.Parameters.ParamByName('ί<>б<EFBFBD><D0B1><EFBFBD>').Value:=t_op_seae_order.fieldbyName('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').AsString;
    t_op_seae.Open;
}    
    if Trim(t_op_seae_order.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString)<>'' then
    begin
       OpFeeItem(t_op_seae_order.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString);
       getsumstr;
    end;  
  end;

  if bsSkinPageControl2.TabIndex=3 then
  begin
    if Trim(t_op_seae_order.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString)<>'' then
    begin
      t_op_seae_act.SQL.Clear;
      t_op_seae_act.SQL.Add('select <20>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>,֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ,<2C><><EFBFBD><EFBFBD>,<2C><>װ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD>ѷ<EFBFBD>ʽ,ǩ<><C7A9><EFBFBD>ص<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae');
      t_op_seae_act.SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
      t_op_seae_act.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae_order.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString;
      t_op_seae_act.Open;
    end;
  end;
end;

procedure Tfrm_op_seae_weituo.bsSkinButton18Click(Sender: TObject);
var aAdoQuery,aAdoQueryInsert:TAdoQuery;
begin
  if t_op_seae=nil then
    exit;
  if t_op_seae_order=nil then
    exit;

  if t_ch_fee=nil then exit;

  if t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString='' then
  begin
    MessageDlg('<27><>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>ɶ<EFBFBD><C9B6><EFBFBD>ί<EFBFBD>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ã<EFBFBD>', mtConfirmation, [mbYes],0);
    exit;
  end;


  if IsSeaeOrderStatus(t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString) then
  begin
    MessageDlg('<27><><EFBFBD><EFBFBD>ί<EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ã<EFBFBD>', mtConfirmation, [mbYes],0);
    exit;
  end;

  aAdoQuery:=CreateAdoQuery;
  aAdoQueryInsert:=CreateAdoQuery;
  with aAdoQuery do
  begin
    Close;SQL.Clear;
    SQL.Add('Update t_ch_orderfee set <20><><EFBFBD><EFBFBD>״̬=''<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>''');
    SQL.Add('where or_id='+t_op_seae_order.fieldbyname('or_id').AsString);
  end;

  with  aAdoQueryInsert do
  begin
    Close;SQL.Clear;
    SQL.Add('Insert Into t_ch_fee (<28>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>  ,<2C><><EFBFBD><EFBFBD> ,<2C><><EFBFBD><EFBFBD>״̬ ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ,<2C><>׼ ,<2C><><EFBFBD><EFBFBD> ,<2C><><EFBFBD><EFBFBD> ,<2C><><EFBFBD><EFBFBD> ,<2C>ұ<EFBFBD> ,<2C><><EFBFBD><EFBFBD> ,¼<><C2BC><EFBFBD><EFBFBD> ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ,<2C><><EFBFBD>뿪Ʊ ,<2C><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> ,<2C><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD> ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ,¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD> ,<2C>Ƿ<EFBFBD><C7B7>渶 ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ ,<2C><><EFBFBD>㵥λ ,˳<><CBB3> ,<2C><><EFBFBD><EFBFBD> ,<2C><><EFBFBD><EFBFBD>)');
    SQL.Add('values               (:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>״̬,:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,:<3A><>׼,:<3A><><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>,:<3A>ұ<EFBFBD>,:<3A><><EFBFBD><EFBFBD>,:¼<><C2BC><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,:<3A><><EFBFBD>뿪Ʊ,:<3A><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>,:<3A><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>,:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,:¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,:<3A>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>,:<3A>Ƿ<EFBFBD><C7B7>渶,:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ,:<3A><><EFBFBD>㵥λ,:˳<><CBB3>,:<3A><><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>)');
  end;


  frm_main.db.BeginTrans;

  try
    with t_ch_fee do
    begin
      First;
      while not Eof do
      begin
        if t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='¼<><C2BC>״̬' then
        begin
          if t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat<>0 then
          begin
            aAdoQueryInsert.Close;
            aAdoQueryInsert.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD>ͻ<EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:='<27><>';
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>״̬').Value:='¼<><C2BC>״̬';
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><>׼').Value:=t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD>׼').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27>ұ<EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD>ұ<EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').Value:=t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD>뿪Ʊ').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FormatDateTime('YYYY-MM-DD',now);
            aAdoQueryInsert.Parameters.ParamByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27>Ƿ<EFBFBD><C7B7>渶').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD>㵥λ').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾';
            aAdoQueryInsert.Parameters.ParamByName('˳<><CBB3>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.ExecSQL;
          end;
          if t_ch_fee.FieldByName('Ӧ<>ս<EFBFBD><D5BD><EFBFBD>').AsFloat<>0 then
          begin
            aAdoQueryInsert.Close;
            aAdoQueryInsert.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<>տͻ<D5BF>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:='<27><>';
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>״̬').Value:='¼<><C2BC>״̬';
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><>׼').Value:=t_ch_fee.FieldByName('Ӧ<>ձ<EFBFBD>׼').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<>յ<EFBFBD><D5B5><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<>ս<EFBFBD><D5BD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27>ұ<EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<>ձұ<D5B1>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_ch_fee.FieldByName('Ӧ<>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').Value:=t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD>뿪Ʊ').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FormatDateTime('YYYY-MM-DD',now);
            aAdoQueryInsert.Parameters.ParamByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27>Ƿ<EFBFBD><C7B7>渶').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD>㵥λ').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾';
            aAdoQueryInsert.Parameters.ParamByName('˳<><CBB3>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=0;
            aAdoQueryInsert.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae_order.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
            aAdoQueryInsert.ExecSQL;
          end;
        end;
        Next;
      end;
    end;  
    aAdoQuery.ExecSQL;
    frm_main.db.CommitTrans;
  finally
    aAdoQuery.Free;
    aAdoQueryInsert.Free;
    t_ch_fee.Requery();
    if  frm_main.db.InTransaction then
    begin
       frm_main.db.RollbackTrans;
    end;
  end;
end;

procedure Tfrm_op_seae_weituo.t_op_ctn_insertAfterInsert(
  DataSet: TDataSet);
begin
  t_op_ctn_insert['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
end;

procedure Tfrm_op_seae_weituo.wwDBComboBox3Change(Sender: TObject);
var AAdoQuery : TADOQuery;
begin
  AAdoQuery :=CreateAdoQuery;
  with AAdoQuery do
  try
    Close;SQL.Clear;
    SQL.Add('select  * from t_opor_ctn');
    SQL.Add('where OR_ID=:OR_ID');
    SQL.Add('order by <20><><EFBFBD><EFBFBD>');
    Parameters.ParamByName('OR_ID').Value:=t_op_seae_order.fieldbyname('OR_ID').AsInteger;
    Open;
    if not AAdoQuery.IsEmpty then
    if AAdoQuery.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ',wwDBComboBox3.text,[])then
    begin
      if t_ch_fee.State in [dsedit,dsInsert] then
        t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=AAdoQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
    end;
  finally
    AAdoQuery.Free;
  end;
end;

procedure Tfrm_op_seae_weituo.wwDBComboBox4Change(Sender: TObject);
var AAdoQuery : TADOQuery;
begin
  AAdoQuery :=CreateAdoQuery;
  with AAdoQuery do
  try
    Close;SQL.Clear;
    SQL.Add('select  * from t_opor_ctn');
    SQL.Add('where OR_ID=:OR_ID');
    SQL.Add('order by <20><><EFBFBD><EFBFBD>');
    Parameters.ParamByName('OR_ID').Value:=t_op_seae_order.fieldbyname('OR_ID').AsInteger;
    Open;
    if not AAdoQuery.IsEmpty then
    if AAdoQuery.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ',wwDBComboBox4.text,[])then
    begin
      if t_ch_fee.State in [dsedit,dsInsert] then
        t_ch_fee['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=AAdoQuery.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
    end;
  finally
    AAdoQuery.Free;
  end;

end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo19Change(Sender: TObject);
begin

  if (t_op_seae_order.State=dsinsert)or(t_op_seae_order.State=dsedit)then
  begin
    if RxDBLookupCombo19.DisplayValue<>'' then
      t_op_seae_order['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seae_weituo.Button1Click(Sender: TObject);
var aADOQuery :TADOQuery;
begin
  if trim(Edit2.Text)='' then
  begin
      ShowMessage('<27><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>');
     Exit;
  end;

  if trim(t_op_seae_order1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString)='' then
  begin
    ShowMessage('<27><><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ֱ<>ӱ༭<D3B1><E0BCAD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>Ϳ<EFBFBD><CDBF><EFBFBD>');
    Exit;
  end;

  if not t_op_seae_order1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull then
  begin
    if (Date-t_op_seae_order1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime)>=3 then
    begin
      ShowMessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>');
      Exit;
    end;
  end;

  aADOQuery:=CreateADOQuery;
  with aADOQuery do
  try
    Close;SQL.Clear;
    SQL.Add('Update t_op_seae set <20><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>˵<EFBFBD><CBB5>=:<3A><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>');
    SQL.Add(',Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>=:Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>,Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>=:Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>');
    SQL.Add(',<2C><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    SQL.Add(',<2C><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>=:<3A><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>');
    SQL.Add('where <20><><EFBFBD><EFBFBD>='+''''+t_op_seae_order1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''');
    Parameters.ParamByName('<27><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>').Value:=trim(Edit2.Text);
    Parameters.ParamByName('Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>').Value:=StrToFloat(Edit4.Text);
    Parameters.ParamByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>').Value:=StrToFloat(Edit5.Text);
    Parameters.ParamByName('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=StrToFloat(Edit6.Text);
    Parameters.ParamByName('<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=StrToFloat(Edit7.Text);
    if CheckBox1.Checked then
      Parameters.ParamByName('<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>').Value:=1
    else Parameters.ParamByName('<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>').Value:=0;
    ExecSQL;

    Close;SQL.Clear;
    SQL.Add('Update t_op_seae_order set <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>=:<3A><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>');
    SQL.Add(',Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>=:Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>,Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>=:Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>');
    SQL.Add(',<2C><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    SQL.Add(',<2C><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>=:<3A><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>');
    SQL.Add('where OR_ID=:OR_ID');
    Parameters.ParamByName('<27><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>').Value:=trim(Edit2.Text);
    Parameters.ParamByName('OR_ID').Value:=t_op_seae_order1.DataSet.fieldbyname('OR_ID').Asinteger;
    Parameters.ParamByName('Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>').Value:=StrToFloat(Edit4.Text);
    Parameters.ParamByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>').Value:=StrToFloat(Edit5.Text);
    Parameters.ParamByName('<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=StrToFloat(Edit6.Text);
    Parameters.ParamByName('<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=StrToFloat(Edit7.Text);
    if CheckBox1.Checked then
      Parameters.ParamByName('<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>').Value:=1
    else Parameters.ParamByName('<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>').Value:=0;
    ExecSQL;
  finally
    Free;
  end;
end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo31Change(Sender: TObject);
begin
  t_op_seae_order1.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString:='';

end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo31Enter(Sender: TObject);
begin
  RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';

end;

procedure Tfrm_op_seae_weituo.RxDBLookupCombo31Exit(Sender: TObject);
begin
  RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';

end;

procedure Tfrm_op_seae_weituo.wwDBComboBox9DropDown(Sender: TObject);
var
  aQuery:TAdoQuery;
begin
  wwDBComboBox9.Items.Clear;
  if t_op_seae_order1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString='' then begin
    exit;
  end;

  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      close;sql.Clear;
      sql.Add('select <20><>Դ<EFBFBD><D4B4>ϸ from t_code_source_dl where ҵ<><D2B5><EFBFBD><EFBFBD>Դ='''+t_op_seae_order1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString+''' order by <20><>Դ<EFBFBD><D4B4>ϸ ');
      open;
      first;
      while not eof do begin
        wwDBComboBox9.Items.Add(FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString);
        next;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;

procedure Tfrm_op_seae_weituo.bsSkinButton16Click(Sender: TObject);
var
  aQuery:TADOQuery;
begin
  t_op_seae2.close;
  t_op_seae2.SQL.Text:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='''+t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
  t_op_seae2.Open;
  if t_op_seae2.IsEmpty then begin
    ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>,<2C><><EFBFBD>ܸ<EFBFBD><DCB8>£<EFBFBD>');
  end else begin
    if (t_op_seae2.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') or (t_op_seae2.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>') then begin
       ShowMessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><><EFBFBD>ܸ<EFBFBD><DCB8>£<EFBFBD>');
    end else begin
      t_op_seae2.Edit;
      t_op_seae2.FieldByName('<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>').AsBoolean:=true;
      t_op_seae2.post;
      aQuery:=CreateAdoQuery;
      try
        aQuery.SQL.Text:='update t_op_seae_order set <20><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>=1 where <20><><EFBFBD><EFBFBD>='''+t_op_seae_order.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
        aQuery.ExecSQL;
      finally
        FreeAndNil(aQuery);
      end;
      ShowMessage('<27>Ѹ<EFBFBD><D1B8>£<EFBFBD>');      
    end;
  end;
end;

procedure Tfrm_op_seae_weituo.t_op_seaeBeforeRefresh(DataSet: TDataSet);
begin
  if not checkctn(t_op_seae_order.fieldbyname('OR_ID').AsInteger) then
  begin
    ShowMessage('<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    Abort;
  end;
end;

procedure Tfrm_op_seae_weituo.bsSkinButton17Click(Sender: TObject);
var
  aOR_ID:integer;
begin
  if t_op_seae_order.IsEmpty then begin
    exit;
    MessageDlg('û<>и<EFBFBD><D0B8>Ƶ<EFBFBD><C6B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӣ<EFBFBD>',mtWarning,[mbok],0);
  end;
   aOR_ID:=t_op_seae_order.fieldbyname('OR_ID').AsInteger;


  if not  checkctn(aOR_ID) then
  begin
    ShowMessage('<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC><EFBFBD>!');
    Exit;
  end;

  try
    frm_op_seaewt_pladd:=tfrm_op_seaewt_pladd.Create (self);
      frm_op_seaewt_pladd.data1.Enabled:=false;
      frm_op_seaewt_pladd.data1.DataSet:=t_op_seae_order;
      frm_op_seaewt_pladd.data1.Enabled:=true;

      frm_op_seaewt_pladd.ShowModal;
  finally
    frm_op_seaewt_pladd.Free;
  end;
end;

procedure Tfrm_op_seae_weituo.bsSkinButton19Click(Sender: TObject);
begin
  table_before_post(t_op_seae_order,'¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_order,'ί<>е<EFBFBD>λ');
  table_before_post(t_op_seae_order,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seae_order,'<27><><EFBFBD>ѷ<EFBFBD>ʽ');

  table_before_post(t_op_seae_order,'¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');


  table_before_post(t_op_seae_order,'װ<><D7B0><EFBFBD><EFBFBD>');


  table_before_post(t_op_seae_order,'ж<><D0B6><EFBFBD><EFBFBD>');


  table_before_post(t_op_seae_order,'Ŀ<>ĵ<EFBFBD>');

  if t_op_seae_order.State in [dsedit,dsinsert] then t_op_seae_order.post;
    if t_op_seae_order=nil then
      exit;

    if IsSeaeOrder(t_op_seae_order.fieldbyname('<27><><EFBFBD>ձ<EFBFBD><D5B1><EFBFBD>').AsString) then
    begin
      MessageDlg('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>,<2C><><EFBFBD><EFBFBD>Ҫȷ<D2AA><C8B7>,<2C><>ˢ<EFBFBD>£<EFBFBD>', mtConfirmation, [mbYes],0);
      exit;
    end;
    try
      frm_op_seae_order_pladd:=tfrm_op_seae_order_pladd.Create (self);
      frm_op_seae_order_pladd.data1.Enabled:=false;
      frm_op_seae_order_pladd.data1.DataSet:=t_op_seae;
      frm_op_seae_order_pladd.data1.Enabled:=true;

      frm_op_seae_order_pladd.data2.Enabled:=false;
      frm_op_seae_order_pladd.data2.DataSet:=t_op_seae_order;
      frm_op_seae_order_pladd.data2.Enabled:=true;
 
      frm_op_seae_order_pladd.data3.Enabled:=false;
      frm_op_seae_order_pladd.data3.DataSet:=t_op_ctn_insert;
      frm_op_seae_order_pladd.data3.Enabled:=true;

      frm_op_seae_order_pladd.data4.Enabled:=false;
      frm_op_seae_order_pladd.data4.DataSet:=t_op_fee;
      frm_op_seae_order_pladd.data4.Enabled:=true;

      frm_op_seae_order_pladd.data5.Enabled:=false;
      frm_op_seae_order_pladd.data5.DataSet:=t_ch_fee;
      frm_op_seae_order_pladd.data5.Enabled:=true;
      frm_op_seae_order_pladd.ShowModal;
    finally
      frm_op_seae_order_pladd.Free;
      frm_op_seae_order_pladd:=nil;
    end;


end;

end.