Questions on UI for ASP.NET AJAX Forum

110,723 questions

1 answer

120 views

RadGrid Alignment Issue in IE7 ,Works fine in IE8

Hi,





   My need is to display the header like this dynamically, 

 

    
        
            LEFT
            RIGHT
        
        
            IN
            OUT
            IN
            OUT
        
        
            This cell spans 4 columns
        
    














  The following code does this exactly,In IE8 it works fine but in IE7 the column width differs ,

  Itemstyle width of each column increases if we increase the headerstlyle width.

  I have uploded the image both in IE7 and IE8.











<%@ Page Language="VB" AutoEventWireup="false"  CodeFile="Default2.aspx.vb" Inherits="Default2" %>

LEFT	RIGHT
IN	OUT	IN	OUT
This cell spans 4 columns

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head runat="server">

<title></title>

<style type="text/css">

.Insert

{

width: 115px;

}

.Update

{

width: 113px;

}

.Delete

{

width: 221px;

}

</style>

<style type="text/css">

.RadPicker

{

padding-bottom:15px !important;

}

</style>

<style type="text/css">

.RadGrid .rgDataDiv

{

position: relative;

}

</style>

<script type="text/javascript" language="javascript">

function RowDblClick(sender, eventArgs) {

editedRow = eventArgs.get_itemIndexHierarchical();

$find("dgdPrgSetup").get_masterTableView().editItem(editedRow);

}

function SelectGridRow(ItemIndex) {

var Grid = $find("dgdPrgSetup");

var table = Grid.get_masterTableView();

var row = table.get_dataItems()[ItemIndex];

table.clearSelectedItems();

table.selectItem(ItemIndex);

}

function valueChanged() {

document.getElementById("ctl00_Content_hidKeyPress").value = "1";

}

//

String.prototype.ReplaceAll = function(stringToFind, stringToReplace) {

var temp = this;

var index = temp.indexOf(stringToFind);

while (index != -1) {

temp = temp.replace(stringToFind, stringToReplace);

index = temp.indexOf(stringToFind);

}

return temp;

}

var ControlID = "", tname = "", tDp = "", DpSelIn = "", tOrginalId = "", dpss = "0", HiddenTxt, tDp1 = "",

saveButtonID;

var dpSelectedIndex;

var dpIntialSlind; var i = 0; var j = 0;

