or
CREATE PROCEDURE [dbo].[sp_Events_GetNext10EventsIncludeRecurring]ASBEGIN SET NOCOUNT ON; DECLARE @StartDate DATETIME; DECLARE @EndDate DATETIME; SET @StartDate = CAST(CONVERT(VARCHAR,GETDATE(),21) AS DATETIME); SET @EndDate = CAST(CONVERT(VARCHAR,GETDATE()+365,21) AS DATETIME); -- List all appointments (recurring or not) in the given rangeSELECT TOP 10 a.[EventID] as [EventID], a.[EventName] as [EventName], a.[Description] as [Description], a.[Location], ISNULL(o.StartDate, a.[StartDateTime]) as [StartDateTime], ISNULL(o.EndDate, a.[EndDateTime]) as [EndDateTime], a.[RecurrenceRule] as [RecurrenceRule], a.[RecurrenceParentID] as [RecurrenceParentID], a.[EventTypeID] as [EventTypeID], a.[EventType] as [EventType], a.[EventCategoryID] as [EventCategoryID], a.[EventCategory] as [EventCategory], a.[VenueID] as [VenueID], a.[VenueName] as [VenueName], a.[IsCityVenue] as [IsCityVenue], a.[RSVP] as [RSVP], a.[MinAttendees] as [MinAttendees], a.[MaxAttendees] as [MaxAttendees], a.[Notes] as [Notes], a.[AddedBy] as [AddedBy], a.[EditedBy] as [EditedBy], a.[DateAdded] as [DateAdded], a.[LastEdited] as [LastEdited], a.[Status] as [Status]FROM [vw_Details_Events_Active] a OUTER APPLY [dbo].[ExpandRecurrence](a.[RecurrenceRule], @Startdate, @EndDate) AS oWHERE -- Include non-recurring appointments in the range (a.[RecurrenceRule] IS NULL AND a.[StartDateTime] < @EndDate AND a.[EndDateTime] > @StartDate) OR -- And recurring appointments in range. (a.[RecurrenceRule] IS NOT NULL AND o.[StartDate] < @EndDate AND o.[EndDate] > @StartDate)ORDER BY [StartDateTime]END<telerik:RadCodeBlock ID="RadCodeBlock1" runat="server"> <script type="text/javascript"> function ExternalitemOpened(s, e) { if ($telerik.isIE8) { // Fix an IE 8 bug that causes the list bullets to disappear (standards mode only) $telerik.$("li", e.get_item().get_element()) .each(function () { this.style.cssText = this.style.cssText; }); } } function External_MouseOver(sender, args) { if (args.get_item().get_parent() == sender) { sender.set_clicked(false); } } function ExternalOnClientItemClicking(sender, args) { if (args.get_item().get_isOpen() == true) { args.set_cancel(true); args.get_item().close(); } } </script> </telerik:RadCodeBlock><telerik:RadMenu ID="RadMenu_SpecialReport" runat="server" ClickToOpen="True" EnableShadows="True" OnClientItemOpened="ExternalitemOpened" OnClientItemClicking="ExternalOnClientItemClicking" OnClientMouseOut="External_MouseOver" Style="top: 0px; left: -2px; z-index: 100; height: 35px;" Skin="ExternalGridButtons" EnableEmbeddedSkins="false"> <Items> <telerik:RadMenuItem PostBack="true" Text="Special Reports" Value="Special_Reports" CssClass="btn btn-primary btn-menu-grid-size"> <ContentTemplate> <div id="Special_panel" class="Special_panel" style="width:300px; height:500px; background-color:white;"> <telerik:RadAjaxPanel ID="RadAjaxPanel_SpecialReport" runat="server" Width="80%"></telerik:RadAjaxPanel> <telerik:RadButton ID="btn_ShowSpecialReport" runat="server" Text="Show Special Report" Skin="Web20" CssClass="btn_Sort" OnClick="btn_ShowSpecialReport_Click"></telerik:RadButton> </div> </ContentTemplate> </telerik:RadMenuItem> <telerik:RadMenuItem PostBack="true" Text="zzzz" Value="zzzzz" CssClass="btn btn-primary btn-menu-grid-size"> <ContentTemplate> <div id="Div1" class="Special_panel" style="width:300px; height:500px; background-color:white;"> <telerik:RadAjaxPanel ID="RadAjaxPanel1" runat="server" Width="80%"></telerik:RadAjaxPanel> <telerik:RadButton ID="RadButton2" runat="server" Text="Show Special Report" Skin="Web20" CssClass="btn_Sort" OnClick="btn_ShowSpecialReport_Click"></telerik:RadButton> </div> </ContentTemplate> </telerik:RadMenuItem> <telerik:RadMenuItem IsSeparator="true"></telerik:RadMenuItem> </Items> </telerik:RadMenu><%@ Control Language="C#" AutoEventWireup="true" CodeFile="mw_ora_prnt_acct_info.ascx.cs" Inherits="Telerik.Web.Examples.ToolTip.ToolTipVersusToolTipManager.InfoCustomers" %><asp:Panel ID="cust_info_pnl" runat="server"> <asp:Table ID="cust_info_tbl" runat="server" Width="500px"> <asp:TableRow> <asp:TableCell ColumnSpan="2" style="font:20px Yanone Kaffeesatz;color:Black;border-bottom:1px solid Black;text-align:left;">Company Information</asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Company Name:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:TextBox ID="prnt_acct_name_txt" Width="300px" runat="server" CssClass="txtbox"></asp:TextBox></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Account Type:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:DropDownList ID="acct_type_drp" runat="server" CssClass="txtbox"> <asp:ListItem Value="EMPLOYER">EMPLOYER</asp:ListItem> <asp:ListItem Value="NONE">NONE</asp:ListItem> <asp:ListItem Value="PHYSICIAN NETWORK">PHYSICIAN NETWORK</asp:ListItem> </asp:DropDownList> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">WW Contract Date:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:TextBox ID="acct_cntrct_date_txt" Width="75px" runat="server" ReadOnly="true" BackColor="LightSlateGray" CssClass="txtbox"></asp:TextBox></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">ES Follow-Up Date:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:TextBox ID="fu_date_txt" Width="75px" runat="server" CssClass="txtbox"></asp:TextBox></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">ES Priority:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:DropDownList ID="es_priority_drp" runat="server" CssClass="txtbox"> <asp:ListItem Value="6TH">6TH</asp:ListItem> <asp:ListItem Value="5TH">5TH</asp:ListItem> <asp:ListItem Value="4TH">4TH</asp:ListItem> <asp:ListItem Value="3RD">3RD</asp:ListItem> <asp:ListItem Value="2ND">2ND</asp:ListItem> <asp:ListItem Value="1ST">1ST</asp:ListItem> </asp:DropDownList></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell ColumnSpan="2" style="font:20px Yanone Kaffeesatz;color:Black;border-bottom:1px solid Black;text-align:left;">Carrier Information</asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right"></asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Insurance Carrier:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:TextBox ID="ins_carrier_txt" Width="300px" runat="server" CssClass="txtbox"></asp:TextBox> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell> </asp:TableCell> <asp:TableCell><telerik:RadComboBox ID="ins_carrier_combo" runat="server" Height="200" Width="640" DropDownWidth="720" EmptyMessage="Choose a Carrier" HighlightTemplatedItems="true" EnableLoadOnDemand="true" Filter="StartsWith" OnItemsRequested="ins_carrier_combo_ItemsRequested" OnAjaxUpdate="OnAjaxUpdate"> <HeaderTemplate> <table style="width: 670px" cellspacing="0" cellpadding="0"> <tr> <td style="width: 550px;"> Carrier Name </td> <td style="width: 120px; text-align: left;"> Account Number </td> </tr> </table> </HeaderTemplate> <ItemTemplate> <table style="width: 670px" cellspacing="0" cellpadding="0"> <tr> <td style="width: 550px;"> <%# DataBinder.Eval(Container, "Attributes['ACCOUNT_NAME']")%> </td> <td style="width: 120px; text-align: left;"> <%# DataBinder.Eval(Container, "Attributes['ACCOUNT_NUMBER']")%> </td> </tr> </table> </ItemTemplate> </telerik:RadComboBox></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Carrier Renewal Date:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:TextBox ID="renewal_date_txt" Width="75px" runat="server" CssClass="txtbox"></asp:TextBox></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Broker Code:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:TextBox ID="broker_code_txt" Width="35px" runat="server" CssClass="txtbox"></asp:TextBox></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right"></asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell ColumnSpan="2" style="font:20px Yanone Kaffeesatz;color:Black;border-bottom:1px solid Black;text-align:left;">Misc Information</asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Ancillary Services:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:DropDownList ID="ancil_svcs_drp" runat="server" CssClass="txtbox"> <asp:ListItem Value="Y">YES</asp:ListItem> <asp:ListItem Value="N">NO</asp:ListItem> </asp:DropDownList></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Alternate PT:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:DropDownList ID="alt_pt_drp" runat="server" CssClass="txtbox"> <asp:ListItem Value="Y">YES</asp:ListItem> <asp:ListItem Value="N">NO</asp:ListItem> </asp:DropDownList></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Alternate RX:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:DropDownList ID="alt_rx_drp" runat="server" CssClass="txtbox"> <asp:ListItem Value="Y">YES</asp:ListItem> <asp:ListItem Value="N">NO</asp:ListItem> </asp:DropDownList></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Alternate DX:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:DropDownList ID="alt_dx_drp" runat="server" CssClass="txtbox"> <asp:ListItem Value="Y">YES</asp:ListItem> <asp:ListItem Value="N">NO</asp:ListItem> </asp:DropDownList></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell ColumnSpan="2" style="font:20px Yanone Kaffeesatz;color:Black;border-bottom:1px solid Black;text-align:left;">Account Status</asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Status:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:DropDownList ID="acct_status_drp" runat="server" CssClass="txtbox" OnSelectedIndexChanged="acct_status_chngd" AutoPostBack="true"> <asp:ListItem Value="A">ACTIVE</asp:ListItem> <asp:ListItem Value="I">INACTIVE</asp:ListItem> </asp:DropDownList></asp:TableCell> </asp:TableRow> <asp:TableRow ID="acct_inactive_row" runat="server" Visible="false"> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right">Try To Get Back:</asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Left"><asp:DropDownList ID="inactive_try_to_bet_bck_drp" runat="server" CssClass="txtbox"> <asp:ListItem Value="-"> MAKE A SELECTION </asp:ListItem> <asp:ListItem Value="Y">YES - AT NEXT RENEWAL</asp:ListItem> <asp:ListItem Value="N">NO</asp:ListItem> </asp:DropDownList></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell Width="150px" Wrap="false" HorizontalAlign="Right"></asp:TableCell> <asp:TableCell Wrap="false" HorizontalAlign="Right"> <telerik:radbutton id="submit_srch_btn" runat="server" text="UPDATE" Width="50" OnClick="acct_update_submit"/> <telerik:radbutton id="cancel_update_btn" runat="server" text="CANCEL" Width="50" OnClick="acct_update_cancel"/> </asp:TableCell> </asp:TableRow> </asp:Table> </asp:Panel>using System;using System.Collections;using System.Collections.Generic;using System.Configuration;using System.Data;using System.Linq;using System.Web;using System.Web.UI;using System.Web.UI.WebControls;using Oracle.DataAccess.Client;using Telerik.Web.UI;namespace Telerik.Web.Examples.ToolTip.ToolTipVersusToolTipManager{ public partial class InfoCustomers : System.Web.UI.UserControl { private string _party_id; public string Party_ID { get { return _party_id; } set { _party_id = value; } } protected void Page_PreRender(object sender, EventArgs e) { get_acct_info(); } protected void Page_Load(object sender, EventArgs e) { cust_info_pnl.Visible = true; } private OracleConnection CreateConnection() { string ora_db = "Data Source=(DESCRIPTION=" + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=xxx.xxx.xxx.xxx)(PORT=xxxx)))" //test server + "(CONNECT_DATA=(SERVICE_NAME=xxxx)));" + "User Id=xxxx;Password=xxxx;"; return new OracleConnection(ora_db); } protected void acct_update_submit(object sender, EventArgs e) { } protected void acct_update_cancel(object sender, EventArgs e) { get_acct_info(); } protected void acct_status_chngd(object sender, EventArgs e) { if (acct_status_drp.SelectedValue == "A") { acct_inactive_row.Visible = false; } else { acct_inactive_row.Visible = true; } } protected void get_acct_info() { OracleConnection conn = CreateConnection(); try { conn.Open(); DataTable information = new DataTable(); try { string sql = "SELECT PARTY_NAME, ATTRIBUTE_CATEGORY, ATTRIBUTE1 ,ATTRIBUTE2, ATTRIBUTE3,ATTRIBUTE4 ,ATTRIBUTE5 ,ATTRIBUTE6 ,ATTRIBUTE7 ,ATTRIBUTE9 ,ATTRIBUTE10 ,ATTRIBUTE11 " + " FROM AR.HZ_PARTIES " + " WHERE PARTY_TYPE = 'ORGANIZATION' " + " AND ATTRIBUTE_CATEGORY = 'EMPLOYER' " + " AND PARTY_ID = " + _party_id; OracleCommand cmd = new OracleCommand(sql, conn); OracleDataReader dr3 = cmd.ExecuteReader(); if (dr3.Read()) { prnt_acct_name_txt.Text = Convert.ToString(dr3.GetValue(0)); acct_type_drp.SelectedValue = Convert.ToString(dr3.GetValue(1)); acct_cntrct_date_txt.Text = Convert.ToDateTime(dr3.GetValue(2)).ToString("dd-MMM-yyyy"); fu_date_txt.Text = Convert.ToDateTime(dr3.GetValue(3)).ToString("dd-MMM-yyyy"); es_priority_drp.SelectedValue = Convert.ToString(dr3.GetValue(9)); ins_carrier_txt.Text = Convert.ToString(dr3.GetValue(10)); ins_carrier_combo.Text = Convert.ToString(dr3.GetValue(10)); renewal_date_txt.Text = Convert.ToDateTime(dr3.GetValue(4)).ToString("dd-MMM-yyyy"); broker_code_txt.Text = Convert.ToString(dr3.GetValue(11)); ancil_svcs_drp.SelectedValue = Convert.ToString(dr3.GetValue(5)); alt_pt_drp.SelectedValue = Convert.ToString(dr3.GetValue(6)); alt_rx_drp.SelectedValue = Convert.ToString(dr3.GetValue(7)); alt_dx_drp.SelectedValue = Convert.ToString(dr3.GetValue(8)); } dr3.Close(); dr3.Dispose(); } finally { } } finally { if (conn.State == ConnectionState.Open) { conn.Close(); } } } protected void ins_carrier_combo_ItemsRequested(object sender, RadComboBoxItemsRequestedEventArgs e) { OracleDataAdapter adapter = new OracleDataAdapter("SELECT HP.PARTY_NAME, HCA.ACCOUNT_NAME, HCA.ACCOUNT_NUMBER, HCA.CUST_ACCOUNT_ID " + " FROM AR.HZ_CUST_ACCOUNTS HCA " + " INNER JOIN AR.HZ_PARTIES HP ON HP.PARTY_ID = HCA.PARTY_ID " + " WHERE HCA.ATTRIBUTE_CATEGORY = 'INSURANCE CARRIER' AND " + " HCA.STATUS = 'A' AND " + " HCA.ACCOUNT_NAME LIKE '" + e.Text.ToUpper() + "%' " + " ORDER BY ACCOUNT_NUMBER ", ConfigurationManager.ConnectionStrings["oracle_db"].ConnectionString); DataTable dataTable = new DataTable(); adapter.Fill(dataTable); foreach (DataRow dataRow in dataTable.Rows) { RadComboBoxItem item = new RadComboBoxItem(); item.Text = (string)dataRow["ACCOUNT_NAME"]; item.Value = dataRow["CUST_ACCOUNT_ID"].ToString(); string unitPrice = (string)dataRow["ACCOUNT_NAME"]; string unitsInStock = (string)dataRow["ACCOUNT_NUMBER"]; item.Attributes.Add("ACCOUNT_NAME", unitPrice.ToString()); item.Attributes.Add("ACCOUNT_NUMBER", unitsInStock.ToString()); ins_carrier_combo.Items.Add(item); item.DataBind(); } } }}
<telerik:RadLinearGauge runat="server" ID="rlgOverHeadActual" Width="590px" Height="70px" Skin="Windows7" Style="float: left; " ResolvedRenderMode="Classic" > <Pointer Shape="BarIndicator" Size="15" Color="#D8B179" > <Track Color="#646262" Visible="true" Opacity="0.4" /> </Pointer> <Scale Vertical="false" > <MajorTicks Visible="false" Size="20" Color="Black"/> <MinorTicks Visible="false" Size="10" Color="Black" /> <Labels Visible="false" /> <Ranges > </Ranges> </Scale> </telerik:RadLinearGauge><telerik:RadLinearGauge runat="server" ID="rlgOverhead" Width="590px" Height="70px" Skin="Windows7" Style="float: left;" ResolvedRenderMode="Classic" > <Pointer Shape="BarIndicator" Size="15" Color="#566D8F" > <Track Color="#646262" Visible="true" Opacity="0.4" /> </Pointer> <Scale Vertical="false" > <MajorTicks Visible="true" Size="20" Color="Black"/> <MinorTicks Visible="true" Size="10" Color="Black" /> <Labels /> <Ranges > </Ranges> </Scale> </telerik:RadLinearGauge> <asp:Label ID="lbltest" runat="server"></asp:Label> <asp:SqlDataSource ID="sqlOverHead" runat="server" ConnectionString="<%$ ConnectionStrings:IntranetConnectionString %>" SelectCommand="USP_Intranet_Select_Overhead" SelectCommandType="StoredProcedure"></asp:SqlDataSource>
Private Sub OverHeadGauge() Dim dvOverHeadGauge As DataView Dim decOHBudgetAmount As Decimal = 0 Dim decOHExpenseAmount As Decimal = 0 Dim dtOverHeadGoodThrough As DateTime = "8/1/2014" dvOverHeadGauge = CType(sqlOverHead.Select(DataSourceSelectArguments.Empty), DataView) ' intFiscalYear = CType(dv.Table.Rows(0)(0), Integer) decOHBudgetAmount = CType(dvOverHeadGauge.Table.Rows(0)(0), Decimal) decOHBudgetAmount = Math.Round(decOHBudgetAmount / 1000000, 2) decOHExpenseAmount = CType(dvOverHeadGauge.Table.Rows(0)(1), Decimal) decOHExpenseAmount = Math.Round(decOHExpenseAmount / 1000000, 2) dtOverHeadGoodThrough = CType(dvOverHeadGauge.Table.Rows(0)(2), DateTime) Dim decMonthscale As Decimal = decOHBudgetAmount / 12 Dim mthFY As Integer = 0 Select Case Month(dtOverHeadGoodThrough) Case 1 mthFY = 7 Case 2 mthFY = 8 Case 3 mthFY = 9 Case 4 mthFY = 10 Case 5 mthFY = 11 Case 6 mthFY = 12 Case 7 mthFY = 1 Case 8 mthFY = 2 Case 9 mthFY = 3 Case 10 mthFY = 4 Case 11 mthFY = 5 Case 12 mthFY = 6 End Select decMonthscale = decMonthscale * mthFY 'Set the top grid rlgOverHeadActual.Scale.Min = 0 rlgOverHeadActual.Scale.Max = Math.Round(decOHBudgetAmount + 0.5, 0) rlgOverHeadActual.Pointer.Value = decOHExpenseAmount 'rlgOverHeadActual.Scale.Labels.Visible = False rlgOverHeadActual.Scale.MinorTicks.Visible = False rlgOverHeadActual.Scale.MajorTicks.Visible = False rlgOverHeadActual.Scale.Labels.Format = "${0}m" 'rlgOverHeadActual.Scale.Labels.Font = "15px 'PT Sans', sans-serif" If decOHExpenseAmount > decOHBudgetAmount Then rlgOverHeadActual.Pointer.Color = Drawing.Color.Red End If 'decOHExpenseAmount = decOHBudgetAmount * 9 rlgOverhead.Scale.Min = 0 rlgOverhead.Scale.Max = Math.Round(decOHBudgetAmount + 0.5, 0) rlgOverhead.Scale.MajorUnit = 1 rlgOverhead.Scale.MinorUnit = 0.1 rlgOverhead.Pointer.Value = decMonthscale rlgOverhead.Scale.Labels.Format = "${0}m" 'rlgOverhead.Scale.Labels.Font = "15px 'PT Sans', sans-serif" Dim gr1 As New GaugeRange() Dim gr2 As New GaugeRange() gr1.From = decOHBudgetAmount gr1.To = rlgOverhead.Scale.Max gr1.Color = Drawing.ColorTranslator.FromHtml("#B14747") 'Drawing.Color.Red rlgOverhead.Scale.Ranges.Add(gr1) 'rlgOverhead.Scale.Ranges.Add(gr2) End Sub