📄 csh800_01.pas.svn-base

📁 开源的网站整站程序,功能强大带采集系统.
💻 SVN-BASE
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Csh800_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_09, dxExEdtr, Buttons, StdCtrls, wwdbdatetimepicker, DB,
  ADODB, ActnList, Menus, dxCntner, dxTL, wwfltdlg,
  dxDBCtrl, dxDBTL, ExtCtrls, ComCtrls, ToolWin, dxDBTLCl, TeEngine,
  Series, TeeProcs, Chart, DbChart;

type
  TCsh800_01Form = class(TBas200_09Form)
    lblItem: TLabel;
    cbItem: TComboBox;
    lblDate: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    ADODataSet1FCurNm: TStringField;
    ADODataSet1FNo: TIntegerField;
    ADODataSet1FParent: TIntegerField;
    ADODataSet1FName: TStringField;
    ADODataSet1FAmount: TBCDField;
    ADODataSet1FLevel: TIntegerField;
    ADODataSet1FSeqNo: TIntegerField;
    dxDBTreeList1FCurNm: TdxDBTreeListMaskColumn;
    dxDBTreeList1FName: TdxDBTreeListMaskColumn;
    dxDBTreeList1FAmount: TdxDBTreeListCurrencyColumn;
    sbSearch: TSpeedButton;
    Panel2: TPanel;
    DBChart1: TDBChart;
    BarSeries1: TBarSeries;
    Splitter1: TSplitter;
    ActOpen: TAction;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure cbItemChange(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
    procedure ActOpenExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure RefreshEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Csh800_01Form: TCsh800_01Form;
  ALevelNo:Integer;  //层次号

implementation

uses SYSDATA, CommFun, Csh510_01;

{$R *.dfm}

procedure TCsh800_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('CSH80001001');  //收支分析报表
  lblItem.Caption:=GetDBString('CSH80001002');  //项目
  lblDate.Caption:=GetDBString('CSH80001003');  //日期
  sbSearch.Caption:=GetDBString('CSH80001004');  //查询
  ADODataSet1FCurNm.DisplayLabel:=GetDBString('CSH80001005');  //币别
  ADODataSet1FName.DisplayLabel:=GetDBString('CSH80001006');  //名称
  ADODataSet1FAmount.DisplayLabel:=GetDBString('CSH80001007');  //金额
  cbItem.Items.Clear;
  cbItem.Items.Add(GetDBString('CSH80001009'));  //业务分类
  cbItem.Items.Add(GetDBString('CSH80001010'));  //客户
  cbItem.Items.Add(GetDBString('CSH80001011'));  //部门
  cbItem.Items.Add(GetDBString('CSH80001012'));  //项目
  cbItem.ItemIndex:=0;
end;

procedure TCsh800_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
  //取得当月起始＆结束日期
  edtFromDate.Date:=GetMonthFirstDate(Date);
  edtToDate.Date:=GetMonthEndDate(Date);
  sbSearch.Click;
end;

procedure TCsh800_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  ADODataSet1.Close;
end;

//设置顶层分类数据
procedure SetParentData(ADataSet:TADODataSet;ACurNm:string);
begin
  if not ADataSet.Active then Abort;
  if ADataSet.Locate('FCurNm',ACurNm,[]) then Exit;
  ADataSet.Append;
  ADataSet.FieldByName('FCurNm').Value:=ACurNm;
  ADataSet.FieldByName('FNo').Value:=-2;
  ADataSet.FieldByName('FParent').Value:=-2;
  ADataSet.FieldByName('FName').Value:=GetDBString('CSH80001017');  //收支差额
  ADataSet.FieldByName('FAmount').Value:=0;
  ADataSet.Post;

  ADataSet.Append;
  ADataSet.FieldByName('FCurNm').Value:=ACurNm;
  ADataSet.FieldByName('FNo').Value:=-1;
  ADataSet.FieldByName('FParent').Value:=-2;
  ADataSet.FieldByName('FName').Value:=GetDBString('CSH80001018');  //收入
  ADataSet.FieldByName('FAmount').Value:=0;
  ADataSet.Post;

  ADataSet.Append;
  ADataSet.FieldByName('FCurNm').Value:=ACurNm;
  ADataSet.FieldByName('FNo').Value:=0;
  ADataSet.FieldByName('FParent').Value:=-2;
  ADataSet.FieldByName('FName').Value:=GetDBString('CSH80001019');  //支出
  ADataSet.FieldByName('FAmount').Value:=0;
  ADataSet.Post;
end;

//将下级分类金额累加到上级分类
procedure UpdateClassParent(ANo:Integer;AValue:Double;ADataSet:TDataSet;ACurrName:String);
var
  AParent,AType:Integer;
  AClassName:String;
begin
  ALevelNo:=ALevelNo+1;
  //查找业务分类表中该记录是否有上级分类
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from CSH140 where C140_001='+IntToStr(ANo));
  SYSDM.qryQuery.Open;
  AClassName:=SYSDM.qryQuery.FieldByName('C140_002').AsString;
  AParent:=SYSDM.qryQuery.FieldByName('C140_004').AsInteger;
  AType:=SYSDM.qryQuery.FieldByName('C140_003').AsInteger;
  if AParent=0 then AParent:=AType-1;
  if ADataSet.Locate('FNo',ANo,[]) then
  begin
    ADataSet.Edit;
    ADataSet.FieldByName('FAmount').Value:=ADataSet.FieldByName('FAmount').Value+AValue;
    ADataSet.Post;
  end else
  begin
    ADataSet.Append;
    ADataSet.FieldByName('FCurNm').Value:=ACurrName;
    ADataSet.FieldByName('FNo').Value:=ANo;
    ADataSet.FieldByName('FName').Value:=AClassName;
    ADataSet.FieldByName('FParent').Value:=AParent;
    ADataSet.FieldByName('FLevel').Value:=0;
    ADataSet.FieldByName('FSeqNo').Value:=0;
    ADataSet.FieldByName('FAmount').Value:=AValue;
    ADataSet.Post;
  end;
  if AParent>0 then UpdateClassParent(AParent,AValue,ADataSet,ACurrName);
end;

//取得上级业务分类
procedure GetParentClass(ADataSet:TADODataSet);
var
  ABookmark:TBookmark;
  ACurrName:string;
  AMount:Double;
  AClassNo:Integer;
begin
  ADataSet.First;
  while not ADataSet.Eof do
  begin
    ABookmark:=ADataSet.GetBookmark;
    ACurrName:=ADataSet.FieldByName('FCurNm').AsString;
    AMount:=ADataSet.FieldByName('FAmount').AsFloat;
    AClassNo:=ADataSet.FieldByName('FParent').AsInteger;
    ALevelNo:=0;
    if AClassNo>0 then UpdateClassParent(AClassNo,AMount,ADataSet,ACurrName);
    ADataSet.GotoBookmark(ABookmark);
    ADataSet.FreeBookmark(ABookmark);
    //修改层次号　0＝最顶层
    ADataSet.Edit;
    ADataSet.FieldByName('FLevel').Value:=ALevelNo;
    ADataSet.Post;
    ADataSet.Next;
  end;
end;

//将下级项目金额累加到上级项目
procedure UpdateProjectParent(ANo:Integer;AValue:Double;ADataSet:TDataSet;ACurrName:String);
var
  AParent:Integer;
  AProjectName:String;
begin
  ALevelNo:=ALevelNo+1;
  //查找项目资料表中该记录是否有上级分类
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from CSH150 where C150_001='+IntToStr(ANo));
  SYSDM.qryQuery.Open;
  AProjectName:=SYSDM.qryQuery.FieldByName('C150_002').AsString;
  AParent:=SYSDM.qryQuery.FieldByName('C150_003').AsInteger;
  if ADataSet.Locate('FNo',ANo,[]) then
  begin
    ADataSet.Edit;
    ADataSet.FieldByName('FAmount').Value:=ADataSet.FieldByName('FAmount').Value+AValue;
    ADataSet.Post;
  end else
  begin
    ADataSet.Append;
    ADataSet.FieldByName('FCurNm').Value:=ACurrName;
    ADataSet.FieldByName('FNo').Value:=ANo;
    ADataSet.FieldByName('FName').Value:=AProjectName;
    ADataSet.FieldByName('FParent').Value:=AParent;
    ADataSet.FieldByName('FLevel').Value:=0;
    ADataSet.FieldByName('FSeqNo').Value:=0;
    ADataSet.FieldByName('FAmount').Value:=AValue;
    ADataSet.Post;
  end;
  if AParent<>0 then UpdateProjectParent(AParent,AValue,ADataSet,ACurrName);
end;

//取得上级项目
procedure GetParentProject(ADataSet:TADODataSet);
var
  ABookmark:TBookmark;
  ACurrName:string;
  AMount:Double;
  AProjectNo:Integer;
begin
  ADataSet.First;
  while not ADataSet.Eof do
  begin
    ABookmark:=ADataSet.GetBookmark;
    ACurrName:=ADataSet.FieldByName('FCurNm').AsString;
    AMount:=ADataSet.FieldByName('FAmount').AsFloat;
    AProjectNo:=ADataSet.FieldByName('FParent').AsInteger;
    ALevelNo:=0;
    if AProjectNo<>0 then UpdateProjectParent(AProjectNo,AMount,ADataSet,ACurrName);
    ADataSet.GotoBookmark(ABookmark);
    ADataSet.FreeBookmark(ABookmark);
    //修改层次号　0＝最顶层
    ADataSet.Edit;
    ADataSet.FieldByName('FLevel').Value:=ALevelNo;
    ADataSet.Post;
    ADataSet.Next;
  end;
end;

//收支分析--按业务分类
procedure GetClassAmount(ADataSet:TADODataSet;AStartDate,AEndDate:TDateTime);
var
  AType,AParent,ANo:Integer;
  AAmount,AIncome,APayment,ABalance:Double;
  ACurNm,AName:string;
begin
  AIncome:=0;
  APayment:=0;
  //按业务分类、收入支出类型分组求和
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select G100_003 as FCurNm, C140_001 as FNo, C140_002 as FName, C140_003 as FType, C140_004 as FParent, sum(C510B_006) as FAmount from CSH510A,CSH510B, CSH140, CSH550, GLD100');
  SYSDM.qryQuery.SQL.Add('where C510B_007=C140_001 and C510A_004 not in (0,3) and C510A_003=C550_001 and C550_005=G100_001 and C510A_010>='+GetDateString(AStartDate)+' and C510A_010<='+GetDateString(AEndDate)+' and C510A_001=C510B_001');
  SYSDM.qryQuery.SQL.Add('group by G100_003, C140_001, C140_002, C140_003, C140_004');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    AType:=SYSDM.qryQuery.FieldByName('FType').AsInteger;
    AParent:=SYSDM.qryQuery.FieldByName('FParent').Value;
    AAmount:=SYSDM.qryQuery.FieldByName('FAmount').Value;
    ANo:=SYSDM.qryQuery.FieldByName('FNo').Value;
    AName:=SYSDM.qryQuery.FieldByName('FName').Value;
    if AParent=0 then AParent:=AType-1;
    if ACurNm<>SYSDM.qryQuery.FieldByName('FCurNm').Value then
    begin
      ACurNm:=SYSDM.qryQuery.FieldByName('FCurNm').Value;
      SetParentData(ADataSet,ACurNm);  //设置顶层分类数据
    end;
    ADataSet.Append;
    ADataSet.FieldByName('FCurNm').Value:=ACurNm;
    ADataSet.FieldByName('FNo').Value:=ANo;
    ADataSet.FieldByName('FParent').Value:=AParent;
    ADataSet.FieldByName('FName').Value:=AName;
    ADataSet.FieldByName('FAmount').Value:=AAmount;
    ADataSet.FieldByName('FLevel').Value:=0;
    ADataSet.FieldByName('FSeqNo').Value:=0;
    ADataSet.Post;
    if AType=0 then AIncome:=AIncome+AAmount else APayment:=APayment+AAmount;
    SYSDM.qryQuery.Next;
  end;
  if ADataSet.IsEmpty then Exit;
  //插入上级业务分类
  GetParentClass(ADataSet);  //取得上级业务分类
  ABalance:=AIncome-APayment;
  //更新收支余额、收入、支出的金额
  ADataSet.Locate('FNo',-2,[]);
  ADataSet.Edit;
  ADataSet.FieldByName('FAmount').Value:=ABalance;
  ADataSet.Post;

  ADataSet.Locate('FNo',-1,[]);
  ADataSet.Edit;
  ADataSet.FieldByName('FAmount').Value:=AIncome;
  ADataSet.Post;

  ADataSet.Locate('FNo',0,[]);
  ADataSet.Edit;
  ADataSet.FieldByName('FAmount').Value:=APayment;
  ADataSet.Post;
end;

//收支分析--按客户
procedure GetCustAmount(ADataSet:TADODataSet;AStartDate,AEndDate:TDateTime);
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -