417 lines
12 KiB
ObjectPascal
417 lines
12 KiB
ObjectPascal
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.
|
||
|