RH/Personal.aspx.vb

@@ -943,17 +943,26 @@ Partial Class RH_Personal
         DdlClienteAsistenciaC.Attributes.Add("onclick", "CargaClientes();")
         DdlClienteAsistenciaA.Attributes.Add("onclick", "CargaClientes();")
         CargaClientes()
-
+        Dim fechainicioasistencia As String
+        Dim fechaFinasistencia As String
+        If Now.Day >= 15 Then
+            fechainicioasistencia = String.Format("{0:01/MM/yyyy}", Now)
+            fechaFinasistencia = String.Format("{0:15/MM/yyyy}", Now)
+        Else
+            Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", Now).ToDateTime().AddDays(-1)
+            fechainicioasistencia = String.Format("{0:16/MM/yyyy}", dateendasis)
+            fechaFinasistencia = String.Format("{0:dd/MM/yyyy}", dateendasis)
+        End If
         If Request("FechaI") IsNot Nothing AndAlso IsDate(Request("FechaI")) Then
             txtFechaI.Text = Request("FechaI")
         Else
-            txtFechaI.Text = Now.ToShortDateString
+            txtFechaI.Text = fechainicioasistencia
         End If
 
         If Request("FechaF") IsNot Nothing AndAlso IsDate(Request("FechaF")) Then
             txtFechaF.Text = Request("FechaF")
         Else
-            txtFechaF.Text = Now.ToShortDateString
+            txtFechaF.Text = fechaFinasistencia
         End If
 
         If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
@@ -3177,13 +3186,14 @@ Partial Class RH_Personal
 #End Region
 
 
-#Region "I M P R I M I R     N O M I N A"
+#Region "I M P R I M I R     N O M I N A"
+
     Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
 
-        Dim LB = CType(sender, LinkButton)
-
-        ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "Recibo")
-
+        Dim LB = CType(sender, LinkButton)
+        ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")
+        ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")
+
     End Sub
 
 #End Region