Attached is code from a file in application. Code behind is further down.
HTML Code
<%@ Control Language="
vb" AutoEventWireup="false" Codebehind="Add_MasterAgreement.ascx.
vb" Inherits="Trade.Add_MasterAgreement" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<LINK href="FTS.css" type="text/css" rel="stylesheet">
<script language="javascript" src="include/jslib.
js"></script>
<table style="WIDTH: 656px; HEIGHT: 493px">
<tr>
<td class="txt_PageTitle" colSpan="2"> Add Master Agreement</td>
</tr>
<TR>
<td style="WIDTH: 17px" width="17"></td>
<td><asp:label id="lblMsg" CssClass="lbl_MessageFailure" Runat="server"></asp:label></td>
<TR>
<tr>
<td style="WIDTH: 17px" width="17"></td>
<td>Required fields are indicated by <IMG src="images/redball.gif">
</td>
</tr>
<tr>
<td style="WIDTH: 17px; HEIGHT: 339px"></td>
<td style="HEIGHT: 339px">
<table style="WIDTH: 628px; HEIGHT: 330px">
<tr>
<td class="lbl_SmallBold" style="WIDTH: 139px; HEIGHT: 24px">Program Provider:</td>
<td class="lbl_SmallBold" style="WIDTH: 338px; HEIGHT: 24px" colSpan="2"><asp:dropdownlist id="ddlPrgProv" CssClass="small" Runat="server" AutoPostBack="True" Width="241px"></asp:dropdownlist>
<IMG src="images/redball.gif"></td>
<td style="HEIGHT: 24px"></td>
</tr>
<tr>
<td class="lbl_SmallBold" style="WIDTH: 139px">FEIN #:</td>
<td style="WIDTH: 213px"><asp:label id="lblFEIN" CssClass="small" Runat="server"></asp:label></td>
<td class="lbl_SmallBold" style="WIDTH: 134px">Program Provider #:</td>
<td><asp:label id="lblTAA" CssClass="small" Runat="server"></asp:label><INPUT id="hidPPNumber" type="hidden" name="hidPPNumber" runat="server"></td>
</tr>
<tr>
<td class="lbl_SmallBold" style="WIDTH: 139px">Address :</td>
<td style="WIDTH: 213px"><asp:label id="lblAddr" CssClass="small" Runat="server"></asp:label></td>
<td class="lbl_SmallBold" style="WIDTH: 134px">City:
</td>
<td><asp:label id="lblCity" CssClass="small" Runat="server"></asp:label></td>
</tr>
<tr>
<td class="lbl_SmallBold" style="WIDTH: 139px">County :</td>
<td style="WIDTH: 213px"><asp:label id="lblCounty" CssClass="small" Runat="server"></asp:label></td>
<td class="lbl_SmallBold" style="WIDTH: 134px">State:
</td>
<td><asp:label id="lblState" CssClass="small" Runat="server"></asp:label></td>
</tr>
<TR>
<TD class="lbl_SmallBold" style="WIDTH: 139px">ZIP :</TD>
<TD class="small" style="WIDTH: 338px" colSpan="2">
<asp:label id="lblZIP" Runat="server" CssClass="small"></asp:label></TD>
<TD class="small" style="WIDTH: 171px" colSpan="3"></TD>
</TR>
<tr>
<td class="lbl_SmallBold" style="WIDTH: 139px">Master Agreement #:</td>
<TD class="small" style="WIDTH: 338px" colSpan="2">TAA-
<asp:label id="lblPPNumber" CssClass="small" Runat="server" Width="20px"></asp:label>-
<asp:dropdownlist id="ddlMAYear" CssClass="small" AutoPostBack="True" runat="server"></asp:dropdownlist><IMG src="images/redball.gif">
</TD>
<td class="small" style="WIDTH: 171px" colSpan="3"></td>
</tr>
<tr>
<td class="lbl_SmallBold" style="WIDTH: 139px">Start Date:</td>
<td class="small" style="WIDTH: 213px"><input class="small" id="txtStartD" style="WIDTH: 88px; HEIGHT: 22px" maxLength="10" size="9"
name="txtStartD" runat="server"><IMG src="images/redball.gif">
</td>
<td class="lbl_SmallBold" style="WIDTH: 134px">End Date:</td>
<td class="small"><input class="small" id="txtEndD" style="WIDTH: 88px; HEIGHT: 22px" maxLength="10" size="9"
name="txtEndD" runat="server"><IMG src="images/redball.gif">
</td>
</tr>
<tr>
<td class="lbl_SmallBold" style="WIDTH: 139px">Funds Commitment #:</td>
<td class="small" style="WIDTH: 213px"><input class="small" id="txtFC" readOnly maxLength="10" size="14" name="txtFC" runat="server"><IMG src="images/redball.gif">
</td>
<td class="lbl_SmallBold" style="WIDTH: 134px"></td>
<td class="small">
</td>
</tr>
<TR>
<TD class="lbl_SmallBold" style="WIDTH: 139px">Comments:</TD>
<TD class="small" colSpan="3"><TEXTAREA id="txtComments" name="txtComments" rows="4" cols="33" runat="server"></TEXTAREA></TD>
</TR>
</table>
</td>
</tr>
<tr>
<td style="WIDTH: 17px; HEIGHT: 1px" width="17"></td>
<td style="HEIGHT: 1px"> <asp:button id="btnSave" Runat="server" Text="Save"></asp:button>
<INPUT id="btnBack" type="button" value="Back" name="Button2" runat="server"></td>
</tr>
<tr>
<td style="WIDTH: 17px" width="17"></td>
<td>
</td>
</tr>
</table>
<P><asp:requiredfieldvalidator id="vldPP" runat="server" ControlToValidate="ddlPrgProv" Display="None" ErrorMessage="Please select Program Provider."></asp:requiredfieldvalidator><asp:requiredfieldvalid ator id="vldMayear" runat="server" ControlToValidate="ddlMAYear" Display="None" ErrorMessage="Please select Master Agreement year."></asp:requiredfieldvalidator><asp:requiredfieldvalid ator id="vlsStartD" runat="server" ControlToValidate="txtStartD" Display="None" ErrorMessage="Please enter Start Date."></asp:requiredfieldvalidator><asp:requiredfieldvalid ator id="vldEndD" runat="server" ControlToValidate="txtEndD" Display="None" ErrorMessage="Please enter End Date."></asp:requiredfieldvalidator><asp:requiredfieldvalid ator id="vldFC" runat="server" ControlToValidate="txtFC" Display="None" ErrorMessage="Please enter Funds Commitment #."></asp:requiredfieldvalidator><asp:regularexpressionv alidator id="vldValidStartDate" runat="server" ControlToValidate="txtStartD" Display="None"
ErrorMessage="Invalid Start Date." ValidationExpression="([0]?[1-9]|1[012])[/]([0]?[1-9]|[12][0-9]|3[01])[/](19|20)\d\d"></asp:regularexpressionvalidator><asp:regularexpress ionvalidator id="vldEndDate" runat="server" ControlToValidate="txtEndD" Display="None" ErrorMessage="Invalid End Date."
ValidationExpression="([0]?[1-9]|1[012])[/]([0]?[1-9]|[12][0-9]|3[01])[/](19|20)\d\d"></asp:regularexpressionvalidator><asp:comparevalidat or id="vldCompStartEndDate" runat="server" ControlToValidate="txtStartD" Display="None"
ErrorMessage="End Date should be greater than Start Date." ControlToCompare="txtEndD" Type="Date" Operator="LessThanEqual"></asp:comparevalidator><asp:regularexpressionvalidat or id="vldValidFC" runat="server" ControlToValidate="txtFC" Display="None" ErrorMessage="Invalid Funds Commitment Number."
ValidationExpression="\w{10}"></asp:regularexpressionvalidator></P>
<P><asp:validationsummary id="vldSummary" runat="server" HeaderText="Following errors have been found:" ShowSummary="False"
ShowMessageBox="True"></asp:validationsummary></P>
CODE BEHIND
Imports DataAccessAppBlock
Imports System.Data.SqlClient
Public MustInherit Class Add_MasterAgreement
Inherits System.Web.UI.UserControl
Protected WithEvents ddlPrgProv As System.Web.UI.WebControls.DropDownList
Protected WithEvents lblFEIN As System.Web.UI.WebControls.Label
Protected WithEvents txtStartD As System.Web.UI.HtmlControls.HtmlInputText
Protected WithEvents txtEndD As System.Web.UI.HtmlControls.HtmlInputText
Protected WithEvents txtFC As System.Web.UI.HtmlControls.HtmlInputText
Protected WithEvents txtComments As System.Web.UI.HtmlControls.HtmlTextArea
Protected WithEvents btnSave As System.Web.UI.WebControls.Button
Protected WithEvents lblMsg As System.Web.UI.WebControls.Label
Protected WithEvents vldPP As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents vldCompStartEndDate As System.Web.UI.WebControls.CompareValidator
Protected WithEvents vldValidFC As System.Web.UI.WebControls.RegularExpressionValidat or
Protected WithEvents vldSummary As System.Web.UI.WebControls.ValidationSummary
Protected WithEvents vldValidExeDate As System.Web.UI.WebControls.RegularExpressionValidat or
Protected WithEvents vldEndDate As System.Web.UI.WebControls.RegularExpressionValidat or
Protected WithEvents vldValidStartDate As System.Web.UI.WebControls.RegularExpressionValidat or
Protected WithEvents btnBack As System.Web.UI.HtmlControls.HtmlInputButton
Protected WithEvents vlsStartD As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents vldEndD As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents vldFC As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents lblCity As System.Web.UI.WebControls.Label
Protected WithEvents lblAddr As System.Web.UI.WebControls.Label
Protected WithEvents lblCounty As System.Web.UI.WebControls.Label
Protected WithEvents lblState As System.Web.UI.WebControls.Label
Protected WithEvents lblTAA As System.Web.UI.WebControls.Label
Protected WithEvents lblPPNumber As System.Web.UI.WebControls.Label
Protected WithEvents hidPPNumber As System.Web.UI.HtmlControls.HtmlInputHidden
Protected WithEvents vldMayear As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents ddlMAYear As System.Web.UI.WebControls.DropDownList
Protected WithEvents lblZIP As System.Web.UI.WebControls.Label
Dim strCon As String
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
strCon = ConfigurationSettings.AppSettings("ConnString")
lblMsg.Visible = False
btnBack.CausesValidation = False
If Not IsPostBack Then
'Load default data
Call Load_Data()
End If
End Sub
Private Sub Load_Data()
Dim dstPP As DataSet
Dim intI As Integer
'Get all parent program provider
Try
ddlPrgProv.Items.Add(New ListItem("(Select Program Provider)", ""))
dstPP = SqlHelper.ExecuteDataset(strCon, CommandType.StoredProcedure, "spTrade_get_All_Parent_ProgramProvider")
If dstPP.Tables(0).Rows.Count > 0 Then
For intI = 0 To dstPP.Tables(0).Rows.Count - 1
ddlPrgProv.Items.Add(New ListItem(dstPP.Tables(0).Rows(intI).Item("ProgramP roviderName"), _
dstPP.Tables(0).Rows(intI).Item("ProgramProviderID ")))
Next
End If
ddlMAYear.Items.Add(New ListItem("(Select Year)", ""))
ddlMAYear.Items.Add(New ListItem("97", 97))
ddlMAYear.Items.Add(New ListItem("98", 98))
ddlMAYear.Items.Add(New ListItem("99", 99))
For intI = 0 To 27
ddlMAYear.Items.Add(New ListItem(IIf(intI < 10, "0" & intI, intI), _
IIf(intI < 10, "0" & intI, intI)))
Next
Catch ex As Exception
ErrorLog.logError(ex.Message, "Add MasterAgreement", 1, Session("User_Id"))
lblMsg.Text = "Error while retrieving Program provider details."
lblMsg.Visible = True
End Try
End Sub
Private Sub ddlMAYear_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlMAYear.SelectedIndexChanged
txtFC.Value = "T0000" & lblPPNumber.Text.Trim & Right(ddlMAYear.SelectedValue, 1)
End Sub
Private Sub ddlPrgProv_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPrgProv.SelectedIndexChanged
Dim dstPP As DataSet
Try
If ddlPrgProv.SelectedIndex > 0 Then
dstPP = SqlHelper.ExecuteDataset(strCon, CommandType.StoredProcedure, _
"spTrade_get_ProgramProvider_FEIN", _
New SqlParameter("@PrgProvID", ddlPrgProv.SelectedItem.Value))
lblFEIN.Text = dstPP.Tables(0).Rows(0).Item("FEIN")
lblAddr.Text = dstPP.Tables(0).Rows(0).Item("Address")
lblCity.Text = dstPP.Tables(0).Rows(0).Item("City")
lblCounty.Text = dstPP.Tables(0).Rows(0).Item("CountyName")
lblState.Text = dstPP.Tables(0).Rows(0).Item("State")
lblTAA.Text = dstPP.Tables(0).Rows(0).Item("TAA_Number")
lblPPNumber.Text = dstPP.Tables(0).Rows(0).Item("TAA_Number")
lblZIP.Text = dstPP.Tables(0).Rows(0).Item("ZIP")
If Not IsDBNull(dstPP.Tables(0).Rows(0).Item("ZIP_PO")) And Trim(dstPP.Tables(0).Rows(0).Item("ZIP_PO")) <> "" Then
lblZIP.Text = lblZIP.Text & "-" & dstPP.Tables(0).Rows(0).Item("ZIP_po")
End If
If ddlMAYear.SelectedIndex > 0 Then
txtFC.Value = "T0000" + Trim(dstPP.Tables(0).Rows(0).Item("TAA_Number")) + Right(ddlMAYear.SelectedValue, 1)
Else
txtFC.Value = "T0000" + Trim(dstPP.Tables(0).Rows(0).Item("TAA_Number"))
End If
hidPPNumber.Value = Trim(dstPP.Tables(0).Rows(0).Item("TAA_Number"))
Else
lblFEIN.Text = ""
lblTAA.Text = ""
lblPPNumber.Text = ""
lblAddr.Text = ""
lblCity.Text = ""
lblCounty.Text = ""
lblState.Text = ""
txtFC.Value = ""
hidPPNumber.Value = ""
End If
Catch ex As Exception
ErrorLog.logError(ex.Message, "Add MasterAgreement", 2, Session("User_Id"))
lblMsg.Text = "Error while retrieving Program provider details."
lblMsg.Visible = True
End Try
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Try
Dim sMANumber As String
sMANumber = "TAA-" & lblPPNumber.Text.Trim & "-" & ddlMAYear.SelectedValue
If validateForm() Then
'Call store procedure to insert the MA record
SqlHelper.ExecuteNonQuery(strCon, CommandType.StoredProcedure, "spTrade_Insert_MasterAgreement", _
New SqlParameter("@PrgProvID", ddlPrgProv.SelectedItem.Value), _
New SqlParameter("@MANumber", sMANumber), _
New SqlParameter("@StartD", IIf(txtStartD.Value.Trim.Length = 0, "", txtStartD.Value.Trim)), _
New SqlParameter("@EndD", IIf(txtEndD.Value.Trim.Length = 0, "", txtEndD.Value.Trim)), _
New SqlParameter("@FCNo", txtFC.Value.Trim), _
New SqlParameter("@StatusID", 5), _
New SqlParameter("@Comments", txtComments.Value.Trim), _
New SqlParameter("@CreateUser", Session("User_ID")), _
New SqlParameter("@CreDate", System.DateTime.Now))
'Response.Redirect("List_MasterAgreement.aspx?Add_ Succ=Success")
lblMsg.Visible = True
lblMsg.Text = "Master Agreement Added Successfully."
lblMsg.CssClass = "lbl_Message"
btnSave.Enabled = False
End If
Catch ex As Exception
ErrorLog.logError(ex.Message, "Add MasterAgreement", 1, Session("User_Id"))
lblMsg.Text = "Error occured while adding MasterAgreement"
lblMsg.Visible = True
End Try
End Sub
Private Function validateForm() As Boolean
'Check for valid dates
If txtStartD.Value.Trim.Length > 0 Then
If Not IsDate(txtStartD.Value.Trim) Then
lblMsg.Text = "Invalid Start Date."
lblMsg.Visible = True
Return False
End If
End If
If txtEndD.Value.Trim.Length > 0 Then
If Not IsDate(txtEndD.Value.Trim) Then
lblMsg.Text = "Invalid End Date."
lblMsg.Visible = True
Return False
End If
End If
'Server side validation should be done here
Dim intC As Integer
intC = SqlHelper.ExecuteScalar(strCon, CommandType.StoredProcedure, "spTrade_get_Count_OF_MA", _
New SqlParameter("@MANumber", "TAA-" & lblPPNumber.Text.Trim & "-" & ddlMAYear.SelectedValue))
If intC > 0 Then
lblMsg.Visible = True
lblMsg.Text = "Duplicate Master Agreement number."
Return False
End If
If SqlHelper.ExecuteScalar(strCon, CommandType.StoredProcedure, "spTrade_get_Count_OF_FC_MA", New SqlParameter("@FCNumber", txtFC.Value.Trim)) > 0 Then
lblMsg.Visible = True
lblMsg.Text = "Duplicate Funds Commitment number."
Return False
End If
Return True
End Function
Private Sub btnBack_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.ServerClick
Response.Redirect("Action_MA.aspx")
End Sub
End Class