Cambios nominas e inventarios

RH/Personal.aspx.vb

@@ -2036,6 +2036,17 @@ Partial Class RH_Personal
         Dim ObjPersonal As New ClsRH
         If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
             GVConceptos.DataSource = ObjPersonal.DtResultados
+            Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
+            If Not IsNothing(frow) Then
+                TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
+                DdlInfoTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
+
+                Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
+                TxtInfoDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
+                TxtInfoNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
+                TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
+                ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
+            End If
         Else
             GVConceptos.DataSource = Nothing
         End If
@@ -2093,6 +2104,32 @@ Partial Class RH_Personal
         End If
     End Sub
 
+    Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
+        Dim importe As Decimal = TxtInfoValor.Text.ToDecimal()
+        Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
+        Dim NoPagos As Integer = 0
+        Dim SaldoIni As Decimal = 0
+        Dim descripcion02 As String = TxtInfoDescripcion.Text
+        Dim descripcion01 As String = TxtInfoNumCredito.Text
+        Dim fecha As String = TxtInfoFechaInicio.Text.Replace("_", "")
+        Dim estatus As Integer = If(ChkInfo.Checked, 1, 0)
+        If fecha.Length > 8 Then
+            fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
+        Else
+            fecha = ""
+        End If
+        Dim OcurrioError As Boolean = False
+        Using ObjPersonal As New ClsRH
+
+            If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 3, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then
+                OcurrioError = True
+            End If
+        End Using
+        If Not OcurrioError Then
+            Alert("Se actualizo el calculo de infonavit")
+            CarcaConceptosNomina()
+        End If
+    End Sub
     Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click
         If CvePersonal > 0 Then
             Dim ObjPersonal As New ClsRH