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

- ocultar no surte almacen

Browse Source
This commit is contained in:
rrene
2023-12-21 13:37:04 -07:00
parent 7300e070ba
commit e5dfa4d7da
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Planeacion/CatSubProyectos.aspx
View File

@@ -213,7 +213,7 @@
<label for="<%= ChkAplicaComercioExterior.ClientID.ToString()%>">¿Aplica Comercio Exterior?</label> <label for="<%= ChkAplicaComercioExterior.ClientID.ToString()%>">¿Aplica Comercio Exterior?</label>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6" id="divNoVerificaAlmacen" runat="server" visible="false">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkNoVerificaAlmacen" runat="server" CssClass="form-control" /> <asp:CheckBox ID="ChkNoVerificaAlmacen" runat="server" CssClass="form-control" />
<label for="<%= ChkNoVerificaAlmacen.ClientID.ToString()%>">¿No verifica almacén?</label> <label for="<%= ChkNoVerificaAlmacen.ClientID.ToString()%>">¿No verifica almacén?</label>

8
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -69,6 +69,10 @@ Partial Class CatSubProyectos
If UsuarioActual.Empresa.Funcionalidad(381).Trim() <> "" Then If UsuarioActual.Empresa.Funcionalidad(381).Trim() <> "" Then
DivDeshabilitaAutorizaciones.Visible = True DivDeshabilitaAutorizaciones.Visible = True
End If End If
If UsuarioActual.CveEmpresa = 119 Then
divNoVerificaAlmacen.Visible = True
End If
CargaProyecto() CargaProyecto()
CargaSegmentosNegocio() CargaSegmentosNegocio()
@@ -244,7 +248,7 @@ Partial Class CatSubProyectos
Dim index As Integer = Convert.ToInt32(e.CommandArgument) Dim index As Integer = Convert.ToInt32(e.CommandArgument)
Dim row As GridViewRow = GvDatos.Rows(index) Dim row As GridViewRow = GvDatos.Rows(index)
Dim SubProyecto = GvDatos.Rows(index).DataKey("SubProyecto").ToString Dim SubProyecto As String = GvDatos.Rows(index).DataKey("SubProyecto").ToString
Dim CveSegmento As Integer = ObjContpaQ.AddSegmentosNegocio(SubProyecto) Dim CveSegmento As Integer = ObjContpaQ.AddSegmentosNegocio(SubProyecto)
Dim CveSubProyecto As Integer = GvDatos.DataKeys(index).Value.ToString.ToEntero Dim CveSubProyecto As Integer = GvDatos.DataKeys(index).Value.ToString.ToEntero
Dim ErrorSubProyecto As Boolean = False Dim ErrorSubProyecto As Boolean = False
@@ -535,7 +539,7 @@ Partial Class CatSubProyectos
Dim DTExcel As New Data.DataTable Dim DTExcel As New Data.DataTable
Dim conn As Odbc.OdbcConnection = Nothing Dim conn As Odbc.OdbcConnection = Nothing
Dim ErrorExcel = False Dim ErrorExcel As Boolean = False
Try Try
conn = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & FilePath & ";") conn = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & FilePath & ";")