protected
void
Page_Load(
object
sender, EventArgs e)
{
if
(!IsPostBack)
{
LoadDB();
}
else
if
(IsPostBack)
{
LoadDBAfterPostback();
}
}
private
void
LoadDB()
{
int
projectGroupID = pgID;
if
(!parameter.ToLower().Contains(
"administrators"
))
{
ODSLoadPlayerFromScheduler.SelectParameters.Add(
"GroupName"
, parameter);
ODSLoadPlayerFromScheduler.SelectParameters.Add(
"projectGroupID"
, projectGroupID.ToString());
}
else
{
ODSLoadPlayerFromScheduler.SelectParameters.Add(
"projectGroupID"
, projectGroupID.ToString());
}
}
private
void
LoadDBAfterPostback()
{
int
projectGroupID = pgID;
if
(!parameter.ToLower().Contains(
"administrators"
))
{
ODSLoadPlayerFromScheduler.SelectParameters[
"GroupName"
].DefaultValue = parameter;
ODSLoadPlayerFromScheduler.SelectParameters[
"projectGroupID"
].DefaultValue = projectGroupID.ToString();
}
else
{
ODSLoadPlayerFromScheduler.SelectParameters[
"projectGroupID"
].DefaultValue = projectGroupID.ToString();
}
}
protected
void
Timer1_Tick(
object
sender, EventArgs e)
{
LoadDBAfterPostback();
}
<
telerik:GridTemplateColumn
DataField
=
"CountryName"
FilterControlAltText
=
"Filter CountryName column"
HeaderText
=
"CountryName"
SortExpression
=
"CountryName"
UniqueName
=
"CountryName"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"Label1"
runat
=
"server"
Text='<%# Eval("CountryAbbreviation") %>'></
asp:Label
>
<
asp:Image
ID
=
"Image1"
runat
=
"server"
ImageUrl='images/<%# Eval("CountryAbbreviation") %>.png' />
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:RadProgressArea
ID="RadProgressArea1"
runat="server"
HeaderText = "Creating PDF Files For Invoices"
DisplayCancelButton="True"
ProgressIndicators="FilesCountBar,
FilesCount,
FilesCountPercent,
SelectedFilesCount,
CurrentFileName,
TimeElapsed,
TimeEstimated"
Skin="Hay">
<Localization Uploaded="Uploaded" />
</telerik:RadProgressArea>
<telerik:RadProgressManager ID="RadProgressManager1"
Runat="server"
SuppressMissingHttpModuleError="True"
RefreshPeriod="100" />
Here is the code on the button click
Private
Sub ibtPDFExport_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtPDFExport.Click
Dim aryInvoiceNumber() As String
Dim i As Integer = 0
Dim SqlStr As String = Nothing
Dim sdrIntranetObjects As SqlDataReader
Dim strDirectorySuffix As String = Nothing
Dim strFileName As String = Nothing
If Me.txtRecordsSelectedCount.Text = "0" Then
MsgBox(
"You must select at least 1 invoice to export.", vbOKOnly)
Else
Dim Progress As RadProgressContext = RadProgressContext.Current
Progress.Speed =
"N/A"
ReDim aryInvoiceNumber(Convert.ToInt16(Me.txtRecordsSelectedCount.Text) - 1)
For i = 0 To Convert.ToInt16(Me.txtRecordsSelectedCount.Text) - 1
aryInvoiceNumber(i) = Split(
Me.txtRecordsSelected.Text, ";")(i).ToString
SqlStr =
"SELECT InvoiceNumber, PeriodEnding, Contract, Customer From [dbo].BLL_BillingInvoiceHeader WHERE InvoiceNumber = '" & aryInvoiceNumber(i).ToString & "'"
sdrIntranetObjects = UDF_GetDataReader(SqlStr)
While sdrIntranetObjects.Read()
strDirectorySuffix = sdrIntranetObjects(
"Customer") & "\" & sdrIntranetObjects("Contract") & "\"
strFileName =
String.Format("{0:yyyy-MM}", sdrIntranetObjects("PeriodEnding")).ToString & "~" & sdrIntranetObjects("InvoiceNumber")
End While
sdrIntranetObjects.Close()
Progress.SecondaryValue = i + 1.ToString()
Progress.SecondaryPercent = ((i + 1) / Convert.ToInt16(
Me.txtRecordsSelectedCount.Text)).ToString()
Progress.CurrentOperationText = strDirectorySuffix +
"\" & strFileName
Progress.SecondaryTotal = Convert.ToInt16(
Me.txtRecordsSelectedCount.Text)
If Not Response.IsClientConnected Then
'Cancel button was clicked or the browser was closed, so stop processing
Exit For
End If
USB_CreatePDFReport(70001,
"no", strDirectorySuffix, strFileName, aryInvoiceNumber(0).ToString)
Next
End If
End Sub
Script control 'rntbInterval' is not a registered script control. Script controls must be registered using RegisterScriptControl() before calling RegisterScriptDescriptors().
Parameter name: scriptControl
<
telerik:RadComboBox
ID
=
"rcbProducts"
runat
=
"server"
Width
=
"300px"
Height
=
"300px"
Font-Names
=
"Arial"
Font-Size
=
"XX-Small"
Skin
=
"Windows7"
EmptyMessage
=
"- please select a product -"
HighlightTemplatedItems
=
"true"
EnableLoadOnDemand
=
"True"
EnableVirtualScrolling
=
"True"
ShowMoreResultsBox
=
"True"
Filter
=
"Contains"
>
<
ItemTemplate
>
<
table
>
<
tr
>
<
td
>
<
asp:Label
ID
=
"lblProductName"
runat
=
"server"
></
asp:Label
>
</
td
>
<td>
<telerik:RadNumericTextBox ID="rntbInterval" Font-Names="Arial" Font-Size="XX-Small"
ShowSpinButtons="true" IncrementSettings-InterceptArrowKeys="true" IncrementSettings-InterceptMouseWheel="true"
runat="server" Type="Number" Width="50px" NumberFormat-DecimalDigits="0" IncrementSettings-Step="1"></telerik:RadNumericTextBox>
<asp:Button ID="btnSave" Text="Save" OnClick="btnSave_Click" runat="server" /></td>
</
tr
>
</
table
>
</
ItemTemplate
>
</
telerik:RadComboBox
>
Protected Sub rcbProduct_ItemsRequested(ByVal o As Object, ByVal e As Telerik.Web.UI.RadComboBoxItemsRequestedEventArgs) Handles rcbProducts.ItemsRequested
Dim sFilter As String = e.Text
Dim data As DataTable = GetProducts(sFilter)
Dim itemOffset As Integer = e.NumberOfItems
Dim endOffset As Integer = Math.Min(itemOffset + ITEMS_PER_REQUEST, data.Rows.Count)
e.EndOfItems = endOffset = data.Rows.Count
'rcbProducts.DataTextField = "JobName"
'rcbProducts.DataValueField = "LogisticProductKey"
For i As Int32 = itemOffset To endOffset - 1
Dim rcb As New RadComboBoxItem
rcb.Text = data.Rows(i)("ProductCodeAndDesc").ToString()
rcb.Value = data.Rows(i)("LogisticProductKey").ToString()
rcbProducts.Items.Add(rcb)
Dim lblProductName As Label = rcb.FindControl("lblProductName")
lblProductName.Text = data.Rows(i)("ProductCodeAndDesc").ToString()
Next
e.Message = GetStatusMessage(endOffset, data.Rows.Count)
End Sub