diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 2a9ab0bf8..d8084033f 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -306,13 +306,14 @@ Public Class ClsOIEventos
End Function
- Public Function GetUnoaUnoCuestionario(cveUnoaUnoCuestionario As Int32, cveUsuario As Int32) As Boolean
+ Public Function GetUnoaUnoCuestionario(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_OI_UnoaUnoCuestionarioGet", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario)
.Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa)
End With
Try
SqlAdapter.Fill(Data)
@@ -337,7 +338,7 @@ Public Class ClsOIEventos
End Try
Return retorno
End Function
- Public Function AddUnoaUnoCuestionario(Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer)) As Boolean
+ Public Function AddUnoaUnoCuestionario(Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer), CveEmpresa As Integer) As Boolean
Dim retorno As Boolean = False
Dim xmlPreguntas As System.Xml.Linq.XDocument = Nothing
@@ -349,6 +350,7 @@ Public Class ClsOIEventos
.Add("@Cuestionario", SqlDbType.VarChar).Value = (Cuestionario)
.Add("@Comentario", SqlDbType.VarChar).Value = (Comentario)
.Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa)
.Add("@xmlPreguntas", SqlDbType.Xml).Value = If(xmlPreguntas Is Nothing, DBNull.Value, DirectCast(xmlPreguntas.ToString(), Object))
End With
Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 8d894b822..6c1eaf2e6 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -73,8 +73,9 @@ Public Class ClsPaginas
'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
If Context.Session("UsuarioSIG") Is Nothing Then
Usuario.CerrarSession()
+ Return Nothing
Else
- UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
+ Return CType(Context.Session("UsuarioSIG"), Usuario)
End If
Catch ex As Exception
Usuario.CerrarSession()
@@ -3626,14 +3627,13 @@ Public Class ClsPaginas
PaginaDict.Add("/Default2.aspx".ToUpper(), -1)
PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/UnoaUnoConfiguracion.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), -1)
+ PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907)
+ PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907)
+ PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910)
+ PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910)
+ PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), 909)
+ PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), 908)
+ PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), 908)
PaginaDict.Add("/AdSistemasTeam/ProcedimientosAlmacenados.aspx".ToUpper(), -1)
PaginaDict.Add("/OS/CatOrdenesServiciosCaracteristicas.aspx".ToUpper(), -1)
PaginaDict.Add("/OS/CatOSCaracteristicasOpciones.aspx".ToUpper(), -1)
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index d19de8eef..eb2eea490 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4217,16 +4217,14 @@ Namespace Modelos
'GENERAMOS EL ACUSE Y MANDAMOS MAIL DE CON EL ACUSE DE CANCELACIÓN
If RequiereAceptacion Then
CancelacionFecha = Now.Date
- CancelacionAcuse = ""
CveEstatus = 20
-
Else
CancelacionFecha = ObjCancelacion.CancelacionFecha
- CancelacionAcuse = ObjCancelacion.CancelacionAcuse
CveEstatus = 5
End If
+ CancelacionAcuse = ObjCancelacion.CancelacionAcuse
Else
- Retorno.Mensaje = "La factura no se pudo cancelar ante el SAT."
+ Retorno.Mensaje = "Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.
Origen del error: WebService www.sat.gob.mx"
Retorno.TipoMensaje = TipoMensaje.MsgError
Return Retorno
@@ -4568,22 +4566,21 @@ Namespace Modelos
'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN GENERAL
If Not ErrorCancelar AndAlso ListaRemisionesCancelar IsNot Nothing AndAlso ListaRemisionesCancelar.Count > 0 Then
For Each CveRemision As Integer In ListaRemisionesCancelar
- For Each RowDevolucion As DataRow In DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows
+ Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}")
- Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}")
+ Dim RowDevolucion As DataRow = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows(0)
- CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero()
- CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero()
+ CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero()
+ CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero()
- 'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL
- If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision, ObjVentas, ObjInventario) Then
- ErrorCancelar = True
- MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
- Exit For
- End If
+ 'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL
+ If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision, ObjVentas, ObjInventario) Then
+ ErrorCancelar = True
+ MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
+ Exit For
+ End If
- DtDevRemision.Dispose()
- Next
+ DtDevRemision.Dispose()
Next
End If
@@ -5030,22 +5027,34 @@ Namespace Modelos
End If
'ENTRADA A (ALMACEN GENERAL)
+ Dim DtEntradaDetalle As DataTable = Nothing
+
If Not ErrorCancelar Then
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDevRem, UsuarioActual.CveEmpresa) Then
- For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+ DtEntradaDetalle = ObjInventario.DtResultados.Copy()
+ End If
+ End If
+
+ If Not ErrorCancelar Then
+ If DtEntradaDetalle IsNot Nothing Then
+ For Each Dr As DataRow In DtEntradaDetalle.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
ErrorCancelar = True
Exit For
End If
Next
+ Else
+ ErrorCancelar = True
End If
End If
-
- If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveRemision) Then
- ErrorCancelar = True
+ If Not ErrorCancelar Then
+ If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveRemision) Then
+ ErrorCancelar = True
+ End If
End If
+
Return Not ErrorCancelar
End Function
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 07b34e090..b124bd0a3 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -3417,7 +3417,7 @@ Partial Class Contratos_Default
Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
- Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+ Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.filename, Tipo)
Else
@@ -3741,7 +3741,7 @@ Partial Class Contratos_Default
#Region " IMPRIMIR DOCUMENTO - SABE "
Public Sub DescarFormato(documento As String)
- Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
+ Dim PathRoot As String = Server.MapPath("/")
Dim PathSource As String
Dim pathDesti As String
diff --git a/Imagenes/Bell.png b/Imagenes/Bell.png
new file mode 100644
index 000000000..352602b08
Binary files /dev/null and b/Imagenes/Bell.png differ
diff --git a/Inicio.aspx b/Inicio.aspx
index 603783288..b45294990 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -483,43 +483,10 @@
-
| ");
+ StrMail.Append(" Moderador:");
+ StrMail.Append($" {UsuarioDeAbr}");
+ StrMail.Append($" {UsuarioDe} "); + StrMail.Append(" Fecha:"); + StrMail.Append($" {DFechai: dd} de {DFechai: MMMM yyyy HH:mm} "); + StrMail.Append(" | ");
+ StrMail.Append(" "); + StrMail.Append(" Convocatoria "); + StrMail.Append(" | "); + StrMail.Append("");
+ StrMail.Append(" ");
+ StrMail.Append(" | ");
+ StrMail.Append("