unit u_ch_fee_view;

interface

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

type
  Tfrm_ch_fee_view = class(TForm)
    t_op_gain: TADOQuery;
    t_op_gain1: TDataSource;
    t_ch_accept: TADOQuery;
    t_ch_accept1: TDataSource;
    t_ch_pay: TADOQuery;
    t_ch_pay1: TDataSource;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton9: TbsSkinButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N20: TMenuItem;
    v_op_bscard: TADOQuery;
    v_op_bscard1: TDataSource;
    Label1: TLabel;
    DBText1: TDBText;
    Label2: TLabel;
    DBText2: TDBText;
    Label3: TLabel;
    DBText3: TDBText;
    Label4: TLabel;
    DBText4: TDBText;
    Label5: TLabel;
    DBText5: TDBText;
    Label6: TLabel;
    DBText6: TDBText;
    Label7: TLabel;
    DBText7: TDBText;
    Label8: TLabel;
    DBText8: TDBText;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    Panel2: TPanel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    bsSkinDBEdit9: TbsSkinDBEdit;
    bsSkinDBEdit10: TbsSkinDBEdit;
    wwDBGrid1: TwwDBGrid;
    wwDBGrid2: TwwDBGrid;
    Label125: TLabel;
    Label15: TLabel;
    Label9: TLabel;
    Label124: TLabel;
    Label146: TLabel;
    Label145: TLabel;
    Label32: TLabel;
    Label21: TLabel;
    Label27: TLabel;
    Label30: TLabel;
    Label12: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label126: TLabel;
    Label25: TLabel;
    Label34: TLabel;
    Label39: TLabel;
    Label18: TLabel;
    Label73: TLabel;
    Label22: TLabel;
    Label35: TLabel;
    Label26: TLabel;
    Label10: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label29: TLabel;
    Label33: TLabel;
    Label164: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label36: TLabel;
    Label40: TLabel;
    bsSkinPanel5: TbsSkinPanel;
    Label37: TLabel;
    Label38: TLabel;
    Label41: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    DBEdit5: TDBEdit;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBMemo5: TDBMemo;
    DBMemo6: TDBMemo;
    DBEdit81: TDBEdit;
    DBEdit82: TDBEdit;
    DBEdit83: TDBEdit;
    DBEdit55: TDBEdit;
    DBEdit56: TDBEdit;
    DBEdit53: TDBEdit;
    DBEdit54: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit59: TDBEdit;
    DBEdit60: TDBEdit;
    DBEdit61: TDBEdit;
    DBEdit70: TDBEdit;
    DBEdit71: TDBEdit;
    DBEdit72: TDBEdit;
    DBEdit73: TDBEdit;
    DBEdit74: TDBEdit;
    DBEdit66: TDBEdit;
    DBEdit67: TDBEdit;
    DBEdit68: TDBEdit;
    DBEdit69: TDBEdit;
    DBEdit64: TDBEdit;
    DBEdit65: TDBEdit;
    DBEdit62: TDBEdit;
    DBEdit63: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    PopupMenu4: TPopupMenu;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N123: TMenuItem;
    PopupMenu5: TPopupMenu;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    N124: TMenuItem;
    N125: TMenuItem;
    DBText9: TDBText;
    Label28: TLabel;
    DBMemo1: TDBMemo;
    bsSkinTabSheet3: TbsSkinTabSheet;
    t_op_seae_assistant: TADOQuery;
    t_op_seae_assistant1: TDataSource;
    t_op_seae_assistant_online: TADOQuery;
    t_pt_fendan: TADOQuery;
    t_op_ctn_fendan: TADOQuery;
    t_op_ctn_fendanDSDesigner: TStringField;
    t_op_ctn_fendanDSDesigner2: TStringField;
    t_op_ctn_fendanDSDesigner3: TStringField;
    t_op_ctn_fendanDSDesigner4: TIntegerField;
    t_op_ctn_fendanTEU: TIntegerField;
    t_op_ctn_fendanDSDesigner6: TStringField;
    t_op_ctn_fendanDSDesigner7: TStringField;
    t_op_ctn_fendanDSDesigner8: TIntegerField;
    t_op_ctn_fendanDSDesigner9: TStringField;
    t_op_ctn_fendanDSDesigner10: TBCDField;
    t_op_ctn_fendanDSDesigner11: TBCDField;
    t_op_ctn_fendanDSDesigner12: TStringField;
    t_op_ctn_fendanDSDesigner13: TStringField;
    t_op_ctn_fendanDSDesigner14: TStringField;
    t_op_ctn_fendanDSDesigner5: TStringField;
    t_op_ctn_fendanctn_id: TAutoIncField;
    t_op_ctn_fendanAS_ID: TIntegerField;
    t_op_ctn_fendanDSDesigner15: TStringField;
    t_op_ctn_fendan1: TDataSource;
    t_pt_fendan1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    bsSkinPanel2: TbsSkinPanel;
    Label122: TLabel;
    Label121: TLabel;
    Label123: TLabel;
    Label31: TLabel;
    Label42: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label163: TLabel;
    Label158: TLabel;
    Label165: TLabel;
    Label166: TLabel;
    Label167: TLabel;
    Label168: TLabel;
    Label169: TLabel;
    Label170: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    DBMemo33: TDBMemo;
    DBMemo34: TDBMemo;
    DBMemo35: TDBMemo;
    DBEdit9: TDBEdit;
    DBEdit6: TDBEdit;
    wwDBLookupCombo49: TwwDBLookupCombo;
    DBEdit8: TDBEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBLookupCombo3: TwwDBLookupCombo;
    wwDBLookupCombo52: TwwDBLookupCombo;
    DBEdit12: TDBEdit;
    DBEdit14: TDBEdit;
    wwDBLookupCombo21: TwwDBLookupCombo;
    wwDBComboBox1: TwwDBComboBox;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    DBEdit15: TDBEdit;
    RxDBLookupCombo15: TRxDBLookupCombo;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit16: TDBEdit;
    DBMemo38: TDBMemo;
    DBMemo37: TDBMemo;
    DBMemo39: TDBMemo;
    DBMemo40: TDBMemo;
    DBMemo41: TDBMemo;
    DBMemo42: TDBMemo;
    DBEdit80: TDBEdit;
    DBEdit18: TDBEdit;
    wwDBLookupCombo61: TwwDBLookupCombo;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBMemo2: TDBMemo;
    bsSkinButton21: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    DBEdit21: TDBEdit;
    DBEditEh1: TDBEditEh;
    RxDBLookupCombo28: TRxDBLookupCombo;
    wwDBLookupCombo4: TwwDBLookupCombo;
    wwDBLookupCombo7: TwwDBLookupCombo;
    DBMemo7: TDBMemo;
    bsSkinButton16: TbsSkinButton;
    wwDBGrid3: TwwDBGrid;
    lbl1: TLabel;
    dbmmo1: TDBMemo;
    procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure wwDBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure N84Click(Sender: TObject);
    procedure MenuItem10Click(Sender: TObject);
    procedure N86Click(Sender: TObject);
    procedure MenuItem12Click(Sender: TObject);
    procedure N123Click(Sender: TObject);
    procedure N125Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_fee_view: Tfrm_ch_fee_view;

