DOT NET WORLD: 07/01/2012

<asp:GridView runat="server" ID="grdLaneDoors" ShowHeaderWhenEmpty="true"
AutoGenerateColumns="false" DataKeyNames="lane_assignment_id">
<Columns>

<asp:ButtonField Text="Print BOL" CommandName="p" HeaderText="" ButtonType="Button"
ControlStyle-Width="70Px">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Center"
ForeColor="Black" BorderColor="LightSkyBlue" BorderWidth="1px" />
<ItemStyle BorderColor="LightSkyBlue" BorderWidth="1px" HorizontalAlign="Center" />
</asp:ButtonField>
<asp:BoundField DataField="Created_dt" HeaderText="Created" DataFormatString="{0:MM/dd/yy hh:mm tt}"
HeaderStyle-Wrap="false" ItemStyle-Wrap="false">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>

<asp:BoundField DataField="door_no" HeaderText="Door #" HeaderStyle-Wrap="false"
ItemStyle-Wrap="true">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Center"
BorderColor="LightSkyBlue" BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Center" BorderColor="LightSkyBlue" />
</asp:BoundField>
<asp:BoundField DataField="door_name" HeaderText="Name" HeaderStyle-Wrap="false"
ItemStyle-Wrap="true">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>
<asp:BoundField DataField="direction" HeaderText="Direction" HeaderStyle-Wrap="false"
ItemStyle-Wrap="true">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>
<asp:BoundField DataField="Trailer_no" HeaderText="Trailer" HeaderStyle-Wrap="false"
ItemStyle-Wrap="true">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>
<asp:BoundField DataField="carrier" HeaderText="Carrier" HeaderStyle-Wrap="false"
ItemStyle-Wrap="true">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>
<asp:BoundField DataField="Going_to" HeaderText="Destination" HeaderStyle-Wrap="false"
ItemStyle-Wrap="true">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>
<asp:BoundField DataField="SupplierCustomer_name" HeaderText="Company" HeaderStyle-Wrap="false"
ItemStyle-Wrap="true">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>
<asp:BoundField DataField="supcustloc_name" HeaderText="Company Loc" HeaderStyle-Wrap="false"
ItemStyle-Wrap="true">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>
<asp:BoundField DataField="Clear_dt" HtmlEncode="false" HeaderText="Clear Date" DataFormatString="{0:MM/dd/yy hh:mm tt}"
HeaderStyle-Wrap="false" ItemStyle-Wrap="false">
<HeaderStyle BackColor="LightSkyBlue" Font-Bold="False" HorizontalAlign="Left" BorderColor="LightSkyBlue"
BorderWidth="1px" ForeColor="Black" />
<ItemStyle HorizontalAlign="Left" BorderColor="LightSkyBlue" />
</asp:BoundField>
</Columns>
</asp:GridView>

Public Sub fillGrid()
grdLaneDoors.DataSource = Nothing

Dim cmd As New SqlCommand("select * from [fnLaneAssignmentDoorsList]() where location_id=" & hdnLocationID.Value & " and facility_id=" & hdnFacilityID.Value & " and convert(date,Update_dt)<=convert(date,GETDATE()) order by Update_dt desc")
Dim dt As DataTable = DataConnect.GetInstance.GetDt(cmd)
grdLaneDoors.DataSource = dt
grdLaneDoors.DataBind()
End Sub