function whichElement(e, getCID, getHfcid, getButtonID) {

saveButtonID = getButtonID;

HiddenTxt = getHfcid;

var targ;

if (!e)

{ var e = window.event; }

if (e.target) { targ = e.target; }

else if (e.srcElement) { targ = e.srcElement; }

if (targ.nodeType == 3) { targ = targ.parentNode; }

tOrginalId = targ.id;

tname = getCID;

tDp = targ.type;

tDp1 = targ.className

var Kycode = event.keyCode;

if (tDp1 != "rcbInput" && tDp != "select-one") {

if (Kycode != "0" && Kycode != "9") {

var myRegExp = tname;

var matchPos1 = ControlID.indexOf(myRegExp);

if (matchPos1 == -1) {

ControlID = ControlID + "," + tname;

document.getElementById(getHfcid).value = ControlID;

if (document.getElementById(getButtonID) != null) {

document.getElementById(getButtonID).disabled = false;

}

else {

dpSelectedIndex = document.getElementById(HiddenTxt).selectedIndex;

if (tDp1 == "rcbInput") {

tOrginalId = targ.name;

tOrginalId = tOrginalId.ReplaceAll("$", "_");

var combo = $find(tOrginalId);

combo.get_events().addHandler("selectedIndexChanged", RadCmbOnChange);

}

else {

document.getElementById(tOrginalId).setAttribute("onchange", dpOnChange);

}

function UpperCase(rowID, id) {

// var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

// var itemPrgmId = masterTable.get_dataItems()[rowID];

// var txtProgmIdenfer = itemPrgmId.findControl("txtProgIdentifier")._textBoxElement.value;

//            itemPrgmId.findControl("txtProgIdentifier")._textBoxElement.value = txtProgmIdenfer.toUpperCase();

var ctrl = document.getElementById(id.id);

var ctrlVal = document.getElementById(id.id).value;

ctrl.value = ctrlVal.toUpperCase();

}

function CurrencyCodeValidation(sender, args) {

var txtCurrencyCode = sender.get_text();

if (txtCurrencyCode == '') {

callconfirmbuttoncurrency("okButton");

var oAlert = radalert("Value required for this item.", 300, 110, "");

oAlert.add_close(function() { $find(sender._onFocus()); });

// radalert("Value required for this item.", 300, 110, "");

// $find(sender._clientID).focus();

return false;

}

function HolidayValidation(rowID, id) {

// var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

//            //var x = $find("ctl00_Content_dgdPrgSetup").get_masterTableView().getColumnByUniqueName("Holiday");

// var itemCloseYear = masterTable.get_dataItems()[rowID];

// //var txtHolidayGroup = itemCloseYear.findControl("txtHolidayGroup")._textBoxElement.value;

var ctrlVal = document.getElementById(id.id).value;

callconfirmbutton("okButton");

if (ctrlVal == '') {

var oAlert = radalert("Value required for this item.", 300, 110, "");

oAlert.add_close(function() { document.getElementById(id.id).focus(); });

// radalert("Value required for this item.", 300, 110, "");

return false;

}

function HolidayValidation1(sender, args) {

var x = $find("ctl00_Content_dgdPrgSetup").get_masterTableView().getColumnByUniqueName("Holiday");

var txtHolidayGroup = sender.get_value();

callconfirmbutton("okButton");

if (txtHolidayGroup == '') {

if (document.getElementById("ctl00_Content_hidRowID").value != 1) {

var oAlert = radalert("Value required for this item.", 300, 110, "");

oAlert.add_close(function() { $find(sender._clientID).focus(); });

}

document.getElementById("ctl00_Content_hidRowID").value = 1

return false;

}

function fnCallOK() {

var rowID = document.getElementById("ctl00_Content_hidRowID").value;

var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

var itemHolidayGroup = masterTable.get_dataItems()[rowID];

itemHolidayGroup.findControl("txtHolidayGroup")._textBoxElement.focus();

document.getElementById("ctl00_Content_hidRowID").value = "";

}

function RadCmbOnChange() {

var myRegExp = tname;

var matchPos1 = ControlID.indexOf(myRegExp);

if (matchPos1 == -1) {

ControlID = ControlID + "," + tname;

document.getElementById(HiddenTxt).value = ControlID;

}

function dpOnChange() {

var dpSelIndex = document.getElementById(tOrginalId).selectedIndex;

var currentDpSelIndex;

if (ControlID != "" && ControlID != ",") {

var myRegExp = tname;

var matchPos1 = ControlID.indexOf(myRegExp);

if (matchPos1 == -1)

i = 0;

}

if (i == 0) {

dpIntialSlind = dpSelectedIndex;

currentDpSelIndex = dpSelIndex;

i = 1;

}

else {

currentDpSelIndex = dpSelIndex;

}

if (dpIntialSlind != currentDpSelIndex) {

var myRegExp = tname;

var matchPos1 = ControlID.indexOf(myRegExp);

if (matchPos1 == -1) {

ControlID = ControlID + "," + tname;

if (document.getElementById(saveButtonID) != null)

document.getElementById(saveButtonID).disabled = false;

}

///

function setGlCloseDate(rowID) {

var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

var itemCloseYear = masterTable.get_dataItems()[rowID];

var txtEndMonth = itemCloseYear.findControl("FiscalYearEndMonth")._textBoxElement.value;

var txtEndDay = itemCloseYear.findControl("FiscalYearEndDay")._textBoxElement.value;

var txtCloseYear = itemCloseYear.findControl("HardCloseYear")._textBoxElement.value;

//var txtHolidayGroup = itemCloseYear.findControl("holiday_group")._textBoxElement.value;

var mYear = txtCloseYear.substr(0, 4)

if ((txtEndDay > 0 && txtEndDay < 32) || (txtEndDay == '')) {

}

else {

radalert("Please enter a valid day.", 300, 110, "");

itemCloseYear.findControl("FiscalYearEndDay")._textBoxElement.focus();

return false;

}

if ((txtEndMonth > 0 && txtEndMonth < 13) || (txtEndMonth == '')) {

}

else {

radalert("Please enter a valid month", 300, 110, "");

itemCloseYear.findControl("FiscalYearEndMonth")._textBoxElement.focus();

return false;

}

if ((txtEndMonth != "") && (txtEndDay != "") && (txtCloseYear != "")) {

if (mYear.length == 2) {

var mToday = new Date();

//If the year is greater than 30 years from now use 19, otherwise use 20

var checkYear = mToday.getFullYear() + 30;

var mCheckYear = '20' + mYear;

if (mCheckYear >= checkYear)

mYear = '19' + mYear;

else

mYear = '20' + mYear;

}

var isDate = txtEndMonth + '/' + txtEndDay + '/' + mYear;

if (isValidDate(isDate)) {

var d = new Date();

if (mYear > d.getFullYear()) {

//alert("Only current or earlier year are allowed.")

radalert("Only current or earlier year are allowed.", 400, 110, "");

return false;

} else {

itemCloseYear._element.cells[31].childNodes[0].value = isDate;

itemCloseYear._element.cells[31].childNodes[0].style.background = "gray";

//itemCloseYear.findControl("txtCloseDay_Edit")._textBoxElement.value = isDate;

//itemCloseYear.findControl("txtCloseDay_Edit")._textBoxElement.style.background = "gray";

}

else if (txtCloseYear != "") {

var d = new Date();

if (txtCloseYear > d.getFullYear()) {

radalert("Only current or earlier year are allowed.", 400, 110, "");

return false;

}

// }

function isValidDate(dateStr) {

// Checks for the following valid date formats:

// MM/DD/YY MM/DD/YYYY MM-DD-YY MM-DD-YYYY

// Also separates date into month, day, and year variables

var datePat = /^(\d{1,2})(\/|-)(\d{1,2})\2(\d{2}|\d{4})$/;

// To require a 4 digit year entry, use this line instead:

// var datePat = /^(\d{1,2})(\/|-)(\d{1,2})\2(\d{4})$/;

var matchArray = dateStr.match(datePat); // is the format ok?

if (matchArray == null) {

// alert("Date is not in a valid format.")

return false;

}

month = matchArray[1]; // parse date into variables

day = matchArray[3];

year = matchArray[4];

if (month < 1 || month > 12) { // check month range

//alert("Month must be between 1 and 12.");

return false;

}

if (day < 1 || day > 31) {

//alert("Day must be between 1 and 31.");

return false;

}

if ((month == 4 || month == 6 || month == 9 || month == 11) && day == 31) {

//alert("Month " + month + " doesn't have 31 days!")

return false

}

if (month == 2) { // check for february 29th

var isleap = (year % 4 == 0 && (year % 100 != 0 || year % 400 == 0));

if (day > 29 || (day == 29 && !isleap)) {

// alert("February " + year + " doesn't have " + day + " days!");

return false;

}

return true; // date is valid

}

// End -->

function OnRequestStart(sender, args) {

if (args.EventTarget == 'ctl00$Content$cmdDelete') // Delete

{

callconfirmbutton("okButton");

radconfirm("Current Record will be DELETED!", confirmCallDelete, 350, 100, null, "ConfirmDelete");

return false;

}

else if (args.EventTarget == 'ctl00$Content$cmdExit') // Exit

{

callconfirmbutton("yesButton");

var isModified = document.getElementById("ctl00_Content_hidKeyPress").value;

if (isModified != "") {

radconfirm("Data has been altered without an UPDATE. Do you still wish to EXIT?", confirmClose, 350, 100,

null, "Update Error!");

return false;

}

function confirmClose(arg) {

if (arg == true) {

__doPostBack("ctl00$Content$lnkExit", "");

}

function confirmCallDelete(arg) {

if (arg == true) {

__doPostBack("ctl00$Content$lnkDelete", "");

}

function callconfirmbuttoncurrency(param) {

if (param == "yesButton") {

Telerik.Web.UI.RadWindowUtils.Localization =

{

"OK": "Yes",

"Cancel": "No"

};

focus();

}

else if (param == "okButton") {

Telerik.Web.UI.RadWindowUtils.Localization =

{

"OK": "OK",

"Cancel": "Cancel"

};

focus();

}

function callconfirmbutton(param) {

if (param == "yesButton") {

Telerik.Web.UI.RadWindowUtils.Localization =

{

"OK": "Yes",

"Cancel": "No"

};

}

else if (param == "okButton") {

Telerik.Web.UI.RadWindowUtils.Localization =

{

"OK": "OK",

"Cancel": "Cancel"

};

}

function dateSelected(sender, args) {

sender.set_value = args.get_newValue();

valueChanged();

}

function OnRequestStartWhichElement(sender, eventArgs) {

var eventtargetname = eventArgs.EventTarget;

if (eventtargetname.indexOf("ctl00$Content$dgdPrgSetup") >= 0) {

if (document.getElementById('ctl00_Content_hidKeyPress').value != "") {

eventArgs.set_cancel(true);

radconfirm("Save the Changes or If you want to go next Page Click OK", callfn, 390, 105, null,

"Confirm");

function callfn(args) {

if (args == true) {

ControlID = ""

document.getElementById('ctl00_Content_hidKeyPress').value = '';

__doPostBack(eventtargetname);

}

function setRowSelection(obj) {

var curRow;

var curRowID;

try {

curRow =

obj.parentElement.parentElement.parentElement.parentElement.parentElement.parentElement.parentElement.id;

if (curRow == "") {

curRow = obj.parentElement.parentElement.id;

}

curRowID = curRow.lastIndexOf("__");

curRowID = curRow.substr(curRowID + 2);

var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

masterTable.clearSelectedItems();

masterTable.selectItem(masterTable.get_dataItems()[curRowID].get_element());

}

catch (e) {

}

function OnFocus(sender, eventArgs) {

var oWnd;

var grid = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

if (sender.get_textBoxValue() != '') {

var chkDot;

var focusAmt, splitDot;

///

var curControl;

curControl = sender._clientID.lastIndexOf("_");

curControl = sender._clientID.substr(curControl + 1);

if (curControl == 'coverage') {

focusAmt = sender._textBoxElement.value; ;

}

else if (curControl == 'pct') {

focusAmt = sender._textBoxElement.value;

}

else if (curControl == 'fee') {

focusAmt = sender._textBoxElement.value;

}

sender.set_textBoxValue(focusAmt);

}

function OnValueChanged(sender, eventArgs) {

var oWnd;

var grid = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

var curControl;

curControl = sender._clientID.lastIndexOf("_");

curControl = sender._clientID.substr(curControl + 1);

if (curControl == 'coverage') {

sender._textBoxElement.value = eventArgs._newValue;

}

else if (curControl == 'pct') {

sender._textBoxElement.value = eventArgs._newValue;

}

else if (curControl == 'fee') {

sender._textBoxElement.value = eventArgs._newValue;

}

function OnBlur(sender, eventArgs) {

if (sender.get_textBoxValue() != '') {

var grid = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

var focusAmt, splitDot;

var curControl;

curControl = sender._clientID.lastIndexOf("_");

curControl = sender._clientID.substr(curControl + 1);

if (curControl == 'coverage') {

focusAmt = sender._element.value;

sender.set_textBoxValue(((focusAmt * 100).toFixed(2)) + '%');

}

else if (curControl == 'pct') {

focusAmt = sender._element.value;

sender.set_textBoxValue(((focusAmt * 100).toFixed(3)) + '%');

}

else if (curControl == 'fee') {

focusAmt = sender._element.value

sender.set_textBoxValue(((focusAmt * 100).toFixed(3)) + '%');

}

// sender.set_textBoxValue(((focusAmt * 100).toFixed(3)) + '%');

}

else {

sender.set_textBoxValue("");

}

//*************Shortcut keys starting here*****************

document.onkeydown = KeyDownHandler;

var CTRL = false;

var SHIFT = false;

var ALT = false;

var CHAR_CODE = -1;

function KeyDownHandler(e) {

var x = '';

if (document.all) {

var evnt = window.event;

x = evnt.keyCode;

}

else {

x = e.keyCode;

}

DetectKeys(x, true);

}

function DetectKeys(KeyCode, IsKeyDown) {

var Delete = document.getElementById('ctl00_Content_cmdDelete');

var Exit = document.getElementById('ctl00_Content_cmdExit');

if (KeyCode == '16') {

SHIFT = IsKeyDown;

}

else if (KeyCode == '17') {

CTRL = IsKeyDown;

}

else if (KeyCode == '18') {

ALT = IsKeyDown;

}

else {

if (IsKeyDown)

CHAR_CODE = KeyCode;

else

CHAR_CODE = -1;

}

var item;

var toolBar;

if (CTRL && ALT && KeyCode == "68") {

if (Delete.disabled == false) {

Delete.click();

}

//2.Exit -Ctrl+U

else if (CTRL && ALT && KeyCode == "69") {

if (Exit.disabled == false) {

Exit.click();

}

//*********************************************************

function HideDatePickerPopup(rowID) {

var x = '';

if (document.all) {

var evnt = window.event;

x = evnt.keyCode;

}

if (x == 9) {

var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

var itemPrgmId = masterTable.get_dataItems()[rowID];

itemPrgmId.findControl("program_end").hidePopup();

}

function HidePopupStartDatePicker(rowID) {

var x = '';

if (document.all) {

var evnt = window.event;

x = evnt.keyCode;

}

if (x == 9) {

var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

var itemPrgmId = masterTable.get_dataItems()[rowID];

itemPrgmId.findControl("program_start").hidePopup();

}

function HidePopupTriggerDatePicker(rowID) {

var x = '';

if (document.all) {

var evnt = window.event;

x = evnt.keyCode;

}

if (x == 9) {

var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

var itemPrgmId = masterTable.get_dataItems()[rowID];

itemPrgmId.findControl("loc_flr_reached").hidePopup();

}

function HidePopupProcessedDatePicker(rowID) {

var x = '';

if (document.all) {

var evnt = window.event;

x = evnt.keyCode;

}

if (x == 9) {

var masterTable = $find("ctl00_Content_dgdPrgSetup").get_masterTableView();

var itemPrgmId = masterTable.get_dataItems()[rowID];

itemPrgmId.findControl("processed_through").hidePopup();

}

function ShowAlert(id) {

}

</script>

</head>

<body>

<form id="form1" runat="server">

<div>

<telerik:RadScriptManager ScriptMode="Release" ID="tsmMaster" runat="server" AsyncPostBackTimeout="360000">

</telerik:RadScriptManager>

<telerik:RadAjaxManager ID="rjxProgramSetup" runat="server">

<AjaxSettings>

<telerik:AjaxSetting>

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="tajxpnlProgramSetup" LoadingPanelID="tajxlpnlProgramSetup" />

</UpdatedControls>

</telerik:AjaxSetting>

</AjaxSettings>

</telerik:RadAjaxManager>

<telerik:RadAjaxLoadingPanel ID="tajxlpnlProgramSetup" runat="server" Skin="Windows7">

</telerik:RadAjaxLoadingPanel>

<telerik:RadAjaxPanel ID="tajxpnlProgramSetup" ClientEvents-OnRequestStart="OnRequestStart" runat="server"

LoadingPanelID="tajxlpnlProgramSetup">

<div style="width: 970px;">

<div style="margin-bottom: 5px;">

<table style="width: 80%">

<tr>

<td class="Insert">

<asp:Button ID="cmdInsert" runat="server" Text="INSERT" Width="80px" Font-Bold="true"

Height="25px" />

</td>

<td class="Update">

<asp:Button ID="cmdUpdate" runat="server" Text="UPDATE" Width="80px" Font-Bold="true"

Height="25px" />

</td>

<td class="Delete">

<asp:Button ID="cmdDelete" runat="server" Text="DELETE" Width="80px" Font-Bold="true"

Height="25px" /><asp:LinkButton ID="lnkDelete" runat="server"></asp:LinkButton>

</td>

<td>

<asp:Button ID="cmdExit" runat="server" Text="EXIT" Width="80px" Font-Bold="true"

Height="25px" /><asp:LinkButton ID="lnkExit" runat="server"></asp:LinkButton>

</td>

</tr>

</table>

</div>

<div runat="server" id="drvdgdPrgSetup">

<%--<div style="width: 980px; height: 404px; position: relative; overflow: hidden;" id="divProgramSetup">--%>

<telerik:RADGrid ID="dgdPrgSetup" runat="server" AutoGenerateColumns="False"

AllowPaging="true" GridLines="None" Height="400px" onmousedown="whichElement(event,'dgdPrgSetup','ctl00_Content_hidKeyPress','')"

onkeyup="whichElement(event,'dgdPrgSetup','ctl00_Content_hidKeyPress','')" onkeypress="whichElement(event,'dgdPrgSetup','ctl00_Content_hidKeyPress','')" HeaderStyle-Wrap="false">

<MasterTableView DataKeyNames="issue_id" EditMode="InPlace" Width="2100px" HeaderStyle-Wrap="false">

<Columns>

<telerik:GridBoundColumn HeaderText="Program Identifier" ColumnEditorID="txtProgIdentifier"

UniqueName="issue_id" DataField="issue_id" MaxLength="8" HeaderStyle-Width="60px" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="60px">

</telerik:GridBoundColumn>

<telerik:GridDropDownColumn HeaderText="Program <br/> Sponsor" ColumnEditorID="drpProgSponsor"

UniqueName="programsponsor" HeaderStyle-Wrap="true" HeaderStyle-Width="290px" ItemStyle-Width="290px" HeaderStyle-HorizontalAlign="Center"

ItemStyle-HorizontalAlign="Left">

</telerik:GridDropDownColumn>

<telerik:GridBoundColumn HeaderText="Program <br/> Name" ColumnEditorID="txtProgramName"

UniqueName="programname" DataField="program_name" HeaderStyle-Width="290px" ItemStyle-Width="290px" HeaderStyle-HorizontalAlign="Center"

ItemStyle-HorizontalAlign="Left" >

</telerik:GridBoundColumn>

<telerik:GridDateTimeColumn HeaderText="Program <br/> Start Date" ColumnEditorID="txtProgramStart"

DataField="program_start" UniqueName="program_start" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="100px" ItemStyle-Width="80px"

DataFormatString="{0:MM/dd/yyyy}" >

</telerik:GridDateTimeColumn>

<telerik:GridDateTimeColumn HeaderText="Program <br/> End Date" ColumnEditorID="txtProgramEnd"

DataField="program_end" UniqueName="program_end" HeaderStyle-Width="100px" ItemStyle-VerticalAlign="Middle"

DataFormatString="{0:MM/dd/yyyy}" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">

</telerik:GridDateTimeColumn>

<telerik:GridNumericColumn HeaderText="Maximum Providers" ColumnEditorID="txtMaxProviders_Edit"

HeaderStyle-Width="90px" UniqueName="max_providers" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Center" DataField="max_providers">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Maximum Swing Line" ColumnEditorID="txtMaxSwing_Edit"

HeaderStyle-Width="100px" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Center" UniqueName="max_swline" DataField="max_swline">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Maximum Letter of Credit" ColumnEditorID="txtMaxLetter_Edit"

HeaderStyle-Width="80px" UniqueName="max_loc" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Center" DataField="max_loc">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Maximum Liquidity Loan" ColumnEditorID="txtMaxLiquid_Edit"

HeaderStyle-Width="100px" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Center" UniqueName="max_lqloan" DataField="max_lqloan">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Maximum <br/> Suppl. Enhance" ColumnEditorID="txtMaxSupp_Edit"

HeaderStyle-Width="100px" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Center" UniqueName="max_suplenh" DataField="max_suplenh">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Fee" ColumnEditorID="txtFee_Edit" HeaderStyle-Width="50px"

UniqueName="program_fee" DataField="program_fee" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="50px">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Minimum" ColumnEditorID="txtMinimum_Edit"

HeaderStyle-Width="80px" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Right" UniqueName="prog_fee_flr" ItemStyle-Width="80px" DataField="prog_fee_flr">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Freq." ColumnEditorID="txtProgFreq_Edit" HeaderStyle-Width="50px"

UniqueName="prog_fee_freq" ItemStyle-Width="50px" DataField="prog_fee_freq" ItemStyle-HorizontalAlign="Center">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Cycle" ColumnEditorID="txtProgCycle_Edit"

HeaderStyle-Width="50px" ItemStyle-Width="50px" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center" UniqueName="prog_fee_cycle" DataField="prog_fee_cycle">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Fee " ColumnEditorID="txtCreditFee_Edit" HeaderStyle-Width="50px"

UniqueName="loc_fee" DataField="loc_fee" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="50px">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Comm. Pct" ColumnEditorID="txtCommPct_Edit"

HeaderStyle-Width="100px" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" UniqueName="loc_comm_pct" DataField="loc_comm_pct">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Commitment Flr." ColumnEditorID="txtCommitment_Edit"

HeaderStyle-Width="100px" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Center" UniqueName="loc_comm_flr" DataField="loc_comm_flr">

</telerik:GridNumericColumn>

<telerik:GridDateTimeColumn HeaderText="Trigger Dt." ColumnEditorID="txtTriggerDate"

DataField="loc_flr_reached" UniqueName="loc_flr_reached" HeaderStyle-HorizontalAlign="Center"

DataFormatString="{0:MM/dd/yyyy}" HeaderStyle-Width="100px" ItemStyle-HorizontalAlign="Center" ItemStyle-VerticalAlign="Bottom">

</telerik:GridDateTimeColumn>

<telerik:GridNumericColumn HeaderText="Freq. " ColumnEditorID="txtCreditFrequency_Edit"

HeaderStyle-Width="60px" ItemStyle-Width="55px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" UniqueName="loc_fee_freq" DataField="loc_fee_freq">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Cycle " ColumnEditorID="txtCreditCycle_Edit"

HeaderStyle-Width="60px" ItemStyle-Width="55px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" UniqueName="loc_fee_cycle" DataField="loc_fee_cycle">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Liquidity Coverage" ColumnEditorID="txtLiquidCoverage_Edit"

HeaderStyle-Width="90px" ItemStyle-Width="85px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" UniqueName="liq_coverage" DataField="liq_coverage">

</telerik:GridNumericColumn>

<telerik:GridDateTimeColumn HeaderText="Processed Through" ColumnEditorID="txtProcessed"

DataField="processed_through" UniqueName="processed_through" HeaderStyle-HorizontalAlign="Center"

DataFormatString="{0:MM/dd/yyyy}" HeaderStyle-Width="100px" ItemStyle-HorizontalAlign="Center" ItemStyle-VerticalAlign="Middle">

</telerik:GridDateTimeColumn>

<telerik:GridBoundColumn HeaderText="Holiday Group" ColumnEditorID="txtHolidayGroup"

UniqueName="holiday_group" DataField="holiday_group" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="50px" HeaderStyle-Width="50px">

</telerik:GridBoundColumn>

<telerik:GridDropDownColumn HeaderText="Product Code" ColumnEditorID="drpProductCode"

UniqueName="productcode" HeaderStyle-Width="70px" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="60px">

</telerik:GridDropDownColumn>

<telerik:GridDropDownColumn HeaderText="Currency <br/> Code" ColumnEditorID="drpCurrency"

UniqueName="drpCurrency" ItemStyle-Width="130px" HeaderStyle-Wrap="true" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="140px">

</telerik:GridDropDownColumn>

<telerik:GridCheckBoxColumn HeaderText="Book Value Accrual

Interest Flag" UniqueName="chkBookValue" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="110px" ColumnEditorID="chkBookValue"></telerik:GridCheckBoxColumn>

<telerik:GridTemplateColumn HeaderStyle-Width="70px" HeaderStyle-HorizontalAlign="Center"

ItemStyle-HorizontalAlign="Center" ItemStyle-Width="70px" HeaderText="Rule Categories">

<ItemTemplate>

<telerik:RadButton Height="18px" ToggleType="None" ButtonType="StandardButton" ID="cmdRuleCategory"

OnClick="cmdRuleCategory_Click" runat="server" Width="15px" Text="--">

</telerik:RadButton>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderStyle-Width="55px" HeaderStyle-HorizontalAlign="Center"

ItemStyle-HorizontalAlign="Center" ItemStyle-Width="55px" HeaderText="Assign Rating">

<ItemTemplate>

<telerik:RadButton Height="18px" ID="cmdAssignRate" OnClick="cmdRuleCategory_Click"

Width="15px" runat="server" Text="--">

</telerik:RadButton>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridNumericColumn HeaderText="Fiscal End Month" ColumnEditorID="txtFiscalEndMonth_Edit"

HeaderStyle-Width="90px" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="80px" HeaderStyle-HorizontalAlign="Center" UniqueName="FiscalYearEndMonth" DataField="FiscalYearEndMonth">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Fiscal End Month" ColumnEditorID="txtFiscalEndDay_Edit"

HeaderStyle-Width="90px" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="80px" HeaderStyle-HorizontalAlign="Center" UniqueName="FiscalYearEndDay" DataField="FiscalYearEndDay">

</telerik:GridNumericColumn>

<telerik:GridNumericColumn HeaderText="Hard Close Year" ColumnEditorID="txtCloseYear_Edit"

HeaderStyle-Width="90px" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="80px" HeaderStyle-HorizontalAlign="Center" UniqueName="HardCloseYear" DataField="HardCloseYear">

</telerik:GridNumericColumn>

<telerik:GridBoundColumn HeaderText="GLClose Date" ColumnEditorID="txtCloseDay_Edit"

UniqueName="GLCloseDate" DataFormatString="{0:MM/dd/yyyy}" ItemStyle-HorizontalAlign="Center" DataField="GLCloseDate" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="60px" HeaderStyle-Width="70px">

</telerik:GridBoundColumn>

<telerik:GridTemplateColumn HeaderStyle-VerticalAlign="Middle" HeaderStyle-Width="90px" HeaderStyle-HorizontalAlign="Center"

ItemStyle-HorizontalAlign="Center" HeaderText="Update User">

<ItemTemplate>

<telerik:RadTextBox ID="txtUpdateUser" runat="server" Width="90px" Text="<%#

Bind('UpdateUser') %>" ReadOnly="true" EnabledStyle-HorizontalAlign="Center" CssClass="readonly">

</telerik:RadTextBox>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderStyle-VerticalAlign="Middle" HeaderStyle-Width="150px" ItemStyle-HorizontalAlign="Center"

HeaderStyle-HorizontalAlign="Center" HeaderText="Update Date/time">

<ItemTemplate>

<telerik:RadTextBox ID="txtUpdateDate" runat="server" Width="140px" Text='<%#

Bind("UpdateDateTime","{0:MM/dd/yyyy H:mm:ss}") %>' ReadOnly="true" CssClass="readonly" EnabledStyle-HorizontalAlign="Center">

</telerik:RadTextBox>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderStyle-Width="130px" HeaderStyle-VerticalAlign="Middle" HeaderStyle-HorizontalAlign="Center"

ItemStyle-HorizontalAlign="Center" headertext="Add User">

<ItemTemplate>

<telerik:RadTextBox ID="txtAddUser" CssClass="readonly" runat="server" Width="120px" Text="<%#

Bind('AddUser') %>" ReadOnly="true" EnabledStyle-HorizontalAlign="Center">

</telerik:RadTextBox>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderStyle-Width="150px" HeaderText="Add Date/Time" HeaderStyle-VerticalAlign="Middle" HeaderStyle-HorizontalAlign="Center">

<ItemTemplate>

<telerik:RadTextBox ID="txtAddDateTime" runat="server" CssClass="readonly" Width="140px" Text='<%#

Bind("AddDateTime","{0:MM/dd/yyyy H:mm:ss}") %>' ReadOnly="true" EnabledStyle-HorizontalAlign="Center">

</telerik:RadTextBox>

</ItemTemplate>

</telerik:GridTemplateColumn>

<telerik:GridTemplateColumn HeaderStyle-Width="190px" HeaderText="Add/Update Process" HeaderStyle-HorizontalAlign="Center" HeaderStyle-VerticalAlign="Middle"

ItemStyle-HorizontalAlign="Center">

<ItemTemplate>

<telerik:RadTextBox ID="txtAddUpdatePro" runat="server" CssClass="readonly" Width="180px" Text="<%#

Bind('AppName')%>" ReadOnly="true">

</telerik:RadTextBox>

</ItemTemplate>

</telerik:GridTemplateColumn>

</Columns>

</MasterTableView>

<ClientSettings AllowKeyboardNavigation="true" >

<KeyboardNavigationSettings AllowSubmitOnEnter="false" EnableKeyboardShortcuts="false" />

<Selecting AllowRowSelect="True" />

<Scrolling AllowScroll="true" UseStaticHeaders="true" />

<ClientEvents OnRowDblClick="RowDblClick" />

</ClientSettings>

<HeaderStyle Wrap="true" />

</telerik:RADGrid>

<telerik:GridTextBoxColumnEditor runat="server" ID="txtProgIdentifier">

</telerik:GridTextBoxColumnEditor>

<telerik:GridDropDownListColumnEditor runat="server" ID="drpProgSponsor" DropDownStyle-Width="270">

<DropDownStyle Width="270px" />

</telerik:GridDropDownListColumnEditor>

<telerik:GridTextBoxColumnEditor runat="server" ID="txtProgramName" TextBoxStyle-Width="290px">

</telerik:GridTextBoxColumnEditor>

<telerik:GridDateTimeColumnEditor runat="server" ID="txtProgramStart" TextBoxStyle-CssClass="txtlongdate">

</telerik:GridDateTimeColumnEditor>

<telerik:GridDateTimeColumnEditor runat="server" ID="txtProgramEnd" TextBoxStyle-CssClass="txtlongdate">

</telerik:GridDateTimeColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtMaxProviders_Edit">

<NumericTextBox runat="server" ID="txtMaxProviders" MaxLength="10">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtMaxSwing_Edit">

<NumericTextBox runat="server" ID="txtMaxSwing" MaxLength="16">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtMaxLetter_Edit">

<NumericTextBox runat="server" ID="txtMaxLetter" MaxLength="16">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtMaxLiquid_Edit">

<NumericTextBox runat="server" ID="txtMaxLiquid" MaxLength="16">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtMaxSupp_Edit">

<NumericTextBox runat="server" ID="txtMaxSupp" MaxLength="16">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtLiquidCoverage_Edit">

<NumericTextBox runat="server" ID="txtLiquidCoverage">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridDateTimeColumnEditor runat="server" ID="txtProcessed" TextBoxStyle-CssClass="txtlongdate">

</telerik:GridDateTimeColumnEditor>

<telerik:GridTextBoxColumnEditor runat="server" ID="txtHolidayGroup">

</telerik:GridTextBoxColumnEditor>

<telerik:GridCheckBoxColumnEditor ID="chkBookValue" runat="server">

</telerik:GridCheckBoxColumnEditor>

<telerik:GridDropDownListColumnEditor runat="server" ID="drpProductCode">

</telerik:GridDropDownListColumnEditor>

<telerik:GridDropDownListColumnEditor runat="server" ID="drpCurrency">

</telerik:GridDropDownListColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtFiscalEndMonth_Edit">

<NumericTextBox runat="server" ID="txtFiscalEndMonth" MaxLength="2">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtFiscalEndDay_Edit">

<NumericTextBox runat="server" ID="txtFiscalEndDay" MaxLength="2">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtCloseYear_Edit">

<NumericTextBox runat="server" ID="txtCloseYear" MaxLength="4">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridTextBoxColumnEditor runat="server" ID="txtCloseDay_Edit">

</telerik:GridTextBoxColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtCreditFee_Edit">

<NumericTextBox runat="server" ID="txtCreditFee">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtCommPct_Edit">

<NumericTextBox runat="server" ID="txtCommPct">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtCommitment_Edit">

<NumericTextBox runat="server" ID="txtCommitment" MaxLength="4">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridDateTimeColumnEditor runat="server" ID="txtTriggerDate">

</telerik:GridDateTimeColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtCreditFrequency_Edit">

<NumericTextBox runat="server" ID="txtCreditFrequency">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

<telerik:GridNumericColumnEditor runat="server" ID="txtCreditCycle_Edit">

<NumericTextBox runat="server" ID="txtCreditCycle" MaxLength="4">

</NumericTextBox>

</telerik:GridNumericColumnEditor>

</div>

<telerik:RadWindow ID="rwIssue" runat="server" VisibleStatusbar="false" ReloadOnShow="true">

</telerik:RadWindow>

<asp:HiddenField ID="hidKeyPress" runat="server" Value="" />

<asp:HiddenField ID="hidRowID" runat="server" Value="" />

<asp:HiddenField ID="hidIsEditable" runat="server" Value="False" />

<asp:HiddenField ID="hidEditRowID" runat="server" Value="" />

</telerik:RadAjaxPanel>

</div>

</form>

</body>

</html>

Imports System.Data

Imports System.Data.SqlClient

Imports Telerik.Web.UI

Partial Class Default2

Inherits System.Web.UI.Page

Private mCurrencyDT As DataTable

Private mProgramSetupDT As DataTable

Private mSponserDT As DataTable

Private mEditedRowID As String

Protected Sub dgdPrgSetup_ItemCommand(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles dgdPrgSetup.ItemCommand

Try

Dim editedItem As GridDataItem

If e.CommandName.ToString() = "Edit" Then

editedItem = DirectCast(e.Item, GridDataItem)

mEditedRowID = editedItem.GetDataKeyValue("issue_id").ToString()

End If

mCurrencyDT.Constraints.Clear()

mCurrencyDT.ReadXmlSchema("Currency.xsd")

mCurrencyDT.ReadXml("Currency.xml")

mSponserDT.Constraints.Clear()

mSponserDT.ReadXmlSchema("Sponser.xsd")

mSponserDT.ReadXml("Sponser.xml")

OverWriteProgramSetupTable()

dgdPrgSetup.DataSource = mProgramSetupDT

Catch ex As Exception

End Try

End Sub

Protected Sub dgdPrgSetup_ItemCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles dgdPrgSetup.ItemCreated

Dim gdItem As GridEditableItem

Dim lastCtrlIsYear As Boolean

If (e.Item.ItemType = GridItemType.Header) Then

Dim headerItem As GridHeaderItem = DirectCast(e.Item, GridHeaderItem)

Dim newHeaderItem As New GridHeaderItem(headerItem.OwnerTableView, -1, -1)

Dim THead As GridTHead = DirectCast(headerItem.NamingContainer, GridTHead)

Dim dummyCell As New TableHeaderCell()

newHeaderItem.Cells.Add(dummyCell)

dummyCell = New TableHeaderCell()

newHeaderItem.Cells.Add(dummyCell)

For Each cell As TableCell In headerItem.Cells

If cell.Text.Equals("Fee") Then

cell.ColumnSpan = 4

cell.Text = "Program Fees"

cell.ForeColor = Drawing.Color.Blue

cell.Attributes.Add("style", "text-align:center;font-weight:bold;")

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Fee"

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Minimum") Then

cell.Text = ""

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Minimum"

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Freq.") Then

cell.Text = ""

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Freq."

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Cycle") Then

cell.Text = ""

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Cycle"

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Fee ") Then

cell.ColumnSpan = 6

cell.Text = "Letter of Credit Fees"

cell.ForeColor = Drawing.Color.Blue

cell.Attributes.Add("style", "text-align:center;font-weight:bold")

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Fee"

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Comm. Pct") Then

cell.Text = ""

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Comm. Pct"

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Commitment Flr.") Then

cell.Text = ""

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Commitment Flr."

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Trigger Dt.") Then

cell.Text = ""

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Trigger Dt."

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Freq. ") Then

cell.Text = ""

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Freq. "

newHeaderItem.Cells.Add(extraCell)

ElseIf cell.Text.Equals("Cycle ") Then

cell.Text = ""

Dim extraCell As New TableHeaderCell()

extraCell.Text = "Cycle "

newHeaderItem.Cells.Add(extraCell)

Else

cell.RowSpan = 2

End If

If (cell.Text = "") Then

cell.Attributes.Add("style", "display:none")

End If

Next

THead.Controls.Add(newHeaderItem)

End If

If e.Item.ItemType = GridItemType.EditItem Then

gdItem = DirectCast(e.Item, GridEditableItem)

For Each ctrl As Control In gdItem.Controls

If ctrl.GetType().ToString() = "Telerik.Web.UI.GridTableCell" Then

For Each childCtrl As Control In ctrl.Controls

Select Case childCtrl.GetType().ToString()

Case "Telerik.Web.UI.RadDatePicker"

With TryCast(childCtrl, RadDatePicker)

SetDatePicker(TryCast(childCtrl, RadDatePicker), e.Item.ItemIndexHierarchical)

End With

Case "Telerik.Web.UI.RadComboBox"

With TryCast(childCtrl, RadComboBox)

SetRadCombo(TryCast(childCtrl, RadComboBox), e.Item.ItemIndexHierarchical)

End With

Case "Telerik.Web.UI.RadNumericTextBox"

If Not TryCast(childCtrl, RadNumericTextBox).ReadOnly Then

With TryCast(childCtrl, RadNumericTextBox)

SetNumericText(TryCast(childCtrl, RadNumericTextBox), e.Item.ItemIndexHierarchical)

lastCtrlIsYear = (.ID.ToLower() = "rntb_hardcloseyear")

End With

End If

Case "System.Web.UI.WebControls.TextBox"

If Not TryCast(childCtrl, System.Web.UI.WebControls.TextBox).ReadOnly Then

'If lastCtrlIsYear Then

' gdItem("hdnCloseYear").Text = TryCast(childCtrl, TextBox).ClientID

' lastCtrlIsYear = False

'End If

SetAttribRadTextBox(TryCast(childCtrl, System.Web.UI.WebControls.TextBox), e.Item.ItemIndexHierarchical, TryCast(childCtrl, System.Web.UI.WebControls.TextBox).ClientID.Substring(TryCast(childCtrl, System.Web.UI.WebControls.TextBox).ClientID.LastIndexOf(

"_") + 1))

End If

End Select

Next

End If

Next

If hidIsEditable.Value = "False" Then

hidIsEditable.Value = "True"

hidEditRowID.Value = e.Item.ItemIndex

End If

End Sub

Protected Sub cmdRuleCategory_Click(ByVal sender As Object, ByVal e As System.EventArgs)

Dim issueRT As RadTextBox = Nothing

Dim issueId As String = String.Empty

Dim indexDataset As Integer

Dim selectedDataRowCollection() As DataRow

Dim dtRow As DataRow

Dim UserCtrlFlag As String

'OverWriteProgramSetupTable()

indexDataset = DirectCast(DirectCast(DirectCast(DirectCast

(sender, Telerik.Web.UI.RadButton).Parent, System.Web.UI.Control).BindingContainer, System.Web.UI.Control), Telerik.Web.UI.GridDataItem).DataSetIndex

selectedDataRowCollection = mProgramSetupDT.Select(1 = 1, "", DataViewRowState.Added + DataViewRowState.Unchanged + DataViewRowState.ModifiedOriginal)

dtRow = selectedDataRowCollection.GetValue(indexDataset)

issueId = dtRow("issue_Id").ToString().Trim

End Sub

Private Sub SetRadCombo(ByVal Ctrl As RadComboBox, ByVal rowIndexCtrl As String)

Select Case Ctrl.ID

Case "RCB_programsponsor"

Ctrl.Width = 290

Ctrl.OnClientSelectedIndexChanging = "valueChanged"

Case "RCB_productcode"

Ctrl.Width = 90

Ctrl.OnClientSelectedIndexChanging = "valueChanged"

Case "RCB_drpCurrency"

Ctrl.Width = 90

Ctrl.OnClientBlur = "CurrencyCodeValidation"

Ctrl.OnClientSelectedIndexChanging = "valueChanged"

End Select

End Sub

Private Sub SetDatePicker(ByVal Ctrl As RadDatePicker, ByVal rowIndexCtrl As String)

Select Case Ctrl.ID

Case "RDIPprogram_start"

Dim rdCdProgram As RadCalendarDay = New RadCalendarDay

Ctrl.Attributes.Add("onkeydown", "HidePopupStartDatePicker(" + rowIndexCtrl + ")")

Ctrl.Width = 110

Ctrl.DatePopupButton.Visible = True

Ctrl.Calendar.FastNavigationStep = 12

Ctrl.ShowPopupOnFocus = True

Ctrl.MinDate = "1/1/1800"

Ctrl.MaxDate = "1/1/3020"

Ctrl.DateInput.ID = "DateInput1"

Ctrl.DateInput.DateFormat = "MM/dd/yyyy"

Ctrl.DateInput.Attributes.Add("style", "text-align:center")

Ctrl.Style.Add("style", "text-align:center")

Ctrl.DateInput.DisplayDateFormat = "MM/dd/yyyy"

Ctrl.Calendar.ID = "Calendar1"

rdCdProgram.Repeatable = Calendar.RecurringEvents.Today

rdCdProgram.ItemStyle.BackColor = Drawing.Color.Green

Ctrl.Calendar.SpecialDays.Add(rdCdProgram)

Case "RDIPprogram_end"

Dim rdCdProgram As RadCalendarDay = New RadCalendarDay

Ctrl.Attributes.Add("onkeydown", "HideDatePickerPopup(" + rowIndexCtrl + ")")

Ctrl.Width = 110

Ctrl.Calendar.FastNavigationStep = 12

Ctrl.ShowPopupOnFocus = True

Ctrl.MinDate = "1/1/1800"

Ctrl.MaxDate = "1/1/3020"

Ctrl.DatePopupButton.Visible = True

Ctrl.ShowPopupOnFocus = True

Ctrl.DateInput.ID = "DateInput1"

Ctrl.DateInput.DateFormat = "MM/dd/yyyy"

Ctrl.DateInput.Attributes.Add("style", "text-align:center")

Ctrl.Style.Add("style", "text-align:center")

Ctrl.DateInput.DisplayDateFormat = "MM/dd/yyyy"

Ctrl.Calendar.ID = "Calendar1"

rdCdProgram.Repeatable = Calendar.RecurringEvents.Today

rdCdProgram.ItemStyle.BackColor = Drawing.Color.Green

Ctrl.Calendar.SpecialDays.Add(rdCdProgram)

Case "RDIPprocessed_through"

Dim rdCdProgram As RadCalendarDay = New RadCalendarDay

Ctrl.Attributes.Add("onkeydown", "HidePopupProcessedDatePicker(" + rowIndexCtrl + ")")

Ctrl.DatePopupButton.Visible = True

Ctrl.Width = 80

Ctrl.Calendar.FastNavigationStep = 12

Ctrl.ShowPopupOnFocus = True

Ctrl.MinDate = "1/1/1800"

Ctrl.MaxDate = "1/1/3020"

Ctrl.DateInput.ID = "DateInput3"

Ctrl.DateInput.DateFormat = "MM/dd/yyyy"

Ctrl.DateInput.Attributes.Add("style", "text-align:center")

Ctrl.DateInput.DisplayDateFormat = "MM/dd/yyyy"

Ctrl.Calendar.ID = "Calendar3"

rdCdProgram.Repeatable = Calendar.RecurringEvents.Today

rdCdProgram.ItemStyle.BackColor = Drawing.Color.Green

Ctrl.Calendar.SpecialDays.Add(rdCdProgram)

Case "RDIPloc_flr_reached"

Dim rdCdProgram As RadCalendarDay = New RadCalendarDay

Ctrl.Attributes.Add("onkeydown", "HidePopupTriggerDatePicker(" + rowIndexCtrl + ")")

Ctrl.DatePopupButton.Visible = True

Ctrl.Width = 90

Ctrl.Calendar.FastNavigationStep = 12

Ctrl.ShowPopupOnFocus = True

Ctrl.MinDate = "1/1/1800"

Ctrl.MaxDate = "1/1/3020"

Ctrl.ShowPopupOnFocus = True

Ctrl.DateInput.ID = "DateInput4"

Ctrl.DateInput.DateFormat = "MM/dd/yyyy"

Ctrl.DateInput.Attributes.Add("style", "text-align:center")

Ctrl.DateInput.DisplayDateFormat = "MM/dd/yyyy"

Ctrl.Calendar.ID = "Calendar4"

rdCdProgram.Repeatable = Calendar.RecurringEvents.Today

rdCdProgram.ItemStyle.BackColor = Drawing.Color.Green

Ctrl.Calendar.SpecialDays.Add(rdCdProgram)

End Select

End Sub

Private Sub SetNumericText(ByVal Ctrl As RadNumericTextBox, ByVal rowIndexCtrl As String)

Select Case Ctrl.ID.ToLower()

Case "rntb_max_providers"

Ctrl.Width = 90

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Right

Ctrl.MaxLength = 10

Ctrl.NumberFormat.DecimalDigits = 0

Ctrl.Attributes.Add("style", "text-align:right;")

Case "rntb_max_swline"

Ctrl.Width = 100

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Right

Ctrl.MaxLength = 16

Ctrl.NumberFormat.AllowRounding = True

Ctrl.NumberFormat.DecimalDigits = 2

Ctrl.NumberFormat.KeepNotRoundedValue = True

Ctrl.Attributes.Add("style", "text-align:right;")

Case "rntb_max_loc"

Ctrl.Width = 110

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.MaxLength = 16

Ctrl.NumberFormat.AllowRounding = True

Ctrl.NumberFormat.DecimalDigits = 2

Ctrl.NumberFormat.KeepNotRoundedValue = True

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Right

Case "rntb_max_lqloan"

Ctrl.Width = 130

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.MaxLength = 16

Ctrl.NumberFormat.AllowRounding = True

Ctrl.NumberFormat.DecimalDigits = 2

Ctrl.NumberFormat.KeepNotRoundedValue = True

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Right

Case "rntb_max_suplenh"

Ctrl.Width = 130

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Right

Ctrl.MaxLength = 16

Ctrl.NumberFormat.AllowRounding = True

Ctrl.NumberFormat.DecimalDigits = 2

Ctrl.NumberFormat.KeepNotRoundedValue = True

Case "rntb_program_fee"

Ctrl.MaxLength = 16

Ctrl.Width = 50

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Right

Ctrl.NumberFormat.DecimalDigits = 0

Case "rntb_prog_fee_flr"

Ctrl.NumberFormat.AllowRounding = True

Ctrl.NumberFormat.DecimalDigits = 2

Ctrl.NumberFormat.KeepNotRoundedValue = True

Ctrl.Attributes.Add("style", "text-align:right;")

Ctrl.MaxLength = 16

Ctrl.Width = 90

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Right

Case "rntb_prog_fee_freq"

Ctrl.MaxLength = 5

Ctrl.Width = 50

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.NumberFormat.DecimalDigits = 0

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Center

Ctrl.DataType = Type.GetType("System.Int64")

Ctrl.NumberFormat.DecimalDigits = 0

Ctrl.Attributes.Add("style", "text-align:center;")

Case "rntb_prog_fee_cycle"

Ctrl.MaxLength = 5

Ctrl.Width = 50

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.DataType = Type.GetType("System.Int64")

Ctrl.NumberFormat.DecimalDigits = 0

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Center

Case "rntb_loc_fee"

Ctrl.Width = 50

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.MaxLength = 10

Ctrl.Type = NumericType.Percent

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.NumberFormat.DecimalDigits = 3

'Ctrl.ClientEvents.OnFocus = "setRowSelection"

Ctrl.ClientEvents.OnFocus = "OnFocus"

Ctrl.ClientEvents.OnValueChanged = "OnValueChanged"

Ctrl.ClientEvents.OnBlur = "OnBlur"

Ctrl.Attributes.Add("style", "text-align:center;")

Case "rntb_loc_comm_pct"

Ctrl.MaxLength = 10

Ctrl.Width = 100

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.Type = NumericType.Percent

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.NumberFormat.DecimalDigits = 3

Ctrl.ClientEvents.OnFocus = "setRowSelection"

Ctrl.ClientEvents.OnFocus = "OnFocus"

Ctrl.ClientEvents.OnValueChanged = "OnValueChanged"

Ctrl.ClientEvents.OnBlur = "OnBlur"

Ctrl.Attributes.Add("style", "text-align:center;")

Case "rntb_loc_comm_flr"

Ctrl.MaxLength = 16

Ctrl.Width = 100

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Right

Ctrl.NumberFormat.AllowRounding = True

Ctrl.NumberFormat.DecimalDigits = 2

Ctrl.NumberFormat.KeepNotRoundedValue = True

Case "rntb_loc_flr_reached"

Case "rntb_loc_fee_freq"

Ctrl.MaxLength = 5

Ctrl.Width = 50

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.DataType = Type.GetType("System.Int64")

Ctrl.NumberFormat.DecimalDigits = 0

Ctrl.Attributes.Add("style", "text-align:center;")

Case "rntb_loc_fee_cycle"

Ctrl.MaxLength = 5

Ctrl.Width = 50

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.DataType = Type.GetType("System.Int64")

Ctrl.NumberFormat.DecimalDigits = 0

Ctrl.Attributes.Add("style", "text-align:center;")

Case "rntb_liq_coverage"

Ctrl.Width = 80

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.Type = NumericType.Percent

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.ClientEvents.OnFocus = "setRowSelection"

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Center

Ctrl.NumberFormat.DecimalDigits = 2

Ctrl.ClientEvents.OnFocus = "OnFocus"

Ctrl.ClientEvents.OnValueChanged = "OnValueChanged"

Ctrl.ClientEvents.OnBlur = "OnBlur"

Case "rntb_fiscalyearendmonth"

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.Width = 90

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Center

Ctrl.Attributes.Add("onkeydown", "setGlCloseDate(" + rowIndexCtrl + ")")

Ctrl.MaxLength = 2

Ctrl.DataType = Type.GetType("System.Int64")

Ctrl.NumberFormat.DecimalDigits = 0

Case "rntb_fiscalyearendday"

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Center

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.Width = 90

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.Attributes.Add("onkeydown", "setGlCloseDate(" + rowIndexCtrl + ")")

Ctrl.MaxLength = 2

Ctrl.DataType = Type.GetType("System.Int64")

Ctrl.NumberFormat.DecimalDigits = 0

Case "rntb_hardcloseyear"

Ctrl.SelectionOnFocus = SelectionOnFocus.SelectAll

Ctrl.NumberFormat.GroupSeparator = ""

Ctrl.Width = 90

Ctrl.EnabledStyle.HorizontalAlign = HorizontalAlign.Center

Ctrl.Attributes.Add("onblur", "setGlCloseDate(" + rowIndexCtrl + ")")

Ctrl.MaxLength = 4

Ctrl.DataType = Type.GetType("System.Int64")

Ctrl.NumberFormat.DecimalDigits = 0

Ctrl.Attributes.Add("style", "text-align:center;")

End Select

End Sub

Private Sub SetAttribRadTextBox(ByVal Ctrl As TextBox, ByVal rowIndexCtrl As String, ByVal CtrlID As String)

Select Case CtrlID

Case "ctl00"

Ctrl.MaxLength = 8

Ctrl.Width = 80

Ctrl.Attributes.Add("style", "text-align:Center;text-transform:uppercase;")

Case "ctl01"

Ctrl.MaxLength = 50

Ctrl.Width = 270

Case "ctl02"

Ctrl.MaxLength = 10

Ctrl.Width = 45

Ctrl.Attributes.Add("onblur", "HolidayValidation(" + rowIndexCtrl + "," + Ctrl.ClientID + ")")

Case "ctl03"

Ctrl.ReadOnly = True

Ctrl.Width = 65

Ctrl.ReadOnly = True

Ctrl.BackColor = Drawing.Color.Red

Ctrl.Attributes.Add("style", "text-align:Center;")

Case "ctl04"

Ctrl.MaxLength = 10

Ctrl.Width = 100

End Select

End Sub

Private Sub OverWriteProgramSetupTable()

Dim gridItm As GridDataItem

Dim dtRow As DataRow = Nothing

Dim selectedDataRowCollection() As DataRow

Dim checkBoxChecked As String

Dim startIndex As Integer

Dim endindex As Integer

startIndex = dgdPrgSetup.CurrentPageIndex * dgdPrgSetup.PageSize

endindex = startIndex + dgdPrgSetup.PageSize - 1

If mProgramSetupDT.Rows.Count > 0 Then

selectedDataRowCollection = mProgramSetupDT.Select(1 = 1, "", DataViewRowState.Added + DataViewRowState.Unchanged + DataViewRowState.ModifiedOriginal)

Dim j As Integer = 0

For i As Integer = startIndex To endindex

If i >= mProgramSetupDT.Select(1 = 1, "", DataViewRowState.Added + DataViewRowState.Unchanged + DataViewRowState.ModifiedOriginal).Length Then Exit For

gridItm = dgdPrgSetup.Items(j)

dtRow = selectedDataRowCollection.GetValue(i)

If gridItm.Edit Then

With DirectCast(gridItm("issue_id").Controls(0), TextBox)

If .Text.ToString.Trim <> dtRow("issue_id").ToString().Trim() Then

dtRow("issue_id") = .Text

End If

End With

With DirectCast(gridItm("programname").Controls(0), TextBox)

If .Text.ToString.Trim <> dtRow("program_name").ToString().Trim() Then

dtRow("program_name") = .Text

End If

End With

With DirectCast(gridItm("programsponsor").Controls(0), RadComboBox)

If .SelectedValue.ToString().Trim() <> dtRow("sponsor_id").ToString().Trim() Then

If Not IsNothing(.SelectedValue) Then

dtRow("sponsor_id") = .SelectedValue

Else

dtRow("sponsor_id") = DBNull.Value

End If

End With

With DirectCast(gridItm("program_start").Controls(0), RadDatePicker)

If .SelectedDate.ToString().Trim() <> dtRow("program_start").ToString().Trim() Then

If Not IsNothing(.SelectedDate) Then

dtRow("program_start") = .SelectedDate

Else

dtRow("program_start") = DBNull.Value

End If

End With

With DirectCast(gridItm("program_end").Controls(0), RadDatePicker)

If .SelectedDate.ToString().Trim() <> dtRow("program_end").ToString().Trim() Then

If Not IsNothing(.SelectedDate) Then

dtRow("program_end") = .SelectedDate

Else

dtRow("program_end") = DBNull.Value

End If

End With

With DirectCast(gridItm("max_providers").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("max_providers").ToString().Trim() Then

dtRow("max_providers") = .Text.ToString()

End If

End With

With DirectCast(gridItm("max_swline").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("max_swline").ToString().Trim() Then

dtRow("max_swline") = .Text

End If

End With

With DirectCast(gridItm("max_loc").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("max_loc").ToString().Trim() Then

dtRow("max_loc") = .Text

End If

End With

With DirectCast(gridItm("max_lqloan").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("max_lqloan").ToString().Trim() Then

dtRow("max_lqloan") = .Text

End If

End With

With DirectCast(gridItm("max_suplenh").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("max_suplenh").ToString().Trim() Then

dtRow("max_suplenh") = .Text

End If

End With

With DirectCast(gridItm("program_fee").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("program_fee").ToString().Trim() Then

dtRow("program_fee") = .Text

End If

End With

With DirectCast(gridItm("prog_fee_flr").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("prog_fee_flr").ToString().Trim() Then

dtRow("prog_fee_flr") = .Text

End If

End With

With DirectCast(gridItm("prog_fee_freq").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("prog_fee_freq").ToString().Trim() Then

dtRow("prog_fee_freq") = .Text

End If

End With

With DirectCast(gridItm("prog_fee_cycle").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("prog_fee_cycle").ToString().Trim() Then

dtRow("prog_fee_cycle") = .Text

End If

End With

With DirectCast(gridItm("loc_fee").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("loc_fee").ToString().Trim() Then

dtRow("loc_fee") = .Text

End If

End With

With DirectCast(gridItm("loc_comm_pct").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("loc_comm_pct").ToString().Trim() Then

dtRow("loc_comm_pct") = .Text

End If

End With

With DirectCast(gridItm("loc_comm_flr").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("loc_comm_flr").ToString().Trim() Then

dtRow("loc_comm_flr") = .Text

End If

End With

With DirectCast(gridItm("loc_flr_reached").Controls(0), RadDatePicker)

If .SelectedDate.ToString().Trim() <> dtRow("loc_flr_reached").ToString().Trim() Then

If Not IsNothing(.SelectedDate) Then

dtRow("loc_flr_reached") = .SelectedDate

Else

dtRow("loc_flr_reached") = System.DBNull.Value

End If

End With

With DirectCast(gridItm("loc_fee_freq").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("loc_fee_freq").ToString().Trim() Then

dtRow("loc_fee_freq") = .Text

End If

End With

With DirectCast(gridItm("loc_fee_cycle").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("loc_fee_cycle").ToString().Trim() Then

dtRow("loc_fee_cycle") = .Text

End If

End With

With DirectCast(gridItm("liq_coverage").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("liq_coverage").ToString().Trim() Then

dtRow("liq_coverage") = .Text

End If

End With

With DirectCast(gridItm("processed_through").Controls(0), RadDatePicker)

If .SelectedDate.ToString() <> dtRow("processed_through").ToString().Trim() Then

If Not IsNothing(.SelectedDate) Then

dtRow("processed_through") = .SelectedDate

Else

dtRow("processed_through") = System.DBNull.Value

End If

End With

With DirectCast(gridItm("holiday_group").Controls(0), TextBox)

If .Text.ToString.Trim <> dtRow("holiday_group").ToString().Trim() Then

dtRow("holiday_group") = .Text

End If

End With

With DirectCast(gridItm("productcode").Controls(0), RadComboBox)

If .SelectedValue.ToString().Trim() <> dtRow("product").ToString().Trim() Then

If Not IsNothing(.SelectedValue) Then

dtRow("product") = .SelectedValue

Else

dtRow("product") = DBNull.Value

End If

End With

With DirectCast(gridItm("drpCurrency").Controls(0), RadComboBox)

If .SelectedValue.ToString().Trim() <> dtRow("currency_type").ToString().Trim() Then

If Not IsNothing(.SelectedValue) Then

dtRow("currency_type") = .SelectedValue

Else

dtRow("currency_type") = DBNull.Value

End If

End With

With DirectCast(gridItm("chkBookValue").Controls(0), CheckBox)

If .Checked Then

checkBoxChecked = "T"

Else

checkBoxChecked = "F"

End If

If dtRow.RowState <> DataRowState.Added Then

If dtRow("BookValueAccrIntFlag", DataRowVersion.Original).ToString <> checkBoxChecked Then

dtRow("BookValueAccrIntFlag") = checkBoxChecked

End If

Else

dtRow("BookValueAccrIntFlag") = checkBoxChecked

End If

End With

With DirectCast(gridItm("FiscalYearEndMonth").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("FiscalYearEndMonth").ToString().Trim() Then

dtRow("FiscalYearEndMonth") = .Text

End If

End With

With DirectCast(gridItm("FiscalYearEndDay").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("FiscalYearEndDay").ToString().Trim() Then

dtRow("FiscalYearEndDay") = .Text

End If

End With

With DirectCast(gridItm("HardCloseYear").Controls(0), RadNumericTextBox)

If .Text.ToString.Trim <> dtRow("HardCloseYear").ToString().Trim() Then

dtRow("HardCloseYear") = .Text

End If

End With

With DirectCast(gridItm("GLCloseDate").Controls(0), TextBox)

If .Text.ToString.Trim <> dtRow("GLCloseDate").ToString().Trim() Then

dtRow("GLCloseDate") = .Text

End If

End With

End If

j = j + 1

Next

End If

End Sub

Protected Sub dgdPrgSetup_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles dgdPrgSetup.ItemDataBound

Dim drpProductCode As RadComboBox

Dim drpCurrencyCode As RadComboBox

Dim drpSponsorCode As RadComboBox

Dim programIdentifier As RadTextBox = Nothing

Dim programIdentifierLabel As Label = Nothing

Dim glCloseDateRT As RadTextBox = Nothing

Dim txtPrgName As RadTextBox = Nothing

Dim glCloseDate As String = Nothing

Dim dtRow As DataRow = Nothing

Dim selectedDataRowCollection() As DataRow

Dim gdItemSponsor As GridDataItem

Dim gdItemCurrency As GridDataItem

Dim gdItemProduct As GridDataItem

Dim gdItem As GridDataItem

If e.Item.ItemType = GridItemType.AlternatingItem OrElse e.Item.ItemType = GridItemType.Item Then

If e.Item.DataSetIndex >= 0 Then

selectedDataRowCollection = mProgramSetupDT.Select(1 = 1, "", DataViewRowState.Added + DataViewRowState.Unchanged + DataViewRowState.ModifiedOriginal)

dtRow = selectedDataRowCollection.GetValue(e.Item.DataSetIndex)

e.Item.Attributes.Add("onclick", "SelectGridRow('" + e.Item.ItemIndex.ToString() + "');")

If dtRow("GLCloseDate").ToString().Trim.Length > 0 Then

glCloseDateRT = DirectCast(e.Item.FindControl("txtCloseDay"), RadTextBox)

If Not IsNothing(glCloseDateRT) Then

glCloseDateRT.Text = CDate(dtRow("GLCloseDate")).ToString("MM/dd/yyyy")

End If

If dtRow("program_name").ToString().Trim.Length > 0 Then

txtPrgName = DirectCast(e.Item.FindControl("txtProgramName"), RadTextBox)

If Not IsNothing(txtPrgName) Then

txtPrgName.Text = dtRow("program_name").ToString().Trim()

End If

programIdentifier = DirectCast(e.Item.FindControl("txtProgIdentifier"), RadTextBox)

programIdentifierLabel = DirectCast(e.Item.FindControl("lblProgIdentifier"), Label)

If Not IsNothing(programIdentifier) Then

If dtRow.RowState = DataRowState.Added Then

programIdentifier.Visible = True

programIdentifierLabel.Visible = False

Else

programIdentifier.Visible = False

programIdentifierLabel.Visible = True

End If

If e.Item.ItemType = GridItemType.AlternatingItem Or e.Item.ItemType = GridItemType.Item Then

gdItemSponsor = e.Item

gdItemSponsor("programsponsor").Text = dtRow("sponsor_id").ToString

gdItemCurrency = e.Item

gdItemCurrency("drpCurrency").Text = dtRow("currency_type").ToString

gdItemProduct = e.Item

gdItemProduct("productcode").Text = dtRow("product").ToString

End If

ElseIf e.Item.ItemType = GridItemType.EditItem Then

gdItem = e.Item

gdItemSponsor = e.Item

drpSponsorCode = (DirectCast(gdItemSponsor("programsponsor").Controls(0), RadComboBox))

drpSponsorCode.DataSource = mSponserDT

drpSponsorCode.DataTextField = "sponsor_name"

drpSponsorCode.DataValueField = "sponsor_id"

drpSponsorCode.DataBind()

gdItemCurrency = e.Item

drpCurrencyCode = DirectCast(gdItemCurrency("drpCurrency").Controls(0), RadComboBox)

gdItemCurrency = e.Item

drpCurrencyCode.DataSource = mCurrencyDT

drpCurrencyCode.DataTextField = "CurrencyDesc"

drpCurrencyCode.DataValueField = "CurrencyCode"

drpCurrencyCode.DataBind()

drpProductCode = DirectCast(gdItemCurrency("productcode").Controls(0), RadComboBox)

drpProductCode.Items.Insert(0, New RadComboBoxItem("CP", "CP"))

drpProductCode.Items.Insert(0, New RadComboBoxItem("CLO", "CLO"))

drpProductCode.Items.Insert(0, New RadComboBoxItem("MCCP", "MCCP"))

drpProductCode.Items.Insert(0, New RadComboBoxItem("MCCLO", "MCCLO"))

dgdPrgSetup.MasterTableView.ClearSelectedItems()

gdItem.Selected = True

End If

End Sub

Private Sub CreateObject()

mProgramSetupDT = New DataTable

mSponserDT = New DataTable

mCurrencyDT = New DataTable

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

CreateObject()

If Not IsPostBack Then

mProgramSetupDT.ReadXmlSchema("MainGrid.xsd")

mProgramSetupDT.ReadXml("MainGrid.xml")

dgdPrgSetup.DataSource = mProgramSetupDT

dgdPrgSetup.DataBind()

Else

mProgramSetupDT.ReadXmlSchema("MainGrid.xsd")

mProgramSetupDT.ReadXml("MainGrid.xml")

End If

End Sub

End Class

General Discussions

answered on 03 Oct 2011

5 answers

99 views

Line chart not working properly.

I am using line charts.
i am binding list item to chat but its not working correctly.
Am getting 2 datatable , and trying to bind both on 1 chart. but it plotted wrong data.
1 dataset for 1 series and 2nd for another series.

1st Datatable having data as below which we add in 1st list.

Q1 08	150453000
Q2 08	158688000
Q4 08	1515
Q1 09	1000

2nd Datatable having data as below which we add in 2nd list.

Q4 08	2525
Q1 09	2000

1st one series its displaying correct but in 2nd there is no data for Q1 08 and Q2 08 still its plotting line chart from Q1 08 to Q2 08. it should plot from Q4 08 to Q1 09. :(

Below is my code... if somthing is missing then plz let me know.

for(int MainSeries = 0 ; MainSeries < 2 ; MainSeries ++)
{
DataTable chardata= gettingdata();
CharSeries series = gettingseries here;
List<String> lAxislabel = new List<String> ();

if(chardata!=null)
{
    foreach(DataRaw drv in chardata.Rows)
    {
        //Adding ding values to list
        lAxislabel.Add[drv[Xvalue].Tostring();
        ChartSeriesItem item = new ChartSeriesItem ();
        //Adding values fot chartseriesitem
        item.YValue = Math.Round(double.Parce(drv[Yvalue].toString(),1);
        series.item.Add(item);
    }
}

if(lAxislabel.count >0 )
{
    ChartAxisitem[] lsXAxis = new ChartAxisitem[lAxislabel.count];
    for(int i=0;i<lAxislabel.count;i++)
    {
        lsXAxis [i] = new ChartAxisitem(lAxislabel[i]);
    }

//objChart is chart object
objChart.Autolayout = true;
objChart.series.Add(series);
objChart.PlotArea.xAxis.AutoScale = false;

if(objChart.PlotArea.xAxis.items.count = 0)
objchart.PlotArea.xAxis.items.Addrange(lsXAxis );

objchart.PlotArea.xAxis.LayoutMode = ChartAxisLayoutMode.inside;
objChart.PlotArea.YAxis.AutoScale = true;

objchart.legend.Apperance.Visible = true.
}

}

Mainseries means 2 seres for which we are geeting data frm 2 different datatable.
may be there are some speeling mistake in above code but ignore thos ebcz am typing this code here only. above code is not cpy pasted from original code. so sorry for tthat and plzzzzzz help me... why 2nd series data is coming wrong :(

Chart (Obsolete)

answered on 03 Oct 2011

1 answer

83 views

Documentation Request

Can someone whip up a block confirm sample for drag\drop please?

Like is there no way for you to elegantly do it like the RadButtons implimentation?

function confirmOnDragItem_Dropping(sender, args) {

var callBackFunction = Function.createDelegate(sender, function (shouldSubmit) {

if (shouldSubmit) {

//Allow it to happen

}

});

var text = "Are you sure you wish to move this item?";

radconfirm(text, callBackFunction, 300, 100, null, "RadConfirm");

args.set_cancel(true);

}

Does it need the bloated block confirm instead?...I mean I know it probably does, but can you make it easier like the above scenario (in the RadButtons case you call a click method if shouldSubmit.

TreeList

answered on 03 Oct 2011

1 answer

80 views

Header caption and columnName

Reffering to this thread (http://www.telerik.com/community/forums/aspnet-ajax/grid/header-caption.aspx) I re-ask the question , not sure if you've seen it..

and i re-write main points here:
1) I want to show header caption taken from my datasource (dataset) caption field, grid shows columnName by default
Answer: in this od thread (http://www.telerik.com/community/forums/aspnet-ajax/grid/column-names-are-shown-instead-of-column-captions.aspx)
ok

2) as i click on a row, header captions go back to their colum names.
Answer:on radgrid_itemcommand radgrid.rebind
ok

3) unanswered

I've added a detailTable, it happens now that expanding a row to its child I have this scenario:
itemDataBound fires
(now I check e.Item.OwnerTableView.Name)
1. case is masterTableView -> everything is ok
2. case is detailView -> header captions of the masterTableView are not set (uniqueName is shown)

Really need it.
Thank you

Grid

answered on 03 Oct 2011

1 answer

73 views

Load panelbar

<telerik:RadPanelBar Height="400PX" runat="server" ID="RadPanelBar1" ExpandMode="FullExpandedItem" 

                    DataFieldID="Id" DataFieldParentID="Padre" DataSourceID="ObjectDataSource1" 

                    DataTextField="Nombre"  Skin="Windows7">

</telerik:RadPanelBar> 



<asp:ObjectDataSource ID="ObjectDataSource1" runat="server" 

                    SelectMethod="cargarMenu" TypeName="PL.Util.cliente">

</asp:ObjectDataSource>











public List<

cliente> cargarMenu()

{

List<cliente> misClientes = new List<cliente>();

List<cms_spSeleccionarActivos_Result> resultadoActivos = listarActivos();

List<cms_spSeleccionarInactivos_Result> resultadoInactivos = listarInactivos();

cliente clienteActivo = new cliente(1, 0, "Activos");

cliente clienteInactivo = new cliente(2, 0, "Inactivos");

misClientes.Add(clienteActivo);

misClientes.Add(clienteInactivo);

foreach (cms_spSeleccionarActivos_Result item in resultadoActivos)

{

cliente miCliente = new cliente(item.cmr_id, Convert.ToInt32(item.ecm_id), item.cmr_nombre);

misClientes.Add(miCliente);

}

foreach (cms_spSeleccionarInactivos_Result item in resultadoInactivos)

{

cliente miCliente = new cliente(item.cmr_id, Convert.ToInt32(item.ecm_id), item.cmr_nombre);

misClientes.Add(miCliente);

}

return misClientes;

}

There's any way to load about 20,000 records into a RadPanelBar efficiently,my problem is that the application becomes very slow .

PanelBar

answered on 03 Oct 2011

4 answers

118 views

Items Selected Text Causing Problem

I have a screen in my application that has a multi-select RadComboBox which posts to a second application passing screen inputs as parameters. In the past the control would pass the text parameter as a comma delimited string to the second application with the selections (ie. 123, 321, 223, 112). After upgrading to 2011.2.915.35 this behavior has changed and now after more than 3 items are select the text is switching to "4 Items Selected". In addition, my customer has asked to have the list display so they can directly edit the choices. So, is there a property I can set to achieve the old behavior showing the comma delimited choices regardless the number of selected items?

Thanks,
Shane

ComboBox

answered on 03 Oct 2011

8 answers

248 views

RadEditor : Font Name : Initial value never gets set in Firefox 2.0

I have a ContentAreaCssFile that contains the following CSS:

    
            body  
        
            {  
        
                font-family:Verdana;  
        
                font-size:10px;  
        
            }

And on the Page Load event, I have the following code:

    
                var contentArea  =  editor.get_ContentArea();  
        
                if (contentArea != null)  
        
                {  
        
                    contentArea.style.fontFamily = "Verdana";  
        
                    contentArea.style.fontSize = "10px";  
        
                }

In IE 7, when the user clicks in the body of the Editor, the Font Name and Font Size get correctly set to "Verdana" and "10px".

However, in Firefox 2.0, then FontName never gets set. After clicking in the editor, it still says "FontName". Is this a Bug? Is there a work-around?

Editor

answered on 03 Oct 2011

1 answer

28 views

Change the insert area for DayView and WeekView

Hi,

In our application a resource can only have one reservation at one moment/time-slot.

Is it possible to get more valuable space (especially for the WeekView), by hiding the insert area for the DayView and WeekView, like the TimelineView.ShowInsertArea?

Cheers
Jani

Scheduler

answered on 03 Oct 2011

2 answers

138 views

Radgrid Filter has RadNumericTextBox change background color

Hello Support

I have an radgrid in which I have enable filter option on one column. And in filter textbox as RadNumericTextbox, every thing works fine but the Radnumerictextbox background color is always black which I want to make it White but it doesn't happens. Following code I have tried

protected void RadGrid1_ItemDataBound(object sender, GridItemEventArgs e)
    {
        if (e.Item is GridFilteringItem)
        {
            GridFilteringItem filterItem = e.Item as GridFilteringItem;
            RadNumericTextBox txtNumber = (RadNumericTextBox)filterItem["S1"].Controls[0];
            txtNumber.BackColor = System.Drawing.Color.White;
        }
    }

Please check and tell me what made it wrong...

Regards

ASIF

Grid

answered on 03 Oct 2011

1 answer

64 views

RadGrid Showing default coloums at design time

Hi,

When i darg and drop RadGrid from tollbox ,it is showing the dafult colums(Design time),

I don't want to see the default colums at design time inside the grid,

Is there any option avilable to turn of these default settings.

Please check the attached screen shot.

Regards
Kishore

Grid

answered on 03 Oct 2011

Top users last month