diff --git a/RH/CatEstatusPersonal.aspx.vb b/RH/CatEstatusPersonal.aspx.vb index 845e2274b..2823b5390 100644 --- a/RH/CatEstatusPersonal.aspx.vb +++ b/RH/CatEstatusPersonal.aspx.vb @@ -165,7 +165,7 @@ Partial Class RH_CatEstatusPersonal Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar PersonalEstatTxt.Text = GvRow.DataKey("EstatusPersonal") ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) - CveEstatusPerAEditar = GvRow.DataKey("CveEstatusPersonal") 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" + CveEstatusPerAEditar = GvRow.DataKey("CveEstatusPersonal").ToEntero 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" UpDatos.Update() If ViewState("Orden").ToString() <> String.Empty Then diff --git a/RH/CatMotivoBaja.aspx.vb b/RH/CatMotivoBaja.aspx.vb index f8819100a..f79d98cb1 100644 --- a/RH/CatMotivoBaja.aspx.vb +++ b/RH/CatMotivoBaja.aspx.vb @@ -166,7 +166,7 @@ Partial Class RH_CatMotivoBaja Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar MotivoTxt.Text = GvRow.DataKey("MotivoBaja") ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) - CveMotivoBajaAEditar = GvRow.DataKey("CveMotivoBaja") 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" + CveMotivoBajaAEditar = GvRow.DataKey("CveMotivoBaja").ToEntero 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" UpDatos.Update() If ViewState("Orden").ToString() <> String.Empty Then diff --git a/Sistemas/CatDistribuidores.aspx.vb b/Sistemas/CatDistribuidores.aspx.vb index 0ac9a52dd..323c6e784 100644 --- a/Sistemas/CatDistribuidores.aspx.vb +++ b/Sistemas/CatDistribuidores.aspx.vb @@ -95,7 +95,7 @@ Partial Class Sistemas_CatDistribuidores Alert("Ocurrió un error al agregar el distribuidor", TipoMensaje.MsgError) End If ElseIf EsEditar = 1 Then - If Plataforma.UpdateDistribuidor(CveDistribuidor, DdlPlataforma.SelectedValue, TxtDistribuidor.Text) Then + If Plataforma.UpdateDistribuidor(CveDistribuidor, DdlPlataforma.SelectedValue.ToEntero, TxtDistribuidor.Text) Then Alert("el distribuidor se editó correctamente", TipoMensaje.MsgInformacion) Else Alert("Ocurrió un error al editar el distribuidor", TipoMensaje.MsgError) diff --git a/Sistemas/CatModulos.aspx.vb b/Sistemas/CatModulos.aspx.vb index e6202457a..f9edb6651 100644 --- a/Sistemas/CatModulos.aspx.vb +++ b/Sistemas/CatModulos.aspx.vb @@ -54,8 +54,8 @@ Partial Class CatModulos UpDatos.Update() End If ElseIf HdnModalidad.Value = "U" Then - If Modulo.UpdateModulo(CboPadres.SelectedValue, TxtDescripcion.Text.Trim(), TxtLiga.Text.Trim(), CboPopUp.SelectedValue, TxtAncho.Text.Trim().ToEntero(), TxtAlto.Text.Trim().ToEntero(), - TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value, DdlPlataforma.SelectedValue.ToEntero) Then + If Modulo.UpdateModulo(CboPadres.SelectedValue.ToEntero, TxtDescripcion.Text.Trim(), TxtLiga.Text.Trim(), CboPopUp.SelectedValue, TxtAncho.Text.Trim().ToEntero(), TxtAlto.Text.Trim().ToEntero(), + TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlPlataforma.SelectedValue.ToEntero) Then RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos")) Alert("El Módulo se actualizó correctamente.", TipoMensaje.MsgInformacion) CargaDatos() @@ -117,7 +117,7 @@ Partial Class CatModulos If Modulo.GetModulos(-1, -1, "-1", "-1") Then e.Row.FCDropDownList("B").DataSource = Modulo.DtResultados.FiltraParametros("CvePadre = 0 OR Agrupacion = 'S'") e.Row.FCDropDownList("B").DataBind() - e.Row.FCDropDownList("B").SelectedValue = e.Row.FCLabel("LB").Text.ToEntero + e.Row.FCDropDownList("B").SelectedValue = e.Row.FCLabel("LB").Text End If End If diff --git a/Sistemas/CatParametros.aspx.vb b/Sistemas/CatParametros.aspx.vb index e57d476e6..b99491190 100644 --- a/Sistemas/CatParametros.aspx.vb +++ b/Sistemas/CatParametros.aspx.vb @@ -46,7 +46,7 @@ Partial Class CatParametros Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LbAgregar.Click Dim Parametro As New ClsSisParametros - If Parametro.AddParametros(TxtCveParam.Text.ToEntero, TxtDescripcion.Text.Trim, CboModulos.SelectedValue.ToEntero, TxtStrValor1.Text, TxtStrValor2.Text, TxtNumValor1.Text.ToEntero, TxtNumValor2.Text.ToEntero, TxtDTValor1.Text, TxtDTValor2.Text, TxtDTVencimiento.Text, UsuarioActual.CveUsuario) Then + If Parametro.AddParametros(TxtCveParam.Text.ToEntero, TxtDescripcion.Text.Trim, CboModulos.SelectedValue.ToEntero, TxtStrValor1.Text, TxtStrValor2.Text, TxtNumValor1.Text, TxtNumValor2.Text, TxtDTValor1.Text, TxtDTValor2.Text, TxtDTVencimiento.Text, UsuarioActual.CveUsuario) Then TxtDescripcion.Text = "" Alert("El nuevo Parámetro se guardó correctamente.", TipoMensaje.MsgInformacion) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index f0e7e95d8..3c2bf4144 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -545,7 +545,7 @@ Partial Class Sistemas_CatSesiones 'Dim ObjOC As New ClsOC 'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing 'ObjOC.Dispose() - GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa, -1, -1) = Nothing + GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa, -1, "-1") = Nothing End Sub 'Compras diff --git a/Sistemas/CatTareasProgramadas.aspx.vb b/Sistemas/CatTareasProgramadas.aspx.vb index 618e68667..30799fbe1 100644 --- a/Sistemas/CatTareasProgramadas.aspx.vb +++ b/Sistemas/CatTareasProgramadas.aspx.vb @@ -120,9 +120,9 @@ Partial Class Sistemas_CatTareasProgramadas LtlTituloModalTareasProgramadas.Text = "Agregar Tarea Programada" BtnAgregarTareasProgramadasModal.Text = "Agregar" - DdlTareaProgra.SelectedValue = -1 + DdlTareaProgra.SelectedValue = "-1" DdlTareaProgra_SelectedIndexChanged(Nothing, Nothing) - DdlEmpresas.SelectedValue = -1 + DdlEmpresas.SelectedValue = "-1" TxtNumerico.Text = "" TxtParametros.Text = "" TxtCorreo.Text = "" @@ -143,16 +143,16 @@ Partial Class Sistemas_CatTareasProgramadas Dim recursividadEnDias = 0 If DdlTipoR.SelectedValue.ToString = "D" Then - recursividadEnDias = TxtNumerico.Text + recursividadEnDias = TxtNumerico.Text.ToEntero ElseIf DdlTipoR.SelectedValue.ToString = "H" Then - recursividadEnHoras = TxtNumerico.Text + recursividadEnHoras = TxtNumerico.Text.ToEntero ElseIf DdlTipoR.SelectedValue.ToString = "M" Then - recursividadEnMinutos = TxtNumerico.Text + recursividadEnMinutos = TxtNumerico.Text.ToEntero End If If Not Actualizar Then - If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue, DdlTareaProgra.SelectedValue, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then + If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue.ToEntero, DdlTareaProgra.SelectedValue.ToEntero, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then CargadatosGvTareasProgramadas() @@ -168,7 +168,7 @@ Partial Class Sistemas_CatTareasProgramadas If ObTareasProgra.RemoveTareasProgramadas(CveTareaProgramada, CveEmpresa) Then End If - If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue, DdlTareaProgra.SelectedValue, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then + If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue.ToEntero, DdlTareaProgra.SelectedValue.ToEntero, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then CargadatosGvTareasProgramadas() UpModalTareasProgramadas.Update() @@ -193,9 +193,9 @@ Partial Class Sistemas_CatTareasProgramadas Dim ObTareasProgra As New ClsTareasProgramadas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 - CveTareaProgramada = GvRow.DataKey("CveTareaProgramada") - CveEmpresa = GvRow.DataKey("CveEmpresa") + Dim activo As Boolean = False + CveTareaProgramada = GvRow.DataKey("CveTareaProgramada").ToEntero + CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero If ObTareasProgra.RemoveTareasProgramadas(CveTareaProgramada, CveEmpresa) Then CargadatosGvTareasProgramadas() @@ -216,13 +216,13 @@ Partial Class Sistemas_CatTareasProgramadas Public Sub Edit_ClickTareasProgramadas(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim activo As Boolean = 0 + Dim activo As Boolean = False LtlTituloModalTareasProgramadas.Text = "Editar Tarea Programada" Actualizar = True - CveTareaProgramada = GvRow.DataKey("CveTareaProgramada") - CveEmpresa = GvRow.DataKey("CveEmpresa") + CveTareaProgramada = GvRow.DataKey("CveTareaProgramada").ToEntero + CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero DdlTareaProgra.SelectedValueExist(CveTareaProgramada) DdlTareaProgra_SelectedIndexChanged(Nothing, Nothing) @@ -230,13 +230,13 @@ Partial Class Sistemas_CatTareasProgramadas DdlEmpresas.SelectedValueExist(CveEmpresa) If GvRow.DataKey("RecursividadEnMinutos").ToEntero > 0 Then - TxtNumerico.Text = GvRow.DataKey("RecursividadEnMinutos").ToEntero + TxtNumerico.Text = GvRow.DataKey("RecursividadEnMinutos") DdlTipoR.SelectedValue = "M" ElseIf GvRow.DataKey("RecursividadEnHoras").ToEntero > 0 Then - TxtNumerico.Text = GvRow.DataKey("RecursividadEnHoras").ToEntero + TxtNumerico.Text = GvRow.DataKey("RecursividadEnHoras") DdlTipoR.SelectedValue = "H" ElseIf GvRow.DataKey("RecursividadEnDias").ToEntero > 0 Then - TxtNumerico.Text = GvRow.DataKey("RecursividadEnDias").ToEntero + TxtNumerico.Text = GvRow.DataKey("RecursividadEnDias") DdlTipoR.SelectedValue = "D" End If diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb index 45b1b8c0c..795c55902 100644 --- a/Sistemas/PopUpAddUsuario.aspx.vb +++ b/Sistemas/PopUpAddUsuario.aspx.vb @@ -81,14 +81,14 @@ Partial Class Sistemas_PopUpAddUsuario CveProveedor = -1 End If - If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso (ViewState("CveProveedor") > 0 Or ViewState("CveCliente") > 0) Then + If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso (ViewState("CveProveedor").ToString.ToEntero > 0 Or ViewState("CveCliente").ToString.ToEntero > 0) Then CargaDispositivos() CargarNotificaciones() TabApp.Visible = True CargaGridModulosAccesoApp() End If - If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso (ViewState("CveProveedor") > 0 OrElse ViewState("CveCliente") > 0) Then + If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso (ViewState("CveProveedor").ToString.ToEntero > 0 OrElse ViewState("CveCliente").ToString.ToEntero > 0) Then TabVehiculos.Visible = False TabPermisoVehiculos.Visible = False TabNotificaciones.Visible = False @@ -105,9 +105,9 @@ Partial Class Sistemas_PopUpAddUsuario End If 'INICIALIZA CVEPLATAFORMA - If UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveCliente") > 0 Then + If UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveCliente").ToString.ToEntero > 0 Then ViewState("CvePlataforma") = 6 - ElseIf UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveProveedor") > 0 Then + ElseIf UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveProveedor").ToString.ToEntero > 0 Then ViewState("CvePlataforma") = 7 Else ViewState("CvePlataforma") = 3 @@ -126,7 +126,7 @@ Partial Class Sistemas_PopUpAddUsuario LtlUsuario.Text = ObjUsuario.DtResultados.Rows(0)("Usuario").ToString() TxtEmail.Text = ObjUsuario.DtResultados.Rows(0)("Correo").ToString() TxtNombre.Text = ObjUsuario.DtResultados.Rows(0)("Nombre").ToString() - ChkEstatus.Checked = ObjUsuario.DtResultados.Rows(0)("Estatus") + ChkEstatus.Checked = ObjUsuario.DtResultados.Rows(0)("Estatus").ToString = "True" If ObjUsuario.DtResultados.Rows(0)("CveRol").ToString.ToEntero = 1200 OrElse ObjUsuario.DtResultados.Rows(0)("CveRol").ToString.ToEntero = 1198 Then BtnDefaultPWD.Visible = True @@ -561,7 +561,7 @@ Partial Class Sistemas_PopUpAddUsuario For Each row As GridViewRow In GVNotificaciones.Rows If row.FCCheckBox("chkCorreo").Checked OrElse row.FCCheckBox("chkVentana").Checked OrElse row.FCCheckBox("chkSMS").Checked OrElse row.FCCheckBox("chkApp").Checked OrElse row.FCCheckBox("chkCampana").Checked Then - If Not ObjNotificaciones.AddUsuariosNotificacion(CveUsuario, row.DataKey("CveNotificacion"), row.FCCheckBox("chkCorreo").Checked, row.FCCheckBox("chkVentana").Checked, row.FCCheckBox("chkSMS").Checked, + If Not ObjNotificaciones.AddUsuariosNotificacion(CveUsuario, row.DataKey("CveNotificacion").ToEntero, row.FCCheckBox("chkCorreo").Checked, row.FCCheckBox("chkVentana").Checked, row.FCCheckBox("chkSMS").Checked, row.FCCheckBox("chkApp").Checked, row.FCCheckBox("chkCampana").Checked) Then HuboError = True End If diff --git a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb index 25c34bee9..2cf7edfbc 100644 --- a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb +++ b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb @@ -49,7 +49,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c) If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then - CveEmpresa = 119 + CveEmpresa = "119" End If If splitedtext.Length > 0 Then diff --git a/Sistemas/Registro.aspx.vb b/Sistemas/Registro.aspx.vb index 09c8e2b5a..a96808ffe 100644 --- a/Sistemas/Registro.aspx.vb +++ b/Sistemas/Registro.aspx.vb @@ -53,7 +53,7 @@ Partial Class Sistemas_Registro Private Property CveEmpresaTemp As Integer Get - CveEmpresaTemp = ViewState("CveEmpresaTemp").ToString + CveEmpresaTemp = ViewState("CveEmpresaTemp").ToString.ToEntero End Get Set(value As Integer) ViewState("CveEmpresaTemp") = value diff --git a/Sistemas/SessionesActivas.aspx.vb b/Sistemas/SessionesActivas.aspx.vb index 71db01552..1dad46c59 100644 --- a/Sistemas/SessionesActivas.aspx.vb +++ b/Sistemas/SessionesActivas.aspx.vb @@ -74,7 +74,7 @@ Partial Class SessionesActivas dtU.Columns.Add("Modulo", System.Type.GetType("System.String")) dtU.Columns.Add("SessionID", System.Type.GetType("System.String")) Dim dtF As DataTable = dtU.Clone - Dim objlist As List(Of ADSSession.ADSSessionObj) = ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession) + Dim objlist As List(Of ADSSession.ADSSessionObj) = CType(ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession), List(Of ADSSession.ADSSessionObj)) For Each user As ADSSession.ADSSessionObj In objlist Dim row As DataRow = dtU.FiltroPrimero($"CveUsuario={user.CveUsuario} AND CveEmpresa={user.CveEmpresa}") diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index a12618ea2..b02c3a4db 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -223,7 +223,7 @@ Partial Class Ventas_CatAutorizacionLimites Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal() 'SI EL LIMITE ES 0, PERMITE AUTORIZAR If LimiteCredito > 0 Then - Dim PorcentajeMaximoAutorizar As Decimal = 0.1 + Dim PorcentajeMaximoAutorizar As Decimal = 0.1D If UsuarioActual.PorcentajeMaximoAutorizacion > 0 Then PorcentajeMaximoAutorizar = (UsuarioActual.PorcentajeMaximoAutorizacion / 100) @@ -351,7 +351,7 @@ Partial Class Ventas_CatAutorizacionLimites StrFiltro.AppendFormat("Vendedor: {0}, ", DdlVendedorFiltro.SelectedItem) StrFiltro.AppendFormat("Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToString("dd/MM/yyyy")) 'If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(", Fecha Fin: {0}", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy")) - Dim fechaFin As String = IIf(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy")) + Dim fechaFin As String = If(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy")) StrFiltro.AppendFormat(", Fecha Fin: {0}", fechaFin) 'Oculta columnas en export sin afectar GridView en página diff --git a/Ventas/CatCobranzaEstatus.aspx.vb b/Ventas/CatCobranzaEstatus.aspx.vb index dd474ce1f..5dbf30f6d 100644 --- a/Ventas/CatCobranzaEstatus.aspx.vb +++ b/Ventas/CatCobranzaEstatus.aspx.vb @@ -50,7 +50,7 @@ Partial Class Vta_CatCobranzaEstatus Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) CveCobranzaEstatus = GvRow.DataKey("CveCobranzaEstatus").ToEntero TxtEstatusCobranza.Text = GvRow.DataKey("CobranzaEstatus").ToString - ChkEstatus.Checked = GvRow.DataKey("Estatus") + ChkEstatus.Checked = GvRow.DataKey("Estatus") = "True" BtnAgregarEstatusCobranza.Text = "Actualizar" UpAddEstatus.Update() RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranza")) @@ -115,7 +115,7 @@ Partial Class Vta_CatCobranzaEstatus Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) CveCobranzaEstatusTurno = GvRow.DataKey("CveCobranzaEstatusTurno").ToEntero TxtEstatusCobranzaTurno.Text = GvRow.DataKey("CobranzaEstatusTurno").ToString - ChkEstatusTurno.Checked = GvRow.DataKey("Estatus") + ChkEstatusTurno.Checked = GvRow.DataKey("Estatus") = "True" BtnAgregarEstatusCobranzaTurno.Text = "Actualizar" UpAddEstatusTurno.Update() RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranzaTurno")) diff --git a/Ventas/CatDocumentosClientes.aspx.vb b/Ventas/CatDocumentosClientes.aspx.vb index 6d3fc5254..ffdd31f32 100644 --- a/Ventas/CatDocumentosClientes.aspx.vb +++ b/Ventas/CatDocumentosClientes.aspx.vb @@ -92,7 +92,7 @@ Partial Class Vta_CatDocumentosClientes Property Estatus As Boolean Get If ViewState("Estatus") Is Nothing Then - Return 0 + Return False Else Return DirectCast(ViewState("Estatus"), Boolean) End If @@ -132,7 +132,7 @@ Partial Class Vta_CatDocumentosClientes Property DiasLimite As Integer Get If ViewState("DiasLimite") Is Nothing Then - Return True + Return 1 Else Return DirectCast(ViewState("DiasLimite"), Integer) End If @@ -257,26 +257,26 @@ Partial Class Vta_CatDocumentosClientes Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CveDocumentacion = GvRow.DataKey("CveDocumentacion") + CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToEntero Documentacion = GvRow.DataKey("Documentacion") DocumentacionFormato = GvRow.DataKey("DocumentacionFormato") - CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo") + CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero DocumentacionTipo = GvRow.DataKey("DocumentacionTipo") - Orden = GvRow.DataKey("Orden") - Estatus = GvRow.DataKey("Estatus") - Requerido = GvRow.DataKey("Requerido") + Orden = GvRow.DataKey("Orden").ToEntero + Estatus = GvRow.DataKey("Estatus") = "True" + Requerido = GvRow.DataKey("Requerido") = "True" DiasLimite = GvRow.DataKey("DiasLimite").ToEntero AplicaDiasLimite = If(GvRow.DataKey("AplicaDiasLimite").ToEntero = 1, True, False) AplicaFechaVencimiento = If(GvRow.DataKey("AplicaFechaVencimiento").ToEntero = 1, True, False) Txtdocumentacion.Text = Documentacion - TxtOrden.Text = Orden + TxtOrden.Text = Orden.ToString DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo) chkEstatus.Checked = Estatus chkRequerido.Checked = Requerido - TxtDiasLimite.Text = DiasLimite + TxtDiasLimite.Text = DiasLimite.ToString ChkAplicaDiasLimite.Checked = AplicaDiasLimite ChkAplicaFechaVencimiento.Checked = AplicaFechaVencimiento @@ -339,7 +339,7 @@ Partial Class Vta_CatDocumentosClientes Public Sub Remove_ClickDocumentacion(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion") + Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero Dim _documetacionFormato As String = GvRow.DataKey("DocumentacionFormato") @@ -384,7 +384,7 @@ Partial Class Vta_CatDocumentosClientes If ActualizarDocumentacion Then _formato = GuardarArchivo(CveDocumentacion) - If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then + If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion) @@ -392,11 +392,11 @@ Partial Class Vta_CatDocumentosClientes End If Else - If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then + If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero _formato = GuardarArchivo(CveDocumentacion) - If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then + If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then End If @@ -421,7 +421,7 @@ Partial Class Vta_CatDocumentosClientes Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString.ToEntero Dim DocumetacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad") - Dim separado As Char() = {"."} + Dim separado As Char() = {"."c} Dim array() As String = DocumetacionFormato.Split(separado) Dim extencion As String = "" diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index ebd33afe3..b81da0b6a 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -15,7 +15,7 @@ Partial Class CatMetasVendedores Private Property DtDatos() As DataTable Get - Return ViewState("DtDatos") + Return CType(ViewState("DtDatos"), DataTable) End Get Set ViewState("DtDatos") = Value @@ -97,7 +97,7 @@ Partial Class CatMetasVendedores Dim ObjVentas As New ClsVentas If BtnAgregarMetaVendedor.Text = "Agregar" Then - If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, + If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then Alert("Se agregó la meta al vendedor") Else @@ -324,8 +324,8 @@ Partial Class CatMetasVendedores Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero - Dim Mes As Decimal = row("Mes").ToString().ToDecimal() - Dim Anio As Decimal = row("Año").ToString().ToDecimal() + Dim Mes As Integer = row("Mes").ToString().ToEntero() + Dim Anio As Integer = row("Año").ToString().ToEntero() Dim Cantidad As Decimal = row("Cantidad").ToString().ToDecimal() Dim Importe As Decimal = row("Importe").ToString().ToDecimal() diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb index 7946692a5..181ecb94b 100644 --- a/Ventas/MetasVendedores.aspx.vb +++ b/Ventas/MetasVendedores.aspx.vb @@ -57,7 +57,7 @@ Partial Class MetasVendedores End If Dim ObjVentas As New ClsVentas - If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, + If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text.ToDate, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero, DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlDistribuidor.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then GV.DataSource = ObjVentas.DtResultados @@ -109,7 +109,7 @@ Partial Class MetasVendedores params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("FechaImpresion", Today)) + params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString)) params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString)) params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString)) @@ -124,7 +124,7 @@ Partial Class MetasVendedores params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("FechaImpresion", Today)) + params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString)) params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString)) params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString)) diff --git a/Ventas/PuntoVenta.aspx.vb b/Ventas/PuntoVenta.aspx.vb index 4135adf78..130cf399f 100644 --- a/Ventas/PuntoVenta.aspx.vb +++ b/Ventas/PuntoVenta.aspx.vb @@ -43,7 +43,7 @@ Partial Class Ventas_PuntoVenta ' Return a base 64 encoded string of the Hash value Dim i As Integer For i = 0 To byteHash.Length - 1 - Respuesta = Respuesta + Hex(byteHash(i)).ToString.PadLeft(2, "0") + Respuesta = Respuesta + Hex(byteHash(i)).ToString.PadLeft(2, "0"c) Next Return Respuesta diff --git a/Ventas/RepIngresosDetalle.aspx.vb b/Ventas/RepIngresosDetalle.aspx.vb index c34689dc5..b44298944 100644 --- a/Ventas/RepIngresosDetalle.aspx.vb +++ b/Ventas/RepIngresosDetalle.aspx.vb @@ -75,7 +75,7 @@ Partial Class Ventas_RepIngresosDetalle RsFechaI = If(IsNothing(Request("RsFechaI")), "", Request("RsFechaI").ToString()) RsFechaF = If(IsNothing(Request("RsFechaF")), "", Request("RsFechaF").ToString()) TipoDoc = If(IsNothing(Request("TipoDoc")), "", Request("TipoDoc").ToString()) - CveCuenta = If(IsNothing(Request("CveCuenta")), "", Request("CveCuenta").ToString()) + CveCuenta = If(IsNothing(Request("CveCuenta")), "", Request("CveCuenta").ToString()).ToEntero CveSubProyecto = If(IsNothing(Request("CveSubProyecto")), 0, Request("CveSubProyecto").ToString().ToEntero()) CveConceptoContable = If(IsNothing(Request("CveConceptoContable")), -1, Request("CveConceptoContable").ToString().ToEntero()) TipoAmortizacion = If(IsNothing(Request("TipoAmortizacion")), -1, Request("TipoAmortizacion").ToString().ToEntero()) diff --git a/Ventas/RepVentasMensuales.aspx.vb b/Ventas/RepVentasMensuales.aspx.vb index 758298b81..1032f0974 100644 --- a/Ventas/RepVentasMensuales.aspx.vb +++ b/Ventas/RepVentasMensuales.aspx.vb @@ -50,7 +50,7 @@ Partial Class RepVentasMensuales Private Sub CargaDatos() Dim ObjVentas As New ClsVentas - If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero, + If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero) Then GV.DataSource = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados @@ -72,7 +72,7 @@ Partial Class RepVentasMensuales params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("FechaImpresion", Today)) + params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString)) params.Add(New ReportParameter("Modalidad", DdlModalidad.SelectedValue)) ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensuales.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1") @@ -90,10 +90,10 @@ Partial Class RepVentasMensuales CveCliente = e.Row.DataKey("Clave").ToEntero CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero Else - CveSubProyecto = e.Row.DataKey("Clave") + CveSubProyecto = e.Row.DataKey("Clave").ToEntero End If - Dim FechaInicio As Date = TxtFechaI.Text - Dim FechaFin As Date = TxtFechaF.Text + Dim FechaInicio As Date = TxtFechaI.Text.ToDate + Dim FechaFin As Date = TxtFechaF.Text.ToDate Dim CveMarca As Integer = DdlMarca.SelectedValue.ToEntero Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero Dim URL As String = String.Format("/Ventas/RepVentasMensualesDetalle.aspx?CveCliente={0}&CveSubProyecto={1}&FechaInicio={2}&FechaFin={3}&CveMarca={4}&CveVendedor={5}", diff --git a/Ventas/RepVentasMensualesDetalle.aspx.vb b/Ventas/RepVentasMensualesDetalle.aspx.vb index cbec044cb..62d099ec2 100644 --- a/Ventas/RepVentasMensualesDetalle.aspx.vb +++ b/Ventas/RepVentasMensualesDetalle.aspx.vb @@ -24,12 +24,12 @@ Partial Class RepVentasMensualesDetalle Private Sub CargaDatos() 'URL DE PRUEBA '/Ventas/RepVentasMensualesDetalle.aspx?CveCliente=270821&CveSubProyecto=-1&FechaInicio=2020-02-15&FechaFin=2020-02-20&CveMarca=-1&CveVendedor=-1 - Dim FechaInicio As Date = Request.QueryString("FechaInicio") - Dim FechaFin As Date = Request.QueryString("FechaFin") - Dim CveCliente As Integer = Request.QueryString("CveCliente") - Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto") - Dim CveMarca As Integer = Request.QueryString("CveMarca") - Dim CveVendedor As Integer = Request.QueryString("CveVendedor") + Dim FechaInicio As Date = Request.QueryString("FechaInicio").ToDate + Dim FechaFin As Date = Request.QueryString("FechaFin").ToDate + Dim CveCliente As Integer = Request.QueryString("CveCliente").ToEntero + Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto").ToEntero + Dim CveMarca As Integer = Request.QueryString("CveMarca").ToEntero + Dim CveVendedor As Integer = Request.QueryString("CveVendedor").ToEntero Dim ObjVentas As New ClsVentas If ObjVentas.GetRepVentasMensualesDetalle(UsuarioActual.CveEmpresa, CveCliente, FechaInicio, FechaFin, CveSubProyecto, CveVendedor, CveMarca) Then @@ -48,8 +48,8 @@ Partial Class RepVentasMensualesDetalle params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - params.Add(New ReportParameter("FechaImpresion", Today)) - params.Add(New ReportParameter("Modalidad", 2)) + params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString)) + params.Add(New ReportParameter("Modalidad", "2")) ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensualesDetalle.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1") End Sub diff --git a/Ventas/RepVentasResumen.aspx.vb b/Ventas/RepVentasResumen.aspx.vb index 70295aff9..a2d9b1d3d 100644 --- a/Ventas/RepVentasResumen.aspx.vb +++ b/Ventas/RepVentasResumen.aspx.vb @@ -84,7 +84,7 @@ Partial Class Ventas_RepVentasResumen Dim ObjVentas As New ClsVentas Dim ObjMovtos As New ClsMovimientos() - If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, + If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then VxP = ObjVentas.DtResultados GvVxP.DataSource = VxP @@ -93,7 +93,7 @@ Partial Class Ventas_RepVentasResumen VxP = Nothing End If - If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, + If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 10, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then VxC = ObjVentas.DtResultados GvVxC.DataSource = VxC @@ -103,7 +103,7 @@ Partial Class Ventas_RepVentasResumen VxC = Nothing End If - If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, -1, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then Datos = ObjVentas.DtResultados GvPxC.DataSource = Datos Else