Commit inicial Ventas Productivo

Inventarios/RepReciclaje.aspx.vb

@@ -0,0 +1,125 @@
+Option Explicit On
+Option Strict On
+Imports System.Data
+Imports Extensiones
+Imports System.IO
+
+Partial Class Inventarios_RepReciclaje
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            InicializaValores()
+        End If
+    End Sub
+
+    Public Sub InicializaValores()
+        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
+        txtFechaF.Text = Now.ToShortDateString
+
+        'Carga Clientes
+        DdlCliente.setEsWebService(True)
+        DdlCliente.Attributes.Add("data-metodo", "getcliente")
+        DdlCliente.SelectedText = "Todos"
+        DdlCliente.SelectedValue = "-1"
+
+        'Carga PS
+        DdlPS.setEsWebService(True)
+        DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
+        DdlPS.SelectedText = "Todos"
+        DdlPS.SelectedValue = "-1"
+
+        'Carga Almacenes
+        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)")
+        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlAlmacen.DataBind()
+
+        'Cargo Proyectos
+        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
+        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlProyecto.DataBind()
+
+        CargaTipoCentroCosto()
+
+    End Sub
+
+    Private Sub CargaTipoCentroCosto()
+        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Sucursal:"
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Proyecto:"
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
+            DdlSubProyecto.Items.Clear()
+            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+            LblProyecto.InnerText = "Sucursal:"
+            LblSubProyecto.InnerText = "Proyecto:"
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+            LblProyecto.InnerText = "Proyecto:"
+            LblSubProyecto.InnerText = "Sucursal:"
+        End If
+    End Sub
+
+#Region "SELECTED INDEX CHANGE"
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlSubProyecto.Items.Clear()
+        If DdlProyecto.SelectedValue.ToEntero > 0 Then
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
+        End If
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSubProyecto.DataBind()
+    End Sub
+
+#End Region
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        Dim ObjInv As New ClsInventarios
+        If ObjInv.GetRemanufactura(DdlCliente.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero,
+                                   DdlProyecto.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
+                                   txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveUsuario) Then
+            GvDatos.DataSource = ObjInv.DtResultados
+        End If
+        ObjInv.Dispose()
+        GvDatos.DataBind()
+        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            GvDatos.Columns(5).HeaderText = "Sucursal"
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+            GvDatos.Columns(5).HeaderText = "Proyecto"
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+            GvDatos.Columns(5).HeaderText = "Sucursal/Proyecto"
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+            GvDatos.Columns(5).HeaderText = "Proyecto/Sucursal"
+        End If
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If UsuarioActual.Empresa.TipoContabilizacion.Contiene(1, 2) Then
+                e.Row.Cells(5).Text = e.Row.DBCampo("SubProyecto").ToString
+            End If
+        End If
+    End Sub
+    Protected Sub LnkReciclaje_Click(sender As Object, e As EventArgs)
+        Response.Redirect("/Inventarios/Remanufactura.aspx", True)
+        UppAddAcciones.Update()
+    End Sub
+End Class