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

1639 lines
44 KiB
ObjectPascal
Raw Normal View History

0
2025-09-24 13:13:14 +08:00
unit U_OtherFeeLIST;
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
TfrmOtherFeelist = 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;
CCREN: TEdit;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
v2Note: TcxGridDBColumn;
Edit1: TEdit;
Label7: TLabel;
Button1: TButton;
Label8: TLabel;
ComTaiTou: TEdit;
CheckBox1: TCheckBox;
filler: TLabel;
SY: TEdit;
cxTabControl1: TcxTabControl;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Tv2Column2: TcxGridDBColumn;
DS_SUB: TDataSource;
CDS_SUB: TClientDataSet;
ToolButton5: TToolButton;
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
ToolButton6: TToolButton;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column7: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
Label1: TLabel;
YWZB: TEdit;
ToolButton7: TToolButton;
Tv2Column1: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
ToolButton14: TToolButton;
ADOPrint: TADOQuery;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Tv2Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
TV1Column15: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
Tv2Column8: 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 CCRENChange(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 CCRENKeyPress(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 TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton12Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure Tv2Column5PropertiesEditValueChanged(Sender: TObject);
procedure Tv2Column8PropertiesEditValueChanged(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, U_QTFYInput;
{$R *.dfm}
procedure TfrmOtherFeelist.SetStatus();
var
i: integer;
begin
ToolButton3.Visible := false;
ToolButton4.Visible := false;
ToolButton10.Visible := false;
ToolButton11.Visible := false;
ToolButton8.Visible := false;
ToolButton9.Visible := false;
ToolButton12.Visible := false;
ToolButton13.Visible := false;
ToolButton6.Visible := false;
TBDel.Visible := false;
Tv2Column5.Options.Editing := False;
Tv2Column8.Options.Editing := False;
case cxTabControl1.TabIndex of
0:
begin
TBDel.Visible := True;
ToolButton6.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><EFBFBD>' then
begin
case cxTabControl1.TabIndex of
0:
begin
ToolButton3.Visible := true;
end;
1:
begin
ToolButton4.Visible := TRUE;
ToolButton10.Visible := TRUE;
end;
2:
begin
ToolButton11.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;
ToolButton10.Visible := TRUE;
end;
2:
begin
ToolButton11.Visible := TRUE;
ToolButton8.Visible := true;
end;
3:
begin
ToolButton9.Visible := True;
end;
end;
end;
if canshu1 = '<27><><EFBFBD><EFBFBD>' then
begin
Tv2Column5.Options.Editing := true;
Tv2Column8.Options.Editing := true;
case cxTabControl1.TabIndex of
0:
begin
ToolButton3.Visible := true;
end;
1:
begin
ToolButton4.Visible := TRUE;
ToolButton10.Visible := TRUE;
end;
2:
begin
ToolButton11.Visible := TRUE;
ToolButton8.Visible := true;
end;
3:
begin
ToolButton12.Visible := True;
ToolButton9.Visible := True;
end;
4:
begin
ToolButton13.Visible := True;
end;
end;
end;
end;
procedure TfrmOtherFeelist.InitGrid();
begin
ToolBar1.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' select A.FYDATE,CCREN,SY,zbid,xmname,BEGDATE,ywzb,filler,FKFS ');
sql.Add(',ISSC=cast((case when isnull((select count(WBID) from TP_File X where X.WBID=A.ZBID and X.TFType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''),0)>0 then 1 else 0 end) as bit)');
SQL.ADD(',ZMONEY=ISNULL((SELECT SUM(MONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID),0)');
SQL.ADD(',ZJTF=ISNULL((SELECT SUM(MONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID AND B.KXTYPE=''<27><>ͨ<EFBFBD><CDA8>''),0)');
SQL.ADD(',ZSHF=ISNULL((SELECT SUM(MONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID AND B.KXTYPE=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''),0)');
SQL.ADD(',ZZSF=ISNULL((SELECT SUM(MONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID AND B.KXTYPE=''ס<>޷<EFBFBD>''),0)');
SQL.ADD(',ZYWF=ISNULL((SELECT SUM(MONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID AND B.KXTYPE=''ҵ<><D2B5><EFBFBD><EFBFBD>''),0)');
SQL.ADD(',ZZF=ISNULL((SELECT SUM(MONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID AND LTRIM(RTRIM(B.KXTYPE))=''<27>ӷ<EFBFBD>''),0)');
SQL.ADD(',KDF=ISNULL((SELECT SUM(MONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID AND LTRIM(RTRIM(B.KXTYPE))=''<27><><EFBFBD>ݷ<EFBFBD>''),0)');
SQL.ADD(',YOUF=ISNULL((SELECT SUM(MONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID AND LTRIM(RTRIM(B.KXTYPE))=''<27>ͷ<EFBFBD>''),0)');
SQL.ADD(',ZSBMONEY=ISNULL((SELECT SUM(SBMONEY)FROM CW_QTFEE B WHERE B.ZBID=A.ZBID ),0)');
sql.Add(' from CW_QTFEE A WHERE 1=1');
if CheckBox1.Checked 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
end;
if canshu1 = '<27>Ǽ<EFBFBD>' then
begin
sql.Add('AND FILLER=' + QuotedStr(Trim(DName)));
end;
if cxTabControl1.TabIndex < 5 then
sql.Add(' and A.status=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
sql.add('group by FYDATE,CCREN,SY,zbid,xmname,BEGDATE,ywzb,filler,FKFS');
// ShowMessage(sql.Text);
// 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 TfrmOtherFeelist.InitGridHZ();
begin
end;
procedure TfrmOtherFeelist.FormDestroy(Sender: TObject);
begin
// frmYFCR:=nil;
// frmOtherFeeSave:=nil;
end;
procedure TfrmOtherFeelist.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmOtherFeelist.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmOtherFeelist.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_QTFEE where zbID=''' + Trim(CDS_HZ.fieldbyname('zbID').AsString) + '''');
execsql;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_HZ.Delete;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ɾ<><C9BE>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
end;
end;
procedure TfrmOtherFeelist.FormShow(Sender: TObject);
begin
ReadCxGrid(self.Caption, Tv2, '<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 TfrmOtherFeelist.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
InitGrid();
end;
procedure TfrmOtherFeelist.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 TfrmOtherFeelist.CCRENChange(Sender: TObject);
begin
ToolButton2.Click;
end;
function TfrmOtherFeelist.SaveData(): Boolean;
var
maxId, CRID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if GetLSNo(ADOQueryCmd, maxId, 'FY', 'CW_qtfee', 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_qtfee 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_QTFEE', 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 TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
SelExportData(Tv1, ADOQueryMain, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>');
end;
procedure TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
InitGrid();
end;
procedure TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.CCRENKeyPress(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 TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.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('ZBID').AsString);
fType := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
end;
InitGrid();
end;
finally
frmFjList10.Free;
end;
end;
procedure TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.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 TfrmOtherFeelist.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_QTFEE SET status=''1'',Chker= ' + quotedstr(Trim(DName)));
sql.Add(',Chktime=getdate()');
sql.Add('where ZBID =' + quotedstr(trim(CDS_HZ.fieldbyname('ZBID').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 TfrmOtherFeelist.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_QTFEE SET status=''0'',Chker=NULL,Chktime=NULL ');
SQL.Add(',Chker2=NULL,Chktime2=NULL,Chker3=NULL,Chktime3=NULL,Chker4=NULL,Chktime4=NULL');
sql.Add('where ZBID =' + quotedstr(trim(CDS_HZ.fieldbyname('ZBID').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 TfrmOtherFeelist.ToolButton5Click(Sender: TObject);
begin
// with Self.CDS_HZ do
// begin
// Append;
//
// FieldByName('filltime').Value := SGetServerDate(ADOQueryTemp);
// FieldByName('FILLER').Value := Trim(DName);
//
// Post;
// end;
// Self.SaveData();
try
frmQTFYInput := tfrmQTFYInput.Create(self);
with frmQTFYInput do
begin
FYFID := '';
canshu1 := Self.canshu1;
if showmodal = 1 then
begin
initGrid();
end;
end;
finally
frmQTFYInput.free;
end;
end;
procedure TfrmOtherFeelist.ToolButton6Click(Sender: TObject);
begin
try
frmQTFYInput := tfrmQTFYInput.Create(self);
with frmQTFYInput do
begin
FYFID := CDS_HZ.FieldByName('ZBID').AsString;
canshu1 := Self.canshu1;
if showmodal = 1 then
begin
initGrid();
end;
end;
finally
frmQTFYInput.free;
end;
end;
procedure TfrmOtherFeelist.cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
if cxTabControl1.TabIndex <> 0 then
Exit;
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
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_QTFEE ');
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 TfrmOtherFeelist.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from CW_QTFEE A');
sql.Add('where zbid=' + Quotedstr(Trim(CDS_HZ.fieldbyname('zbid').AsString)));
SQL.Add('ORDER BY FYID ');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_SUB);
SInitCDSData20(ADOQueryTemp, CDS_SUB);
end;
procedure TfrmOtherFeelist.ToolButton7Click(Sender: TObject);
begin
try
frmQTFYInput := tfrmQTFYInput.Create(self);
with frmQTFYInput do
begin
FYFID := CDS_HZ.FieldByName('ZBID').AsString;
// ToolBar1.Enabled := False;
TSave.Visible := False;
ToolBar2.Enabled := False;
canshu1 := Self.canshu1;
if showmodal = 1 then
begin
initGrid();
end;
end;
finally
frmQTFYInput.free;
end;
end;
procedure TfrmOtherFeelist.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_QTFEE SET status=''2'',Chker2= ' + quotedstr(Trim(DName)));
sql.Add(',Chktime2=getdate()');
sql.Add('where ZBID =' + quotedstr(trim(CDS_HZ.fieldbyname('ZBID').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 TfrmOtherFeelist.ToolButton11Click(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_QTFEE SET status=''0'',Chker=NULL,Chktime=NULL ');
SQL.Add(',Chker2=NULL,Chktime2=NULL,Chker3=NULL,Chktime3=NULL,Chker4=NULL,Chktime4=NULL');
sql.Add('where ZBID =' + quotedstr(trim(CDS_HZ.fieldbyname('ZBID').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 TfrmOtherFeelist.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_QTFEE SET status=''3'',Chker3= ' + quotedstr(Trim(DName)));
sql.Add(',Chktime3=getdate()');
sql.Add('where ZBID =' + quotedstr(trim(CDS_HZ.fieldbyname('ZBID').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 TfrmOtherFeelist.ToolButton12Click(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_QTFEE SET status=''4'',Chker4= ' + quotedstr(Trim(DName)));
sql.Add(',Chktime4=getdate()');
sql.Add('where ZBID =' + quotedstr(trim(CDS_HZ.fieldbyname('ZBID').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 TfrmOtherFeelist.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_QTFEE SET status=''0'',Chker=NULL,Chktime=NULL ');
SQL.Add(',Chker2=NULL,Chktime2=NULL,Chker3=NULL,Chktime3=NULL,Chker4=NULL,Chktime4=NULL');
sql.Add('where ZBID =' + quotedstr(trim(CDS_HZ.fieldbyname('ZBID').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 TfrmOtherFeelist.ToolButton13Click(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_QTFEE SET status=''0'',Chker=NULL,Chktime=NULL ');
SQL.Add(',Chker2=NULL,Chktime2=NULL,Chker3=NULL,Chktime3=NULL,Chker4=NULL,Chktime4=NULL');
sql.Add('where ZBID =' + quotedstr(trim(CDS_HZ.fieldbyname('ZBID').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 TfrmOtherFeelist.ToolButton14Click(Sender: TObject);
var
fPrintFile: string;
EngMoney: string;
Porderno, LBName, SYRName: string;
i, j: Integer;
OrderKg: Double;
FDate: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if CDS_HZ.IsEmpty then
Exit;
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.rmf';
with ADOPrint do
begin
Close;
sql.Clear;
SQL.Add('SELECT * FROM CW_QTFEE WHERE ZBID=' + QUOTEDSTR(Trim(CDS_HZ.FieldByName('ZBID').AsString)));
Open;
end;
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
end;
end;
procedure TfrmOtherFeelist.Tv2Column5PropertiesEditValueChanged(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;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with CDS_SUB do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate CW_QTFEE ');
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
sql.Add(' where fyid=' + QuotedStr(CDS_SUB.fieldbyname('fyid').AsString));
// ShowMessage(sql.Text);
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate CW_QTFEE ');
sql.Add(' Set KCMONEY=MONEY-SBMONEY');
sql.Add(' where fyid=' + QuotedStr(CDS_SUB.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;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from CW_QTFEE A');
sql.Add('where zbid=' + Quotedstr(Trim(CDS_HZ.fieldbyname('zbid').AsString)));
SQL.Add('ORDER BY FYID ');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_SUB);
SInitCDSData20(ADOQueryTemp, CDS_SUB);
end;
procedure TfrmOtherFeelist.Tv2Column8PropertiesEditValueChanged(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;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with CDS_SUB do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate CW_QTFEE ');
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
sql.Add(' where fyid=' + QuotedStr(CDS_SUB.fieldbyname('fyid').AsString));
// ShowMessage(sql.Text);
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate CW_QTFEE ');
sql.Add(' Set SBMONEY=MONEY-KCMONEY');
sql.Add(' where fyid=' + QuotedStr(CDS_SUB.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;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from CW_QTFEE A');
sql.Add('where zbid=' + Quotedstr(Trim(CDS_HZ.fieldbyname('zbid').AsString)));
SQL.Add('ORDER BY FYID ');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_SUB);
SInitCDSData20(ADOQueryTemp, CDS_SUB);
end;
end.
Reference in New Issue Copy Permalink