You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
111 lines
3.3 KiB
Plaintext
111 lines
3.3 KiB
Plaintext
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.
|