unit U_CW_Money_LL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu,
  cxPC, StdCtrls, ComCtrls, ExtCtrls, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
  cxGrid, ToolWin, cxCalendar, cxCurrencyEdit, cxTextEdit, cxLookAndFeels,
  cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
  dxSkinsDefaultPainters, dxDateRanges, U_BaseList;

type
  TfrmMoney_LL = class(TfrmBaseList)
    ToolBar1: TToolBar;
    TINIT: TToolButton;
    TGLV: TToolButton;
    TADD: TToolButton;
    TUPDATE: TToolButton;
    TDEL: TToolButton;
    TSELECT: TToolButton;
    Texcel: TToolButton;
    TCLOSE: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    CRType: TEdit;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    CRZY: TEdit;
    cxGrid1: TcxGrid;
    TV1: TcxGridDBTableView;
    V1CRTime: TcxGridDBColumn;
    V1CRType: TcxGridDBColumn;
    V1InMoney: TcxGridDBColumn;
    V1NOTE: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    DataSource1: TDataSource;
    AdoQueryTmp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    cxGridPopupMenu1: TcxGridPopupMenu;
    CDS_Main: TClientDataSet;
    TZDY: TToolButton;
    cxTabControl1: TcxTabControl;
    V1CRZY: TcxGridDBColumn;
    V1OutMoney: TcxGridDBColumn;
    V1YEMoney: TcxGridDBColumn;
    Label3: TLabel;
    V1Column1: TcxGridDBColumn;
    TofactoryName: TEdit;
    Label5: TLabel;
    V1Column2: TcxGridDBColumn;
    V1Column3: TcxGridDBColumn;
    Label8: TLabel;
    BLID: TEdit;
    V1Column4: TcxGridDBColumn;
    V1Column5: TcxGridDBColumn;
    V1Column8: TcxGridDBColumn;
    V1Column9: TcxGridDBColumn;
    CDS_Bank: TClientDataSet;
    TV1Column1: TcxGridDBColumn;
    TV1Column3: TcxGridDBColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TCLOSEClick(Sender: TObject);
    procedure TADDClick(Sender: TObject);
    procedure TINITClick(Sender: TObject);
    procedure TGLVClick(Sender: TObject);
    procedure TUPDATEClick(Sender: TObject);
    procedure TSELECTClick(Sender: TObject);
    procedure TexcelClick(Sender: TObject);
    procedure TDELClick(Sender: TObject);
    procedure TZDYClick(Sender: TObject);
    procedure CRTypeChange(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
  private
    FBKID, FBKName: string;
    procedure initGrid();
    procedure SetTab();
    procedure GetCurTab();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMoney_LL: TfrmMoney_LL;

implementation

uses
  U_DataLink, U_RTFun, U_CWLLInput, U_BankList;

{$R *.dfm}
procedure TfrmMoney_LL.GetCurTab();
begin
  CDS_Bank.Locate('BKName', Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]), []);
  FBKID := Trim(CDS_Bank.FieldByName('BKID').AsString);
  FBKName := Trim(CDS_Bank.FieldByName('BKName').AsString);
end;

procedure TfrmMoney_LL.SetTab();
begin
  cxTabControl1.OnChange := nil;

  cxTabControl1.Tabs.Clear;
  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from CW_Bank order by BKXH ');
    open;

  end;
  SCreateCDS(ADOQueryTmp, CDS_Bank);
  SInitCDSData(ADOQueryTmp, CDS_Bank);
  with CDS_Bank do
  begin
    if not CDS_Bank.isempty then
    begin
      while not eof do
      begin
        cxTabControl1.Tabs.Add(trim(fieldbyname('BKName').AsString));
        next;
      end;
    end;
  end;

  if cxTabControl1.Tabs.Count < 1 then
    cxTabControl1.Tabs.Add('初始数据');
//  cxTabControl1.TabIndex:=0;
  cxTabControl1.OnChange := cxTabControl1Change;
end;

