|
|
|
|
|
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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ʊ';
|
|
|
|
|
|
t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_invoice_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
|
|
|
t_ch_balance['<27><><EFBFBD>㷽ʽ']:=str;
|
|
|
|
|
|
t_ch_balance['<27>ұ<EFBFBD>']:=t_ch_invoice_shen['<27>ұ<EFBFBD>'];
|
|
|
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_invoice_shen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
|
|
|
t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_invoice_shen['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>'];
|
|
|
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_invoice_shen['<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>'];
|
|
|
|
|
|
t_ch_balance['<27><><EFBFBD><EFBFBD>']:=frm_ch_invoice_do.RxDBLookupCombo3.DisplayValue;
|
|
|
|
|
|
t_ch_balance['ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>']:=frm_ch_invoice_do.Edit2.text;
|
|
|
|
|
|
t_ch_balance['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=frm_ch_invoice_do.Edit1.text;
|
|
|
|
|
|
t_ch_balance['<27><>ע']:=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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
|
|
|
t_ch_fee_do['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_fee_do_invoice['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
|
|
|
t_ch_fee_do['CH_ID']:=t_ch_fee_do_invoice['CH_ID'];
|
|
|
|
|
|
t_ch_fee_do['<27>ұ<EFBFBD>']:=t_ch_fee_do_invoice['<27>ұ<EFBFBD>'];
|
|
|
|
|
|
t_ch_fee_do['<27><><EFBFBD><EFBFBD>']:=t_ch_fee_do_invoice['<27><><EFBFBD><EFBFBD>'];
|
|
|
|
|
|
t_ch_fee_do['ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>']:=t_ch_fee_do_invoice['ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>'];
|
|
|
|
|
|
t_ch_fee_do['<27><><EFBFBD><EFBFBD>']:='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.
|
