diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index b47b3d317..f31d13a2a 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2659,11 +2659,12 @@ Public Class ClsGenerales
End Try
Return Retorno
- End Function
-
+ End Function
+
#Region "P A Q U E T E R I A S G U I A S"
Public Function AddPaqueteriasGuias(CvePaqueteria As Integer, CvePaqueteriaGuiaTipo As Integer, CveEstatus As Integer, CveSubProyecto As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer,
- Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True) As Integer
+ Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True,
+ Optional EsEntregaInterna As Boolean = False) As Integer
Dim Retorno As Integer = -1
@@ -2689,6 +2690,8 @@ Public Class ClsGenerales
.Add("@ImplicaCosto", SqlDbType.Bit).Value = IIf(ImplicaCosto = True, 1, 0)
.Add("@CvePaqueteriaGuiaTipo", SqlDbType.SmallInt).Value = CvePaqueteriaGuiaTipo
+ .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna
+
.Add("@CvePaqueteriaGuia", SqlDbType.Int).Direction = ParameterDirection.Output
End With
@@ -2709,7 +2712,9 @@ Public Class ClsGenerales
Return Retorno
End Function
- Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1", Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1) As Boolean
+ Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer,
+ CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1",
+ Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1, Optional CveUsuarioEntrega As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -2728,6 +2733,7 @@ Public Class ClsGenerales
.Add("@FechaIngInicio", SqlDbType.VarChar).Value = FechaIngInicio
.Add("@FechaIngFin", SqlDbType.VarChar).Value = FechaIngFin
.Add("@Filtro", SqlDbType.Int).Value = Filtro
+ .Add("@CveUsuarioEntrega", SqlDbType.Int).Value = CveUsuarioEntrega
End With
Try
SqlAdapter.Fill(Data)
@@ -2794,9 +2800,43 @@ Public Class ClsGenerales
End Try
Return Retorno
- End Function
-#End Region
+ End Function
+
+ Public Function GetEntregasPorRealizar(CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Gral_EntregasPorRealizarGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
+
+ Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+#End Region
+
#Region "P A Q U E T E R I A S G U I A S D E T A L L E S"
Public Function AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia As Integer, CveVenta As Integer, CveOC As Integer, CveMovimiento As Integer, Optional CveCompra As Integer = -1) As Boolean
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 389d0dbed..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)
@@ -4275,6 +4275,7 @@ Public Class ClsPaginas
PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711)
PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712)
PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038)
+ PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 727)
#End Region
#Region "GPS"
@@ -4404,6 +4405,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
PaginaDict.Add("/Inventarios/AjustesSeccionAlmacen.aspx".ToUpper(), 892)
PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
+ PaginaDict.Add("/Inventarios/EntregasPorRealizar.aspx".ToUpper(), 728)
#End Region
#Region "MF"
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 9219165df..b124bd0a3 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -1939,8 +1939,8 @@ Partial Class Contratos_Default
LimitarCantidad = Gv.Rows(e.RowIndex).FCCheckBox("ChkLimitarCantidad").Checked
Observaciones = Gv.Rows(e.RowIndex).FCTextBox("TxtObservacion").Text.ToString
Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalle))(0)
-
- If row("CantidadContratada").ToString.ToEntero <> Cantidad OrElse row("PU").ToString.ToEntero <> PU OrElse CveUM <> row("CveUM").ToString.ToEntero OrElse row("NoIdentificacion").ToString <> NoIdentificacion OrElse row("OCInterna").ToString <> OCInterna Then
+ Dim LimitarCantidadValidator As Boolean = row("LimitarCantidad").ToString = "True"
+ If row("CantidadContratada").ToString.ToEntero <> Cantidad OrElse row("PU").ToString.ToEntero <> PU OrElse CveUM <> row("CveUM").ToString.ToEntero OrElse row("NoIdentificacion").ToString <> NoIdentificacion OrElse row("OCInterna").ToString <> OCInterna OrElse LimitarCantidadValidator <> LimitarCantidad Then
Dim ObjContratos As New ClsContratos
If ObjContratos.UpdateContratosDetalle(CveContratoDetalle, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, LimitarCantidad, OCInterna, Observaciones) Then
@@ -2922,9 +2922,9 @@ Partial Class Contratos_Default
End If
- If e.Row.DBCampo("SerieLote").ToString = "-1" Then
- e.Row.Cells(7).Text = ""
- End If
+ 'If e.Row.DBCampo("SerieLote").ToString = "-1" Then
+ ' e.Row.Cells(7).Text = ""
+ 'End If
End If
End Sub
diff --git a/General/PopUpPaqueteriasGuiasInternas.aspx b/General/PopUpPaqueteriasGuiasInternas.aspx
new file mode 100644
index 000000000..9b0b9d319
--- /dev/null
+++ b/General/PopUpPaqueteriasGuiasInternas.aspx
@@ -0,0 +1,127 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="PopUpPaqueteriasGuiasInternas.aspx.cs" Inherits="General_PopUpPaqueteriasGuiasInternas" %>
+
+
+
+
+
+ <%--Guías Vinculadas--%> Entrega Local
+
+
+
+
+
+
+
+ Estatus:
+
+
+
+
+
+
+ Fecha:
+
+
+
+
+
+
+
+ Fecha Estimada:
+
+
+
+
+
+ # Cajas:
+
+
+
+
+
+
+ Observaciones:
+
+
+
+
+
+
+
+
+
+
+
+
| Cliente: | @@ -127,7 +129,7 @@ | |
| Folio: |
- |
|
| Almacén: |
@@ -191,7 +193,7 @@
|
| Transitorio: | -+ |
| Transitorio: | +
|
+
|
@@ -229,12 +231,21 @@
|
|
|
+
+
+ |
+ |
| ");
+ 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("