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

option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 10:21:50 -07:00
parent 1ab4b815cd
commit bf1317817c
11 changed files with 107 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Edoc/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
@@ -213,24 +213,23 @@ 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 = GvRow.DataKey("Estatus") = "True"
Requerido = GvRow.DataKey("Requerido") = "True"
Txtdocumentacion.Text = Documentacion
TxtOrden.Text = Orden
TxtOrden.Text = GvRow.DataKey("Orden")
TxtDiasLimite.Text = GvRow.DataKey("DiasLimite")
ChkAplicaDiasLimite.Checked = GvRow.DataKey("AplicaDiasLimite")
ChkAplicaDiasLimite.Checked = GvRow.DataKey("AplicaDiasLimite") = "True"
TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad")
ChkAplicaFechaVencimiento.Checked = GvRow.DataKey("AplicaFechaVencimiento")
ChkAplicaFechaVencimiento.Checked = GvRow.DataKey("AplicaFechaVencimiento") = "True"
DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
chkEstatus.Checked = Estatus
@@ -296,7 +295,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")
@@ -378,7 +377,7 @@ Partial Class RH_CatDocumentos
Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString.ToEntero
Dim DocumetacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim separado As Char() = {"."}
Dim separado As Char() = {"."c}
Dim array() As String = DocumetacionFormato.Split(separado)
Dim extencion As String = ""