D10myYicheng/财务管理(Financial.dll)/U_CWSKList.pas

unit U_CWSKList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
  cxTextEdit, cxDropDownEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
  dxDateRanges, U_BaseList;

type
  TfrmCWSKList = class(TfrmBaseList)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBDel: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    Label1: TLabel;
    YFName: TEdit;
    ADOQueryMain: TADOQuery;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    Label3: TLabel;
    FactoryName: TEdit;
    Label2: TLabel;
    Label6: TLabel;
    begdate: TDateTimePicker;
    Enddate: TDateTimePicker;
    GPM_1: TcxGridPopupMenu;
    DS_1: TDataSource;
    CDS_1: TClientDataSet;
    ToolButton3: TToolButton;
    Label8: TLabel;
    HZFactoryName: TEdit;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    VDate: TcxGridDBColumn;
    VFTYName: TcxGridDBColumn;
    VYFName: TcxGridDBColumn;
    VPayMent: TcxGridDBColumn;
    VYB: TcxGridDBColumn;
    VNote: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    v2Column1: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    v2Column4: TcxGridDBColumn;
    v2Column5: TcxGridDBColumn;
    v2Column6: TcxGridDBColumn;
    v2Column7: TcxGridDBColumn;
    Label5: TLabel;
    BankName: TEdit;
    Label7: TLabel;
    BankNo: TEdit;
    Label9: TLabel;
    ComTaiTou: TEdit;
    cxTabControl1: TcxTabControl;
    v2Column2: TcxGridDBColumn;
    v2Column10: TcxGridDBColumn;
    v2Column12: TcxGridDBColumn;
    Tv1Column2: TcxGridDBColumn;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Tv1Column4: TcxGridDBColumn;
    Tv1Column5: TcxGridDBColumn;
    VC_SSel: TcxGridDBColumn;
    VC_HuiLv: TcxGridDBColumn;
    Tv1Column6: TcxGridDBColumn;
    Label4: TLabel;
    MiddleName: TEdit;
    VC_RZMoney: TcxGridDBColumn;
    Tv1Column8: TcxGridDBColumn;
    Tv1Column3: TcxGridDBColumn;
    Tv1Column9: TcxGridDBColumn;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Tv1Column10: TcxGridDBColumn;
    Tv1Column7: TcxGridDBColumn;
    VC_RZTime: TcxGridDBColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure TBDelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure FormCreate(Sender: TObject);
    procedure VPayMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v2Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v2Column9PropertiesEditValueChanged(Sender: TObject);
    procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure cxTabControl1Change(Sender: TObject);
    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure VYBPropertiesEditValueChanged(Sender: TObject);
    procedure FactoryNameKeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure v2Column12PropertiesEditValueChanged(Sender: TObject);
    procedure Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
    canshu1: string;
    FLeft, FTop: Integer;
    procedure InitGrid();
  public
    { Public declarations }
    RKFlag, FCYID, FZKType: string;
  end;

implementation

uses
  U_DataLink, U_RTFun, U_ZDYHelp, U_KHSel, U_CKSKHXList, U_skHx, U_BankListSel;

{$R *.dfm}

procedure TfrmCWSKList.InitGrid();
var
  WSql: string;
