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 @@
-
-
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
+
+
+