diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 055d4bf36..197f40b86 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -242,7 +242,7 @@ Public Class ClsProductosServicios CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString - SATDescripcion = Data.Rows(0)("SATDescripcion").ToString + 'SATDescripcion = Data.Rows(0)("SATDescripcion").ToString Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero Me.Codigo = Data.Rows(0)("Codigo").ToString Me.Codigo2 = Data.Rows(0)("Codigo2").ToString @@ -260,7 +260,8 @@ Public Class ClsProductosServicios Estado2 = Data.Rows(0)("Estado2").ToString.ToEntero Fecha = Data.Rows(0)("Fecha").ToString.ToDate Usuario = Data.Rows(0)("Usuario").ToString - AlmacenSeccion = Data.Rows(0)("AlmacenSeccion").ToString + + 'AlmacenSeccion = Data.Rows(0)("AlmacenSeccion").ToString AplicaIEPS = (Data.Rows(0)("AplicaIEPS").ToString) = "True" IEPSGrabaIVA = (Data.Rows(0)("IEPSGrabaIVA").ToString) = "True" IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble @@ -282,7 +283,7 @@ Public Class ClsProductosServicios Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero - VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal + 'VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero RetISR = Data.Rows(0)("RetISR").ToString.ToDouble diff --git a/App_Code/WS_PuntoVenta.vb b/App_Code/WS_PuntoVenta.vb index e22b5f793..ee2e087e2 100644 --- a/App_Code/WS_PuntoVenta.vb +++ b/App_Code/WS_PuntoVenta.vb @@ -429,22 +429,22 @@ Public Class WS_PuntoVenta Return Respuesta End Function - ' - 'Public Function GetSucursales(CveEmpresa As Integer) As RespuestaWS - ' Dim objSucursales As New ClsSucursales - ' Dim Respuesta As New RespuestaWS + + Public Function GetSubProyectos(CveEmpresa As Integer) As RespuestaWS + Dim objProyecto As New ClsSubProyectos + Dim Respuesta As New RespuestaWS - ' If objSucursales.GetSucursales() Then - ' Respuesta.Datos = objSucursales.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) - ' Respuesta.Datos.TableName = "Resultados" - ' Respuesta.HuboError = False - ' Else - ' Respuesta.Descripcion = "HUBO UN ERROR" - ' End If + If objProyecto.GetSubProyectos(CveEmpresa) Then + Respuesta.Datos = objProyecto.DtResultados + Respuesta.Datos.TableName = "Resultados" + Respuesta.HuboError = False + Else + Respuesta.Descripcion = "HUBO UN ERROR" + End If - ' objSucursales.Dispose() - ' Return Respuesta - 'End Function + objProyecto.Dispose() + Return Respuesta + End Function Public Function GetClientes(CveEmpresa As Integer) As RespuestaWS @@ -478,7 +478,7 @@ Public Class WS_PuntoVenta objFolios.Dispose() Return Respuesta End Function - + 'Candiddato a borrar 'COMENTADO IPP: CAMBIO LA FORMA DE USAR LAS PROMOCIONES | 2 NOVIEMBRE 2016 ' 'Public Function GetVta_PromocionesDetalle(CvePS As Integer, Fecha As String, CveSucursal As Integer, CveEmpresa As Integer) As RespuestaWS @@ -498,11 +498,11 @@ Public Class WS_PuntoVenta 'End Function - Public Function GetVta_Promociones(Fecha As String, CveEmpresa As Integer) As RespuestaWS + Public Function GetVta_Promociones(Fecha As String, CveSubProyecto As Integer, CveEmpresa As Integer) As RespuestaWS Dim objPromociones As New ClsVentas Dim Respuesta As New RespuestaWS - If objPromociones.GetPromociones(-1, Fecha, -1, -1, 1, CveEmpresa, -1) Then + If objPromociones.GetPromociones(-1, Fecha, -1, -1, 1, CveEmpresa, CveSubProyecto) Then Respuesta.Datos = objPromociones.DtResultados Respuesta.Datos.TableName = "Resultados" Respuesta.HuboError = False @@ -618,39 +618,39 @@ Public Class WS_PuntoVenta Return Respuesta End Function - ' - ''Public Function GetProductosServiciosCaracteristicas(CveEmpresa As Integer, CveSucursal As Integer) As RespuestaWS - '' Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas - '' Dim Respuesta As New RespuestaWS + + Public Function GetProductosServiciosCaracteristicas(CveEmpresa As Integer, CveSubProyecto As Integer) As RespuestaWS + Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas + Dim Respuesta As New RespuestaWS - '' If objPSCaracteristicas.GetProductosServiciosCaracteristicas(CveEmpresa, CveSucursal) Then - '' Respuesta.Datos = objPSCaracteristicas.DtResultados - '' Respuesta.Datos.TableName = "Resultados" - '' Respuesta.HuboError = False - '' Else - '' Respuesta.Descripcion = "HUBO UN ERROR" - '' End If + If objPSCaracteristicas.GetProductosServiciosCaracteristicas(CveEmpresa, CveSubProyecto) Then + Respuesta.Datos = objPSCaracteristicas.DtResultados + Respuesta.Datos.TableName = "Resultados" + Respuesta.HuboError = False + Else + Respuesta.Descripcion = "HUBO UN ERROR" + End If - '' objPSCaracteristicas.Dispose() - '' Return Respuesta - ''End Function + objPSCaracteristicas.Dispose() + Return Respuesta + End Function - ' - ''Public Function GetProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer, CveSucursal As Integer) As RespuestaWS - '' Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas - '' Dim Respuesta As New RespuestaWS + + Public Function GetProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer, CveSubProyecto As Integer) As RespuestaWS + Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas + Dim Respuesta As New RespuestaWS - '' If objPSCaracteristicas.GetProductosServiciosCaracteristicasOpciones(CveEmpresa, CveSucursal) Then - '' Respuesta.Datos = objPSCaracteristicas.DtResultados - '' Respuesta.Datos.TableName = "Resultados" - '' Respuesta.HuboError = False - '' Else - '' Respuesta.Descripcion = "HUBO UN ERROR" - '' End If + If objPSCaracteristicas.GetProductosServiciosCaracteristicasOpciones(CveEmpresa, CveSubProyecto) Then + Respuesta.Datos = objPSCaracteristicas.DtResultados + Respuesta.Datos.TableName = "Resultados" + Respuesta.HuboError = False + Else + Respuesta.Descripcion = "HUBO UN ERROR" + End If - '' objPSCaracteristicas.Dispose() - '' Return Respuesta - ''End Function + objPSCaracteristicas.Dispose() + Return Respuesta + End Function Public Function GetProductosServiciosPaquetes(CveEmpresa As Integer) As RespuestaWS @@ -736,18 +736,28 @@ Public Class WS_PuntoVenta Public Function GetUsuarios(CveEmpresa As Integer) As RespuestaWS - Dim objUsuarios As New ClsSisUsuarios Dim Respuesta As New RespuestaWS + Respuesta.HuboError = False - If objUsuarios.GetUsuarios(-1) Then - Respuesta.Datos = objUsuarios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus = 1 AND CveSucursal > 0", CveEmpresa.ToString)) - Respuesta.Datos.TableName = "Resultados" - Respuesta.HuboError = False - Else - Respuesta.Descripcion = "HUBO UN ERROR" - End If + Using objUsuarios As New ClsSisUsuarios + + If objUsuarios.GetUsuarios(-1) Then + Respuesta.Datos = objUsuarios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus = 1 ", CveEmpresa)) + Respuesta.Datos.TableName = "Resultados" + Else + Respuesta.HuboError = True + Respuesta.Descripcion = "HUBO UN ERROR" + End If + End Using + Using objsubproy As New ClsSubProyectos + If objsubproy.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then + + Respuesta.Datos2 = objsubproy.DtResultados + Respuesta.Datos2.TableName = "Resultados" + End If + + End Using - objUsuarios.Dispose() Return Respuesta End Function diff --git a/App_Code/wsSIG.vb b/App_Code/wsSIG.vb index acad4e26f..33596c4e1 100644 --- a/App_Code/wsSIG.vb +++ b/App_Code/wsSIG.vb @@ -74,21 +74,38 @@ Public Class wsSIG Dim Retorno As UsuarioWs = Nothing Dim ArrCadena As String() = DecriptaCadena(Cadena, "AES") - If ArrCadena IsNot Nothing AndAlso ArrCadena.Count = 5 Then + If ArrCadena IsNot Nothing AndAlso ArrCadena.Count.Contiene(New Integer() {5, 7}) Then Dim Usuario, Contrasenia, IMEI, Version As String + Dim CveSubProyecto As Integer = 0 + Dim reqCveSubProyecto As Integer = -1 + Dim CveEmpresa As Integer = -1 + Dim validatesubproyecto As Boolean = False Dim Fecha As DateTime Usuario = ArrCadena(0) : Contrasenia = ArrCadena(1) : IMEI = ArrCadena(2) : Version = ArrCadena(3) : Fecha = ArrCadena(4).ToString.ToDate - + If ArrCadena.Length > 6 Then + reqCveSubProyecto = ArrCadena(5).ToString.ToEntero() + CveEmpresa = ArrCadena(6).ToString.ToEntero() + validatesubproyecto = True + End If 'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad" If Fecha > Now.AddSeconds(TiempoValido) Then - Dim ttDato As Usuario - Dim tUsuario As New ClsSisUsuarios - - ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI) + Dim ttDato As Usuario = Nothing + Using tUsuario As New ClsSisUsuarios() + ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI, CveEmpresa) + End Using + If validatesubproyecto Then + Using objsubproy As New ClsSubProyectos() + If objsubproy.GetSubProyectosUsuarios(CveUsuario:=ttDato.CveUsuario, CveSubProyecto:=reqCveSubProyecto) Then + If objsubproy.DtResultados.FiltroPrimero(String.Format("CveSubProyecto={0}", reqCveSubProyecto)) IsNot Nothing Then + CveSubProyecto = reqCveSubProyecto + End If + End If + End Using + End If If ttDato IsNot Nothing Then - Retorno = New UsuarioWs + Retorno = New UsuarioWs() Retorno.CveUsuario = ttDato.CveUsuario 'Retorno.Usuario = ttDato.Usuario @@ -98,13 +115,12 @@ Public Class wsSIG Retorno.CveEmpresa = ttDato.CveEmpresa 'Retorno.Empresa = ttDato.NombreEmpresa Retorno.CveVendedor = ttDato.CveVendedor - Retorno.CveSucursal = ttDato.CveSucursal + Retorno.CveSucursal = CveSubProyecto 'Retorno.Contraseña = ttDato.Contraseña 'Retorno.IMEI = IMEI End If - tUsuario.Dispose() Else Cadena.GuardaLog() End If diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index 4e64fa231..5b2e87259 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -281,7 +281,7 @@ } else { CargaGraficaPastel(); } - $('.LblTituloGrafica').text($(obj).parent().parent().text()); + $('.LblTituloGrafica').text($(obj).closest('tr').text().trim()); } function CargaGraficaBarras() { let data = cdatos; diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index 3f633936e..913b948ba 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -299,8 +299,7 @@ - - + @@ -322,7 +321,7 @@ } else { CargaGraficaPastel(); } - $('.LblTituloGrafica').text($(obj).parent().parent().text()); + $('.LblTituloGrafica').text($(obj).closest('tr').text().trim()); } function CargaGraficaBarras() { let data = cdatos; @@ -396,7 +395,7 @@ function cargaGraficaBarras2() { //Hypgrafica $("#DivModalGrafica").modal(); - $('.LblTituloGrafica').text('grafica'); + $('.LblTituloGrafica').text('Grafica'); let items = [] let data; let series = []; @@ -517,8 +516,7 @@ diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index 001fe01b4..a8bd5535c 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/Metronic/assets/admin/layout/css/custom.css @@ -2656,14 +2656,14 @@ select.select2-offscreen, select.select2-offscreen:focus { position: absolute; content: "Arrastre el archivo"; color: #808080; - font-size: 30px; + font-size: 20px; margin-top: 15px; } .addropzone.dz-clickable:after { position: absolute; content: "o presione doble click"; color: #808080; - font-size: 30px; + font-size: 20px; margin-top: 45px; } diff --git a/OI/CircularDetalleB.aspx b/OI/CircularDetalleB.aspx index 25a752047..dddafe9f5 100644 --- a/OI/CircularDetalleB.aspx +++ b/OI/CircularDetalleB.aspx @@ -8,8 +8,13 @@ content: "Pegar aquí"; } - .addropzone.dz-clickable:before { - margin-top: 40px; + .addropzone.dz-clickable:before{ + margin-top: 15px; + } + .addropzone.dz-clickable:before, + .addropzone.dz-clickable:after { + font-size: 20px; + line-height: 1; } .pnlCorreo { @@ -79,18 +84,19 @@
-

Para

+

Para

+
- + <%----%> <%-- Jorge caudillo(jcaudillo@adsistemas.mx); Julian Moreno(Julianmoreno@adsistemas.mx); - --%> + --%>
@@ -118,15 +124,15 @@

Adjuntar Archivos:

- -
-
- Archivo cargado: -
-
- -
+ +
+
+ Archivo cargado:
+
+ +
+
@@ -134,11 +140,11 @@ <%----%>
- -
- - -
+ +
+ + +