Compras marcar partidas con PSSAT diferente entre xml y producto alias

RH/Personal.aspx.vb

@@ -4671,12 +4671,17 @@ Partial Class RH_Personal
         Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy")
         Dim Solicitante As String = UsuarioActual.Nombre
         Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
+        Dim FechaPeriodo As String = GvRow.DataKey("Periodo")
+
+
+
+
         If Periodoingreso > PeriodoInicio Then
             anio = anio - 1
-        End If
-
-
-        Dim FechaPeriodo As String = String.Format("{0:dd/MM}/{1}", fechaIngreso, anio)
+        End If
+
+
+
         If File.Exists(RutaFormato) Then
 
             Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
@@ -6123,10 +6128,36 @@ Partial Class RH_Personal
         End If
         If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
             TxtFIPrimaVacacional.Text = "25"
-        End If
+        End If
+
+
+
         TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text
         TxtFactordeIntegracion.Text = ""
-        TxtFISalarioDiarioIntegrado.Text = ""
+        TxtFISalarioDiarioIntegrado.Text = ""
+
+
+
+        Dim objRH As New ClsRH
+
+        If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+            If objRH.DtResultados.Rows.Count > 0 Then
+
+                If objRH.DtResultados.Rows.Count > 0 Then
+                    TxtFIDiasVacaciones.Text = objRH.DtResultados(0)("Dias").ToString
+                Else
+                    TxtFIDiasVacaciones.Text = "6"
+                End If
+            Else
+
+            End If
+        End If
+
+        objRH.Dispose()
+
+
+
+
         RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
         UpFactordeintegracion.Update()
     End Sub