DS6JIEFENG/财务管理/u_ch_piliang_prnfee.pas

unit u_ch_piliang_prnfee;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, BusinessSkinForm, dxExEdtr, dxDBTLCl, dxGrClms,
  dxDBGrid, dxTL, dxDBCtrl, dxCntner, DB, ADODB, StdCtrls;

type
  Tfrm_ch_piliang_prnfee = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridDateColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column63: TdxDBGridMaskColumn;
    dxDBGrid1Column64: TdxDBGridMaskColumn;
    dxDBGrid1Column65: TdxDBGridDateColumn;
    dxDBGrid1Column66: TdxDBGridMaskColumn;
    dxDBGrid1Column67: TdxDBGridMaskColumn;
    t_op_seae1: TDataSource;
    t_ch_accept: TADOQuery;
    t_ch_accept1: TDataSource;
    t_ch_pay: TADOQuery;
    t_ch_pay1: TDataSource;
    t_sys_report: TADOQuery;
    t_sys_report1: TDataSource;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridCheckColumn;
    tv_bscard_all: TADOStoredProc;
    t_op_gain: TADOQuery;
    t_op_gain1: TDataSource;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    t_op_gain_main1: TDataSource;
    t_op_gain_main: TADOQuery;
    qrytmp: TADOQuery;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure setprntrue ;
  public
    { Public declarations }
  end;

var
  frm_ch_piliang_prnfee: Tfrm_ch_piliang_prnfee;

implementation

uses u_main, my_sys_function;

{$R *.dfm}

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

procedure Tfrm_ch_piliang_prnfee.bsSkinButton8Click(Sender: TObject);
begin
  if t_sys_report.IsEmpty then
  begin
    showmessage('û<><C3BB><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD>޷<EFBFBD><DEB7><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
    exit;
  end;
  setprntrue;

  sys_print_piliang('<27><><EFBFBD>㵥<EFBFBD><E3B5A5>ӡ',t_sys_report.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,
     tv_bscard_all,t_op_seae1,nil,nil,nil,
     t_ch_accept1,t_ch_pay1,t_op_gain1,t_op_gain_main1,nil,nil,nil,t_sys_report.fieldbyname('CH_ID').asinteger);
end;

procedure Tfrm_ch_piliang_prnfee.FormShow(Sender: TObject);
begin
  t_sys_report.Parameters[0].value:='<27><><EFBFBD>㵥<EFBFBD><E3B5A5>ӡ';
  t_sys_report.open;
  t_ch_accept.open;
  t_ch_pay.open;
  t_op_gain.open;
  t_op_gain_main.Open ;
end;

procedure Tfrm_ch_piliang_prnfee.setprntrue;
var tblname:string ;
begin
  with tv_bscard_all do
  begin
    First ;
    while not eof do
    begin
      tblname:='' ;
      if tv_bscard_all.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>' then tblname:='t_op_seae'
       else
       if tv_bscard_all.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>' then tblname:='t_op_seai'
        else
         if tv_bscard_all.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>' then tblname:='t_op_aire'
         else
          if tv_bscard_all.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>' then tblname:='t_op_airi'
           else raise exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԥ֪<D4A4><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') ;
      qrytmp.Close ;
      qrytmp.sql.clear ;
      qrytmp.sql.add('update '+tblname+' set <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1 ');
      if strtobool(get_parameters_value(63,'false'))then
        qrytmp.sql.add(' ,<2C><><EFBFBD><EFBFBD>״̬=''<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>''');
      qrytmp.sql.add('where <20><><EFBFBD><EFBFBD>=:bianhao');
      qrytmp.parameters.parambyname('bianhao').value:=FieldByName('<27><><EFBFBD><EFBFBD>').asstring ;
      qrytmp.execsql ;
      next ;
    end ;
    first ;
  end ;
end;

end.