491 lines
13 KiB
ObjectPascal
491 lines
13 KiB
ObjectPascal
unit U_TatFlawQuery;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar,
|
||
cxPC, Math, U_BaseList, MovePanel, cxLookAndFeels, cxLookAndFeelPainters,
|
||
cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
|
||
dxDateRanges, System.StrUtils, dxScrollbarAnnotations, dxSkinWXI;
|
||
|
||
type
|
||
TfrmTatFlawQuery = class(TfrmBaseList)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBKFMod: TToolButton;
|
||
TBExpSum: TToolButton;
|
||
TBExpDet: TToolButton;
|
||
TBSaveFmt: TToolButton;
|
||
TBClose: TToolButton;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
weaver_name: TEdit;
|
||
Label2: TLabel;
|
||
C_Code: TEdit;
|
||
IsJYTime: TCheckBox;
|
||
BegDate: TDateTimePicker;
|
||
Label4: TLabel;
|
||
EndDate: TDateTimePicker;
|
||
cxPageControl1: TcxPageControl;
|
||
TabSum: TcxTabSheet;
|
||
cxGridS: TcxGrid;
|
||
TvS: TcxGridDBTableView;
|
||
TvSweaver_name: TcxGridDBColumn;
|
||
TvSSumPoints: TcxGridDBColumn;
|
||
cxGridSLevel1: TcxGridLevel;
|
||
PanelS: TPanel;
|
||
LabelS1: TLabel;
|
||
TCBNORS: TComboBox;
|
||
BTLPS: TButton;
|
||
LBCPAPS: TLabel;
|
||
BTNPS: TButton;
|
||
TabDet: TcxTabSheet;
|
||
cxGridD: TcxGrid;
|
||
TvD: TcxGridDBTableView;
|
||
TvDSSel: TcxGridDBColumn;
|
||
TvDFillTime: TcxGridDBColumn;
|
||
TvDC_Code: TcxGridDBColumn;
|
||
TvDweaver_name: TcxGridDBColumn;
|
||
TvDpoints: TcxGridDBColumn;
|
||
TvDCIFName: TcxGridDBColumn;
|
||
TvDFiller: TcxGridDBColumn;
|
||
Tvcarno: TcxGridDBColumn;
|
||
TvDCIID: TcxGridDBColumn;
|
||
TvDCIFID: TcxGridDBColumn;
|
||
cxGridDLevel1: TcxGridLevel;
|
||
PanelD: TPanel;
|
||
LabelD1: TLabel;
|
||
TCBNORD: TComboBox;
|
||
BTLPD: TButton;
|
||
LBCPAPD: TLabel;
|
||
BNTPD: TButton;
|
||
MovePanel2: TMovePanel;
|
||
ADOQSum: TADOQuery;
|
||
ADOQDetail: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQueryTemp: TADOQuery;
|
||
DS_S: TDataSource;
|
||
DS_D: TDataSource;
|
||
CDS_Sum: TClientDataSet;
|
||
CDS_Detail: TClientDataSet;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure TBKFModClick(Sender: TObject);
|
||
procedure TBExpSumClick(Sender: TObject);
|
||
procedure TBExpDetClick(Sender: TObject);
|
||
procedure TBSaveFmtClick(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure weaver_nameKeyPress(Sender: TObject; var Key: Char);
|
||
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
|
||
procedure BTLPSClick(Sender: TObject);
|
||
procedure BTNPSClick(Sender: TObject);
|
||
procedure TCBNORSChange(Sender: TObject);
|
||
procedure BTLPDClick(Sender: TObject);
|
||
procedure BNTPDClick(Sender: TObject);
|
||
procedure TCBNORDChange(Sender: TObject);
|
||
procedure TvSCustomDrawIndicatorCell(Sender: TcxGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo;
|
||
var ADone: Boolean);
|
||
procedure TvDCustomDrawIndicatorCell(Sender: TcxGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo;
|
||
var ADone: Boolean);
|
||
private
|
||
FWorkshop: string;
|
||
CurrentPageS, RecordsNumberS, CurrentPageD, RecordsNumberD: Integer;
|
||
function BuildCriteria(): string;
|
||
procedure InitSum();
|
||
procedure InitDetail();
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmTatFlawQuery: TfrmTatFlawQuery;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmTatFlawQuery.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.FormCreate(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
FWorkshop := Trim(Self.fParameters3);
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.FormShow(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
CurrentPageS := 1;
|
||
RecordsNumberS := 500;
|
||
CurrentPageD := 1;
|
||
RecordsNumberD := 500;
|
||
ReadCxGrid(Trim(Self.Caption) + 'TvS', TvS, 'ó<><EFBFBD><D7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
ReadCxGrid(Trim(Self.Caption) + 'TvD', TvD, 'ó<><EFBFBD><D7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
|
||
BegDate.DateTime := EndDate.DateTime;
|
||
InitSum();
|
||
InitDetail();
|
||
end;
|
||
|
||
function TfrmTatFlawQuery.BuildCriteria(): string;
|
||
var
|
||
WSql: string;
|
||
begin
|
||
WSql := SGetFilters(Panel1, 1, 2);
|
||
if Trim(WSql) <> '' then
|
||
WSql := ' and ' + Trim(WSql);
|
||
|
||
if Trim(FWorkshop) <> '' then
|
||
WSql := WSql + ' and A.Workshop=' + QuotedStr(Trim(FWorkshop));
|
||
|
||
if IsJYTime.Checked then
|
||
begin
|
||
WSql := WSql + ' and A.FillTime>' + QuotedStr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||
WSql := WSql + ' and A.FillTime<=' + QuotedStr(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1));
|
||
end
|
||
else if Trim(WSql) = '' then
|
||
WSql := ' and 1=2 ';
|
||
|
||
Result := WSql;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.InitSum();
|
||
var
|
||
WSql: string;
|
||
begin
|
||
MovePanel2.Left := (Self.Width - MovePanel2.Width) div 2;
|
||
MovePanel2.Visible := True;
|
||
MovePanel2.Refresh;
|
||
WSql := BuildCriteria();
|
||
if Trim(WSql) = 'and 1=2' then
|
||
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
|
||
|
||
try
|
||
CDS_Sum.DisableControls;
|
||
with ADOQSum do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec P_Tat_Flaw_Sum_Get_Page ');
|
||
SQL.Add('@pageIndex=' + IntToStr(CurrentPageS));
|
||
SQL.Add(',@pageSize=' + IntToStr(RecordsNumberS));
|
||
SQL.Add(',@criteria=' + QuotedStr(WSql));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQSum, CDS_Sum);
|
||
SInitCDSData(ADOQSum, CDS_Sum);
|
||
LBCPAPS.Caption := IntToStr(CurrentPageS) + '/' + IntToStr(Ceil(ADOQSum.FieldByName('TotalCount').AsInteger / RecordsNumberS));
|
||
finally
|
||
CDS_Sum.EnableControls;
|
||
MovePanel2.Visible := False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.InitDetail();
|
||
var
|
||
WSql: string;
|
||
begin
|
||
MovePanel2.Left := (Self.Width - MovePanel2.Width) div 2;
|
||
MovePanel2.Visible := True;
|
||
MovePanel2.Refresh;
|
||
WSql := BuildCriteria();
|
||
if Trim(WSql) = 'and 1=2' then
|
||
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
|
||
|
||
try
|
||
CDS_Detail.DisableControls;
|
||
with ADOQDetail do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec P_Tat_Flaw_Get_Page ');
|
||
SQL.Add('@pageIndex=' + IntToStr(CurrentPageD));
|
||
SQL.Add(',@pageSize=' + IntToStr(RecordsNumberD));
|
||
SQL.Add(',@criteria=' + QuotedStr(WSql));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQDetail, CDS_Detail);
|
||
SInitCDSData(ADOQDetail, CDS_Detail);
|
||
LBCPAPD.Caption := IntToStr(CurrentPageD) + '/' + IntToStr(Ceil(ADOQDetail.FieldByName('TotalCount').AsInteger / RecordsNumberD));
|
||
finally
|
||
CDS_Detail.EnableControls;
|
||
MovePanel2.Visible := False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
CurrentPageS := 1;
|
||
CurrentPageD := 1;
|
||
InitSum();
|
||
InitDetail();
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TBKFModClick(Sender: TObject);
|
||
var
|
||
MVal: string;
|
||
MPoints: Double;
|
||
MCIFIDS, MCIIDS, FOne, FRest: string;
|
||
FP: Integer;
|
||
begin
|
||
if CDS_Detail.IsEmpty then
|
||
Exit;
|
||
if not CDS_Detail.Locate('SSel', True, []) then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
|
||
MVal := '';
|
||
if not InputQuery('<27>۷<EFBFBD><DBB7><EFBFBD><EFBFBD><EFBFBD>', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۷<EFBFBD><DBB7><EFBFBD>:', MVal) then
|
||
Exit;
|
||
if Trim(MVal) = '' then
|
||
Exit;
|
||
if not TryStrToFloat(Trim(MVal), MPoints) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD>Ŀ۷<C4BF><DBB7><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
|
||
MCIFIDS := '';
|
||
MCIIDS := '';
|
||
CDS_Detail.DisableControls;
|
||
try
|
||
CDS_Detail.First;
|
||
while not CDS_Detail.Eof do
|
||
begin
|
||
if CDS_Detail.FieldByName('SSel').AsBoolean then
|
||
begin
|
||
if MCIFIDS <> '' then
|
||
MCIFIDS := MCIFIDS + ',';
|
||
MCIFIDS := MCIFIDS + QuotedStr(Trim(CDS_Detail.FieldByName('CIFID').AsString));
|
||
|
||
if Pos(',' + QuotedStr(Trim(CDS_Detail.FieldByName('CIID').AsString)) + ',', ',' + MCIIDS + ',') = 0 then
|
||
begin
|
||
if MCIIDS <> '' then
|
||
MCIIDS := MCIIDS + ',';
|
||
MCIIDS := MCIIDS + QuotedStr(Trim(CDS_Detail.FieldByName('CIID').AsString));
|
||
end;
|
||
end;
|
||
CDS_Detail.Next;
|
||
end;
|
||
finally
|
||
CDS_Detail.EnableControls;
|
||
end;
|
||
if MCIFIDS = '' then
|
||
Exit;
|
||
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD>Ŀ۷<C4BF><DBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('update Tat_Cloth_Inspect_Flaw set points=' + FloatToStr(MPoints));
|
||
SQL.Add(' where CIFID in (' + MCIFIDS + ')');
|
||
ExecSQL;
|
||
end;
|
||
|
||
//ͬ<><CDAC><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5><EFBFBD><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>༭<EFBFBD><E0BCAD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>)
|
||
FRest := MCIIDS;
|
||
while FRest <> '' do
|
||
begin
|
||
FP := Pos(',', FRest);
|
||
if FP = 0 then
|
||
begin
|
||
FOne := FRest;
|
||
FRest := '';
|
||
end
|
||
else
|
||
begin
|
||
FOne := Copy(FRest, 1, FP - 1);
|
||
Delete(FRest, 1, FP);
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec P_Tat_Insp_Up @CIID=' + FOne);
|
||
SQL.Add(',@InspType=' + QuotedStr('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'));
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||
SQL.Add(' ' + QuotedStr(Trim(DName)));
|
||
SQL.Add(',getdate() ');
|
||
SQL.Add(',' + QuotedStr(Trim(Self.Caption)));
|
||
SQL.Add(',' + QuotedStr(Trim('<27>۷<EFBFBD><DBB7><EFBFBD><EFBFBD><EFBFBD>')));
|
||
SQL.Add(',' + QuotedStr(Trim('<27>۷<EFBFBD><DBB7><EFBFBD>:' + MVal + ' ' + MCIFIDS)));
|
||
SQL.Add(',' + QuotedStr(Trim('<27>ɹ<EFBFBD>')));
|
||
SQL.Add(')');
|
||
ExecSQL;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
||
CurrentPageD := 1;
|
||
CurrentPageS := 1;
|
||
InitDetail();
|
||
InitSum();
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TBExpSumClick(Sender: TObject);
|
||
begin
|
||
if CDS_Sum.IsEmpty then
|
||
Exit;
|
||
TcxGridToExcel(Trim(Self.Caption) + '-<2D><><EFBFBD><EFBFBD>', cxGridS);
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TBExpDetClick(Sender: TObject);
|
||
begin
|
||
if CDS_Detail.IsEmpty then
|
||
Exit;
|
||
TcxGridToExcel(Trim(Self.Caption) + '-<2D><>ϸ', cxGridD);
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TBSaveFmtClick(Sender: TObject);
|
||
begin
|
||
WriteCxGrid(Trim(Self.Caption) + 'TvS', TvS, 'ó<><EFBFBD><D7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
WriteCxGrid(Trim(Self.Caption) + 'TvD', TvD, 'ó<><EFBFBD><D7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.weaver_nameKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
CurrentPageS := 1;
|
||
CurrentPageD := 1;
|
||
InitSum();
|
||
InitDetail();
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.C_CodeKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
CurrentPageS := 1;
|
||
CurrentPageD := 1;
|
||
InitSum();
|
||
InitDetail();
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.BTLPSClick(Sender: TObject);
|
||
begin
|
||
if CurrentPageS > 1 then
|
||
CurrentPageS := CurrentPageS - 1;
|
||
InitSum();
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.BTNPSClick(Sender: TObject);
|
||
begin
|
||
if CurrentPageS < ADOQSum.FieldByName('TotalCount').AsInteger / RecordsNumberS then
|
||
CurrentPageS := CurrentPageS + 1;
|
||
InitSum();
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TCBNORSChange(Sender: TObject);
|
||
begin
|
||
RecordsNumberS := StrToInt(TCBNORS.Text);
|
||
CurrentPageS := 1;
|
||
InitSum();
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.BTLPDClick(Sender: TObject);
|
||
begin
|
||
if CurrentPageD > 1 then
|
||
CurrentPageD := CurrentPageD - 1;
|
||
InitDetail();
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.BNTPDClick(Sender: TObject);
|
||
begin
|
||
if CurrentPageD < ADOQDetail.FieldByName('TotalCount').AsInteger / RecordsNumberD then
|
||
CurrentPageD := CurrentPageD + 1;
|
||
InitDetail();
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TCBNORDChange(Sender: TObject);
|
||
begin
|
||
RecordsNumberD := StrToInt(TCBNORD.Text);
|
||
CurrentPageD := 1;
|
||
InitDetail();
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TvSCustomDrawIndicatorCell(Sender: TcxGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo;
|
||
var ADone: Boolean);
|
||
var
|
||
FValue: string;
|
||
FBounds: TRect;
|
||
begin
|
||
FBounds := AViewInfo.Bounds;
|
||
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
|
||
begin
|
||
ACanvas.FillRect(FBounds);
|
||
ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1);
|
||
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
|
||
InflateRect(FBounds, -3, -2);
|
||
ACanvas.Font.Color := clBlack;
|
||
ACanvas.Brush.Style := bsClear;
|
||
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
|
||
ADone := True;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTatFlawQuery.TvDCustomDrawIndicatorCell(Sender: TcxGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo;
|
||
var ADone: Boolean);
|
||
var
|
||
FValue: string;
|
||
FBounds: TRect;
|
||
begin
|
||
FBounds := AViewInfo.Bounds;
|
||
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
|
||
begin
|
||
ACanvas.FillRect(FBounds);
|
||
ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1);
|
||
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
|
||
InflateRect(FBounds, -3, -2);
|
||
ACanvas.Font.Color := clBlack;
|
||
ACanvas.Brush.Style := bsClear;
|
||
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
|
||
ADone := True;
|
||
end;
|
||
end;
|
||
|
||
end.
|