<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