<%@PageTitle=""Language="VB"MasterPageFile="~/secureds_deals.master" %>
<%@RegisterAssembly="AjaxControlToolkit"Namespace="AjaxControlToolkit"TagPrefix="cc1" %>
<scriptrunat="server">
Protected DealId AsInteger = 0
Protected DealName AsString
Protected StartDate AsDate
Protected ContractDate AsDate
Protected ClosingDate AsDate
Protected SubmitRole AsString
Protected Status AsString
Protected OfferNumber AsInteger
Protected OfferType AsString
Protected OfferAmount AsString
Protected OfferDateTime AsDate
Protected PctDown AsInteger
Protected SuggestedClosingDate AsDate
Protected CompletePct AsInteger
Protected Guarantor AsString
Protected Contingencies AsString
Protected Notes AsString
Protected BuyersAgent AsString
Protected MostRecent AsBoolean
Protected OfferId AsInteger = 0
Protected Purchaser1 AsString
Protected DealShortName AsString
Protected StreetAddress1, StreetAddress2, City, State, Country, PostalCode AsString
Protected Purchaser1PersonKey, Purchaser2PersonKey, BuyersAgentPersonKey AsInteger
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs)
'Session("DealID") was passed in
If Session("DealID") <= 0 Or Session("DealName") = ""Then Server.Transfer("Deals.aspx")
 
IfNot IsPostBack Then PopulateOfferGrid()
lblDealID.Text = "Deal ID: " & Session("DealID")
lblDealName.Text = "Deal Name: " & Session("DealName")
 
 
'Must get seller from different stored procedure
'Seller1 = DirectCast(dataSet.Tables(2).Rows(0).ItemArray(0), String)
EndSub
ProtectedSub PopulateOfferGrid()
Dim Conn AsNew SqlConnection(dsNegotiationGrid.ConnectionString)
Dim dataSet AsNew DataSet()
Dim adapter As SqlDataAdapter
Dim CmdGetNegotiationData AsNew SqlCommand("procGetNegotiationsByIDSelect", Conn)
Dim dealidparam AsNew SqlParameter("@dealid", SqlDbType.Int)
CmdGetNegotiationData.CommandType = Data.CommandType.StoredProcedure
dealidparam.Value = CInt(Session("DealID"))
CmdGetNegotiationData.Parameters.Add(dealidparam)
dealidparam.Direction = Data.ParameterDirection.Input
Conn.Open()
adapter = New SqlDataAdapter(CmdGetNegotiationData)
Try
adapter.Fill(dataSet)
 
DealID = CInt(dataSet.Tables(0).Rows(0).ItemArray(0))
DealName = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(1), String)
StartDate = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(2), Date)
ContractDate = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(3), Date)
ClosingDate = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(4), Date)
DealShortName = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(5), String)
SubmitRole = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(6), String)
Status = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(7), String)
OfferNumber = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(8), Int16)
OfferType = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(9), String)
OfferDateTime = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(10), Date)
PctDown = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(11), Int16)
OfferAmount = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(12), Int32)
SuggestedClosingDate = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(13), String)
CompletePct = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(14), Int16)
Guarantor = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(15), String)
Contingencies = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(16), String)
Notes = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(17), String)
MostRecent = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(18), Boolean)
OfferId = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(19), Int32)
StreetAddress1 = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(20), String)
StreetAddress2 = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(21), String)
City = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(22), String)
State = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(23), String)
Country = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(24), String)
PostalCode = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(25), String)
Purchaser1 = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(26), String)
BuyersAgent = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(27), String)
Purchaser1PersonKey = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(28), Int32)
Purchaser2PersonKey = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(29), Int32)
BuyersAgentPersonKey = DirectCast(dataSet.Tables(0).Rows(0).ItemArray(30), Int32)
gvNegotiationGrid.DataSource = dataSet
gvNegotiationGrid.DataBind()
Catch
Conn.Close()
lblMessage.Text = "There have not been any offers yet."
EndTry
EndSub
Sub gvNegotiationGrid_RowCommand(ByVal sender AsObject, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs)
 
 
Dim rowindex AsInteger
rowindex = Convert.ToInt32(e.CommandArgument).ToString()
'Need Offer ID to pass to next page (DealSummary.aspx in session variable
'but don't want it to be in grid
'---------------------------------------------------------------------
'This would have worked if offerid was ij the grid
'Dim row As GridViewRow = CType(CType(e.CommandSource, Control).NamingContainer, GridViewRow)
'Session("offerid") = CType(CType(row.Cells(1), DataControlFieldCell).Text, Integer)
'Note: Cell(1) is column 2
'-----------------------------------------------------------------------
Dim row As GridViewRow = CType(CType(e.CommandSource, Control).NamingContainer, GridViewRow)
Session("offernumber") = CType(CType(row.Cells(1), DataControlFieldCell).Text, Integer)
'Note: Cell(1) is column 2 

