Commit inicial Ventas Productivo

Acarreos/RepAcarreosDetalle.aspx.vb

@@ -0,0 +1,159 @@
+Imports Extensiones
+Imports System.Data
+
+Partial Class Acarreos_RepAcarreosDetalle
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES"
+    Private Property Gpo As String
+        Get
+            If ViewState("Gpo") Is Nothing Then
+                Return "-1"
+            Else
+                Return ViewState("Gpo").ToString
+            End If
+        End Get
+        Set(value As String)
+            ViewState("Gpo") = value
+        End Set
+    End Property
+
+#End Region
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            txtFechaF.Text = Now.AddDays(0).ToShortDateString
+            txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+            CargaDdlChofer()
+            CargaDdlSubProyectoOrigen()
+            CargaDdlSubProyectoDestino()
+            CargaDdlUnidad()
+            CargaDdlTransportista()
+            CargaDdlMaterial()
+            CargaDdlNumContrato()
+            DdlAgrupador.SelectedValue = IfNull(Request("Grupo"), "1").ToString.ToEntero
+            DdlChofer.SelectedValue = IfNull(Request("CveChofer"), "-1").ToString.ToEntero
+            DdlSubProyectoOrigen.SelectedValue = IfNull(Request("CveSubProyectoOrigen"), "-1").ToString.ToEntero
+            DdlSubProyectoDestino.SelectedValue = IfNull(Request("CveSubProyectoDestino"), "-1").ToString.ToEntero
+            DdlTransportista.SelectedValue = IfNull(Request("CveTransportista"), "-1").ToString.ToEntero
+            DdlUnidad.SelectedValue = IfNull(Request("CveUnidad"), "-1").ToString.ToEntero
+            DdlMaterial.SelectedValue = IfNull(Request("CveMaterial"), "-1").ToString.ToEntero
+            DdlNumContrato.SelectedValue = IfNull(Request("CveAcarreoProyecto"), "-1").ToString.ToEntero
+            Gpo = IfNull(Request("Gpo"), "-1").ToString
+            txtFechaF.Text = IfNull(Request("FFinal"), "-1").ToString
+            txtFechaI.Text = IfNull(Request("FInicial"), "-1").ToString
+            CargaDatos()
+
+        End If
+    End Sub
+
+    Private Sub CargaDdlNumContrato()
+        Dim ObjAcar As New ClsAcarreos
+        If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
+            DdlNumContrato.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlNumContrato.DataSource = ObjAcar.DtResultados
+            DdlNumContrato.DataBind()
+        End If
+        ObjAcar.Dispose()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjAcar As New ClsAcarreos()
+        If ObjAcar.GetRepAcarreoDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, Gpo, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
+            GvDatos.DataSource = ObjAcar.DtResultados
+            GvDatos.DataBind()
+            Gpo = "-1"
+        End If
+        ObjAcar.Dispose()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDdlUnidad()
+        Dim ObjAcar As New ClsAcarreos()
+        If ObjAcar.GetUnidad(-1, 1, UsuarioActual.CveEmpresa,-1) Then
+            DdlUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlUnidad.DataSource = ObjAcar.DtResultados
+        End If
+        ObjAcar.Dispose()
+
+        DdlUnidad.DataBind()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDdlMaterial()
+        Dim ObjAcar As New ClsAcarreos()
+        If ObjAcar.GetMaterial(-1, 1, UsuarioActual.CveEmpresa) Then
+            DdlMaterial.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlMaterial.DataSource = ObjAcar.DtResultados
+        End If
+        ObjAcar.Dispose()
+        DdlMaterial.DataBind()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDdlChofer()
+        Dim ObjAcar As New ClsAcarreos()
+        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
+            DdlChofer.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlChofer.DataSource = ObjAcar.DtResultados
+            DdlChofer.DataBind()
+
+        End If
+        ObjAcar.Dispose()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDdlSubProyectoOrigen()
+        DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoOrigen.DataBind()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDdlSubProyectoDestino()
+        DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoDestino.DataBind()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDdlTransportista()
+        Dim ObjAcar As New ClsAcarreos()
+        If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
+            DdlTransportista.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlTransportista.DataSource = ObjAcar.DtResultados
+            DdlTransportista.DataBind()
+
+        End If
+        ObjAcar.Dispose()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim Css As String = "Texto"
+            e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Unidad")
+            e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("Volumen")
+            If e.Row.DBCampo("Folio") = "" Then
+                If DdlAgrupador.SelectedValue = 6 Or DdlAgrupador.SelectedValue = 7 Or DdlAgrupador.SelectedValue = 8 Then
+                    e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Gpo")
+                End If
+                e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("TotalVolumen")
+                e.Row.CssClass = "Totales"
+            End If
+            e.Row.FCLiteral("LtlVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlVolumen").Text, 2, , , TriState.True)
+            Dim Liga As String = $"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={e.Row.DataKey("CveAcarreo")}"
+            e.Row.FCLiteral("LtlFolio").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
+        End If
+    End Sub
+End Class
+
+