AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
RH/CatEstatusPersonal.aspx.vb
View File

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

2
RH/CatMotivoBaja.aspx.vb
View File

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

2
Sistemas/CatDistribuidores.aspx.vb
View File

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

6
Sistemas/CatModulos.aspx.vb
View File

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

2
Sistemas/CatParametros.aspx.vb
View File

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

2
Sistemas/CatSesiones.aspx.vb
View File

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

32
Sistemas/CatTareasProgramadas.aspx.vb
View File

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

12
Sistemas/PopUpAddUsuario.aspx.vb
View File

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

2
Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
View File

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

2
Sistemas/Registro.aspx.vb
View File

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

2
Sistemas/SessionesActivas.aspx.vb
View File

@@ -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}")

4
Ventas/CatAutorizacionLimites.aspx.vb
View File

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

4
Ventas/CatCobranzaEstatus.aspx.vb
View File

@@ -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"))

28
Ventas/CatDocumentosClientes.aspx.vb
View File

@@ -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 = ""

8
Ventas/CatMetasVendedores.aspx.vb
View File

@@ -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()

6
Ventas/MetasVendedores.aspx.vb
View File

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

2
Ventas/PuntoVenta.aspx.vb
View File

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

2
Ventas/RepIngresosDetalle.aspx.vb
View File

@@ -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())

10
Ventas/RepVentasMensuales.aspx.vb
View File

@@ -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}",

16
Ventas/RepVentasMensualesDetalle.aspx.vb
View File

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

6
Ventas/RepVentasResumen.aspx.vb
View File

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