unit u_ch_invoice_do;

interface

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

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

var
  frm_ch_invoice_do: Tfrm_ch_invoice_do;

implementation

uses u_ch_balance_accept;

{$R *.dfm}

procedure Tfrm_ch_invoice_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_accept do
  begin
    t_ch_balance.Insert;
    t_ch_balance['结算类别']:='发票';
    t_ch_balance['客户名称']:=t_ch_invoice_shen['客户名称'];
    t_ch_balance['结算方式']:=str;
    t_ch_balance['币别']:=t_ch_invoice_shen['币别'];
    t_ch_balance['结算金额']:=t_ch_invoice_shen['申请金额'];
    t_ch_balance['实结金额']:=t_ch_invoice_shen['实际金额'];
    t_ch_balance['虚结金额']:=t_ch_invoice_shen['虚开金额'];
    t_ch_balance['银行']:=frm_ch_invoice_do.RxDBLookupCombo3.DisplayValue;
    t_ch_balance['凭证号码']:=frm_ch_invoice_do.Edit2.text;
    t_ch_balance['相关号码']:=frm_ch_invoice_do.Edit1.text;
    t_ch_balance['备注']:=frm_ch_invoice_do.Memo1.text;
    t_ch_balance.Post;

    t_ch_fee_do_invoice.first;
    while not t_ch_fee_do_invoice.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_invoice['业务编号'];
      t_ch_fee_do['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
      t_ch_fee_do['币别']:=t_ch_fee_do_invoice['币别'];
      t_ch_fee_do['金额']:=t_ch_fee_do_invoice['金额'];
      t_ch_fee_do['原始金额']:=t_ch_fee_do_invoice['原始金额'];
      t_ch_fee_do['类型']:='3';
      t_ch_fee_do.Post;
      t_ch_fee_do_invoice.next;
    end;
    t_ch_invoice_shen.requery;
    t_ch_balance.edit;
    t_ch_balance.post;
  end;
  close;
end;

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

end.