D7gmYushang/应收应付/U_YYFeeLIST.pas

unit U_YYFeeLIST;

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, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator, dxBarBuiltInMenu;

type
  TfrmYYFeeLIST = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBDel: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    ToolButton2: TToolButton;
    ADOQueryMain: TADOQuery;
    TBExport: TToolButton;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    Label3: TLabel;
    YYNAME: TEdit;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    Label6: TLabel;
    begdate: TDateTimePicker;
    Enddate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    VYB: TcxGridDBColumn;
    v2Note: TcxGridDBColumn;
    Edit1: TEdit;
    Label7: TLabel;
    Button1: TButton;
    Label8: TLabel;
    ComTaiTou: TEdit;
    CheckBox1: TCheckBox;
    v2Column11: TcxGridDBColumn;
    filler: TLabel;
    YYCODE: TEdit;
    v2Column1: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    v2Column4: TcxGridDBColumn;
    cxTabControl1: TcxTabControl;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Tv2Column1: TcxGridDBColumn;
    Tv2Column2: TcxGridDBColumn;
    DS_SUB: TDataSource;
    CDS_SUB: TClientDataSet;
    ToolButton5: TToolButton;
    Tv2Column4: TcxGridDBColumn;
    Tv2Column9: TcxGridDBColumn;
    ToolButton1: TToolButton;
    Label1: TLabel;
    KHNAME: TEdit;
    Tv2Column3: TcxGridDBColumn;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Label2: TLabel;
    LYREN: TEdit;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    Label4: TLabel;
    YYTYPE: TEdit;
    Label5: TLabel;
    cgperson: TEdit;
    Tv2Column5: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure TBDelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure YYNAMEChange(Sender: TObject);
    procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
    procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject);
    procedure TBAddClick(Sender: TObject);
    procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure TBExportClick(Sender: TObject);
    procedure v2Column2PropertiesEditValueChanged(Sender: TObject);
    procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
    procedure v2Column7PropertiesEditValueChanged(Sender: TObject);
    procedure v2Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure YYNAMEKeyPress(Sender: TObject; var Key: Char);
    procedure v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v2Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton1Click(Sender: TObject);
    procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
//    procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
    procedure ToolButton6Click(Sender: TObject);
    procedure cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject);
    procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }

    procedure InitGridHZ();
    procedure InitGrid();
    procedure SetStatus();
    function SaveData(): Boolean;
  public
    fFlag: integer;
    canshu1: string;
    { Public declarations }
    RKFlag, FCYID, fmanage: string;
  end;

//var
  //frmOtherFeeSave: TfrmOtherFeeSave;

implementation

uses
  U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttachGYS, U_RTFun, U_ZdyAttachment,
  U_ProductOrderListSel, U_FYInput, U_FjList10;

{$R *.dfm}

procedure TfrmYYFeeLIST.SetStatus();
var
  i: integer;
begin

  ToolButton3.Visible := false;
  ToolButton4.Visible := false;
  ToolButton5.Visible := False;
  ToolButton6.Visible := False;
  ToolButton7.Visible := False;
  TBDel.Visible := false;
  if canshu1 <> '<27><>ѯ' then
  begin
    case cxTabControl1.TabIndex of
      0:
        begin
          ToolButton5.Visible := true;
          TBDel.Visible := True;
        end;
      1:
        begin
//        ToolButton4.Visible := TRUE;
        end;
    end;
    if canshu1 = '<27><><EFBFBD><EFBFBD>' then
    begin
      case cxTabControl1.TabIndex of
        0:
          begin
            ToolButton3.Visible := true;
          end;
        1:
          begin
            ToolButton4.Visible := TRUE;
          end;
      end;
    end;
    if canshu1 = '<27><><EFBFBD><EFBFBD>' then
    begin
      case cxTabControl1.TabIndex of
        0:
          begin
            ToolButton3.Visible := true;
          end;
        1:
          begin
            ToolButton4.Visible := TRUE;
            ToolButton6.Visible := true;
          end;
        2:
          begin
            ToolButton7.Visible := TRUE;
          end;
      end;
    end;
  end;
  if canshu1 <> '<27><>ѯ' then
  begin
    if cxTabControl1.TabIndex = 0 then
    begin
      for i := 0 to Tv2.ColumnCount - 1 do
      begin
        Tv2.Columns[i].options.editing := True;

      end;
    end;
    if cxTabControl1.TabIndex = 1 then
    begin
      for i := 0 to Tv2.ColumnCount - 1 do
      begin
        Tv2.Columns[i].options.editing := false;
        Tv2Column1.options.Editing := True;
        v2Column4.options.Editing := True;
        Tv2Column4.options.Editing := True;
        v2Note.options.Editing := True;
      end;
    end;
  end;

