diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index 2d5d2f14d..51cb4c675 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/App_Code/ClsCompProveedores.vb @@ -65,6 +65,7 @@ Public Class ClsCompProveedores Public Property Situacion As String = "" Public Property DIOTNacionalidad As String Public Property CveRegimenFiscal As Integer = -1 + Public Property PorcentajeProntoPago As Decimal = 0D Public ReadOnly Property DtResultados() As DataTable Get @@ -300,6 +301,7 @@ Public Class ClsCompProveedores Me.Situacion = Data.Rows(0)("Situacion").ToString Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero + Me.PorcentajeProntoPago = Data.Rows(0)("PorcentajeProntoPago").ToString.ToDecimal End If @@ -317,7 +319,7 @@ Public Class ClsCompProveedores CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "", - Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean + Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean Dim Retorno As Boolean = False @@ -367,6 +369,7 @@ Public Class ClsCompProveedores .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + .Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -402,7 +405,7 @@ Public Class ClsCompProveedores CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer, Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1, Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "", - Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean + Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ProveedorUpdate") @@ -455,6 +458,7 @@ Public Class ClsCompProveedores .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + .Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago ''Proveedores '.Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index d95cfed3a..d1b7b42dc 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -275,7 +275,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) As Integer + Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer, CveEstado As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Trans_DestinosAdd") @@ -286,6 +286,7 @@ Public Class ClsTransportes .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEstado", SqlDbType.Int).Value = CveEstado End With Try SqlAdapter.Fill(Data) @@ -297,7 +298,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) 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) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Trans_DestinosUpdate") With SqlAdapter.SelectCommand.Parameters @@ -307,6 +308,8 @@ Public Class ClsTransportes .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEstado", SqlDbType.Int).Value = CveEstado + End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index a89fb0dbc..5260ef910 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6117,7 +6117,7 @@ Public Class ClsVentas End Function - Public Function AddMedico(Nombre As String, APaterno As String, AMaterno As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, + Public Function AddMedico(Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Integer Dim Retorno As Boolean = False @@ -6126,16 +6126,10 @@ Public Class ClsVentas With SqlAdapter.SelectCommand.Parameters .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@APaterno", SqlDbType.VarChar).Value = APaterno - .Add("@AMaterno", SqlDbType.VarChar).Value = AMaterno - '.Add("@Medico", SqlDbType.VarChar).Value = Medico + .Add("@Apellidos", SqlDbType.VarChar).Value = Apellidos .Add("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional - '.Add("@Medico", SqlDbType.VarChar).Value = Medico .Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento .Add("@Notas", SqlDbType.VarChar).Value = Notas - '.Add("@DiasAtencion", SqlDbType.VarChar).Value = DiasAtencion - '.Add("@Horario", SqlDbType.VarChar).Value = Horario - '.Add("@Lugar", SqlDbType.VarChar).Value = Lugar .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -6143,14 +6137,10 @@ Public Class ClsVentas .Add("@Mail", SqlDbType.VarChar).Value = Mail .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad .Add("@Celular", SqlDbType.VarChar).Value = Celular - '.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - '.Add("@Torre", SqlDbType.VarChar).Value = Torre .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output - - End With Try SqlAdapter.Fill(Data) @@ -6164,7 +6154,7 @@ Public Class ClsVentas End Function - Public Function UpdateMedico(CveMedico As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, + Public Function UpdateMedico(CveMedico As Integer, Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -6172,8 +6162,7 @@ Public Class ClsVentas With SqlAdapter.SelectCommand.Parameters .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@APaterno", SqlDbType.VarChar).Value = APaterno - .Add("@AMaterno", SqlDbType.VarChar).Value = AMaterno + .Add("@Apellidos", SqlDbType.VarChar).Value = Apellidos '.Add("@Medico", SqlDbType.VarChar).Value = Medico .Add("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional .Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento @@ -6783,7 +6772,7 @@ Public Class ClsVentas End Function - Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer) As Boolean + Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer, CveTipoVenta As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ComisionesMedicasRepGet") @@ -6797,6 +6786,8 @@ Public Class ClsVentas .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta + End With Try diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index be4a3e3bf..5be9478c4 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -20297,6 +20297,22 @@ Partial Class Compras_Compras Select row + + + + 'Dim dataTable As New DataTable + 'Dim rowFilter As String = "" + 'Dim orderby As String = "" + 'Dim groupByColumns As String()() = {New String() {"SubProyecto", "CveSubProyecto", "Clasificacion", "CveClasificacion", "TipoGasto", "CveTipoGasto"}} + 'Dim sumColumns As String() = {"Total"} + + + 'Dim resultDataTable As DataTable = GroupByDT(TmpDT, rowFilter, orderby, groupByColumns, sumColumns) + + + + + If resultadosFiltrados.Count > 0 Then Dim EnumAgrupado = (From row In TmpDT.AsEnumerable() diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 22104def6..60c46cc56 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -344,8 +344,8 @@
-
-
+
+
@@ -356,7 +356,14 @@
+
+
+
+ + +
+
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index d4b2ccf60..ea2e659fe 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -640,9 +640,9 @@ Partial Class Compras_Proveedores GvA.Columns(5).Visible = True End If - - - + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then + DVPorcentajeProntoPago.Visible = True + End If End If @@ -920,7 +920,7 @@ Partial Class Compras_Proveedores ChkEstado.Checked = ObjProveedor.Estatus = "Activo" LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString LblUsuarioCapturo.Text = ObjProveedor.Usuario - TxtObservaciones.Text = ObjProveedor.Observaciones + TxtObservaciones.Text = ObjProveedor.Observaciones.ToString CargaCombos() @@ -950,6 +950,8 @@ Partial Class Compras_Proveedores Retorno = True + TxtPorcentajeProntoPago.Text = (100 * ObjProveedor.PorcentajeProntoPago).ToString("###.00") + ' enviaractivacion() CargaEventoBitacora() @@ -1403,6 +1405,11 @@ Partial Class Compras_Proveedores Dim CicloEvaluacion As Integer = If(AplicarEvaluacion, DdlCicloEvaluacion.SelectedValue.ToEntero(), -1) + Dim PorcentajeProntoPago As Decimal = 0 + If TxtPorcentajeProntoPago.Text.ToDecimal > 0 Then + PorcentajeProntoPago = TxtPorcentajeProntoPago.Text.ToDecimal / 100 + End If + If CveProveedor = -1 Then Dim ObjProveedores As New ClsCompProveedores() @@ -1414,7 +1421,7 @@ Partial Class Compras_Proveedores DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, - CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then + CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then Dim NuevoCveProveedor As Integer = ObjProveedores.CveProveedor @@ -1525,7 +1532,7 @@ Partial Class Compras_Proveedores DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, - CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then + CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 2b0692add..616051072 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -388,7 +388,7 @@ Partial Class Inventarios_TraspasoAlmacen DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub)) DdlAlmacenOrigen.DataBind() - DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 21).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub)) + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 21).FiltraParametros(String.Format("CveSubProyecto={0} AND Almacen LIKE '%arant%'", CveSub)) DdlAlmacenDestino.DataBind() CargadoDeMov = True diff --git a/Transportes/CatRutas.aspx b/Transportes/CatRutas.aspx index 0fcd0aacc..fddccb971 100644 --- a/Transportes/CatRutas.aspx +++ b/Transportes/CatRutas.aspx @@ -48,7 +48,7 @@
+ data-sort="true" DataKeyNames="CveDestino, Destino, EsNacional, Estatus, CveUsuario, FechaIng, CveEmpresa, CveEstado"> @@ -69,6 +69,12 @@ + + + + + + + Width="99.9%" OnSelectedIndexChanged="OnChangeNacional" AutoPostBack="true"> @@ -247,6 +253,24 @@
+ +
+ +
+ + + + + +
+
<%-- Importes --%> diff --git a/Transportes/CatRutas.aspx.vb b/Transportes/CatRutas.aspx.vb index c120747d0..64171fd7e 100644 --- a/Transportes/CatRutas.aspx.vb +++ b/Transportes/CatRutas.aspx.vb @@ -22,16 +22,7 @@ Partial Class CatRutas End Sub Private Sub CargaDatos() - 'Lista Rutas' - Dim ObjRutas As New ClsTransportes() - 'If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then - - ' If ObjRutas.DtResultados.Rows.Count > 0 Then - ' GvRutas.DataSource = ObjRutas.DtResultados - ' GvRutas.DataBind() - ' End If - 'End If 'Lista Destinos' If ObjRutas.GetDestinos() Then @@ -60,29 +51,20 @@ Partial Class CatRutas If ObjDestinos.DtResultados.Rows.Count > 0 Then - DdlOrigen.DataSource = ObjDestinos.DtResultados - DdlOrigen.DataBind() + DdlOrigen.DataSource = ObjDestinos.DtResultados : DdlOrigen.DataBind() DdlOrigen.Items.Insert(0, New ListItem("Seleccione Partida", "")) - DdlFinal.DataSource = ObjDestinos.DtResultados - DdlFinal.DataBind() + DdlFinal.DataSource = ObjDestinos.DtResultados : DdlFinal.DataBind() DdlFinal.Items.Insert(0, New ListItem("Seleccione Destino", "")) End If End If ObjDestinos.Dispose() - DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)") - DdlRutas.DataBind() - DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", "")) - 'Dim ObjRutas As New ClsTransportes() - 'If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then + DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)") : DdlRutas.DataBind() + DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind() + DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", "")) + - ' If ObjRutas.DtResultados.Rows.Count > 0 Then - ' DdlRutas.DataSource = ObjRutas.DtResultados - ' DdlRutas.DataBind() - ' DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", "")) - ' End If - 'End If End Sub Protected Sub MostrarModal(sender As Object, e As EventArgs) @@ -100,7 +82,6 @@ Partial Class CatRutas PnDestino.Visible = False PnImporte.Visible = False Dim id As String = DirectCast(sender, LinkButton).ID - If id.Contains("Editar") Then Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) @@ -115,8 +96,19 @@ Partial Class CatRutas Case "BtnEditarDestino" ModalLabel.Text = "Editar Destino" TxtDestino.Text = GvRow.DataKey("Destino") - DdlEsNacional.SelectedValue = GvRow.DataKey("EsNacional") DdlDestinoEstatus.SelectedValue = GvRow.DataKey("Estatus") + DdlEsNacional.SelectedValue = GvRow.DataKey("EsNacional") + + DdlEstado.Items.Clear() + If Convert.ToBoolean(DdlEsNacional.SelectedValue) Then + DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind() + Else + DdlEstado.DataSource = GlobalDTGralEstados("USA") : DdlEstado.DataBind() + End If + UpModal.Update() + + DdlEstado.SelectedValue = GvRow.DataKey("CveEstado") + PnDestino.Visible = True BtnAddDestino.Visible = True BtnAddDestino.Text = "Editar" @@ -158,48 +150,6 @@ Partial Class CatRutas RegistraScript(String.Format("$('#{0}').modal('show');", "Modal")) End Sub - - '#Region "Rutas" - ' Protected Sub AddRuta(sender As Object, e As EventArgs) - - ' Dim ObjRuta As New ClsTransportes - ' ObjRuta.IniciaTransacSQL() - ' Try - ' If BtnAddRuta.Text = "Guardar" Then - ' If ObjRuta.AddRuta(TxtRuta.Text, DdlRutaEstatus.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 1 Then - ' ObjRuta.Commit() - ' Alert("Ruta Agregada Correctamente.") - ' End If - ' End If - - ' If BtnAddRuta.Text = "Editar" Then - ' If ObjRuta.UpdateRuta(Cve, TxtRuta.Text, DdlRutaEstatus.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' ObjRuta.Commit() - ' Alert("Ruta Actualizada Correctamente.") - ' End If - ' End If - ' Catch ex As Exception - ' ObjRuta.RollBack() - ' Finally - ' CargaDatos() - ' ObjRuta.Dispose() - ' End Try - - - ' End Sub - ' Protected Sub RemoveRuta(sender As Object, e As EventArgs) - ' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - ' Dim ObjRuta As New ClsTransportes - - ' If ObjRuta.RemoveRuta(GvRow.DataKey("CveRuta").ToEntero) Then - ' Alert("Ruta eliminada correctamente") - ' CargaDatos() - ' End If - - ' ObjRuta.Dispose() - ' End Sub - '#End Region - #Region "Destinos" Protected Sub AddDestino(sender As Object, e As EventArgs) @@ -207,14 +157,14 @@ Partial Class CatRutas ObjDestino.IniciaTransacSQL() Try If BtnAddDestino.Text = "Guardar" Then - If ObjDestino.AddDestino(TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 1 Then + If ObjDestino.AddDestino(TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero) > 1 Then ObjDestino.Commit() 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) Then + If ObjDestino.UpdateDestino(Cve, TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero) Then ObjDestino.Commit() Alert("Destino actualizado correctamente.") End If @@ -239,6 +189,20 @@ Partial Class CatRutas ObjDestino.Dispose() End Sub + Protected Sub OnChangeNacional(sender As Object, e As EventArgs, Optional EsNacional As Boolean = True) + DdlEstado.Items.Clear() + + If Convert.ToBoolean(DdlEsNacional.SelectedValue.ToString) And EsNacional Then + DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind() + DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", "")) + + Else + DdlEstado.DataSource = GlobalDTGralEstados("USA") : DdlEstado.DataBind() + DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", "")) + End If + + UpModal.Update() + End Sub #End Region #Region "Importes" diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index b23901098..8591d596e 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -7,11 +7,14 @@ Detalles del Contrato + +
  • + Imprimir Contrato +
  • +
    +