Commit inicial Ventas Productivo

RH/DocumentacionVencida.aspx.vb

@@ -0,0 +1,136 @@
+Imports System.Data
+Imports Extensiones
+
+
+Partial Class RH_DocumentacionVencida
+    Inherits ClsPaginas
+
+
+
+    Private Sub RH_DocumentacionVencida_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaCombos()
+            TxtFechaI.Text = Now.AddDays(-15).ToString("dd/MM/yyyy")
+            TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
+        End If
+    End Sub
+
+    Private Sub CargaCombos()
+
+
+        Dim objRh As New ClsRH
+        Dim objClientes As New ClsClientes
+        Dim objEdoc As New ClsEdoc
+
+
+        If objEdoc.DocumentacionElectronicaDDLGet(-1, UsuarioActual.CveEmpresa) Then
+            DDlDocumentacion.DataSource = objEdoc.DtResultados
+            DDlDocumentacion.DataBind()
+            DDlDocumentacion.Items.Insert(0, New ListItem("Seleccione una opción", "-1"))
+        End If
+
+        If objEdoc.DocumentacionElectronicaTipoGett(UsuarioActual.CveEmpresa) Then
+            DDLDocumentacionTipo.DataSource = objEdoc.DtResultados
+            DDLDocumentacionTipo.DataBind()
+            DDLDocumentacionTipo.Items.Insert(0, New ListItem("Seleccione una opción", "-1"))
+        End If
+
+        If objClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.Empresa.CveEmpresa) Then
+            DDLClientes.DataSource = objClientes.DtResultados 'DDlclientes
+            DDLClientes.DataBind()
+            DDLClientes.Items.Insert(0, New ListItem("Seleccione un cliente", "-1"))
+
+        End If
+
+        If objRh.GetPersonal(-1, UsuarioActual.Empresa.CveEmpresa) Then
+            DDLPersonal.DataSource = objRh.DtResultados
+            DDLPersonal.DataBind()
+            DDLPersonal.Items.Insert(0, New ListItem("Seleccione una opicon", "-1"))
+            'dttemp = objRh.DtResultados
+        End If
+
+
+        If objRh.GetPuestos() Then
+            DDLPuesto.DataSource = objRh.DtResultados.FiltraParametros(" CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa & " ")
+            DDLPuesto.DataBind()
+            DDLPuesto.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        End If
+
+
+        DDLSucursal.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
+        DDLSucursal.DataBind()
+        DDLSucursal.Items.Insert(0, New ListItem("Seleccione una sucursal", "-1"))
+
+        DdlPuesto.DataSource = GlobalDTPuestos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlPuesto.DataBind()
+
+        objClientes.Dispose()
+        objRh.Dispose()
+        objEdoc.Dispose()
+    End Sub
+
+    Private Sub CargaDatos()
+
+    End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        Dim objEDoc As New ClsEdoc
+
+        If objEDoc.DocumentacionVenciadaRepGet(DdlTipo.SelectedValue.ToEntero, DDLPersonal.SelectedValue.ToEntero, -1, UsuarioActual.Empresa.CveEmpresa, DDlDocumentacion.SelectedValue.ToEntero, DDLDocumentacionTipo.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DDLSucursal.SelectedValue.ToEntero, DDLPuesto.SelectedValue.ToEntero, DDLVencidos.SelectedValue.ToEntero) Then
+            GvDocumentos.DataSource = objEDoc.DtResultados
+        End If
+        objEDoc.Dispose()
+        GvDocumentos.DataBind()
+        UpGvDatos.Update()
+
+
+    End Sub
+
+    Protected Sub DdlTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipo.SelectedIndexChanged
+
+        'If DdlTipo.SelectedIndex = 0 Then
+        '    DDLClientes.Visible = False
+        '    DDLPersonal.Visible = False
+        '    DDLPuesto.Visible = False
+
+        '    LtlPersonal.Visible = False
+        '    LtlPuesto.Visible = False
+        '    LtlClietes.Visible = False
+
+        '    DDLPersonal.SelectedIndex = 0
+        '    DDLClientes.SelectedIndex = 0
+        '    DDLPersonal.SelectedIndex = 0
+
+        'End If
+
+        If DdlTipo.SelectedIndex = 0 Then
+            DDLClientes.Visible = False
+            DDLClientes.SelectedIndex = 0
+            LtlClietes.Visible = False
+
+            DDLPersonal.Visible = True
+            DDLPuesto.Visible = True
+
+            LtlPersonal.Visible = True
+            LtlPuesto.Visible = True
+
+        End If
+
+        If DdlTipo.SelectedIndex = 1 Then
+            DDLClientes.Visible = True
+
+            DDLPersonal.Visible = False
+            DDLPuesto.Visible = False
+
+            LtlPersonal.Visible = False
+            LtlPuesto.Visible = False
+            LtlClietes.Visible = True
+
+            DDLPersonal.SelectedIndex = 0
+            DDLPuesto.SelectedIndex = 0
+        End If
+
+
+        UpFiltros.Update()
+    End Sub
+End Class