diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 1ed92ca05..04527b54e 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -3129,11 +3129,11 @@ Public Class ClsBancos SqlAdapter.Fill(Data) Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then - Alert("Ya existe un registro con el mismo Folio", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then + Alert("Ya existe un registro con el mismo Folio", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception OnError("Ocurrió un error al actualizar El movimiento Bancario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) @@ -4760,4 +4760,25 @@ Public Class ClsBancos #End Region +#Region "reportes" + Public Function GetPagosNoBancarios(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Banc_PagosNoBancarios") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los pagos no bancarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function +#End Region End Class diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 10ec25ddd..b4e247486 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/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 4313f8638..83ede0055 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -761,7 +761,7 @@ Partial Class Bancos_IE End If InicializaSolicitudAnticipoOC() - If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT") AndAlso UsuarioActual.CveEmpresa = 119 Then + If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT") AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then RBL.Items.Add(New ListItem("Acreedores Diversos", "AC")) End If @@ -2677,8 +2677,8 @@ Partial Class Bancos_IE Dim FolioFijo As Integer = 0 Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero - Dim tImporteMonedaExtranjera As Decimal = 0 - If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal + Dim tImporteMonedaExtranjera As Decimal = TxtImporte.Text.ToDecimal + If tCveMoneda <> 1 Then tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL Dim PagueseA = "" If HdnCveCliente.Value.ToEntero > 0 Then @@ -2786,7 +2786,7 @@ Partial Class Bancos_IE Else If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then MsgError = "no se pudo insertar el detalle de la póliza 2" End If Else @@ -3583,7 +3583,10 @@ Partial Class Bancos_IE importeMovimiento = TxtImporte.Text.ToDecimal importeMX = importeMovimiento - + If tCveMoneda > 1 Then + importeMovimiento = TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal + importeMX = importeMovimiento + End If Case 46 @@ -3625,7 +3628,7 @@ Partial Class Bancos_IE 'MOVIMIENTOS EGRESOS If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then MsgError = "Detalle" End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 20e4db652..68b8ca7c6 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -788,7 +788,7 @@ Partial Class PopUpVerFactura ResponsableRecibio = Dr("ResponsableRecibio").ToString Identificacion = Dr("Identificacion").ToString Domicilio = Dr("Domicilio").ToString - Telefono = Dr("Telefono").ToString + Telefono = Dr("Telefono1").ToString Ciudad = Dr("Ciudad").ToString Licencia = Dr("Licencia").ToString End If @@ -813,7 +813,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {UsuarioActual.Empresa.Telefono}")) + params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}")) params.Add(New ReportParameter("SerieFolio", SerieFolio)) params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal)) params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 9cfbdc5f5..929b552c4 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -2164,6 +2164,52 @@ +
+
+
+ + Pagos no bancarios +
+
+
+ + + + + + + + + + +
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+ +
+ + + + + + + + + + + + + + +
+
+
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 435d893c5..d0c99d4d9 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -511,7 +511,7 @@ Partial Class Compras_Proveedores 'CargaColectivas() 'CargaSaldosBeneficiarios() CargaUsuariosPortal() - + CargarPagosNoBancarios() CargaFiltroMonedas() MostrarFiltro() @@ -6269,6 +6269,15 @@ Partial Class Compras_Proveedores End If End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index be6bb5dc2..8789e9f31 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -282,7 +282,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 4cdfdab67..0a34338fd 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -302,8 +302,7 @@ - - + @@ -325,7 +324,7 @@ } else { CargaGraficaPastel(); } - $('.LblTituloGrafica').text($(obj).parent().parent().text()); + $('.LblTituloGrafica').text($(obj).closest('tr').text().trim()); } function CargaGraficaBarras() { let data = cdatos; @@ -399,7 +398,7 @@ function cargaGraficaBarras2() { //Hypgrafica $("#DivModalGrafica").modal(); - $('.LblTituloGrafica').text('grafica'); + $('.LblTituloGrafica').text('Grafica'); let items = [] let data; let series = []; @@ -520,8 +519,7 @@ diff --git a/Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc b/Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc index 1c4ecdb04..9997bce7d 100644 --- a/Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc +++ b/Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc @@ -27,13 +27,13 @@ 2.3148cm - 2.10313cm + 1.78563cm - 2.1825cm + 2.20896cm - 2.31479cm + 2.60583cm @@ -155,13 +155,160 @@ 2pt - 5 - - - - + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -689,12 +836,104 @@ 2pt - 4 - - - + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -1487,10 +1726,10 @@ Textbox8 - 1.143cm - 18.05564cm + 1.21179cm + 20.30461cm 0.92251cm - 2.3148cm + 2.60583cm 1 diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb index af2d7eff3..d388970ab 100644 --- a/GPS/Rastreo.aspx.vb +++ b/GPS/Rastreo.aspx.vb @@ -379,7 +379,7 @@ Partial Class GPS_Rastreo Dim CordenadaAnterior As String = "" For Each row As DataRow In TmpDT.Rows Contador += 1 - Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT") + Dim Coord As String = SQLToGmaps(row("Posicion").ToString(), "POINT") Dim Velocidad As Double = row("SPD").ToString.ToDouble Fecha = row("FechaTrama").ToString diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 766adc971..c63c3d11e 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -506,7 +506,7 @@

-

+
diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 34fce1e71..74a50ea34 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -174,6 +174,8 @@
+ +
@@ -196,15 +198,21 @@
+ +
+ +
+ +
@@ -383,7 +391,7 @@ Comandos - + @@ -396,6 +404,8 @@ + + diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 15a4aaa3e..49dc29ef3 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -209,6 +209,7 @@ Partial Class Inventarios_TraspasoAlmacen If UsuarioActual.CveEmpresa.Contiene(1, 119) Then DivEmitirTimbrado.Visible = True LblEmitirTimbrado.Visible = True + ChkEmitirTimbrado.Checked = True End If CantidadTotal = 0 @@ -1448,9 +1449,12 @@ Partial Class Inventarios_TraspasoAlmacen TxtResponsable.Text = "" TxtGastoIndirecto.Text = "" RegistraScript("$('#DivTransitorio').show(200);$('#DivGastoIndirecto').show(100);$('#DivDocChofer').show(100);") + + ChkEmitirTimbrado.Checked = LblEmitirTimbrado.Visible Else RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);") End If + CargaAlmacenDestino() SiguienteFolio(If(ChkTransitorio.Checked, 9, 8)) End Sub @@ -2846,29 +2850,42 @@ Partial Class Inventarios_TraspasoAlmacen DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) UpDatos.Update() - Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("") - If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados + CargaAlmacenDestino() - DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen IN (26) AND Estatus = 'Activo'") - DdlAlmacenDestino.DataBind() - DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + End Sub + + Private Sub CargaAlmacenDestino() + + Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("") + If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados + + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen IN (26) AND Estatus = 'Activo'") + DdlAlmacenDestino.DataBind() + DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) + Else + + Dim Str As String + If ChkTransitorio.Checked Then + Str = "" ' String.Format(" AND CveSubProyecto <> {0} ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio Else - - DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo'") - DdlAlmacenDestino.DataBind() - DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) + Str = String.Format(" AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto")) End If + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo' {0} ", Str)) + DdlAlmacenDestino.DataBind() + DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If End Sub Protected Sub DdlAlmacenDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestino.SelectedIndexChanged - If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToString.ToEntero = 21 Then - ChkTransitorio.Checked = False - ChkTransitorio.Enabled = False - Else - ChkTransitorio.Enabled = True - End If + 'If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToString.ToEntero = 21 Then + ' ChkTransitorio.Checked = False + ' ChkTransitorio.Enabled = False + 'Else + ' ChkTransitorio.Enabled = True + 'End If If DdlAlmacenDestino.SelectedValue.ToEntero > 0 Then DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero) DdlSeccionAlmacenDestino.DataBind() diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index 001fe01b4..39800e20f 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/Metronic/assets/admin/layout/css/custom.css @@ -30,7 +30,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol { } .AdsCHeader > .ADSCroll { - overflow: hidden; + overflow: auto; } .AdsBody .ADSCroll { @@ -53,10 +53,12 @@ table > tr > th.adsCol, table.table > tr > th.adsCol { background-color: #F5F5F5; } + .AdsBody .ADSCroll::-webkit-scrollbar-thumb { background-color: #AAA; border-radius: 4px; - background-image: -webkit-linear-gradient(90deg, rgba(0, 0, 0, .2) 25%, transparent 25%, transparent 50%, rgba(0, 0, 0, .2) 50%, rgba(0, 0, 0, .2) 75%, transparent 75%, transparent) + background-color: #F5F5F5; + -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.5); } .line-Lite .form-group.form-md-line-input .form-control { @@ -700,8 +702,8 @@ div.ADScroller { } .ADScroller .ADScroller-body::-webkit-scrollbar { - width: 8px; - height: 8px; + width: 10px; + height: 12px; } .ADScroller .ADScroller-body::-webkit-scrollbar-track { @@ -2656,14 +2658,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/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index 186d56933..3e5c523e2 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -259,14 +259,13 @@
+ CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2"> - + diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 753099b93..757b5cd09 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -310,7 +310,7 @@ public partial class Nomina_Nomina2 : ClsPaginas GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible "; } - GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); + GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0); bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf.DataField = string.Format("V_{0}", CveConcepto); bf.HeaderText = Concepto; @@ -342,7 +342,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible "; } - GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); + GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0); bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf.DataField = string.Format("V_{0}", CveConcepto); bf.HeaderText = Concepto; @@ -386,7 +386,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible "; } - GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); + GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0); bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf.DataField = string.Format("V_{0}", CveConcepto); bf.HeaderText = Concepto; 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 @@ <%----%>
- -
- - -
+ +
+ + +