RH/CatPersonal.aspx.vb

@@ -1136,7 +1136,7 @@ Partial Class RH_CatPersonal
         Dim continuar As Boolean = False
         Dim CvePersonal As Integer = 0
         Using ObjPersonal As New ClsRH()
-
+            ObjPersonal.IniciaTransacSQL()
             If ObjPersonal.AddPersonal("-1", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, "", TxtFechaIngreso.Text.ToDate,
                    DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, True, SalarioDiario,
                    SalarioDiario, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
@@ -1169,12 +1169,14 @@ Partial Class RH_CatPersonal
 
                 Next
 
-
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True
                 ISChange = True
+                ObjPersonal.Commit()
             Else
+                ObjPersonal.RollBack()
                 'Alert("El empleado a sido agregado satisfactoriamente", TipoMensaje.ToastInformacion, "", 0)
             End If
         End Using
@@ -1212,4 +1214,38 @@ Partial Class RH_CatPersonal
         End If
 
     End Sub
+
+    Protected Sub DdlSubProyectoAsignadoAdd_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignadoAdd.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 DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
+        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
 End Class