|
|
unit u_rp_ch_balance_detail;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
|
|
|
dxDBTLCl, dxGrClms, ComCtrls, bsSkinTabs, bsSkinCtrls, Menus;
|
|
|
|
|
|
type
|
|
|
Tfrm_rp_ch_balance_detail = class(TForm)
|
|
|
p_detail: TADOStoredProc;
|
|
|
p_detail1: TDataSource;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
tabsheet2: TbsSkinTabSheet;
|
|
|
tabsheet3: TbsSkinTabSheet;
|
|
|
p_detail_bill1: TDataSource;
|
|
|
p_detail_bill: TADOStoredProc;
|
|
|
p_detail_fee1: TDataSource;
|
|
|
p_detail_fee: TADOStoredProc;
|
|
|
dxDBGrid9: TdxDBGrid;
|
|
|
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn17: TdxDBGridColumn;
|
|
|
dxDBGridColumn18: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn10: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn11: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn20: TdxDBGridColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridColumn22: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid6Column18: TdxDBGridColumn;
|
|
|
dxDBGrid6Column19: TdxDBGridColumn;
|
|
|
dxDBGrid6Column20: TdxDBGridColumn;
|
|
|
dxDBGrid9Column23: TdxDBGridColumn;
|
|
|
dxDBGrid6Column21: TdxDBGridColumn;
|
|
|
dxDBGrid6Column22: TdxDBGridColumn;
|
|
|
dxDBGrid6Column23: TdxDBGridColumn;
|
|
|
dxDBGrid9Column24: TdxDBGridColumn;
|
|
|
dxDBGrid9Column25: TdxDBGridColumn;
|
|
|
dxDBGrid9Column26: TdxDBGridColumn;
|
|
|
dxDBGrid6Column24: TdxDBGridColumn;
|
|
|
dxDBGrid9Column27: TdxDBGridColumn;
|
|
|
dxDBGrid6Column25: TdxDBGridColumn;
|
|
|
dxDBGrid6Column26: TdxDBGridColumn;
|
|
|
dxDBGrid9Column28: TdxDBGridColumn;
|
|
|
dxDBGrid6Column27: TdxDBGridColumn;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridColumn;
|
|
|
dxDBGrid9Column29: TdxDBGridColumn;
|
|
|
dxDBGrid9Column30: TdxDBGridColumn;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Resize(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_rp_ch_balance_detail: Tfrm_rp_ch_balance_detail;
|
|
|
frm_rp_ch_balance_detail_str:string;
|
|
|
frm_rp_ch_balance_detail_open:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_ch_balance_query, my_sys_function, u_rp_ch_balance_view;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid6,caption);
|
|
|
savereggrid(dxdbgrid9,caption);
|
|
|
frm_rp_ch_balance_detail.Hide;
|
|
|
frm_rp_ch_balance_detail.ManualFloat(frm_rp_ch_balance_detail.BoundsRect );
|
|
|
frm_main.freeTabs('frm_rp_ch_balance_detail');
|
|
|
action:=cafree;
|
|
|
frm_rp_ch_balance_detail:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
loadreggrid(dxdbgrid6,false,caption);
|
|
|
loadreggrid(dxdbgrid9,false,caption);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.bsSkinPageControl1Resize(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
bsSkinPanel1.Left:=bsSkinPageControl1.Width-bsSkinPanel1.Width-5;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_ch_balance_query:=tfrm_ch_balance_query.Create (self);
|
|
|
balance_query_type:=8;
|
|
|
frm_ch_balance_query.ShowModal;
|
|
|
finally
|
|
|
frm_ch_balance_query.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸͳ<CFB8><CDB3>',2,nil,nil,nil,nil,p_detail1,p_detail_bill1,p_detail_fee1,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
if (not p_detail.active)or(p_detail.IsEmpty)then
|
|
|
begin
|
|
|
showmessage('û<><C3BB><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>Ϣ<EFBFBD><CFA2>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_rp_ch_balance_view) then
|
|
|
frm_rp_ch_balance_view:=tfrm_rp_ch_balance_view.Create (self);
|
|
|
with frm_rp_ch_balance_view do
|
|
|
begin
|
|
|
v_fee_do_seae.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').value:=
|
|
|
p_detail.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
v_fee_do_seae.open;
|
|
|
|
|
|
v_fee_do_seai.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').value:=
|
|
|
p_detail.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
v_fee_do_seai.open;
|
|
|
|
|
|
v_fee_do_aire.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').value:=
|
|
|
p_detail.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
v_fee_do_aire.open;
|
|
|
|
|
|
v_fee_do_airi.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').value:=
|
|
|
p_detail.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
v_fee_do_airi.open;
|
|
|
|
|
|
v_fee_do_seae_sum.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').value:=
|
|
|
p_detail.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
v_fee_do_seae_sum.open;
|
|
|
|
|
|
v_fee_do_seai_sum.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').value:=
|
|
|
p_detail.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
v_fee_do_seai_sum.open;
|
|
|
|
|
|
v_fee_do_aire_sum.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').value:=
|
|
|
p_detail.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
v_fee_do_aire_sum.open;
|
|
|
|
|
|
v_fee_do_airi_sum.Parameters.ParamByName('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').value:=
|
|
|
p_detail.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
v_fee_do_airi_sum.open;
|
|
|
end;
|
|
|
frm_rp_ch_balance_view.ShowModal;
|
|
|
finally
|
|
|
frm_rp_ch_balance_view.free;
|
|
|
frm_rp_ch_balance_view:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
if tabsheet2.Showing then
|
|
|
grid_save_xls(dxdbgrid6);
|
|
|
if tabsheet3.Showing then
|
|
|
grid_save_xls(dxdbgrid9);
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
if tabsheet2.Showing then
|
|
|
update_grid_view_no(dxdbgrid6);
|
|
|
if tabsheet3.Showing then
|
|
|
update_grid_view_no(dxdbgrid9);
|
|
|
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_ch_balance_detail.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
if tabsheet2.Showing then
|
|
|
update_grid_view_all(dxdbgrid6);
|
|
|
if tabsheet3.Showing then
|
|
|
update_grid_view_all(dxdbgrid9);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|