Session("offerrownumber") = rowindex
If e.CommandName.Equals("Detail") Then
Response.Redirect("dealsummary.aspx")
EndIf
If e.CommandName="Respond"Then
Response.Redirect("respond.aspx")
EndIf
If e.CommandName = "Purchaser1"Then
Session("personid") = e.CommandArgument
Response.Redirect("peopledetail.aspx")
EndIf
If e.CommandName = "BuyersAgent"Then
Session("personid") = e.CommandArgument
Response.Redirect("peopledetail.aspx")
EndIf
EndSub
ProtectedSub gvNegotiationGrid_RowDataBound(ByVal sender AsObject, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
 
 
 
If e.Row.RowType = DataControlRowType.DataRow Then
Dim btnDetail As Button = DirectCast(e.Row.FindControl("btnDetail"), Button)
Dim btnRespond As Button = DirectCast(e.Row.FindControl("btnRespond"), Button)
Dim ShowLink AsBoolean = _
CType(DataBinder.Eval(e.Row.DataItem, "mostrecent"), Boolean) ' add to db
If ShowLink=FalseThen
btnDetail.Visible = "False"
btnRespond.Visible="False"
EndIf
EndIf
EndSubProtectedSub btnAddOffer_Click(ByVal sender AsObject, ByVal e As System.EventArgs)
 
Session("offerrownumber") = 0
Server.Transfer("dealsummary.aspx")
EndSub
</script>
<asp:ContentID="Content1"ContentPlaceHolderID="ContentPlaceHolder1"Runat="Server">
<asp:LabelID="lblDealID"runat="server"CssClass="label"Text=""></asp:Label><br/>
<asp:LabelID="lblDealName"runat="server"CssClass="label"Text=""></asp:Label>
<divstyle="margin-top:25px;margin-bottom:10px;">
<asp:ButtonID="btnAddOffer"runat="server"Text="Add Offer"onclick="btnAddOffer_Click"/><br/><br/>
<asp:LabelID="lblMessage"runat="server"Cssclass="label"Text=""></asp:Label>
</div>
<div>
<asp:GridViewID="gvNegotiationGrid"runat="server"HorizontalAlign="Center"CellPadding="4"GridLines="None"
Font-Names="Verdana,Arial"Font-Size="0.7em"AutoGenerateColumns="False"AutoGenerateSelectButton="false"
OnRowCommand="gvNegotiationGrid_RowCommand"
OnRowDataBound="gvNegotiationGrid_RowDataBound"EmptyDataText="NoData"ForeColor="#333333"><Columns>
<asp:BoundFieldDataField="offertype"
HeaderText="Type"/><asp:BoundFieldDataField="offernumber"
HeaderText="#"/>
<asp:TemplateFieldHeaderText="Purchaser1">
<ItemTemplate>
<asp:LinkbuttonID="btnPurchaser1"CommandName="Purchaser1"
CommandArgument="<%# Purchaser1PersonKey %>"runat="server"Text="<%# Purchaser1 %>"/>
</ItemTemplate>
</asp:TemplateField><asp:BoundFieldDataField="status"
HeaderText="Status"/><asp:BoundFieldHtmlEncode="false"DataFormatString="{0: $##,#}"DataField="offeramount"
HeaderText="Offer Amount"/><asp:BoundFieldDataField="pctdown"
HeaderText="% Down"/><asp:BoundFieldDataField="SuggestedClosingDate"
HeaderText="Suggested Close"/><asp:BoundFieldDataField="Guarantor"
HeaderText="Guarantor"/>
<asp:BoundFieldDataField="Notes"
HeaderText="Notes"/>
<asp:BoundFieldHtmlEncode="false"DataFormatString="{0:g}"DataField="offerdatetime"
HeaderText="Made On"/><asp:BoundFieldDataField="SubmitRole"
HeaderText="Role"/><asp:TemplateFieldHeaderText="Purchaser1">
<ItemTemplate>
<asp:LinkbuttonID="btnBuyersAgent"CommandName="BuyersAgent"
CommandArgument="<%# BuyersAgentPersonKey %>"runat="server"Text="<%# BuyersAgent %>"/>
</ItemTemplate>
</asp:TemplateField><asp:BoundFieldDataField="CompletePct"
HeaderText="Complete %"/><asp:BoundFieldDataField="mostrecent"
HeaderText=""Visible="false"/>
<asp:TemplateFieldHeaderText="Detail">
<ItemTemplate>
<asp:ButtonID="btnDetail"CommandName="Detail"
CommandArgument="<%# CType(Container, GridViewRow).RowIndex %>"runat="server"Text="Deal Summary"CssClass="gridbutton"
/>
</ItemTemplate>
</asp:TemplateField><asp:TemplateFieldHeaderText="Action">
<ItemTemplate>
<asp:ButtonID="btnRespond"CommandName="Respond"
CommandArgument="<%# CType(Container, GridViewRow).RowIndex %>"runat="server"Text="Respond"
CssClass="gridbutton"/>
</ItemTemplate>
</asp:TemplateField></Columns>
<RowStyleBackColor="#F7F6F3"ForeColor="#333333"BorderColor="#336699"BorderWidth="1"BorderStyle="Solid"/>
<FooterStyleBackColor="#5D7B9D"Font-Bold="True"ForeColor="White"/>
<PagerStyleBackColor="#284775"ForeColor="White"HorizontalAlign="Center"/>
<SelectedRowStyleBackColor="#E2DED6"Font-Bold="True"ForeColor="#333333"/>
<RowStyleHorizontalAlign="Center"/>
<HeaderStyleBorderColor="#336699"BorderStyle="Solid"BorderWidth="1px"Font-Names="Verdana"Font-Size="0.9em"HorizontalAlign="Center"VerticalAlign="Top"BackColor="#5D7B9D"Font-Bold="False"ForeColor="White"/>
<EditRowStyleBackColor="#999999"/>
<AlternatingRowStyleBorderColor="#336699"BorderStyle="Solid"BorderWidth="1px"HorizontalAlign="Center"BackColor="White"ForeColor="#284775"/>
</asp:GridView>
<asp:SqlDataSourceID="dsNegotiationGrid"runat="server"
ConnectionString="<%$ ConnectionStrings:DB_6056_securedeConnectionString %>">
</asp:SqlDataSource>
</div>
</asp:Content>