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.
84 lines
3.5 KiB
Plaintext
84 lines
3.5 KiB
Plaintext
unit u_code_fee_project_copy_order;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, Mask, DBCtrls,
|
|
wwdbedit, Wwdotdot, Wwdbcomb;
|
|
|
|
type
|
|
Tfrm_code_fee_project_copy_order = class(TForm)
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
bsSkinButton1: TbsSkinButton;
|
|
bsSkinButton2: TbsSkinButton;
|
|
Label2: TLabel;
|
|
DBEdit2: TDBEdit;
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_code_fee_project_copy_order: Tfrm_code_fee_project_copy_order;
|
|
|
|
implementation
|
|
|
|
uses u_code_fee_project_order, my_sys_function;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_code_fee_project_copy_order.bsSkinButton2Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_code_fee_project_copy_order.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
table_cancel(frm_code_fee_project_order.t_ch_project);
|
|
end;
|
|
|
|
procedure Tfrm_code_fee_project_copy_order.bsSkinButton1Click(Sender: TObject);
|
|
begin
|
|
table_post(frm_code_fee_project_order.t_ch_project);
|
|
frm_code_fee_project_order.t_ch_project_fee_old.first;
|
|
while not frm_code_fee_project_order.t_ch_project_fee_old.eof do
|
|
begin
|
|
frm_code_fee_project_order.t_ch_project_fee.insert;
|
|
frm_code_fee_project_order.t_ch_project_fee['费用名称']:=frm_code_fee_project_order.t_ch_project_fee_old['费用名称'];
|
|
frm_code_fee_project_order.t_ch_project_fee['结算单位']:=frm_code_fee_project_order.t_ch_project_fee_old['结算单位'];
|
|
frm_code_fee_project_order.t_ch_project_fee['客户名称']:=frm_code_fee_project_order.t_ch_project_fee_old['客户名称'];
|
|
frm_code_fee_project_order.t_ch_project_fee['币别']:=frm_code_fee_project_order.t_ch_project_fee_old['币别'];
|
|
frm_code_fee_project_order.t_ch_project_fee['汇率']:=frm_code_fee_project_order.t_ch_project_fee_old['汇率'];
|
|
frm_code_fee_project_order.t_ch_project_fee['标准']:=frm_code_fee_project_order.t_ch_project_fee_old['标准'];
|
|
frm_code_fee_project_order.t_ch_project_fee['单价']:=frm_code_fee_project_order.t_ch_project_fee_old['单价'];
|
|
frm_code_fee_project_order.t_ch_project_fee['费用备注']:=frm_code_fee_project_order.t_ch_project_fee_old['费用备注'];
|
|
frm_code_fee_project_order.t_ch_project_fee['顺序']:=frm_code_fee_project_order.t_ch_project_fee_old['顺序'];
|
|
frm_code_fee_project_order.t_ch_project_fee.post;
|
|
frm_code_fee_project_order.t_ch_project_standard_old.First;
|
|
while not frm_code_fee_project_order.t_ch_project_standard_old.eof do
|
|
begin
|
|
frm_code_fee_project_order.t_ch_project_standard.insert;
|
|
frm_code_fee_project_order.t_ch_project_standard['箱型代码']:=frm_code_fee_project_order.t_ch_project_standard_old['箱型代码'];
|
|
frm_code_fee_project_order.t_ch_project_standard['标准']:=frm_code_fee_project_order.t_ch_project_standard_old['标准'];
|
|
frm_code_fee_project_order.t_ch_project_standard['单价']:=frm_code_fee_project_order.t_ch_project_standard_old['单价'];
|
|
frm_code_fee_project_order.t_ch_project_standard['备注']:=frm_code_fee_project_order.t_ch_project_standard_old['备注'];
|
|
frm_code_fee_project_order.t_ch_project_standard.post;
|
|
frm_code_fee_project_order.t_ch_project_standard_old.next;
|
|
end;
|
|
frm_code_fee_project_order.t_ch_project_fee_old.next;
|
|
end;
|
|
close;
|
|
end;
|
|
|
|
end.
|