RTFormwork/项目代码/RTBasicsV1/A09财务通用管理/U_BankFlowInInput.pas

unit U_BankFlowInInput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, DB, ADODB, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxCurrencyEdit, BtnEdit, StdCtrls, ExtCtrls, cxGraphics,
  cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
  dxSkinWXI, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, cxCalendar,
  cxButtonEdit, cxMemo;

type
  TfrmBankFlowInInput = class(TForm)
    ToolBar1: TToolBar;
    TSAVE: TToolButton;
    Tclose: TToolButton;
    Panel1: TPanel;
    Label5: TLabel;
    ADOQueryTMP: TADOQuery;
    ADOQueryCMD: TADOQuery;
    Amount: TcxCurrencyEdit;
    ToolButton1: TToolButton;
    Label20: TLabel;
    BFTime: TcxDateEdit;
    Label19: TLabel;
    Label2: TLabel;
    OppCoName: TcxButtonEdit;
    OppBKName: TcxButtonEdit;
    Label18: TLabel;
    OurBKName: TcxButtonEdit;
    Label7: TLabel;
    Note: TcxMemo;
    procedure TcloseClick(Sender: TObject);
    procedure TSAVEClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OppCoNameBtnUpClick(Sender: TObject);
    procedure OppBKNameBtnUpClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure OurBKNameBtnUpClick(Sender: TObject);
    procedure OppCoNameBtnDnClick(Sender: TObject);
    procedure OppCoNameDblClick(Sender: TObject);
    procedure OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure OppBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
  private
    function savedata(): Boolean;
    procedure initdata();
    { Private declarations }
  public
    FBFID: string;
    { Public declarations }
  end;

var
  frmBankFlowInInput: TfrmBankFlowInInput;

implementation

uses
  U_ZDYHelp, U_RTFun, U_DataLink, U_BankSel, U_CompanySel;

{$R *.dfm}
procedure TfrmBankFlowInInput.initdata();
begin
  with ADOQueryTMP do
  begin
    close;
    sql.clear;
    sql.Add('select * from BS_Bank_Flow ');
    sql.Add('where BFID=' + quotedstr(trim(FBFID)));
    open;

  end;
  if not ADOQueryTMP.isempty then
  begin
    SCSHData(ADOQueryTMP, Panel1, 0);
    OurBKName.Properties.LookupItems.Text := ADOQueryTMP.FieldByName('OurBKID').AsString;
    OppBKName.Properties.LookupItems.Text := ADOQueryTMP.FieldByName('OppBKID').AsString;
    OppCoName.Properties.LookupItems.Text := ADOQueryTMP.FieldByName('OppCoNO').AsString;
  end;

end;

function TfrmBankFlowInInput.savedata(): Boolean;
var
  MaxNo: string;
