AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compilación

Browse Source
This commit is contained in:
rakcsle
2023-08-24 18:17:05 -07:00
parent 435a92dea3
commit 27e778884e
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
RH/CatDocumentos.aspx.vb
View File

@@ -92,7 +92,7 @@ Partial Class RH_CatDocumentos
Property Estatus As Boolean
Get
If ViewState("Estatus") Is Nothing Then
Return 0
Return False
Else
Return DirectCast(ViewState("Estatus"), Boolean)
End If
@@ -220,21 +220,21 @@ Partial Class RH_CatDocumentos
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveDocumentacion = GvRow.DataKey("CveDocumentacion")
CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToEntero
Documentacion = GvRow.DataKey("Documentacion")
DocumentacionFormato = GvRow.DataKey("DocumentacionFormato")
CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo")
CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero
DocumentacionTipo = GvRow.DataKey("DocumentacionTipo")
Orden = GvRow.DataKey("Orden")
Estatus = GvRow.DataKey("Estatus")
Requerido = GvRow.DataKey("Requerido")
Orden = GvRow.DataKey("Orden").ToEntero
Estatus = Boolean.Parse(GvRow.DataKey("Estatus"))
Requerido = Boolean.Parse(GvRow.DataKey("Requerido"))
Txtdocumentacion.Text = Documentacion
TxtOrden.Text = Orden
TxtOrden.Text = Orden.ToString
TxtDiasLimite.Text = GvRow.DataKey("DiasLimite")
ChkAplicaDiasLimite.Checked = GvRow.DataKey("AplicaDiasLimite")
ChkAplicaFechaVencimiento.Checked = GvRow.DataKey("AplicaFechaVencimiento")
ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite"))
ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento"))
DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
@@ -306,7 +306,7 @@ Partial Class RH_CatDocumentos
Public Sub Remove_ClickDocumentacion(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion")
Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
Dim _documetacionFormato As String = GvRow.DataKey("DocumentacionFormato")
@@ -423,7 +423,7 @@ Partial Class RH_CatDocumentos
'Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
Dim separado As Char() = {"."}
Dim separado As Char() = {"."c}
Dim array() As String = DocumetacionFormato.Split(separado)
Dim extencion As String = ""