Commit inicial Ventas Productivo

OI/RepDesarrollo.aspx.vb

@@ -0,0 +1,117 @@
+Option Strict On
+
+Imports Extensiones
+Partial Class OI_RepDesarrollo
+    Inherits ClsPaginas
+
+    Private Sub OI_RepDesarrollo_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            TxtFechaFin.Text = Now.ToString("dd/MM/yyyy")
+            TxtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
+
+            CargaCombos()
+            CargaDatos()
+
+        End If
+    End Sub
+
+
+    Private Sub CargaCombos()
+
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, 2)
+        DdlUsuario.DataBind()
+        DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlUsuario.SelectedValueExist(UsuarioActual.CveUsuario)
+        'DdlResponsable.DataSource = GlobalDTUsuarios(-1, 2)
+        'DdlResponsable.DataBind()
+        'DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlModulo.DataSource = GlobalDTModulos()
+        DdlModulo.DataBind()
+        DdlModulo.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+
+
+    Private Sub CargaDatos()
+
+        Dim ObjDesarrollo As New ClsDesarrollo
+        Dim Descripcion As String = If(TxtDescripcion.Text.Trim.Length > 0, TxtDescripcion.Text.Trim, "-1")
+        If ObjDesarrollo.DesarrolloRepGet(-1, -1, -1, DdlModulo.SelectedValue.ToEntero, Descripcion, DdlUsuario.SelectedValue.ToEntero, -1, -1, TxtFechaI.Text.ToDate, TxtFechaFin.Text.ToDate) Then
+            GvDatos.DataSource = ObjDesarrollo.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        GvDatos.DataBind()
+        ObjDesarrollo.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 _CveUsaurioResponsable As Integer
+            Dim _CveUsaurioAsignado As Integer
+            Dim _CveUsaurioPruebas As Integer
+
+            Dim _CveDesarrollo As Integer = e.Row.DataKey("CveDesarrollo").ToEntero
+            Dim _CveDesarrolloEstado As Integer = e.Row.DataKey("CveDesarrolloEstado").ToString.ToEntero
+
+            Dim LnkEditar As LinkButton = e.Row.FCLinkButton("LnkEditar")
+            Dim LnkWizard As LinkButton = e.Row.FCLinkButton("LnkWizard")
+
+            Select Case e.Row.DataKey("CveDesarrolloEstado").ToString
+                Case "1"
+                    e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.Red
+                Case "2"
+                    e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.Black
+                    Exit Select
+                Case "3"
+                    e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.Blue
+                    Exit Select
+                Case "5"
+                    e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.DarkOrange
+                    Exit Select
+                Case "6"
+                    e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.Green
+                    Exit Select
+            End Select
+
+            _CveUsaurioResponsable = e.Row.DataKey("CveUsuarioResponsable").ToEntero
+            _CveUsaurioAsignado = e.Row.DataKey("CveUsuarioAsignado").ToEntero
+            _CveUsaurioPruebas = e.Row.DataKey("CveUsuarioPruebas").ToEntero
+
+            LnkEditar.PostBackUrl = $"./Desarrollo.aspx?CveDesarrollo={_CveDesarrollo}"
+            LnkEditar.Visible = False
+            LnkWizard.PostBackUrl = $"./DesarrolloWizard.aspx?CveDesarrollo={_CveDesarrollo}"
+            LnkWizard.Visible = False
+
+            If UsuarioActual.CveUsuario = _CveUsaurioAsignado Then
+                If (_CveDesarrolloEstado > 1 And _CveDesarrolloEstado < 3) Then
+                    LnkWizard.Visible = True
+                End If
+            End If
+
+            If UsuarioActual.CveUsuario = _CveUsaurioPruebas Then
+                If (_CveDesarrolloEstado > 1 And _CveDesarrolloEstado < 4) Then
+                    LnkWizard.Visible = True
+                End If
+            End If
+
+            If UsuarioActual.CveUsuario = _CveUsaurioResponsable Then
+                LnkEditar.Visible = True
+                If _CveDesarrolloEstado > 1 Then
+                    LnkWizard.Visible = True
+                End If
+            End If
+        End If
+    End Sub
+End Class