This is a migrated thread and some comments may be shown as answers.

[Solved] RadGrid Alignment Issue in IE7 ,Works fine in IE8

1 Answer 166 Views

General Discussions

This is a migrated thread and some comments may be shown as answers.

Ramesh kumar Kuppusamy asked on 03 Oct 2011, 10:49 AM

ie8.JPG

ie7.JPG

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

[Solved] RadGrid Alignment Issue in IE7 ,Works fine in IE8

1 Answer, 1 is accepted