implementation

uses my_sys_function, u_main ;

{$R *.dfm}

procedure Tfrm_ch_fee_view.wwDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  fee_color(t_ch_accept,wwDBGrid1,Rect,Field);
end;

procedure Tfrm_ch_fee_view.wwDBGrid2DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  fee_color(t_ch_pay,wwDBGrid2,Rect,Field);
end;

procedure Tfrm_ch_fee_view.N1Click(Sender: TObject);
begin
   sys_print('核算单打印',1,v_op_bscard1,nil,nil,nil,
    t_ch_accept1,t_ch_pay1,t_op_gain1,nil,nil,nil,nil);

end;

procedure Tfrm_ch_fee_view.N3Click(Sender: TObject);
begin
   sys_print('核算单打印',3,v_op_bscard1,nil,nil,nil,
    t_ch_accept1,t_ch_pay1,t_op_gain1,nil,nil,nil,nil);

end;

procedure Tfrm_ch_fee_view.N20Click(Sender: TObject);
begin
   sys_print('核算单打印',2,v_op_bscard1,nil,nil,nil,
    t_ch_accept1,t_ch_pay1,t_op_gain1,nil,nil,nil,nil);

end;

procedure Tfrm_ch_fee_view.bsSkinButton9Click(Sender: TObject);
begin
  PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);

end;

procedure Tfrm_ch_fee_view.FormShow(Sender: TObject);
begin
{
  v_op_bscard.Close;
  v_op_bscard.sql.Clear;
  v_op_bscard.sql.Add('select * from v_op_bscard_detail where 编号='''+t_op_gain.fieldbyname('编号').AsString+'''');
  v_op_bscard.Open;
 }
  
end;

procedure Tfrm_ch_fee_view.N82Click(Sender: TObject);
begin
  fee_balance_view(t_ch_accept);

end;

procedure Tfrm_ch_fee_view.MenuItem5Click(Sender: TObject);
begin
  fee_balance_view(t_ch_pay);

end;

procedure Tfrm_ch_fee_view.N84Click(Sender: TObject);
begin
  fee_invoice_view(t_ch_accept);

end;

procedure Tfrm_ch_fee_view.MenuItem10Click(Sender: TObject);
begin
  fee_check_view(t_ch_pay);
end;

procedure Tfrm_ch_fee_view.N86Click(Sender: TObject);
begin
  fee_modify_view(t_ch_accept);
end;

procedure Tfrm_ch_fee_view.MenuItem12Click(Sender: TObject);
begin
 fee_modify_view(t_ch_pay);
end;

procedure Tfrm_ch_fee_view.N123Click(Sender: TObject);
begin
 fee_dui_view(t_ch_accept);
end;

procedure Tfrm_ch_fee_view.N125Click(Sender: TObject);
begin
 fee_dui_view(t_ch_pay);
end;

end.