unit u_ch_check_do;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, StdCtrls, BusinessSkinForm, DBCtrls, Mask, RxLookup;

type
  Tfrm_ch_check_do = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
    Label1: TLabel;
    Edit1: TEdit;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
    Label6: TLabel;
    RxDBLookupCombo3: TRxDBLookupCombo;
    Label7: TLabel;
    Label10: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_check_do: Tfrm_ch_check_do;

implementation

uses u_main, u_ch_balance_pay;

{$R *.dfm}

procedure Tfrm_ch_check_do.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ch_check_do.bsSkinButton1Click(Sender: TObject);
var
  str:string;
begin
  if bsSkinCheckRadioBox1.Checked then
    str:=bsSkinCheckRadioBox1.Caption;
  if bsSkinCheckRadioBox2.Checked then
    str:=bsSkinCheckRadioBox2.Caption;
  if bsSkinCheckRadioBox3.Checked then
    str:=bsSkinCheckRadioBox3.Caption;
  if bsSkinCheckRadioBox4.Checked then
    str:=bsSkinCheckRadioBox4.Caption;
  if bsSkinCheckRadioBox6.Checked then
    str:=bsSkinCheckRadioBox6.Caption;
  if bsSkinCheckRadioBox7.Checked then
    str:=bsSkinCheckRadioBox7.Caption;
  if bsSkinCheckRadioBox5.Checked then
    str:=bsSkinCheckRadioBox5.Caption;
  if bsSkinCheckRadioBox8.Checked then
    str:=bsSkinCheckRadioBox8.Caption;
  with frm_ch_balance_pay do
  begin
    t_ch_balance.Insert;
    t_ch_balance['结算类别']:='申请';
    t_ch_balance['客户名称']:=t_ch_check['客户名称'];
    t_ch_balance['结算方式']:=str;
    t_ch_balance['币别']:=t_ch_check['币别'];
    t_ch_balance['结算金额']:=t_ch_check['申请金额'];
    t_ch_balance['实结金额']:=t_ch_check['实际金额'];
    t_ch_balance['虚结金额']:=t_ch_check['虚开金额'];
    t_ch_balance['相关号码']:=edit1.text;
    t_ch_balance['银行']:=frm_ch_check_do.RxDBLookupCombo3.DisplayValue;
    t_ch_balance['凭证号码']:=frm_ch_check_do.Edit2.text;
    t_ch_balance['备注']:=frm_ch_check_do.Memo1.text;
    t_ch_balance.Post;

    t_ch_fee_do_check.first;
    while not t_ch_fee_do_check.eof do
    begin
      t_ch_fee_do.insert;
      t_ch_fee_do['工作编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
      t_ch_fee_do['业务编号']:=t_ch_fee_do_check['业务编号'];
      t_ch_fee_do['CH_ID']:=t_ch_fee_do_check['CH_ID'];
      t_ch_fee_do['币别']:=t_ch_fee_do_check['币别'];
      t_ch_fee_do['金额']:=t_ch_fee_do_check['金额'];
      t_ch_fee_do['原始金额']:=t_ch_fee_do_check['原始金额'];
      t_ch_fee_do['类型']:='4';
      t_ch_fee_do.Post;
      t_ch_fee_do_check.next;
    end;
    t_ch_check.Edit;
    t_ch_check['申请状态']:='支付完毕';
    t_ch_check['帐单编号']:=t_ch_balance.fieldbyname('帐单编号').asstring;
    t_ch_check['开出人']:=employee;
    t_ch_check['开出日期']:=now;
    t_ch_check['支付方式']:=str;
    t_ch_check['相关号码']:=edit1.text;
    t_ch_check.post;
    t_ch_check.requery;
    t_ch_check_detail.requery;
    t_ch_balance.edit;
    t_ch_balance.post;
  end;
  close;
end;

end.