procedure TfrmMoney_LL.InitGrid();
begin
  if Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]) = '' then
    Exit;

  GetCurTab();
  with AdoQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select A.*,YEMoney=dbo.F_CWLS_Get_Ye(A.BLID,A.CRTime,A.BKID) ');
    sql.Add('from CW_Bank_LS A ');
    sql.Add('where CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
    sql.Add('and CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');

    sql.Add('and BKID=' + quotedstr(Trim(FBKID)));
    SQL.Add('order by A.CRTime,BLID');
    open;

  end;
  SCreateCDS(ADOQueryTmp, CDS_Main);
  SInitCDSData(ADOQueryTmp, CDS_Main);
  CDS_Main.Last;
end;

procedure TfrmMoney_LL.FormCreate(Sender: TObject);
begin
  inherited;
  cxgrid1.Align := alclient;

end;

procedure TfrmMoney_LL.FormShow(Sender: TObject);
begin
  inherited;
  ReadCxGrid(self.Caption + tv1.Name, Tv1);
  enddate.datetime := SGetServerDateTime(ADOQueryTmp);
  begdate.datetime := strtodate(formatdateTime('yyyy-MM', enddate.DateTime) + '-01');
  SetTab();
  cxTabControl1.Refresh;
  initGrid();
end;

procedure TfrmMoney_LL.FormDestroy(Sender: TObject);
begin
  inherited;
  frmMoney_LL := nil;
end;

procedure TfrmMoney_LL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  writeCxGrid(self.Caption + tv1.Name, Tv1);
  Action := cafree;
end;

procedure TfrmMoney_LL.TCLOSEClick(Sender: TObject);
begin
  close;
end;

procedure TfrmMoney_LL.TADDClick(Sender: TObject);
begin
  GetCurTab();
  try
    frmCWLLInput := TfrmCWLLInput.Create(Application);
    with frmCWLLInput do
    begin
      BKName.TxtCode := FBKID;
      BKName.text := FBKName;
      Fkeyno := '';
      if ShowModal = 1 then
      begin
        InitGrid();
      end;
    end;
  finally
    frmCWLLInput.free;
  end;
end;

procedure TfrmMoney_LL.TINITClick(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmMoney_LL.TGLVClick(Sender: TObject);
begin
  SDofilter(AdoQueryTmp, SGetFilters(Panel1, 1, 0));
  SCreateCDS(AdoQueryTmp, CDS_Main);
  SInitCDSData(AdoQueryTmp, CDS_Main);
end;

procedure TfrmMoney_LL.TUPDATEClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then
    Exit;
  if Trim(CDS_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
  begin
    application.messagebox('不能操作他人数据!', '提示', 0);
    exit;
  end;

  if Trim(CDS_Main.fieldbyname('fromBLID').AsString) <> '' then
  begin
    application.messagebox('不能修改转入数据!', '提示', 0);
    exit;
  end;
  if Trim(CDS_Main.fieldbyname('fromCWID').AsString) <> '' then
  begin
    application.messagebox('不能财务数据!', '提示', 0);
    exit;
  end;

  try
    frmCWLLInput := TfrmCWLLInput.Create(Application);
    with frmCWLLInput do
    begin
      FStatus := '修改';
      Fkeyno := trim(Self.CDS_Main.fieldbyname('BLID').asstring);
      if ShowModal = 1 then
      begin
        InitGrid();
      end;
    end;
  finally
    frmCWLLInput.free;
  end;
end;

procedure TfrmMoney_LL.TSELECTClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then
    Exit;
  try
    frmCWLLInput := TfrmCWLLInput.Create(Application);
    with frmCWLLInput do
    begin
      Fkeyno := trim(Self.CDS_Main.fieldbyname('BLID').asstring);
      TSave.Visible := False;
      panel1.Enabled := False;
      if ShowModal = 1 then
      begin
      //  InitGrid();
      end;
    end;
  finally
    ;
    frmCWLLInput.free;
  end;
end;

procedure TfrmMoney_LL.TexcelClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then
    Exit;
  TcxGridToExcel(Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]), cxGrid1);
end;

procedure TfrmMoney_LL.TDELClick(Sender: TObject);
var
  FBLID: string;
begin
  if CDS_Main.IsEmpty then
    exit;

  FBLID := trim(CDS_Main.fieldbyname('BLID').AsString);
  if CDS_Main.fieldbyname('fromBLID').AsString <> '' then
  begin
    application.messagebox('自动生成输入不能删除!', '提示', 0);
    exit;
  end;
  if Trim(CDS_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
  begin
    application.messagebox('不能操作他人数据!', '提示', 0);
    exit;
  end;
  if Trim(CDS_Main.fieldbyname('fromCWID').AsString) <> '' then
  begin
    application.messagebox('不能财务数据!', '提示', 0);
    exit;
  end;
  if application.MessageBox('确定要删除吗？', '提示', 1) = 2 then
    exit;
  try
    ADOQuerycmd.Connection.BeginTrans;
    with ADOQuerycmd do
    begin
      close;
      sql.Clear;
      sql.Add('delete from CW_Bank_LS where BLID=''' + FBLID + '''');
      sql.Add('delete from CW_Bank_LS where fromBLID=''' + FBLID + '''');
      sql.Add('delete from CW_Money_CR where ISNULL(FromDataID1,''空值不能删'')=''' + FBLID + '''');
      execsql;
    end;
    ADOQuerycmd.Connection.CommitTrans;

    with AdoQueryTmp do
    begin
      close;
      sql.Clear;
      sql.Add('select A.BLID from CW_Bank_LS A');
      sql.Add('where ISNULL(fromBLID,'''')<>'''' ');
      sql.Add('and not exists(select X.BLID from  CW_Bank_LS X WHERE X.BLID=A.fromBLID)');
      open;

    end;
    if AdoQueryTmp.IsEmpty = False then
    begin
      Application.MessageBox('流水数据异常!', '提示', 0);
      Exit;
    end;

    initGrid();
  except
    ADOQuerycmd.connection.rollbackTrans;
    application.messagebox('数据删除失败', '提示', 0);
  end;

end;

procedure TfrmMoney_LL.TZDYClick(Sender: TObject);
begin
  try
    frmBankList := TfrmBankList.Create(self);
    with frmBankList do
    begin
      if showmodal = 1 then
      begin

      end;
    end;
  finally
    frmBankList.Free;
  end;
  SetTab();
end;

procedure TfrmMoney_LL.CRTypeChange(Sender: TObject);
begin
  SDofilter(AdoQueryTmp, SGetFilters(Panel1, 1, 0));
  SCreateCDS(AdoQueryTmp, CDS_Main);
  SInitCDSData(AdoQueryTmp, CDS_Main);
end;

procedure TfrmMoney_LL.cxTabControl1Change(Sender: TObject);
begin
  initGrid();
end;

end.