Commit inicial Ventas Productivo

Acarreos/RepAcarreos.aspx.vb

@@ -0,0 +1,131 @@
+Imports Extensiones
+Imports System.Data
+
+Partial Class Acarreos_RepAcarreos
+
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES"
+
+
+
+
+#End Region
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaDdlChofer()
+            CargaDdlSubProyectoOrigen()
+            CargaDdlSubProyectoDestino()
+            CargaDdlUnidad()
+            CargaDdlTransportista()
+            CargaDdlMaterial()
+            CargaDdlNumContrato()
+            txtFechaF.Text = Now.AddDays(0).ToShortDateString
+            txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+        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 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
+            DdlUnidad.DataBind()
+
+        End If
+        ObjAcar.Dispose()
+        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 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
+            DdlMaterial.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 GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Css As String = "Texto"
+            If e.Row.DBCampo("Gpo") = "" Then
+                e.Row.Visible = False
+            End If
+            If e.Row.DBCampo("Gpo") = "Total" And e.Row.RowIndex <> 0 Then
+                e.Row.Visible = False
+            End If
+            If e.Row.RowIndex = 0 Then
+                e.Row.CssClass = "Totales"
+            End If
+
+            e.Row.FCLiteral("LtlTotalVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlTotalVolumen").Text, 2, , , TriState.True)
+
+            Dim Liga As String = $"/Acarreos/RepAcarreosDetalle.aspx?&Gpo={e.Row.DBCampo("Gpo")}&CveUnidad={e.Row.DBCampo("CveUnidad")}&CveSubProyectoOrigen={e.Row.DBCampo("CveSubProyectoOrigen")}&CveChofer={e.Row.DBCampo("CveChofer")}&CveTransportista={e.Row.DBCampo("CveTransportista")}&FFinal={e.Row.DBCampo("FehaFin")}&FInicial={e.Row.DBCampo("FechaInicio")}&Grupo={e.Row.DBCampo("Grupo")}&CveSubProyectoDestino={e.Row.DBCampo("CveSubProyectoDestino")}&CveMaterial={e.Row.DBCampo("CveMaterial")}&CveAcarreoProyecto={e.Row.DBCampo("CveAcarreoProyecto")}"
+            e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"
+        End If
+    End Sub
+
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        Dim ObjAcar As New ClsAcarreos()
+        If ObjAcar.GetRepAcarreo(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
+            GvDatos.DataSource = ObjAcar.DtResultados
+            GvDatos.DataBind()
+        End If
+        ObjAcar.Dispose()
+        UPDatos.Update()
+    End Sub
+End Class