end;

procedure TfrmYYFeeLIST.InitGrid();
begin
  ToolBar1.SetFocus;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      Filtered := False;
      sql.Add(' select A.* ');
      sql.Add(',ISSC=cast((case when isnull((select count(WBID) from TP_File X where X.WBID=A.FYID and X.TFType=''<27><><EFBFBD>·<EFBFBD><C2B7><EFBFBD>''),0)>0 then 1 else 0 end) as bit)');
      sql.Add(' from CW_YYFEE A WHERE 1=1');
      if CheckBox1.Checked then
      begin
        sql.Add('AND A.YYDATE>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
        sql.Add(' and A.YYDATE<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
      end
      else
      begin

      end;
      if canshu1 = '<27>Ǽ<EFBFBD>' then
      begin
        sql.Add('AND FILLER=' + QuotedStr(Trim(DName)));
      end;
      if cxTabControl1.TabIndex < 3 then
        sql.Add(' and A.status=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
//      sql.Add(' and A.CRType=''<27><><EFBFBD>õǼ<C3B5>''  ');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_HZ);
    SInitCDSData20(ADOQueryMain, CDS_HZ);
  finally
    ADOQueryMain.EnableControls;
    ToolButton2.Click;
  end;
end;

procedure TfrmYYFeeLIST.InitGridHZ();
begin
end;

procedure TfrmYYFeeLIST.FormDestroy(Sender: TObject);
begin
 // frmYFCR:=nil;
 // frmOtherFeeSave:=nil;
end;

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

procedure TfrmYYFeeLIST.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid(self.Caption, Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');

  Close;
end;

procedure TfrmYYFeeLIST.TBDelClick(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    Exit;

  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(' delete CW_YYFEE where FYID=''' + Trim(CDS_HZ.fieldbyname('FYID').AsString) + '''');

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

procedure TfrmYYFeeLIST.FormShow(Sender: TObject);
var
  i: Integer;
begin
  ReadCxGrid(self.Caption, Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');

  Enddate.DateTime := SGetServerDate(ADOQueryTemp);
  begdate.DateTime := SGetServerDateMBeg(ADOQueryTemp);
  if canshu1 = '<27><>ѯ' then
  begin
    for i := 0 to Tv2.ColumnCount - 1 do
    begin
      Tv2.Columns[i].options.editing := false;

    end;
  end;

//  InitYFName();
  SetStatus();
  InitGrid();
//  if Self.Caption = '<27><><EFBFBD>ò<EFBFBD>ѯ' then
//  begin
//    TBSave.Visible := False;
//    TBAdd.Visible := False;
//    TBDel.Visible := False;
//    Tv2.OptionsData.Editing := False;
//  end;
end;

procedure TfrmYYFeeLIST.TBRafreshClick(Sender: TObject);
begin
  begdate.SetFocus;
  InitGrid();

end;

procedure TfrmYYFeeLIST.ToolButton2Click(Sender: TObject);
begin
  if ADOQueryMain.Active = False then
    Exit;
  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
  SCreateCDS20(ADOQueryMain, CDS_HZ);
  SInitCDSData20(ADOQueryMain, CDS_HZ);
end;

procedure TfrmYYFeeLIST.YYNAMEChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

function TfrmYYFeeLIST.SaveData(): Boolean;
var
  maxId, CRID: string;
begin
  try
    ADOQueryCmd.Connection.BeginTrans;
    if GetLSNo(ADOQueryCmd, maxId, 'YY', 'CW_YYFEE', 4, 1) = False then
    begin
      Result := False;
      ADOQueryCmd.Connection.RollbackTrans;
      Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
      Exit;
    end;
    with ADOQueryCmd do
    begin
      Close;
      SQL.Clear;
      sql.Add('select * from CW_YYFEE where 1<>1');
      Open;
    end;
    with ADOQueryCmd do
    begin
      Append;
      FieldByName('FYID').Value := Trim(maxId);
      //FieldByName('CRID').Value:=StrToInt(CRID);
      SSetSaveDataCDSNew(ADOQueryCmd, Tv2, CDS_HZ, 'CW_YYFEE', 7);
      FieldByName('Filler').Value := Trim(DName);


//      FieldByName('ZDYNameTj').Value := Trim(CDS_HZ.fieldbyname('ZDYNameTj').AsString);
//      FieldByName('FYDATE').Value := formatdateTIme('yyyy-MM-dd', CDS_HZ.fieldbyname('FYDATE').AsDateTime);
      Post;
    end;
    with CDS_HZ do
    begin
      Edit;
      FieldByName('FYId').Value := Trim(maxId);
      //FieldByName('CRID').Value:=StrToInt(CRID);
    end;
    ADOQueryCmd.Connection.CommitTrans;
    Result := True;
  except
    Result := True;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
  end;
end;

procedure TfrmYYFeeLIST.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FQty, FPrice, FMoney, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with CDS_HZ do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    Post;
  end;

  FQty := Trim(CDS_HZ.fieldbyname('Qty').AsString);
  if Trim(FQty) = '' then
    FQty := '0';

  FPrice := Trim(CDS_HZ.fieldbyname('Price').AsString);
  if Trim(FPrice) = '' then
    FPrice := '0';
  FQty := Trim(CDS_HZ.fieldbyname('Qty').AsString);
  if Trim(FQty) = '' then
    FQty := '0';

  FMoney := Trim(CDS_HZ.fieldbyname('Money').AsString);
  if Trim(FMoney) = '' then
    FMoney := '0';

  if Trim(FFieldName) <> 'Money' then
  begin
    FMoney := FloatToStr(StrToFloat(FQty) * StrToFloat(FPrice));
  end;
  with CDS_HZ do
  begin
    Edit;
    FieldByName('Money').Value := StrToFloat(FMoney);
    Post;
  end;

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

procedure TfrmYYFeeLIST.cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with CDS_HZ do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    Post;
  end;

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

procedure TfrmYYFeeLIST.TBAddClick(Sender: TObject);
begin
//  try
//    frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
//    with frmProductOrderListSel do
//    begin
//      if ShowModal = 1 then
//      begin
//        with Self.CDS_HZ do
//        begin
//          Append;
//          FieldByName('SFDW').Value := Trim(Order_Main.fieldbyname('CustomerNoName').AsString);
//          FieldByName('FROMMAINID').Value := Trim(Order_Main.fieldbyname('MAINID').AsString);
//          FieldByName('FROMSUBID').Value := Trim(Order_Main.fieldbyname('SUBID').AsString);
//          FieldByName('YYDD').Value := Trim(Order_Main.fieldbyname('ORDERNO').AsString);
//          FieldByName('FYDATE').Value := SGetServerDate(ADOQueryTemp);
//
//          Post;
//        end;
//        Self.SaveData();
//      end;
//    end;
//  finally
//    frmProductOrderListSel.Free;
//  end;
//  tv2.Controller.EditingController.ShowEdit();

  with Self.CDS_HZ do
  begin
    Append;

    FieldByName('FYDATE').Value := SGetServerDate(ADOQueryTemp);
    FieldByName('FILLER').Value := Trim(DName);

    Post;
  end;
  Self.SaveData();
end;

procedure TfrmYYFeeLIST.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'yyname';
      flagname := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
      fnote := True;
      V1Note.Caption := '<27><><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with Self.CDS_HZ do
        begin
          Edit;
          FieldByName('YYNAME').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
          FieldByName('YYCODE').Value := Trim(ClientDataSet1.fieldbyname('Note').AsString);
          post;
        end;
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('UPdate CW_YYFEE ');
          sql.Add(' Set  YYNAME=' + QuotedStr(Trim(CDS_HZ.fieldbyname('YYNAME').AsString)));
          sql.Add(' , YYcode=' + QuotedStr(Trim(CDS_HZ.fieldbyname('YYcode').AsString)));
          sql.Add(' where fyid=' + QuotedStr(Self.CDS_HZ.fieldbyname('fyid').AsString));
//      ShowMessage(sql.Text);
          ExecSQL;
        end;
        tv2.Controller.EditingController.ShowEdit();
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYYFeeLIST.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'OrderUnit';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
      if ShowModal = 1 then
      begin
        Self.CDS_HZ.Edit;
        Self.CDS_HZ.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYYFeeLIST.TBExportClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then
    Exit;
  SelExportData(Tv2, ADOQueryMain, '<27><><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD>б<EFBFBD>');
end;

procedure TfrmYYFeeLIST.v2Column2PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FBBMoney, FKCBB, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with CDS_HZ do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    Post;
  end;

end;

procedure TfrmYYFeeLIST.v2BatchNoPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with CDS_HZ do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    Post;
  end;

end;

procedure TfrmYYFeeLIST.Button1Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    exit;
  if CDS_HZ.Locate('ssel', true, []) = false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
  ADOQueryCmd.Connection.BeginTrans;
  try
    with CDS_HZ do
    begin
      DisableControls;
      First;
      while not eof do
      begin
        if fieldbyname('ssel').AsBoolean then
        begin
          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.Add('select * from YF_Money_CR ');
            sql.Add('where YFID=' + quotedstr(trim(CDS_HZ.fieldbyname('YFID').AsString)));
            open;
            edit;
            Fieldbyname('Price').Value := strtofloatdef(edit1.Text, 0);
            Fieldbyname('Money').Value := format('%.2f', [Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text, 0)]);
            Fieldbyname('BBMoney').Value := format('%.2f', [Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text, 0)]);
            post;
          end;
        end;
        next;
      end;
      First;
      EnableControls;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    InitGrid();
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;

end;

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

procedure TfrmYYFeeLIST.v2Column7PropertiesEditValueChanged(Sender: TObject);
var
  mvalue: Boolean;
begin
  mvalue := TcxCheckBox(Sender).EditingValue;
  with CDS_HZ do
  begin
    Edit;
    FieldByName('KPFlag').Value := mvalue;
    Post;
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update YF_Money_CR Set ');
    if mvalue = true then
    begin
      sql.Add(' KPFlag=1 ');
    end
    else
    begin
      sql.Add(' KPFlag=0 ');
    end;
    sql.Add(' where YFID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + '''');
    ExecSQL;
  end;
end;

procedure TfrmYYFeeLIST.v2Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  if Trim(CDS_HZ.FieldByName('YFType').AsString) = '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>' then
  begin
    Application.MessageBox('<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'GSTT';
      flagname := '<27><>˾̧ͷ';
      V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with Self.CDS_HZ do
        begin
          Edit;
          FieldByName('ComTaiTou').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('UPdate YF_Money_CR ');
          sql.Add(' Set ComTaiTou=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
          SQL.Add(',Editer=''' + Trim(DName) + '''');
          SQL.Add(',Edittime=getdate() ');
          SQL.Add(' where YFId=''' + Trim(CDS_HZ.fieldbyname('YFId').AsString) + '''');
          ExecSQL;
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYYFeeLIST.YYNAMEKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin

    ToolBar1.SetFocus;
    try
      ADOQueryMain.DisableControls;
      with ADOQueryMain do
      begin
        Close;
        SQL.Clear;
        Filtered := False;
        sql.Add(' select A.* ');

        sql.Add('from  CW_FY A WHERE 1=1');
        if CheckBox1.Checked then
        begin
          sql.Add(' and A.CRTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
          sql.Add(' and A.CRTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
        end;

        Open;
      end;
      SCreateCDS20(ADOQueryMain, CDS_HZ);
      SInitCDSData20(ADOQueryMain, CDS_HZ);
    finally
      ADOQueryMain.EnableControls;
      ToolButton2.Click;
    end;
  end;
end;

procedure TfrmYYFeeLIST.v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'FYYT';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;';
//      MainType := '<27><><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with Self.CDS_HZ do
        begin
          Edit;
//          FieldByName('YFCode').Value := Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString);
          FieldByName('fyyt').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYYFeeLIST.v2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
    with frmProductOrderListSel do
    begin
      if ShowModal = 1 then
      begin
        with Self.CDS_HZ do
        begin
          EDIT;
//          FieldByName('SFDW').Value := Trim(Order_Main.fieldbyname('CustomerNoName').AsString);
          FieldByName('FROMMAINID').Value := Trim(Order_Main.fieldbyname('MAINID').AsString);
          FieldByName('FROMSUBID').Value := Trim(Order_Main.fieldbyname('SUBID').AsString);
          FieldByName('YYDD').Value := Trim(Order_Main.fieldbyname('ORDERNO').AsString);
//          FieldByName('FYDATE').Value := SGetServerDate(ADOQueryTemp);

          Post;
        end;
//        Self.SaveData();
      end;
    end;
  finally
    frmProductOrderListSel.Free;
  end;
  tv2.Controller.EditingController.ShowEdit();
end;

procedure TfrmYYFeeLIST.v2Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
    with frmZdyAttachGYS do
    begin
      if ShowModal = 1 then
      begin
        with Self.CDS_HZ do
        begin
          Append;
          FieldByName('FactoryNo').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString);
          FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
          FieldByName('CRTime').Value := SGetServerDate(ADOQueryTemp);
          Post;
        end;
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('UPdate YF_Money_CR ');
          sql.Add(' Set FactoryNo=''' + Trim(frmZdyAttachment.CDS_HZ.fieldbyname('ZdyCode').AsString) + '''');
          sql.Add(' ,FactoryName=''' + Trim(frmZdyAttachment.CDS_HZ.fieldbyname('ZdyName').AsString) + '''');
          SQL.Add(',Editer=''' + Trim(DName) + '''');
          SQL.Add(',Edittime=getdate() ');
          SQL.Add(' where YFId=''' + Trim(self.CDS_HZ.fieldbyname('YFId').AsString) + '''');
          ExecSQL;
        end;
      end;
    end;
  finally
    frmZdyAttachGYS.Free;
  end;
end;

procedure TfrmYYFeeLIST.ToolButton1Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    Exit;
  try
    frmFjList10 := TfrmFjList10.Create(Application);
    with frmFjList10 do
    begin

      fkeyno := Trim(Self.CDS_HZ.fieldbyname('fyid').AsString);
      fType := '<27><><EFBFBD>·<EFBFBD><C2B7><EFBFBD>';
      if ShowModal = 1 then
      begin

      end;
      InitGrid();
    end;
  finally
    frmFjList10.Free;
  end;
end;

procedure TfrmYYFeeLIST.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ZHName';
      flagname := '<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>';
//      MainType := '<27><><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with Self.CDS_HZ do
        begin
          Edit;
//          FieldByName('YFCode').Value := Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString);
          FieldByName('ZHMC').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYYFeeLIST.v2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'JSR';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
//      MainType := '<27><><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with Self.CDS_HZ do
        begin
          Edit;
//          FieldByName('YFCode').Value := Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString);
          FieldByName('JSR').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYYFeeLIST.v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SFDW';
      flagname := '<27>շѵ<D5B7>λ/<2F><>';
//      MainType := '<27><><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with Self.CDS_HZ do
        begin
          Edit;
//          FieldByName('YFCode').Value := Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString);
          FieldByName('SFDW').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYYFeeLIST.ToolButton3Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    exit;

  if CDS_HZ.Locate('ssel', true, []) = false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with CDS_HZ do
    begin
      DisableControls;
      First;
      while not eof do
      begin
        if Fieldbyname('ssel').AsBoolean then
        begin
          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.Add('update CW_YYFEE SET status=''1'',Chker= ' + quotedstr(Trim(DName)));
            sql.Add(',Chktime=getdate()');
            sql.Add('where FYID =' + quotedstr(trim(CDS_HZ.fieldbyname('FYID').AsString)));
            execsql;
          end;
        end;
        next;
      end;
      First;
      EnableControls;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    InitGrid();
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

procedure TfrmYYFeeLIST.ToolButton4Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    exit;

  if CDS_HZ.Locate('ssel', true, []) = false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with CDS_HZ do
    begin
      DisableControls;
      First;
      while not eof do
      begin
        if Fieldbyname('ssel').AsBoolean then
        begin

          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.Add('update CW_YYFEE SET status=''0'',Chker=NULL,Chktime=NULL,Chker2=NULL,Chktime2=NULL ');

            sql.Add('where FYID =' + quotedstr(trim(CDS_HZ.fieldbyname('FYID').AsString)));
            execsql;
          end;
        end;
        next;
      end;
      First;
      EnableControls;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    InitGrid();
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

procedure TfrmYYFeeLIST.ToolButton5Click(Sender: TObject);
begin
  with Self.CDS_HZ do
  begin
    Append;

    FieldByName('filltime').Value := SGetServerDate(ADOQueryTemp);
    FieldByName('YYDATE').Value := SGetServerDate(ADOQueryTemp);
    FieldByName('FILLER').Value := Trim(DName);

    Post;
  end;
  Self.SaveData();
end;

procedure TfrmYYFeeLIST.ToolButton6Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    exit;

  if CDS_HZ.Locate('ssel', true, []) = false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with CDS_HZ do
    begin
      DisableControls;
      First;
      while not eof do
      begin
        if Fieldbyname('ssel').AsBoolean then
        begin
          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.Add('update CW_YYFEE SET status=''2'',Chker2= ' + quotedstr(Trim(DName)));
            sql.Add(',Chktime2=getdate()');
            sql.Add('where FYID =' + quotedstr(trim(CDS_HZ.fieldbyname('FYID').AsString)));
            execsql;
          end;
        end;
        next;
      end;
      First;
      EnableControls;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    InitGrid();
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

procedure TfrmYYFeeLIST.cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin

  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
//  if (cxTabControl1.TabIndex <> 0) or (FFieldName <> 'LYREN') or (FFieldName <> 'CFPLACE') or (FFieldName <> 'Note') then
//    Exit;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with CDS_HZ do
    begin
      Edit;
      FieldByName(FFieldName).Value := Trim(mvalue);
      Post;
    end;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('UPdate CW_YYFEE ');
      sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
      sql.Add(' where fyid=' + QuotedStr(CDS_HZ.fieldbyname('fyid').AsString));
//      ShowMessage(sql.Text);
      ExecSQL;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    tv2.Controller.EditingController.ShowEdit();
  except
    tv2.Controller.EditingController.ShowEdit();
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
  end
end;

procedure TfrmYYFeeLIST.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZdyAttachment := TfrmZdyAttachment.Create(Application);
    with frmZdyAttachment do
    begin
      if ShowModal = 1 then
      begin
        with SELF.CDS_HZ do
        begin
          Edit;
          SELF.CDS_HZ.fieldbyname('KHNAME').AsString := Trim(CDS_HZ.fieldbyname('CoHRName').AsString);
          Post;
        end;
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('UPdate CW_YYFEE ');
          sql.Add(' Set  KHNAME=' + QuotedStr(Trim(CDS_HZ.fieldbyname('CoHRName').AsString)));
          sql.Add(' where fyid=' + QuotedStr(Self.CDS_HZ.fieldbyname('fyid').AsString));
//      ShowMessage(sql.Text);
          ExecSQL;
        end;
        tv2.Controller.EditingController.ShowEdit();
      end;
    end;
  finally
    frmZdyAttachment.Free;
  end;
end;

procedure TfrmYYFeeLIST.ToolButton7Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    exit;

  if CDS_HZ.Locate('ssel', true, []) = false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with CDS_HZ do
    begin
      DisableControls;
      First;
      while not eof do
      begin
        if Fieldbyname('ssel').AsBoolean then
        begin

          with ADOQueryCmd do
          begin
            close;
            sql.Clear;
            sql.Add('update CW_YYFEE SET status=''0'',Chker=NULL,Chktime=NULL,Chker2=NULL,Chktime2=NULL ');

            sql.Add('where FYID =' + quotedstr(trim(CDS_HZ.fieldbyname('FYID').AsString)));
            execsql;
          end;
        end;
        next;
      end;
      First;
      EnableControls;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    InitGrid();
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

end.