RH/Personal.aspx.vb

@@ -1020,6 +1020,39 @@ Partial Class RH_Personal
 
 #Region "Carga Combos"
 
+    Public Sub cargatipoTrabajador()
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveTipoTrabajador") = "-1"
+                drow("TipoTrabajadorB") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DdlTipoTrabajador.Items.Count() > 0 Then
+                    DdlTipoTrabajador.SelectedValueExist("-1")
+                End If
+                DdlTipoTrabajador.DataSource = dt
+                DdlTipoTrabajador.DataBind()
+            End If
+        End Using
+    End Sub
+
+    Protected Sub cargaagrodeptos()
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveDepartamento") = "-1"
+                drow("Departamento") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DDlAgroDepartamento.Items.Count() > 0 Then
+                    DDlAgroDepartamento.SelectedValueExist("-1")
+                End If
+                DDlAgroDepartamento.DataSource = dt
+                DDlAgroDepartamento.DataBind()
+            End If
+        End Using
+    End Sub
     Private Sub CargaEscolaridad()
         DdlEscolaridad.DataSource = GlobalDTEscolaridad
         DdlEscolaridad.DataBind()
@@ -1569,6 +1602,11 @@ Partial Class RH_Personal
                 DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString()
                 If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs())
                 DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
+                cargatipoTrabajador()
+                DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString())
+                cargaagrodeptos()
+                DDlAgroDepartamento.SelectedValueExist(drow("CveDepartamentoAgropecuaria").ToString())
+                ChkCharolaForanea.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE"))
                 DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString()
                 'Carga Nómina
                 TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
@@ -1783,6 +1821,8 @@ Partial Class RH_Personal
 
                 End If
 
+
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
                 'Agregar Cuentas Bancarias
                 ViewState("CvePersonal") = ObjPersonal.CvePersonal
 
@@ -1852,6 +1892,7 @@ Partial Class RH_Personal
                     ProcesaDTFamiliares(ObjPersonal)
                 End If
 
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 If Archivo.Exists Then
 
@@ -1944,6 +1985,16 @@ Partial Class RH_Personal
     Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsignado.SelectedIndexChanged
         CargaSubProyectoAsignado()
     End Sub
+    Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlSubProyectoAsignado.SelectedIndexChanged
+        cargatipoTrabajador()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
+        cargaagrodeptos()
+        UpDatos.Update()
+    End Sub
+
 
     Protected Sub DdlProyectoAsistenciaC_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaC.SelectedIndexChanged
         CargaSubProyectoAsistenciaC()