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 + + + + + + + +
  • + Agregar Destino +
  • +
  • + Agregar Tarifa +
  • +
    + + +
    + +
    + + + @@ -31,62 +51,67 @@
    -
    + + +
    +
    + +
    + +
    " style="display: inline-block; margin-right: -10px; width: 150px;" /> " - style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - + style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
    <%--Importes Tab--%> @@ -94,9 +119,7 @@
    - +
    @@ -111,7 +134,7 @@ + data-sort="true" DataKeyNames="CveDestinoTarifa, CveSubProyecto, CveDestinoOrigen, CveDestinoFinal, Importe, Destino, Partida,ImporteNov, ImporteDic"> @@ -216,7 +239,7 @@
    - + @@ -264,10 +287,10 @@
    -
    + + + +
    + +
    + + <%-- + + --%> +
    +
    <%-- Importes --%> @@ -335,7 +372,7 @@
    - +
    + +
    + +
    + + + + +
    +
    + + +
    + +
    + + + + +
    +
    +
    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 @@ -