572 lines
18 KiB
ObjectPascal
572 lines
18 KiB
ObjectPascal
unit U_GCFPHZList;
|
||
|
||
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, Menus, cxPC, MovePanel, cxLookAndFeels, cxLookAndFeelPainters,
|
||
cxNavigator, dxBarBuiltInMenu;
|
||
|
||
type
|
||
TfrmGCFPHZList = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBClose: TToolButton;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
Panel1: TPanel;
|
||
ToolButton2: TToolButton;
|
||
ADOQueryMain: TADOQuery;
|
||
TBExport: TToolButton;
|
||
RM1: TRMGridReport;
|
||
RMDB_Main: TRMDBDataSet;
|
||
Label2: TLabel;
|
||
begdate: TDateTimePicker;
|
||
Enddate: TDateTimePicker;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
DS_HZ: TDataSource;
|
||
CDS_HZ: TClientDataSet;
|
||
cxGrid1: TcxGrid;
|
||
TV2: TcxGridDBTableView;
|
||
cxFactoryName: TcxGridDBColumn;
|
||
cSQQP: TcxGridDBColumn;
|
||
cBQKP: TcxGridDBColumn;
|
||
cxWKP: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
V2BQXKPMoney: TcxGridDBColumn;
|
||
V2WCStatus: TcxGridDBColumn;
|
||
Label1: TLabel;
|
||
V2Column1: TcxGridDBColumn;
|
||
V2Column2: TcxGridDBColumn;
|
||
V2Column3: TcxGridDBColumn;
|
||
V2Column4: TcxGridDBColumn;
|
||
V2Column5: TcxGridDBColumn;
|
||
V2Column6: TcxGridDBColumn;
|
||
V2Column7: TcxGridDBColumn;
|
||
cxTabControl1: TcxTabControl;
|
||
Label3: TLabel;
|
||
KHName: TEdit;
|
||
Label4: TLabel;
|
||
GCName: TEdit;
|
||
CheckBox1: TCheckBox;
|
||
TBDataDel: TToolButton;
|
||
V2Column8: TcxGridDBColumn;
|
||
V2Column9: TcxGridDBColumn;
|
||
V2Column10: TcxGridDBColumn;
|
||
Panel2: TMovePanel;
|
||
Label5: TLabel;
|
||
TV2Column1: TcxGridDBColumn;
|
||
CheckBox2: TCheckBox;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure GCNameChange(Sender: TObject);
|
||
procedure TBExportClick(Sender: TObject);
|
||
procedure V2Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure V2Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure cSQQPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure cBQKPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure V2Column4CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure V2BQXKPMoneyCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure cxWKPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure V2Column5CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure V2Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure V2WCStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure V2Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure cxTabControl1Change(Sender: TObject);
|
||
procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
procedure KHNameChange(Sender: TObject);
|
||
procedure GCName10Change(Sender: TObject);
|
||
procedure CheckBox1Click(Sender: TObject);
|
||
procedure TBDataDelClick(Sender: TObject);
|
||
procedure TV2StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
||
private
|
||
{ Private declarations }
|
||
procedure InitGrid();
|
||
public
|
||
fDParameters1: string;
|
||
{ Public declarations }
|
||
RKFlag, FCYID: string;
|
||
BFBegdate, BFEnddate, BFGCName: string;
|
||
end;
|
||
|
||
var
|
||
frmGCFPHZList: TfrmGCFPHZList;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun, U_Fun, U_YSCRPBMggGCView, U_SKCRPBMggGCView,
|
||
U_FPCRPBMggGCView;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmGCFPHZList.InitGrid();
|
||
var
|
||
i: Integer;
|
||
n: Integer;
|
||
begin
|
||
Panel2.Visible := True;
|
||
Panel2.Refresh;
|
||
if cxTabControl1.TabIndex = 0 then
|
||
begin
|
||
n := 0;
|
||
end;
|
||
if cxTabControl1.TabIndex = 1 then
|
||
begin
|
||
n := 2;
|
||
end;
|
||
try
|
||
ADOQueryMain.DisableControls;
|
||
with ADOQueryMain do
|
||
begin
|
||
Filtered := False;
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' exec P_GC_GL_FPView :begdate,:enddate,:FPType,:HTStatus,:DataType,:DataType2 ');
|
||
Parameters.ParamByName('begdate').Value := trim(FormatDateTime('yyyy-MM-dd', begdate.Date));
|
||
Parameters.ParamByName('enddate').Value := trim(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
|
||
Parameters.ParamByName('FPType').Value := 'ȫ<><C8AB>';
|
||
Parameters.ParamByName('HTStatus').Value := n;
|
||
if CheckBox1.Checked then
|
||
begin
|
||
Parameters.ParamByName('DataType').Value := '1';
|
||
end
|
||
else
|
||
begin
|
||
Parameters.ParamByName('DataType').Value := '';
|
||
end;
|
||
|
||
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
||
for i := 1 to 33 - CDS_HZ.RecordCount do
|
||
begin
|
||
with CDS_HZ do
|
||
begin
|
||
Append;
|
||
post;
|
||
end;
|
||
end;
|
||
finally
|
||
;
|
||
ADOQueryMain.EnableControls;
|
||
end;
|
||
Panel2.Visible := False;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmGCFPHZList := nil;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.TBCloseClick(Sender: TObject);
|
||
begin
|
||
WriteCxGrid('<27><><EFBFBD>̷<EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʋ<EFBFBD>ѯ1', Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.FormShow(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
begin
|
||
ReadCxGrid('<27><><EFBFBD>̷<EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʋ<EFBFBD>ѯ1', Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
|
||
begdate.DateTime := SGetServerDateMBeg(ADOQueryTemp);
|
||
if Trim(DCode) <> 'ADMIN' then
|
||
begin
|
||
TBExport.Visible := False;
|
||
TBDataDel.Visible := False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
if ADOQueryMain.Active = False then
|
||
Exit;
|
||
SDofilter(ADOQueryMain, Trim(SGetFilters(Panel1, 1, 2)));
|
||
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.GCNameChange(Sender: TObject);
|
||
begin
|
||
ToolButton2.Click;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.TBExportClick(Sender: TObject);
|
||
begin
|
||
if ADOQueryMain.IsEmpty then
|
||
Exit;
|
||
SelExportData(Tv2, ADOQueryMain, '<27><><EFBFBD>̷<EFBFBD>Ʊͳ<C6B1><CDB3><EFBFBD>б<EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.V2Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('SQXSMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.V2Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('SQSKMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
// ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.cSQQPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('SQKPMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.cBQKPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('BQXSMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.V2Column4CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('BQSKMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.V2BQXKPMoneyCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('BQKPMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.cxWKPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('HZXSMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
// ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.V2Column5CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('HZSKMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.V2Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('HZKPMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.V2WCStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('HZWKPMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.V2Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id: Integer;
|
||
begin
|
||
id := TV2.GetColumnByFieldName('HZWSKMoney').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] > 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] = Null then
|
||
Exit;
|
||
//ACanvas.Brush.Color:=clRed;
|
||
ACanvas.Font.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.cxTabControl1Change(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
var
|
||
FName: string;
|
||
begin
|
||
if CDS_HZ.IsEmpty then
|
||
Exit;
|
||
FName := TV2.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||
BFGCName := Trim(CDS_HZ.fieldbyname('GCName').AsString);
|
||
if (FName = 'SQXSMoney') or (FName = 'SQSKMoney') or (FName = 'SQKPMoney') then
|
||
begin
|
||
BFBegdate := '1900-01-01';
|
||
BFEnddate := Trim(FormatDateTime('yyyy-MM-dd', begdate.Date - 1));
|
||
end
|
||
else if (FName = 'BQXSMoney') or (FName = 'BQSKMoney') or (FName = 'BQKPMoney') then
|
||
begin
|
||
BFBegdate := Trim(FormatDateTime('yyyy-MM-dd', begdate.Date));
|
||
BFEnddate := Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date));
|
||
end
|
||
else if (FName = 'HZXSMoney') or (FName = 'HZSKMoney') or (FName = 'HZKPMoney') then
|
||
begin
|
||
BFBegdate := '1900-01-01';
|
||
BFEnddate := '2500-01-01';
|
||
end;
|
||
if (FName = 'SQXSMoney') or (FName = 'BQXSMoney') or (FName = 'HZXSMoney') then
|
||
begin
|
||
try
|
||
frmYSCRPBMggGCView := TfrmYSCRPBMggGCView.Create(Application);
|
||
with frmYSCRPBMggGCView do
|
||
begin
|
||
FBegdate := Self.BFBegdate;
|
||
FEndDate := Self.BFEnddate;
|
||
FGCName := Self.BFGCName;
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmYSCRPBMggGCView.Free;
|
||
end;
|
||
end
|
||
else if (FName = 'SQSKMoney') or (FName = 'BQSKMoney') or (FName = 'HZSKMoney') then
|
||
begin
|
||
try
|
||
frmSKCRPBMggGCView := TfrmSKCRPBMggGCView.Create(Application);
|
||
with frmSKCRPBMggGCView do
|
||
begin
|
||
FBegdate := Self.BFBegdate;
|
||
FEndDate := Self.BFEnddate;
|
||
FGCName := Self.BFGCName;
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmSKCRPBMggGCView.Free;
|
||
end;
|
||
end
|
||
else if (FName = 'SQKPMoney') or (FName = 'BQKPMoney') or (FName = 'HZKPMoney') then
|
||
begin
|
||
try
|
||
frmFPCRPBMggGCView := TfrmFPCRPBMggGCView.Create(Application);
|
||
with frmFPCRPBMggGCView do
|
||
begin
|
||
FBegdate := Self.BFBegdate;
|
||
FEndDate := Self.BFEnddate;
|
||
FGCName := Self.BFGCName;
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmFPCRPBMggGCView.Free;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.KHNameChange(Sender: TObject);
|
||
begin
|
||
ToolButton2.Click;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.GCName10Change(Sender: TObject);
|
||
begin
|
||
ToolButton2.Click;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.CheckBox1Click(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.TBDataDelClick(Sender: TObject);
|
||
var
|
||
FConNO, FConMainid: string;
|
||
begin
|
||
if cxTabControl1.TabIndex <> 1 then
|
||
Exit;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>!', '', 32 + 4) <> IDYES then
|
||
Exit;
|
||
begin
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from JYOrderCon_Main where CustomerNoName=''' + Trim(CDS_HZ.fieldbyname('KHName').AsString) + '''');
|
||
sql.Add(' and GCName=''' + Trim(CDS_HZ.fieldbyname('GCName').AsString) + ''' and isnull(status,'''')=''3'' ');
|
||
Open;
|
||
end;
|
||
if ADOQueryCmd.RecordCount > 1 then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
FConNO := Trim(ADOQueryCmd.fieldbyname('ConNo').AsString);
|
||
FConMainid := Trim(ADOQueryCmd.fieldbyname('Mainid').AsString);
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete YF_Money_CR where isnull(ConNo,'''')=''' + Trim(FConNO) + ''' and isnull(CRFlag,'''')=''Ӧ<><D3A6><EFBFBD><EFBFBD>'' ');
|
||
sql.Add('delete JYOrder_Main where isnull(ConNo,'''')=''' + Trim(FConNO) + '''');
|
||
sql.Add('delete JYOrderCon_Main where isnull(ConNo,'''')=''' + Trim(FConNO) + '''');
|
||
sql.Add('delete JYOrderCon_Sub where isnull(MainId,'''')=''' + Trim(FConMainid) + '''');
|
||
sql.Add('delete CK_CP_CR where isnull(ConNo,'''')=''' + Trim(FConNO) + '''');
|
||
ExecSQL;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
CDS_HZ.Delete;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmGCFPHZList.TV2StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
||
begin
|
||
if CDS_HZ.FieldByName('Ssel').AsBoolean = True then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|