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

Solicitud de traspaso, permiso eliminar solicitud de traspaso

Browse Source
This commit is contained in:
rakcsle
2020-12-30 10:13:36 -07:00
parent 7384cabd72
commit 7e99432d44
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Contratos/ContratoObra.aspx
View File

@@ -2420,7 +2420,7 @@
<asp:GridView ID="GvDatosVentasAvanceInternoMaquinaria" Visible="false" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
<Columns>
<asp:BoundField HeaderText="SubTipoActivoFijo" DataField="SubTipoActivoFijo" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="SubTipoActivoFijo" ItemStyle-Width="40%" DataField="SubTipoActivoFijo" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Horas" DataField="Horas" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Importe" DataField="Total" ItemStyle-CssClass="Texto Derecha" DataFormatString={0:N} />

3
Contratos/ContratoObra.aspx.vb
View File

@@ -2439,9 +2439,6 @@ Partial Class Contratos_ContratoObra
GvDatosVentasAvanceInternoMaquinaria.Visible = False
End If
GvDatosVentasAvanceInterno.Visible = True
Dim ObjContratos As New ClsContratos
If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2, CveRubro, UsuarioActual.CveEmpresa) Then

11
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -214,7 +214,11 @@ Partial Class Inventarios_TrasladoSolicitud
Else
TrGuia.Visible = False
End If
BtnEliminar.Visible = True
If UsuarioActual.TienePermisoProceso(313) Then
BtnEliminar.Visible = True
End If
BtnGuardar.Enabled = False
TxtObservaciones.Enabled = False
TxtFecha.Enabled = False
@@ -563,6 +567,8 @@ Partial Class Inventarios_TrasladoSolicitud
Dim CodigoPS As String = ""
'Aqui poner permiso para poder evitar permiso de traslado
If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
If ObjInventarios.DtResultados.Rows.Count > 0 Then
@@ -1037,9 +1043,6 @@ Partial Class Inventarios_TrasladoSolicitud
MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text)
CargaDatos()
RegistraScript("$('#ModalRechazarTraslado').modal('hide');")
End If
End Sub