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