Private Sub grdLaneDoors_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles grdLaneDoors.RowCommand
Try
If e.CommandName = "p" Then
Dim id As Integer
id = Convert.ToInt32(grdLaneDoors.DataKeys(Convert.ToInt32(e.CommandArgument)).Value)
grdLaneDoors.SelectRow(Int32.Parse(e.CommandArgument.ToString()))
Dim html As String = createHTML(id)
Print(html)
End If
Catch ex As Exception
pnlGlobalMessage.Visible = True
lblGlobalMessage.Text = "A technical issue has occurred. A message has been sent to the development team. Sorry for the inconvenience."
lblGlobalMessage.Visible = True
Dim dt As DataTable = Session("user_session")
Worker.HandleError(ex, "Lane History Print", Int64.Parse(dt.Rows(0)("user_id")), Request.Browser.Browser.ToString())
End Try
End Sub

Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
'Verifies that the control is rendered
End Sub
Protected Function createHTML(ByVal id As Integer) As String
Dim html As String = "<table cellspacing='0' cellpadding='0' border='1'><tbody>" &
"<tr>" &
"<td valign='top' align='left'>" &
grdLaneDoors.HeaderRow.Cells(3).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.HeaderRow.Cells(4).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.HeaderRow.Cells(5).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.HeaderRow.Cells(6).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.HeaderRow.Cells(7).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.HeaderRow.Cells(8).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.HeaderRow.Cells(9).Text &
"</td>" &
"</tr>" &
"<tr>" &
"<td valign='top' align='left'>" &
grdLaneDoors.SelectedRow.Cells(3).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.SelectedRow.Cells(4).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.SelectedRow.Cells(5).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.SelectedRow.Cells(6).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.SelectedRow.Cells(7).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.SelectedRow.Cells(8).Text &
"</td>" &
"<td valign='top' align='left'>" &
grdLaneDoors.SelectedRow.Cells(9).Text &
"</td>" &
"</tr>" &
"</tbody></table>"
Dim con As String = "<table cellpadding='0' cellspacing='0' border='1'><tbody>" &
"<tr>" &
"<td valign='top' align='left'>Container ID</td>" &
"<td valign='top' align='left'>Container Number</td>" &
"<td valign='top' align='left'>Length</td>" &
"<td valign='top' align='left'>Width</td>" &
"<td valign='top' align='left'>Height</td>" &
"</tr>"
Dim ast As String = "<table cellpadding='0' cellspacing='0' border='1'><tbody>" &
"<tr>" &
"<td valign='top' align='left'>Container ID</td>" &
"<td valign='top' align='left'>Asset ID</td>" &
"<td valign='top' align='left'>Total</td>" &
"</tr>"
Dim astCntS As String = ""
Dim astCnt As Integer = 0
Dim dtCon As New DataTable
Dim dtAst As New DataTable
dtCon = DataConnect.GetInstance.GetDt("select tra.container_id,container_nbr,length,width,height, COUNT(*) from transactions tra" &
" inner join container con on tra.container_id=con.container_id" &
" where lane_assignment_id = " &
id.ToString() &
" group by tra.container_id,container_nbr,length,width,height")
For Each dr As DataRow In dtCon.Rows
con = con & "<tr>" &
"<td valign='top' align='left'>" &
dr("container_id").ToString() &
"</td>" &
"<td valign='top' align='left'>" &
dr("container_nbr").ToString() &
"</td>" &
"<td valign='top' align='left'>" &
dr("length").ToString() &
"</td>" &
"<td valign='top' align='left'>" &
dr("width").ToString() &
"</td>" &
"<td valign='top' align='left'>" &
dr("height").ToString() &
"</td>" &
"</tr>"
dtAst = DataConnect.GetInstance.GetDt("select distinct ast.container_id,ast.asset_id,ast.total from transactions tra" &
" inner join asset ast on ast.asset_id=tra.asset_id" &
" where lane_assignment_id=" &
id.ToString() &
" and tra.container_id=" &
dr("container_id").ToString())
astCnt += dtAst.Rows.Count
For Each dr1 As DataRow In dtAst.Rows
ast = ast & "<tr>" &
"<td valign='top' align='left'>" &
dr1("container_id").ToString() &
"</td>" &
"<td valign='top' align='left'>" &
dr1("asset_id").ToString() &
"</td>" &
"<td valign='top' align='left'>" &
dr1("total").ToString() &
"</td>" &
"</tr>"
Next
Next
con = con & "</tbody></table>"
ast = ast & "</tbody></table>"
astCntS = "Total number of assets: " & astCnt
html = html & "<br />" & con & "<br />" & astCntS & "<br />" & ast
Return html
End Function
Protected Sub Print(ByVal html As String)
Dim sb As New StringBuilder()
sb.Append("<script type = 'text/javascript'>")
sb.Append("window.onload = new function(){")
sb.Append("var printWin = window.open('','','left=0")
sb.Append(",top=0,width=900,height=800');")
sb.Append("printWin.document.write(""")
sb.Append(html)
sb.Append(""");")
sb.Append("printWin.document.close();")
sb.Append("printWin.focus();")
sb.Append("printWin.print();")
sb.Append("printWin.close();")
sb.Append("};")
sb.Append("</script>")
ClientScript.RegisterStartupScript(Me.[GetType](), "GridPrint", sb.ToString())
End Sub

DOT NET WORLD

Monday, July 23, 2012

SQL SERVER – Attach mdf file without ldf file in Database

Friday, July 20, 2012

Print Selected Row in GridView using VB.NET

Using Authorization with Swagger in ASP.NET Core

Translate