begin
  WSql := SGetFilters(Panel1, 1, 2);
  if Trim(WSql) <> '' then
    WSql := ' and ' + WSql;

  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      Filtered := False;
      sql.Add(' select A.*,WHxNum=Money-HxNum from CW_Money_CR A');
      sql.Add(' where A.CRType=''<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>''  ');
      case cxTabControl1.TabIndex of
        0:
          begin
            sql.Add(' and isnull(BZType,'''')=''$'' ');
          end;
        1:
          begin
            sql.Add(' and isnull(BZType,'''')=''<27><>'' ');
          end;
        2:
          begin
            sql.Add(' and isnull(BZType,'''')=''<27>'' ');
          end;
      end;

      sql.Add(' and A.CRTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
      sql.Add(' and CRTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');

      sql.Add(WSql);
      Open;
    end;
    SCreateCDS(ADOQueryMain, CDS_1);
    SInitCDSData(ADOQueryMain, CDS_1);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmCWSKList.FactoryNameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    InitGrid();
  end;
end;

procedure TfrmCWSKList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
end;

procedure TfrmCWSKList.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid(trim(Self.Caption), TV1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  Close;
end;

procedure TfrmCWSKList.TBDelClick(Sender: TObject);
var
  FBBMoney, CRID: string;
begin
  if CDS_1.IsEmpty then
    Exit;
  if Trim(CDS_1.fieldbyname('CWID').AsString) <> '' then
  begin
    with ADOQueryTemp do
    begin
      Close;
      sql.Clear;
      sql.Add(' select * from CW_Money_CR');
      sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
      SQL.Add(' and status=''1''');
      Open;
    end;
    if ADOQueryTemp.IsEmpty = False then
    begin
      Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
      Exit;
    end;
    with ADOQueryTemp do
    begin
      Close;
      sql.Clear;
      sql.Add(' select * from CW_Bank_LS');
      sql.Add(' where BLID=''' + Trim(CDS_1.fieldbyname('FromDataID1').AsString) + '''');
      Open;
    end;
    if ADOQueryTemp.IsEmpty = False then
    begin
      Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
      Exit;
    end;
    if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
      Exit;
    try
      ADOQueryCmd.Connection.BeginTrans;
      with ADOQueryCmd do
      begin
        close;
        sql.Clear;
        sql.Add(' insert into ZDel_CW_Money_CR ');
        sql.Add(' select * from CW_Money_CR where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');

        sql.Add(' Update ZDel_CW_Money_CR Set DelTime=getdate(),DelName=''' + Trim(DName) + ''',DelCode=''' + Trim(DCode) + '''');
        sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');

        sql.Add(' delete CW_Money_CR where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');

        execsql;
      end;
      ADOQueryCmd.Connection.CommitTrans;
      CDS_1.Delete;
    except
      ADOQueryCmd.Connection.RollbackTrans;
      Application.MessageBox('ɾ<><C9BE>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
    end;
  end;
end;

procedure TfrmCWSKList.FormShow(Sender: TObject);
var
  fsj: string;
begin
  inherited;
  ReadCxGrid(trim(Self.Caption), TV1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  Enddate.DateTime := SGetServerDate(ADOQueryTemp);
  begdate.DateTime := Enddate.DateTime - 50;
  InitGrid();
end;

procedure TfrmCWSKList.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmCWSKList.ToolButton1Click(Sender: TObject);
begin
  if CDS_1.IsEmpty then
    exit;
  with ADOQueryTemp do
  begin
    Close;
    sql.Clear;
    sql.Add(' select * from CW_Money_CR');
    sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
    SQL.Add(' and status=''1''  ');
    Open;
  end;
  if ADOQueryTemp.IsEmpty then
  begin
    Application.MessageBox('δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
//  if not ADOQueryTemp.fieldbyname('RZFlag').AsBoolean then
//  begin
//    Application.MessageBox('δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
//    Exit;
//  end;

  frmskHx := TfrmskHx.create(self);
  with frmskHx do
  begin
    fkeyNo := CDS_1.fieldbyname('CWID').AsString;
    ffactoryNO := CDS_1.fieldbyname('factoryNo').AsString;
    FComTaiTou := CDS_1.fieldbyname('ComTaiTou').AsString;
    if showmodal = 1 then
    begin

    end;
    free;
  end;
end;

procedure TfrmCWSKList.ToolButton2Click(Sender: TObject);
begin
//  if CDS_1.IsEmpty then
//    exit;
  frmCKSKHXList := TfrmCKSKHXList.create(self);
  with frmCKSKHXList do
  begin
    FromId.text := Self.CDS_1.fieldbyname('CWID').AsString;
    if showmodal = 1 then
    begin

    end;
    free;
  end;
end;

procedure TfrmCWSKList.ToolButton3Click(Sender: TObject);
var
  MFactoryNo, MFactoryName, MBZType, maxId, MCoHRName: string;
begin
  if GetLSNo(ADOQueryCmd, maxId, 'SK', 'CW_Money_CR', 4, 1) = False then
  begin
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  case cxTabControl1.TabIndex of
    0:
      begin
        MBZType := '$';
      end;
    1:
      begin
        MBZType := '<27><>';
      end;
    2:
      begin
        MBZType := '<27>';
      end;
  end;

  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'KHNAME';
      flagname := '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';

      if ShowModal = 1 then
      begin

        with ClientDataSet1 do
        begin
//          MFactoryNo := Trim(Order_Main.fieldbyname('CoCode').AsString);
          MFactoryName := FieldByName('ZDYName').AsString;
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;

  if trim(MFactoryName) = '' then
    Exit;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with ADOQueryCmd do
    begin
      Close;
      SQL.Clear;
      sql.Add('select * from CW_Money_CR where 1<>1');
      Open;
    end;
    with ADOQueryCmd do
    begin
      Append;
      FieldByName('CWID').Value := Trim(maxId);
      FieldByName('Filler').Value := Trim(DName);
      FieldByName('CRType').Value := '<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>';
      FieldByName('CRFlag').Value := 'Ӧ<><D3A6><EFBFBD><EFBFBD>';
      FieldByName('QtyFlag').Value := -1;
      FieldByName('FactoryNo').Value := MFactoryNo;
      FieldByName('FactoryName').Value := MFactoryName;

      FieldByName('CoHRName').Value := MCoHRName;

      FieldByName('HZFactoryNo').Value := MFactoryNo;
      FieldByName('HZFactoryName').Value := MFactoryName;
      FieldByName('CRTime').Value := formatdateTIme('yyyy-MM-dd', SGetServerDate(ADOQueryTemp));
      FieldByName('BZType').Value := MBZType;
      Post;
    end;
    with Self.CDS_1 do
    begin
      Append;
      FieldByName('CWID').Value := Trim(maxId);
      FieldByName('FactoryNo').Value := MFactoryNo;
      FieldByName('FactoryName').Value := MFactoryName;
      FieldByName('CoHRName').Value := MCoHRName;
      FieldByName('HZFactoryNo').Value := MFactoryNo;
      FieldByName('HZFactoryName').Value := MFactoryName;
      FieldByName('CRTime').Value := SGetServerDate(ADOQueryTemp);
      FieldByName('BZType').Value := MBZType;
      Post;
    end;
    ADOQueryCmd.Connection.CommitTrans;
  except
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
  end;
end;

procedure TfrmCWSKList.ToolButton4Click(Sender: TObject);
begin
  if CDS_1.IsEmpty then
    exit;
  try
    with CDS_1 do
    begin
      DisableControls;
      First;
      while not Eof do
      begin
        if CDS_1.fieldbyname('SSel').AsBoolean then
        begin
//          if Trim(CDS_1.fieldbyname('BankNo').AsString) = '' then
//          begin
//            CDS_1.EnableControls;
//            Application.MessageBox('<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
//            Exit;
//          end;
//          if Trim(CDS_1.fieldbyname('TOBankNo').AsString) = '' then
//          begin
//            CDS_1.EnableControls;
//            Application.MessageBox('<27>Է<EFBFBD><D4B7>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
//            Exit;
//          end;
          with ADOQueryCmd do
          begin
            Close;
            sql.Clear;
            sql.Add(' select * from CW_Money_CR');
            sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
            SQL.Add(' and status=''1'' ');
            Open;
          end;

          if ADOQueryCmd.IsEmpty = False then
          begin
            CDS_1.EnableControls;
            Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
            Exit;
          end;

          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.add('update CW_Money_CR set Chker=''' + trim(DName) + ''',Chktime=getdate(),status=''1'' ');
            sql.add('where CWID=''' + trim(CDS_1.fieldbyname('CWID').asstring) + ''' ');
            execsql;
          end;

          CDS_1.Edit;
          CDS_1.FieldByName('status').Value := '1';
          CDS_1.FieldByName('Chker').Value := DName;
          CDS_1.Post;

        end;

        Next;
      end;
      EnableControls;
    end;
    application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3>', '<27><>ʾ');

  except
    CDS_1.EnableControls;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>', '<27><>ʾ');
  end;

end;

procedure TfrmCWSKList.ToolButton5Click(Sender: TObject);
begin
  if CDS_1.IsEmpty then
    exit;
  try
    with CDS_1 do
    begin
      DisableControls;
      First;
      while not Eof do
      begin
        if CDS_1.fieldbyname('SSel').AsBoolean then
        begin
//          with ADOQueryCmd do
//          begin
//            Close;
//            sql.Clear;
//            sql.Add(' select * from CW_Money_CR');
//            sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
//            SQL.Add(' and Chker=' + QuotedStr(trim(DName)));
//            Open;
//          end;
//
//          if ADOQueryCmd.IsEmpty then
//          begin
//            CDS_1.EnableControls;
//            Application.MessageBox('<27><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
//            Exit;
//          end;
          with ADOQueryTemp do
          begin
            Close;
            sql.Clear;
            sql.Add(' select * from CW_Bank_LS');
            sql.Add(' where BLID=''' + Trim(CDS_1.fieldbyname('FromDataID1').AsString) + '''');
            Open;
          end;
          if ADOQueryTemp.IsEmpty = False then
          begin
            Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>ݲ<EFBFBD><DDB2>ܳ<EFBFBD><DCB3><EFBFBD>!', '<27><>ʾ', 0);
            Exit;
          end;
          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.add('update CW_Money_CR set Chker=null,Chktime=null,status=''0'' ');
            sql.add('where CWID=''' + trim(CDS_1.fieldbyname('CWID').asstring) + ''' ');
            execsql;
          end;

          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.Add('  delete CW_Bank_LS   where isnull(FromCWID,'''')<>'''' and FromCWID=' + quotedstr(trim(CDS_1.fieldbyname('CWID').AsString)));
            execsql;
          end;

          CDS_1.Edit;
          CDS_1.FieldByName('status').Value := '0';
          CDS_1.FieldByName('Chker').Value := '';
          CDS_1.Post;
        end;

        Next;
      end;
    end;
    CDS_1.EnableControls;
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');

  except
    CDS_1.EnableControls;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>', '<27><>ʾ');
  end;
end;

procedure TfrmCWSKList.ToolButton6Click(Sender: TObject);
begin
  if CDS_1.IsEmpty then
    exit;
  try
    with CDS_1 do
    begin
      DisableControls;
      First;
      while not Eof do
      begin
        if CDS_1.fieldbyname('SSel').AsBoolean then
        begin
          if CDS_1.fieldbyname('RZMoney').AsFloat <= 0 then
          begin
            CDS_1.EnableControls;
            Application.MessageBox('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EEB2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
            Exit;
          end;
          with ADOQueryCmd do
          begin
            Close;
            sql.Clear;
            sql.Add(' select * from CW_Money_CR');
            sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
            SQL.Add(' and status=''1'' ');
            Open;
          end;

          if ADOQueryCmd.IsEmpty then
          begin
            CDS_1.EnableControls;
            Application.MessageBox('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
            Exit;
          end;

          with ADOQueryCmd do
          begin
            Close;
            sql.Clear;
            sql.Add(' select * from CW_Money_CR');
            sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
            SQL.Add(' and RZFlag= 1  ');
            Open;
          end;

          if not ADOQueryCmd.IsEmpty then
          begin
            CDS_1.EnableControls;
            Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
            Exit;
          end;
          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.add('update CW_Money_CR set RZer=''' + trim(DName) + ''',RZTime=getdate(),RZFlag=1 ');
            sql.add('where CWID=''' + trim(CDS_1.fieldbyname('CWID').asstring) + ''' ');
            execsql;
          end;
          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.add('update CW_Money_CR set  RZDate=getdate()  ');
            sql.add('where isnull(RZDate,'''')='''' and CWID=''' + trim(CDS_1.fieldbyname('CWID').asstring) + ''' ');
            execsql;
          end;
          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.Add(' exec P_CWLS_IN_SK @DataID=' + quotedstr(trim(CDS_1.fieldbyname('CWID').AsString)));
            Open;
          end;
          if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
          begin
            Application.MessageBox(PChar(ADOQueryCmd.fieldbyname('ShowMsg').AsString), '<27><>ʾ', 0);
            exit;
          end;

          CDS_1.Edit;
          CDS_1.FieldByName('RZFlag').Value := 1;
          CDS_1.Post;

        end;

        Next;
      end;
      EnableControls;
    end;
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');

  except
    CDS_1.EnableControls;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>', '<27><>ʾ');
  end;

end;

procedure TfrmCWSKList.ToolButton7Click(Sender: TObject);
begin
  if CDS_1.IsEmpty then
    exit;
  try
    with CDS_1 do
    begin
      DisableControls;
      First;
      while not Eof do
      begin
        if CDS_1.fieldbyname('SSel').AsBoolean then
        begin

          with ADOQueryCmd do
          begin
            Close;
            sql.Clear;
            sql.Add(' select * from CW_Money_CR');
            sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
            SQL.Add(' and RZFlag= 1  ');
            Open;
          end;

          if ADOQueryCmd.IsEmpty then
          begin
            CDS_1.EnableControls;
            Application.MessageBox('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
            Exit;
          end
          else
          begin
            if Trim(ADOQueryCmd.fieldbyname('RZer').AsString) <> Trim(DName) then
            begin
              CDS_1.EnableControls;
              Application.MessageBox('<27><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>!', '<27><>ʾ', 0);
              Exit;
            end
          end;

          with ADOQueryTemp do
          begin
            Close;
            sql.Clear;
            sql.Add(' select * from CW_Bank_LS');
            sql.Add(' where BLID=''' + Trim(CDS_1.fieldbyname('FromDataID1').AsString) + '''');
            Open;
          end;
          if ADOQueryTemp.IsEmpty = False then
          begin
            Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>ݲ<EFBFBD><DDB2>ܳ<EFBFBD><DCB3><EFBFBD>!', '<27><>ʾ', 0);
            Exit;
          end;

          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.add('update CW_Money_CR set rzer=null,rztime=null,RZDate=null,RZFlag=0 ');
            sql.add('where CWID=''' + trim(CDS_1.fieldbyname('CWID').asstring) + ''' ');
            execsql;
          end;

          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.Add('  delete CW_Bank_LS   where isnull(FromCWID,'''')<>'''' and FromCWID=' + quotedstr(trim(CDS_1.fieldbyname('CWID').AsString)));
            execsql;
          end;

          CDS_1.Edit;
          CDS_1.FieldByName('RZFlag').Value := 0;
          CDS_1.Post;
        end;

        Next;
      end;
    end;
    CDS_1.EnableControls;
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');

  except
    CDS_1.EnableControls;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>', '<27><>ʾ');
  end;
end;

procedure TfrmCWSKList.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
  FCWType: string;
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SKYFName';
      flagname := '<27><>Ŀ<EFBFBD><C4BF>ժҪ';
      if ShowModal = 1 then
      begin
        FCWType := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  with Self.CDS_1 do
  begin
    Edit;
    FieldByName('CWType').Value := Trim(FCWType);
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update CW_Money_CR set CWType=' + quotedstr(Trim(FCWType)));
    sql.Add('where CWID=' + quotedstr(Trim(CDS_1.fieldbyname('CWID').AsString)));
    ExecSQL;
  end;

end;

procedure TfrmCWSKList.v2Column12PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with CDS_1 do
  begin
    Edit;
    FieldByName(FFieldName).Value := mvalue;
    Post;
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update CW_Money_CR set ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
    sql.Add('where CWID=' + quotedstr(Trim(CDS_1.fieldbyname('CWID').AsString)));
    ExecSQL;
  end;
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmCWSKList.v2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'PayMent';
      flagname := '֧<><D6A7><EFBFBD><EFBFBD>ʽ';
      MainType := '<27><><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with Self.CDS_1 do
        begin
          Edit;
          FieldByName('PayMent').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('UPdate CW_Money_CR ');
          sql.Add(' Set PayMent=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
          SQL.Add(',Editer=''' + Trim(DName) + '''');
          SQL.Add(',Edittime=getdate() ');
          SQL.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
          ExecSQL;
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCWSKList.FormCreate(Sender: TObject);
begin
  inherited;
  canshu1 := Trim(DParameters1);
end;

procedure TfrmCWSKList.VPayMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
  mvalue: string;
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SKPayment';
      flagname := '֧<><D6A7><EFBFBD><EFBFBD>ʽ';
      if ShowModal = 1 then
      begin
        mvalue := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  with Self.CDS_1 do
  begin
    Edit;
    FieldByName('PayMent').Value := mvalue;
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update CW_Money_CR set PayMent=' + QuotedStr(Trim(mvalue)));
    sql.Add('where CWID=' + quotedstr(Trim(CDS_1.fieldbyname('CWID').AsString)));
    ExecSQL;
  end;
end;

procedure TfrmCWSKList.VYBPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
  FPS, FQty, FPrice, FBZFee, FMoney, FSDMoney, FTCMoney: Double;
begin
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;

  with CDS_1 do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    Post;
    FTCMoney := FieldByName('TCMoney').AsFloat;
    FSDMoney := FieldByName('SDMoney').AsFloat;
  end;
  FMoney := FTCMoney + FSDMoney;

  with CDS_1 do
  begin
    Edit;
    FieldByName('Money').Value := FMoney;
    FieldByName('WHxNum').Value := FMoney;
    Post;
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update CW_Money_CR set ' + FFieldName + '=' + Trim(mvalue));

    sql.Add(', Money  =' + Trim(FloatToStr(FMoney)));

    sql.Add('where CWID=' + quotedstr(Trim(CDS_1.fieldbyname('CWID').AsString)));
    ExecSQL;
  end;

  Tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmCWSKList.v2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
  FComTaiTou: string;
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'GSTTDZ';
      flagname := '<27><>˾̧ͷ';
      if ShowModal = 1 then
      begin
        FComTaiTou := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  with Self.CDS_1 do
  begin
    Edit;
    FieldByName('ComTaiTou').Value := Trim(FComTaiTou);
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update CW_Money_CR set ComTaiTou=' + quotedstr(Trim(FComTaiTou)));
    sql.Add('where CWID=' + quotedstr(Trim(CDS_1.fieldbyname('CWID').AsString)));
    ExecSQL;
  end;
end;

procedure TfrmCWSKList.v2Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
  FBankName, FBankNo, FBKID, FComTaiTou: string;
begin
  try
    frmBankListSel := TfrmBankListSel.Create(Application);
    with frmBankListSel do
    begin

      if ShowModal = 1 then
      begin
        FComTaiTou := Trim(CDS_HZ.fieldbyname('GSTaiTou').AsString);
        FBankName := Trim(CDS_HZ.fieldbyname('BankName').AsString);
        FBankNo := Trim(CDS_HZ.fieldbyname('BankNo').AsString);
        FBKID := Trim(CDS_HZ.fieldbyname('BKID').AsString);
      end;
    end;
  finally
    frmBankListSel.Free;
  end;
  with Self.CDS_1 do
  begin
    Edit;
    FieldByName('BankName').Value := FBankName;
    FieldByName('BankNo').Value := FBankNo;
    FieldByName('ComTaiTou').Value := FComTaiTou;
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update CW_Money_CR set BankName=' + quotedstr(Trim(FBankName)));
    sql.Add(',BankNo=' + quotedstr(Trim(FBankNo)));
    sql.Add(',BKID=' + quotedstr(Trim(FBKID)));
    sql.Add(',ComTaiTou=' + quotedstr(Trim(FComTaiTou)));
    sql.Add('where CWID=' + quotedstr(Trim(CDS_1.fieldbyname('CWID').AsString)));
    ExecSQL;
  end;
end;

procedure TfrmCWSKList.v2Column9PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FName: string;
  RZMoney, BankFee, ShenDanFee, BaoWenFee, KuaiDiFee, GuoWaiFee: Double;
begin
  FName := TV1.Controller.FocusedColumn.DataBinding.FilterFieldName;
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  with CDS_1 do
  begin
    Edit;
    FieldByName(FName).Value := mvalue;
    Post;
    RZMoney := CDS_1.fieldbyname('RZMoney').AsFloat;
    BankFee := CDS_1.fieldbyname('BankFee').AsFloat;
    ShenDanFee := CDS_1.fieldbyname('ShenDanFee').AsFloat;
    BaoWenFee := CDS_1.fieldbyname('BaoWenFee').AsFloat;
    KuaiDiFee := CDS_1.fieldbyname('KuaiDiFee').AsFloat;
    GuoWaiFee := CDS_1.fieldbyname('GuoWaiFee').AsFloat;
  end;

  with CDS_1 do
  begin
    Edit;
    FieldByName('Money').Value := RZMoney + BankFee + ShenDanFee + BaoWenFee + KuaiDiFee + GuoWaiFee;
    Post;
  end;
end;

procedure TfrmCWSKList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  FLeft := X;
  FTop := Y;
end;

procedure TfrmCWSKList.cxTabControl1Change(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmCWSKList.Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
  MFactoryNo, MFactoryName: string;
begin
  try
    frmKHSel := TfrmKHSel.Create(Application);
    with frmKHSel do
    begin
      if ShowModal = 1 then
      begin
        MFactoryNo := Trim(Order_Main.fieldbyname('CoCode').AsString);
        MFactoryName := Trim(Order_Main.fieldbyname('CoName').AsString);
      end;
    end;
  finally
    frmKHSel.Free;
  end;

  with Self.CDS_1 do
  begin
    Edit;
    FieldByName('MiddleNo').Value := MFactoryNo;
    FieldByName('MiddleName').Value := MFactoryName;
    Post;
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update CW_Money_CR set MiddleNo=' + QuotedStr(Trim(MFactoryNo)));
    sql.Add(', MiddleName=' + QuotedStr(Trim(MFactoryName)));
    sql.Add('where CWID=' + quotedstr(Trim(CDS_1.fieldbyname('CWID').AsString)));
    ExecSQL;
  end;
end;

procedure TfrmCWSKList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  i: integer;
begin
  with ADOQueryTemp do
  begin
    Close;
    sql.Clear;
    sql.Add(' select * from CW_Money_CR');
    sql.Add(' where CWID=''' + Trim(CDS_1.fieldbyname('CWID').AsString) + '''');
    SQL.Add(' and status=''1''  ');
    Open;
  end;
  if not ADOQueryTemp.IsEmpty then
  begin

    for i := 0 to TV1.ColumnCount - 1 do
    begin
      if uppercase(TV1.Columns[i].DataBinding.FieldName) <> 'SSEL' then
        TV1.Columns[i].Options.Editing := false;
    end;
    if not ADOQueryTemp.fieldbyname('RZFlag').AsBoolean then
    begin
      VC_HuiLv.Options.Editing := True;
      VC_RZMoney.Options.Editing := True;
      VC_RZTime.Options.Editing := True;
    end;

  end
  else
  begin
    for i := 0 to TV1.ColumnCount - 1 do
    begin
      if uppercase(TV1.Columns[i].DataBinding.FieldName) <> 'SSEL' then
        TV1.Columns[i].Options.Editing := True;
    end;
  end;

//   with ADOQueryTemp do
//    begin
//      Close;
//      sql.Clear;
//      sql.Add(' select * from CW_Bank_LS');
//      sql.Add(' where BLID=''' + Trim(CDS_1.fieldbyname('FromDataID1').AsString) + '''');
//      Open;
//    end;
//    if not ADOQueryTemp.IsEmpty then
//    begin
//      TV1.OptionsData.Editing := False;
//    end
//    else
//    begin
//      TV1.OptionsData.Editing := True;
//    end;
end;

end.