begin
  try
    ADOQueryCMD.Connection.BeginTrans;
    if Trim(FBFID) = '' then
    begin
      if GetLSNo(ADOQueryCMD, MaxNo, 'YL', 'BS_Bank_Flow', 4, 1) = False then
        raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
    end
    else
      MaxNo := FBFID;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from BS_Bank_Flow where BFID=''' + Trim(MaxNo) + ''' ');
      Open;
      if Trim(FBFID) = '' then
      begin
        Append;
        fieldbyname('fillid').Value := trim(DCode);
        fieldbyname('filler').Value := trim(Dname);
      end
      else
      begin
        Edit;
        fieldbyname('Editid').Value := trim(DCode);
        Fieldbyname('Editer').Value := trim(Dname);
        Fieldbyname('Edittime').Value := SGetServerDateTime(adoqueryTmp);
      end;
      RTSetsavedata(ADOQueryCmd, 'BS_Bank_Flow', Panel1, 0);
      FieldByName('BFID').Value := Trim(MaxNo);
      FieldByName('BFType').Value := '<27>տ<EFBFBD>';
      fieldbyname('inAmount').Value := strtofloatdef(trim(Amount.Text), 0);
      fieldbyname('OutAmount').Value := 0;
      fieldbyname('status').Value := '0';
      fieldbyname('OurBKID').Value := OurBKName.Properties.LookupItems.Text;
      fieldbyname('OppBKID').Value := OppBKName.Properties.LookupItems.Text;
      fieldbyname('OppCoNo').Value := OppCoName.Properties.LookupItems.Text;
      Post;
    end;


  {

      with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('delete from BS_Bank_Flow where fromBFID=''' + Trim(FBFID) + ''' ');
      execsql;
    end;
   if trim(CRType.Text) = '<27>˻<EFBFBD><CBBB><EFBFBD>ת' then
    begin
      if GetLSNo(ADOQueryCMD, fid, 'YL', 'BS_Bank_Flow', 4, 1) = False then
      begin
        ADOQueryCMD.Connection.RollbackTrans;
        Application.MessageBox('ȡ<><C8A1>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!', '<27><>ʾ');
        Exit;
      end;
      with ADOQueryCmd do
      begin
        Close;
        sql.Clear;
        SQL.Add('select * from BS_Bank_Flow where BFID=''' + Trim(fid) + ''' ');
        Open;

        append;
        fieldbyname('filler').Value := trim(Dname);
        RTSetsavedata(ADOQueryCmd, 'BS_Bank_Flow', Panel1, 0);
        FieldByName('BFID').Value := Trim(fid);
        fieldbyname('Bkid').Value := trim(OppBKName.TxtCode);
        fieldbyname('OurBKName').Value := trim(OppBKName.Text);
        fieldbyname('ToBkid').Value := trim(OurBKName.TxtCode);
        fieldbyname('OppBKName').Value := trim(OurBKName.Text);
        fieldbyname('inAmount').Value := strtofloatdef(trim(OutAmount.Text), 0);
        fieldbyname('OutAmount').Value := strtofloatdef(trim(InAmount.Text), 0);
        fieldbyname('status').Value := '0';
        fieldbyname('fromBFID').Value := trim(FBFID);
        Post;
      end;
    end;
    if trim(CRType.Text) = '<27><><EFBFBD><EFBFBD>' then
    begin
      if GetLSNo(ADOQueryCMD, fid, 'YL', 'BS_Bank_Flow', 4, 1) = False then
      begin
        ADOQueryCMD.Connection.RollbackTrans;
        Application.MessageBox('ȡ<><C8A1>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!', '<27><>ʾ');
        Exit;
      end;
      with ADOQueryCmd do
      begin
        Close;
        sql.Clear;
        SQL.Add('select * from BS_Bank_Flow where BFID=''' + Trim(fid) + ''' ');
        Open;

        append;
        fieldbyname('filler').Value := trim(Dname);
        RTSetsavedata(ADOQueryCmd, 'BS_Bank_Flow', Panel1, 0);
        FieldByName('BFID').Value := Trim(fid);
        fieldbyname('Bkid').Value := trim(OppBKName.TxtCode);
        fieldbyname('OurBKName').Value := trim(OppBKName.Text);
        fieldbyname('ToBkid').Value := trim(OurBKName.TxtCode);
        fieldbyname('OppBKName').Value := trim(OurBKName.Text);
        fieldbyname('inAmount').Value := strtofloatdef(trim(JHAmount.Text), 0);
        fieldbyname('OutAmount').Value := strtofloatdef(trim(InAmount.Text), 0);
        fieldbyname('JHAmount').Value := strtofloatdef(trim(JHAmount.Text), 0);
        fieldbyname('JHHulLv').Value := strtofloatdef(trim(JHHulLv.Text), 0);
        fieldbyname('status').Value := '0';
        fieldbyname('fromBFID').Value := trim(FBFID);
        Post;
      end;
    end;    }
    ADOquerycmd.Connection.CommitTrans;
    FBFID := MaxNo;

    Result := True;
  except
    Result := false;
    ADOquerycmd.Connection.RollbackTrans;
    application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

procedure TfrmBankFlowInInput.TcloseClick(Sender: TObject);
begin
  ModalResult := 1;
end;

procedure TfrmBankFlowInInput.ToolButton1Click(Sender: TObject);
begin
  if OurBKName.Text = '' then
  begin
    Application.MessageBox('<27>ҷ<EFBFBD><D2B7>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  if OppBKName.Text = '' then
  begin
    Application.MessageBox('<27>Է<EFBFBD><D4B7>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  if Amount.Text = '' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EEB2BB>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  if SaveData() then
  begin
    Amount.Text := '';
    FBFID := '';
  end;

end;

procedure TfrmBankFlowInInput.TSAVEClick(Sender: TObject);
begin

  if OurBKName.Text = '' then
  begin
    Application.MessageBox('<27>ҷ<EFBFBD><D2B7>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;

  if OppBKName.Text = '' then
  begin
    Application.MessageBox('<27>Է<EFBFBD><D4B7>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  if Amount.Text = '' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EEB2BB>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  if SaveData() then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
    ModalResult := 1;
  end;

end;

procedure TfrmBankFlowInInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure TfrmBankFlowInInput.FormDestroy(Sender: TObject);
begin
  frmBankFlowInInput := nil;
end;

procedure TfrmBankFlowInInput.FormShow(Sender: TObject);
begin
  BFTime.Date := SGetServerDate(adoqueryTmp);

  initData();

end;

procedure TfrmBankFlowInInput.FormCreate(Sender: TObject);
begin
  Panel1.Align := alclient;
end;

procedure TfrmBankFlowInInput.OppBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin

  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := self.OppCoName.Properties.LookupItems.Text;
      flagname := '<27>Է<EFBFBD><D4B7>˻<EFBFBD>';
      if ShowModal = 1 then
      begin
        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmBankFlowInInput.OppBKNameBtnUpClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      MainType := 'Bank';
      flag := self.OppCoName.Properties.LookupItems.Text;
      flagname := '<27>Է<EFBFBD><D4B7>˻<EFBFBD>';
      if ShowModal = 1 then
      begin
        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmBankFlowInInput.OppCoNameBtnDnClick(Sender: TObject);
begin
  TBtnEditC(Sender).Text := '';
  TBtnEditC(Sender).TxtCode := '';
end;

procedure TfrmBankFlowInInput.OppCoNameBtnUpClick(Sender: TObject);
begin
  try
    frmCompanySel := TfrmCompanySel.Create(Application);
    with frmCompanySel do
    begin
      if ShowModal = 1 then
      begin
        OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
        OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
      end;
    end;
  finally
    frmCompanySel.Free;
  end;
end;

procedure TfrmBankFlowInInput.OppCoNameDblClick(Sender: TObject);
begin
  TcxButtonEdit(Sender).Text := '';
  TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;

procedure TfrmBankFlowInInput.OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmCompanySel := TfrmCompanySel.Create(Application);
    with frmCompanySel do
    begin
      FCoType := '<27><>Ӧ<EFBFBD><D3A6>';
      if ShowModal = 1 then
      begin
        OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
        OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
      end;
    end;
  finally
    frmCompanySel.Free;
  end;
end;

procedure TfrmBankFlowInInput.OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmBankSel := TfrmBankSel.Create(Application);
    with frmBankSel do
    begin
      if ShowModal = 1 then
      begin
        OurBkName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
        OurBkName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BkID').AsString);
      end;
    end;
  finally
    frmBankSel.Free;
  end;
end;

procedure TfrmBankFlowInInput.OurBKNameBtnUpClick(Sender: TObject);
begin
  try
    frmBankSel := TfrmBankSel.Create(self);
    with frmBankSel do
    begin

      if showmodal = 1 then
      begin
        SELF.OurBKName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BKID').AsString);
        SELF.OurBKName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
      end;
    end;
  finally
    frmBankSel.Free;
  end;
end;

end.