Group_02/D7gmYushang
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7gmYushang/应收应付/U_OtherFeeSave.pas

1393 lines
37 KiB
ObjectPascal
Raw Permalink Normal View History

0
2025-09-24 13:13:14 +08:00
unit U_OtherFeeSave;
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, cxMemo, Menus;
type
TfrmOtherFeeSave = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
Label1: TLabel;
ADOQueryMain: TADOQuery;
TBExport: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
yydd: 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;
TBAdd: TToolButton;
VYB: TcxGridDBColumn;
v2Note: TcxGridDBColumn;
Edit1: TEdit;
Label7: TLabel;
Button1: TButton;
Label8: TLabel;
ComTaiTou: TEdit;
TBSave: TToolButton;
CheckBox1: TCheckBox;
ToolButton1: TToolButton;
FYNAME: TEdit;
v2Column11: TcxGridDBColumn;
Label11: TLabel;
SFDW: TEdit;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
ToolButton5: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1_KXType: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Qty: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
v1note: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
DS_SUB: TDataSource;
CDS_SUB: TClientDataSet;
ToolButton6: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label2: TLabel;
HZFactoryName: TEdit;
Label4: TLabel;
HZYWY: TEdit;
Label5: TLabel;
HZYWZB: TEdit;
Tv2Column3: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label9: TLabel;
FILLER: TEdit;
Tv2Column6: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
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 yyddChange(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 TBSaveClick(Sender: TObject);
procedure yyddKeyPress(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 ToolButton7Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
procedure InitGridHZ();
procedure InitGrid();
procedure SetStatus();
function SaveData(): Boolean;
procedure InitYFName();
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;
{$R *.dfm}
procedure TfrmOtherFeeSave.SetStatus();
var
i: integer;
begin
TBSave.Visible := false;
TBAdd.Visible := false;
ToolButton3.Visible := false;
ToolButton4.Visible := false;
TBDel.Visible := false;
ToolButton7.Visible := false;
ToolButton8.Visible := false;
ToolButton9.Visible := false;
ToolButton10.Visible := false;
ToolButton6.Visible := False;
case cxTabControl1.TabIndex of
0:
begin
ToolButton6.Visible := True;
TBDel.Visible := True;
end;
1:
begin
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><DCBE><EFBFBD>' then
begin
case cxTabControl1.TabIndex of
0:
begin
ToolButton3.Visible := true;
end;
1:
begin
ToolButton4.Visible := TRUE;
ToolButton7.Visible := TRUE;
end;
2:
begin
ToolButton8.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;
ToolButton7.Visible := TRUE;
end;
2:
begin
ToolButton8.Visible := TRUE;
ToolButton9.Visible := TRUE;
end;
3:
begin
ToolButton10.Visible := TRUE;
end;
end;
end;
end;
procedure TfrmOtherFeeSave.InitGrid();
begin
ToolBar1.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' select A.* ');
Sql.Add(' ,HZYWY=STUFF(( SELECT DISTINCT ''/''+ YWY FROM CW_FY_MX X where A.FYID=X.FYID FOR XML PATH('''')), 1, 1, '''')');
Sql.Add(' ,HZFactoryName=STUFF(( SELECT DISTINCT ''/'' + FactoryName FROM CW_FY_MX X where A.FYID=X.FYID FOR XML PATH('''')), 1, 1, '''')');
Sql.Add(' ,HZYWZB=STUFF(( SELECT DISTINCT ''/'' + YWZB FROM CW_FY_MX X where A.FYID=X.FYID FOR XML PATH('''')), 1, 1, '''')');
// Sql.Add(' ,HZYWZB=CAST((select distinct(YWZB) + ''/'' from CW_FY_MX X where A.FYID=X.FYID for xml path('''') ) AS VARCHAR(100))');
// sql.Add(',FactoryName10=dbo.getPinYin(A.FactoryName)+RTrim(A.FactoryName)');
sql.Add(' from cw_fy A WHERE 1=1');
if CheckBox1.Checked then
begin
if cxTabControl1.TabIndex = 0 then
begin
sql.Add('AND A.FYDATE>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
sql.Add(' and A.FYDATE<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
end
else
begin
sql.Add('AND A.Chktime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
sql.Add(' and A.Chktime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ')
end;
end;
if canshu1 = '<27>Ǽ<EFBFBD>' then
begin
sql.Add('AND FILLER in (select username FROM SY_USER B WHERE B.udept=(SELECT udept FROM SY_USER C WHERE C.USERID=' + QuotedStr(Trim(DCODE)));
SQL.Add('))');
end;
if cxTabControl1.TabIndex < 4 then
sql.Add(' and A.status=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
// sql.Add(' and A.CRType=''<27><><EFBFBD>õǼ<C3B5>'' ');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
end;
procedure TfrmOtherFeeSave.InitGridHZ();
begin
end;
procedure TfrmOtherFeeSave.FormDestroy(Sender: TObject);
begin
// frmYFCR:=nil;
// frmOtherFeeSave:=nil;
end;
procedure TfrmOtherFeeSave.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmOtherFeeSave.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD>õǼ<C3B5>TV2', Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
WriteCxGrid('<27><><EFBFBD>õǼ<C3B5>TV1', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmOtherFeeSave.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_FY where FYID=''' + Trim(CDS_HZ.fieldbyname('FYID').AsString) + '''');
sql.Add(' delete CW_FY_MX 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 TfrmOtherFeeSave.FormShow(Sender: TObject);
begin
ReadCxGrid('<27><><EFBFBD>õǼ<C3B5>TV2', Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadCxGrid('<27><><EFBFBD>õǼ<C3B5>TV1', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := SGetServerDateMBeg(ADOQueryTemp);
// 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 TfrmOtherFeeSave.InitYFName();
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from CW_FY_MX A');
sql.Add('where FYID=' + Quotedstr(Trim(CDS_HZ.fieldbyname('FYID').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_SUB);
SInitCDSData20(ADOQueryTemp, CDS_SUB);
// fsj := ' select distinct(YFName) Name,Code='''' from YF_Money_CR where CRType=''<27><><EFBFBD>õǼ<C3B5>'' and isnull(YFName,'''')<>'''' ';
// SInitComBoxBySql(ADOQueryTemp, YFName, False, fsj);
end;
procedure TfrmOtherFeeSave.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
InitGrid();
InitYFName();
end;
procedure TfrmOtherFeeSave.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 TfrmOtherFeeSave.yyddChange(Sender: TObject);
begin
ToolButton2.Click;
end;
function TfrmOtherFeeSave.SaveData(): Boolean;
var
maxId, CRID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if GetLSNo(ADOQueryCmd, maxId, 'FY', 'CW_FY', 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_FY 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_FY', 7);
FieldByName('Filler').Value := Trim(DName);
FieldByName('FROMMAINID').Value := Trim(CDS_HZ.fieldbyname('FROMMAINID').AsString);
FieldByName('FROMSUBID').Value := Trim(CDS_HZ.fieldbyname('FROMSUBID').AsString);
// 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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.cxGridDBColumn3PropertiesButtonClick(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 := 'YFName';
flagname := '<27><><EFBFBD><EFBFBD><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('FYName').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOtherFeeSave.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 TfrmOtherFeeSave.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
SelExportData(Tv2, ADOQueryMain, '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>');
end;
procedure TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
InitGrid();
end;
procedure TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.TBSaveClick(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
begdate.SetFocus;
// if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD>浱ǰѡ<C7B0>е<EFBFBD><D0B5><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('select * from CW_FY where FYID=''' + Trim(CDS_HZ.fieldbyname('FYID').AsString) + '''');
Open;
end;
with ADOQueryCmd do
begin
Edit;
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_HZ, 'CW_FY', 7);
// FieldByName('Editer').Value := Trim(DName);
// FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
Post;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
end;
end;
procedure TfrmOtherFeeSave.yyddKeyPress(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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.ToolButton1Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
begdate.SetFocus;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>浱ǰҳ<C7B0><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
CDS_HZ.DisableControls;
with CDS_HZ do
begin
First;
while not Eof do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where YFID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + '''');
Open;
end;
with ADOQueryCmd do
begin
Edit;
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_HZ, 'YF_Money_CR', 7);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
Post;
end;
Next;
end;
end;
CDS_HZ.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
except
CDS_HZ.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
end;
end;
procedure TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.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 TfrmOtherFeeSave.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_fy 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 TfrmOtherFeeSave.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_fy SET status=''0'',Chker=NULL,Chktime=NULL ');
SQL.Add(',Chker2=NULL,Chktime2=NULL,Chker3=NULL,Chktime3=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 TfrmOtherFeeSave.ToolButton5Click(Sender: TObject);
begin
try
frmFYInput := TfrmFYInput.Create(self);
with frmFYInput do
begin
FYFID := '';
if showmodal = 1 then
begin
initGrid();
end;
end;
finally
frmFYInput.free;
end;
end;
procedure TfrmOtherFeeSave.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitYFName();
end;
procedure TfrmOtherFeeSave.ToolButton6Click(Sender: TObject);
begin
try
frmFYInput := TfrmFYInput.Create(self);
with frmFYInput do
begin
FYFID := CDS_HZ.fieldbyname('FYID').AsString;
if showmodal = 1 then
begin
initGrid();
end;
end;
finally
frmFYInput.free;
end;
end;
procedure TfrmOtherFeeSave.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_fy 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 TfrmOtherFeeSave.ToolButton9Click(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_fy SET status=''3'',Chker3= ' + quotedstr(Trim(DName)));
sql.Add(',Chktime3=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 TfrmOtherFeeSave.ToolButton8Click(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_fy SET status=''0'',Chker=NULL,Chktime=NULL ');
SQL.Add(',Chker2=NULL,Chktime2=NULL,Chker3=NULL,Chktime3=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 TfrmOtherFeeSave.ToolButton10Click(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_fy SET status=''0'',Chker=NULL,Chktime=NULL ');
SQL.Add(',Chker2=NULL,Chktime2=NULL,Chker3=NULL,Chktime3=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 TfrmOtherFeeSave.N1Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
with CDS_HZ do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := TRUE;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmOtherFeeSave.N2Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
with CDS_HZ do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := false;
post;
next;
end;
First;
EnableControls;
end;
end;
end.
Reference in New Issue Copy Permalink