- si ya esta autorizdo, no se puede eliminar. y se corrige error al eliminar ya registrado

This commit is contained in:
rrene
2020-09-22 12:12:28 -07:00
parent b772b55de4
commit 721e07a0b2
2 changed files with 13 additions and 12 deletions

View File

@@ -4,10 +4,10 @@ Option Explicit On
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Inventarios_TrasladoSolicitud
Inherits ClsPaginas
Inherits ClsPaginas
#Region "Propiedades"
Private Property TempDT As DataTable
Get
@@ -64,10 +64,10 @@ Partial Class Inventarios_TrasladoSolicitud
End If
End If
End Sub
End Sub
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
CveTraspasoSolicitud = -1
@@ -140,10 +140,10 @@ Partial Class Inventarios_TrasladoSolicitud
'DdlProductoServicio.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
'DdlProductoServicio.DataBind()
'DdlProductoServicio.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
End Sub
#End Region
#Region " CARGA DATOS "
Private Sub CargaDatos()
Dim ObjInventarios As New ClsInventarios
@@ -158,7 +158,7 @@ Partial Class Inventarios_TrasladoSolicitud
LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString
TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString
TempDT = ObjInventarios.DtResultados
GvDatos.DataSource = ObjInventarios.DtResultados
GvDatos.DataBind()
@@ -269,6 +269,7 @@ Partial Class Inventarios_TrasladoSolicitud
LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
GvDatos.Columns(6).Visible = False ' se oculta la columna de eliminar
End If