diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 57cb267f7..90d787cc5 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7680,8 +7680,8 @@ Public Class ClsPaginas
If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
End If
- 'Dim urlHost As String = "http://sig.adssistemas.mx:7998/"
- Dim urlHost As String = "http://localhost:2202/"
+ Dim urlHost As String = "http://sig.adssistemas.mx:7998/"
+ 'Dim urlHost As String = "http://localhost:2202/"
If EsProduccion Then
urlHost = "http://192.200.113.178:6599/"
End If
diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb
index 11e65e7bc..ac7edffb5 100644
--- a/App_Code/ClsTransportes.vb
+++ b/App_Code/ClsTransportes.vb
@@ -264,14 +264,14 @@ Public Class ClsTransportes
#End Region
#Region "Destinos"
- Public Function GetDestinos(Optional CveSubProyecto As Integer = 0) As Boolean
+ Public Function GetDestinos(CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosGet")
- If CveRuta <> 0 Then
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
- End With
- End If
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
Try
SqlAdapter.Fill(Data)
@@ -283,7 +283,7 @@ Public Class ClsTransportes
Return Retorno
End Function
- Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer, CveEstado As Integer) As Integer
+ Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer, CveEstado As Integer, Direccion As String) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Trans_DestinosAdd")
@@ -295,6 +295,7 @@ Public Class ClsTransportes
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
+ .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
End With
Try
SqlAdapter.Fill(Data)
@@ -306,7 +307,7 @@ Public Class ClsTransportes
Return Retorno
End Function
- Public Function UpdateDestino(CveDestino As Integer, Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer, CveEstado As Integer) As Boolean
+ Public Function UpdateDestino(CveDestino As Integer, Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer, CveEstado As Integer, Direccion As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -317,7 +318,7 @@ Public Class ClsTransportes
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
-
+ .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
End With
Try
SqlAdapter.Fill(Data)
@@ -351,13 +352,14 @@ Public Class ClsTransportes
#End Region
#Region "Importes"
- Public Function GetDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean
+ Public Function GetDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosTarifasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
@@ -369,7 +371,7 @@ Public Class ClsTransportes
Return Retorno
End Function
- Public Function AddDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Integer
+ Public Function AddDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, ImporteNov As Decimal, ImporteDic As Decimal) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Trans_DestinosTarifasAdd")
@@ -379,6 +381,8 @@ Public Class ClsTransportes
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
.Add("@Importe", SqlDbType.SmallMoney).Value = Importe
+ .Add("@ImporteNov", SqlDbType.SmallMoney).Value = ImporteNov
+ .Add("@ImporteDic", SqlDbType.SmallMoney).Value = ImporteDic
End With
Try
SqlAdapter.Fill(Data)
@@ -389,7 +393,7 @@ Public Class ClsTransportes
Return Retorno
End Function
- Public Function UpdateDestinosTarifas(CveDestinoTarifa As Integer, CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Boolean
+ Public Function UpdateDestinosTarifas(CveDestinoTarifa As Integer, CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, ImporteNov As Decimal, ImporteDic As Decimal) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosTarifasUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -398,6 +402,8 @@ Public Class ClsTransportes
.Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
.Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
.Add("@Importe", SqlDbType.SmallMoney).Value = Importe
+ .Add("@ImporteNov", SqlDbType.SmallMoney).Value = ImporteNov
+ .Add("@ImporteDic", SqlDbType.SmallMoney).Value = ImporteDic
End With
Try
SqlAdapter.Fill(Data)
diff --git a/Transportes/CatRutas.aspx b/Transportes/CatRutas.aspx
index 358f6af35..98263e62e 100644
--- a/Transportes/CatRutas.aspx
+++ b/Transportes/CatRutas.aspx
@@ -2,10 +2,6 @@
MasterPageFile="~/Site.master" CodeFile="CatRutas.aspx.vb"
Inherits="CatRutas" EnableEventValidation="true" %>
-
- Rutas y Destinos
-
-
+
+ Rutas y Destinos
+
+
+
+
+
+
+
+
diff --git a/Transportes/CatRutas.aspx.vb b/Transportes/CatRutas.aspx.vb
index 9b851c86e..9f2409264 100644
--- a/Transportes/CatRutas.aspx.vb
+++ b/Transportes/CatRutas.aspx.vb
@@ -22,24 +22,31 @@ Partial Class CatRutas
End Sub
Private Sub CargaDatos()
- Dim ObjRutas As New ClsTransportes()
- 'Lista Destinos'
- If ObjRutas.GetDestinos() Then
+ GvDestinos.DataSource = Nothing
+ GvImportes.DataSource = Nothing
+
+ Dim ObjRutas As New ClsTransportes()
+
+ 'Lista Destinos'
+ If ObjRutas.GetDestinos(-1, UsuarioActual.CveEmpresa) Then
If ObjRutas.DtResultados.Rows.Count > 0 Then
GvDestinos.DataSource = ObjRutas.DtResultados
- GvDestinos.DataBind()
End If
End If
+
'Lista Importes'
- If ObjRutas.GetDestinosTarifas(-1, -1, -1) Then
+ If ObjRutas.GetDestinosTarifas(-1, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjRutas.DtResultados.Rows.Count > 0 Then
GvImportes.DataSource = ObjRutas.DtResultados
- GvImportes.DataBind()
End If
End If
+
ObjRutas.Dispose()
+ GvDestinos.DataBind()
+ GvImportes.DataBind()
+
UpPanel.Update()
End Sub
@@ -47,7 +54,7 @@ Partial Class CatRutas
Private Sub InicializarCombos()
Dim ObjDestinos As New ClsTransportes()
- If ObjDestinos.GetDestinos() Then
+ If ObjDestinos.GetDestinos(-1, UsuarioActual.CveEmpresa) Then
If ObjDestinos.DtResultados.Rows.Count > 0 Then
@@ -61,8 +68,9 @@ Partial Class CatRutas
ObjDestinos.Dispose()
DdlRutas.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)") : DdlRutas.DataBind()
- DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind()
- DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", ""))
+ DdlEstado.DataSource = GlobalDTGralEstados("MEX")
+ DdlEstado.DataBind()
+ DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", "-1"))
End Sub
@@ -71,11 +79,14 @@ Partial Class CatRutas
TxtRuta.Text = ""
DdlRutaEstatus.SelectedValue = ""
TxtDestino.Text = ""
+ TxtDireccion.Text = ""
DdlEsNacional.SelectedValue = ""
DdlDestinoEstatus.SelectedValue = ""
DdlOrigen.SelectedValue = ""
DdlFinal.SelectedValue = ""
TxtImporte.Text = ""
+ TxtImporteNov.Text = ""
+ TxtImporteDic.Text = ""
BtnAddDestino.Visible = False
BtnAddImporte.Visible = False
PnRuta.Visible = False
@@ -90,14 +101,15 @@ Partial Class CatRutas
ModalLabel.Text = "Editar Ruta"
PnRuta.Visible = True
TxtRuta.Text = GvRow.DataKey("Ruta")
- DdlRutaEstatus.SelectedValue = GvRow.DataKey("Estatus")
+ DdlRutaEstatus.SelectedValueExist(GvRow.DataKey("Estatus"))
ViewState("Cve") = GvRow.DataKey("CveRuta").ToEntero
Case "BtnEditarDestino"
ModalLabel.Text = "Editar Destino"
TxtDestino.Text = GvRow.DataKey("Destino")
- DdlDestinoEstatus.SelectedValue = GvRow.DataKey("Estatus")
- DdlEsNacional.SelectedValue = GvRow.DataKey("EsNacional")
+ TxtDireccion.Text = GvRow.DataKey("Direccion")
+ DdlDestinoEstatus.SelectedValueExist(GvRow.DataKey("Estatus"))
+ DdlEsNacional.SelectedValueExist(GvRow.DataKey("EsNacional"))
DdlEstado.Items.Clear()
If Convert.ToBoolean(DdlEsNacional.SelectedValue) Then
@@ -105,9 +117,10 @@ Partial Class CatRutas
Else
DdlEstado.DataSource = GlobalDTGralEstados("USA") : DdlEstado.DataBind()
End If
+ DdlEstado.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
UpModal.Update()
- DdlEstado.SelectedValue = GvRow.DataKey("CveEstado")
+ DdlEstado.SelectedValueExist(GvRow.DataKey("CveEstado"))
PnDestino.Visible = True
BtnAddDestino.Visible = True
@@ -116,10 +129,12 @@ Partial Class CatRutas
Case "BtnEditarImporte"
ModalLabel.Text = "Editar Importe"
- DdlRutas.SelectedValue = GvRow.DataKey("CveSubProyecto")
- DdlOrigen.SelectedValue = GvRow.DataKey("CveDestinoOrigen")
- DdlFinal.SelectedValue = GvRow.DataKey("CveDestinoFinal")
+ DdlRutas.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
+ DdlOrigen.SelectedValueExist(GvRow.DataKey("CveDestinoOrigen"))
+ DdlFinal.SelectedValueExist(GvRow.DataKey("CveDestinoFinal"))
TxtImporte.Text = GvRow.DataKey("Importe")
+ TxtImporteNov.Text = GvRow.DataKey("ImporteNov")
+ TxtImporteDic.Text = GvRow.DataKey("ImporteDic")
PnImporte.Visible = True
BtnAddImporte.Visible = True
BtnAddImporte.Text = "Editar"
@@ -153,29 +168,38 @@ Partial Class CatRutas
#Region "Destinos"
Protected Sub AddDestino(sender As Object, e As EventArgs)
+ Dim errorProceso As Boolean = False
Dim ObjDestino As New ClsTransportes
- ObjDestino.IniciaTransacSQL()
+ 'ObjDestino.IniciaTransacSQL()
Try
If BtnAddDestino.Text = "Guardar" Then
- If ObjDestino.AddDestino(TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero) > 1 Then
- ObjDestino.Commit()
+ If Not ObjDestino.AddDestino(TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero, TxtDireccion.Text) > 1 Then
+ errorProceso = True
+ Alert("Se presento un error al guardar Destino.", TipoMensaje.MsgAdvertencia)
+ Else
Alert("Destino agregado correctamente.")
End If
End If
If BtnAddDestino.Text = "Editar" Then
- If ObjDestino.UpdateDestino(Cve, TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero) Then
- ObjDestino.Commit()
+ If Not ObjDestino.UpdateDestino(Cve, TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero, TxtDireccion.Text) Then
+ errorProceso = True
+ Alert("Se presento un error al guardar Destino.", TipoMensaje.MsgAdvertencia)
+ Else
Alert("Destino actualizado correctamente.")
End If
End If
+
Catch ex As Exception
- ObjDestino.RollBack()
+
Finally
- CargaDatos()
ObjDestino.Dispose()
End Try
+ If Not errorProceso Then
+ CargaDatos()
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "Modal"))
+ End If
End Sub
Protected Sub RemoveDestino(sender As Object, e As EventArgs)
@@ -212,14 +236,14 @@ Partial Class CatRutas
ObjImporte.IniciaTransacSQL()
If BtnAddImporte.Text = "Guardar" Then
- If ObjImporte.AddDestinosTarifas(DdlRutas.SelectedValue.ToEntero, DdlOrigen.SelectedValue.ToEntero, DdlFinal.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal) > 1 Then
+ If ObjImporte.AddDestinosTarifas(DdlRutas.SelectedValue.ToEntero, DdlOrigen.SelectedValue.ToEntero, DdlFinal.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, TxtImporteNov.Text.ToDecimal, TxtImporteDic.Text.ToDecimal) > 1 Then
ObjImporte.Commit()
Alert("Importe agregado correctamente.")
End If
End If
If BtnAddImporte.Text = "Editar" Then
- If ObjImporte.UpdateDestinosTarifas(Cve, DdlRutas.SelectedValue.ToEntero, DdlOrigen.SelectedValue.ToEntero, DdlFinal.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal) Then
+ If ObjImporte.UpdateDestinosTarifas(Cve, DdlRutas.SelectedValue.ToEntero, DdlOrigen.SelectedValue.ToEntero, DdlFinal.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, TxtImporteNov.Text.ToDecimal, TxtImporteDic.Text.ToDecimal) Then
ObjImporte.Commit()
Alert("Importe actualizado correctamente.")
End If
diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 6a5648463..44dece0e9 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -773,7 +773,7 @@
-