RH/Personal.aspx.vb

@@ -1001,10 +1001,9 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaTiposContrato()
-        Dim dt As DataTable = GlobalDTTiposContrato
-        'dt.Columns.Add("txtoddl", GetType(String), "CodigoTipoContrato + ' ' + TipoContrato")
-        'DdlTipoContrato.DataSource = dt
-        'DdlTipoContrato.DataBind()
+        Dim dt As DataTable = GlobalDTTiposContrato
+        DdlTipoContrato.DataSource = dt
+        DdlTipoContrato.DataBind()
     End Sub
 
     Private Sub CargaTurno()
@@ -6208,7 +6207,12 @@ Partial Class RH_Personal
             Alert("Se actualizo el calculo de fonacot")
         End If
     End Sub
-    Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs)
+    Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs)
+        getdatosFI()
+        RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
+    End Sub
+    Private Sub getdatosFI()
+
         If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
             TxtFIAguinaldo.Text = "15"
         End If
@@ -6237,10 +6241,8 @@ Partial Class RH_Personal
                     End If
                 End If
             End Using
-        End If
-
-        RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
-        UpFactordeintegracion.Update()
+        End If
+        UpFactordeintegracion.Update()
     End Sub
     Private Sub calcularSDI()
         Dim SD As Decimal = TxtFISalariodiario.Text.ToDecimal()
@@ -6282,15 +6284,25 @@ Partial Class RH_Personal
             End If
         End Using
     End Sub
-    Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
-
+    Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
+
+        getdatosFI()
+
+        TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
+        calcularSDI()
+        TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
+        TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtSalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioPago.Text.ToDecimal()) Then
+            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
+
+
                 TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
                 TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
                 TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
                 TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
-                TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
+                TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
+
+                UpModSalario.Update()
                 UpDatos.Update()
                 Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
             End If