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/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index fac07ad08..845ac3d6b 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1188,13 +1188,12 @@ Public Class ClsMovimientos Return Retorno End Function - Public Function GetCxPDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveProveedorClasificacion As Integer, - CveProveedorSucursal As Integer, CveUsuario As Integer, - CveUsuarioResponsable As Integer, - Anio As Integer, Mes As Integer, AnioMes As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEstatusFactura As Integer, - Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, - Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, - Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1, Optional Comprobaciones As Integer = -1) As Boolean + Public Function GetCxPDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveProveedorClasificacion As Integer, CveProveedorSucursal As Integer, CveUsuario As Integer, + CveUsuarioResponsable As Integer, Anio As Integer, Mes As Integer, AnioMes As String, CveMoneda As Integer, CveSubProyecto As Integer, + CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer, + TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1", + Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1, + Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1) As Boolean Dim Retorno As Boolean = False If FechaCorte = Nothing Then FechaCorte = Now @@ -1227,6 +1226,7 @@ Public Class ClsMovimientos .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones + .Add("@AplicaNC", SqlDbType.Int).Value = AplicaNC End With Try 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/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 20e4db652..409b4be64 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -199,10 +199,10 @@ Partial Class PopUpVerFactura End If - End Sub - + End Sub + #Region "U S U A R I O - T O K E N" - + Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario Dim UsuarioToken As Usuario = Nothing @@ -236,9 +236,9 @@ Partial Class PopUpVerFactura UsuarioToken.Empresa = ObjEmpresa.Empresa End If ObjEmpresa.Dispose() - End Sub + End Sub #End Region - + Private Sub SeleccionaReporte(UrlParametros As Hashtable) 'DESCARGA COMPROBANTE @@ -493,10 +493,10 @@ Partial Class PopUpVerFactura URLParametros.Add(P2(0).ToString.ToUpper, P2(1)) Next Return URLParametros - End Function - + End Function + #Region "OP = CORT - IMPRIMIR CORTE" - + Private Sub ImprimeCorte(CveCorte As Integer, Formato As String) Dim ObjVenta As New ClsVentas Dim ObjPuntoVenta As New ClsPuntoVenta @@ -541,10 +541,10 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato) End If - End Sub - + End Sub + #End Region - + #Region " OP = FACTURA - IMPRIME COMPRA" Private Sub DescargaComprobante(Parametros As Hashtable) If Parametros("COMPROBANTE") IsNot Nothing Then @@ -583,9 +583,9 @@ Partial Class PopUpVerFactura End If Archivo = Nothing End If - End Sub + End Sub #End Region - + #Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS" Private Sub DescargaXMLViaticos(Parametros As Hashtable) If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then @@ -605,10 +605,10 @@ Partial Class PopUpVerFactura End If Archivo = Nothing End If - End Sub - + End Sub + #End Region - + #Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES" Private Sub DescargaXMLUtilidades(Parametros As Hashtable) If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then @@ -628,9 +628,9 @@ Partial Class PopUpVerFactura End If Archivo = Nothing End If - End Sub + End Sub #End Region - + #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO" Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -672,10 +672,10 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("LogoPath", "")) End If ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF") - End Sub + End Sub #End Region - - + + #Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA" Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer) If CveVenta > 0 Then @@ -712,10 +712,10 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString)) End If End If - End Sub - + End Sub + #End Region - + #Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE" Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer) If CveMovimiento > 0 Then @@ -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)) @@ -826,7 +826,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Chofer", Chofer)) params.Add(New ReportParameter("Placa", Placa)) params.Add(New ReportParameter("Recibio", Recibio)) - params.Add(New ReportParameter("FechaEntrega", FechaEntrega)) + params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToString())) params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad)) params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString)) params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString)) @@ -840,12 +840,12 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString)) End If End If - End Sub - + End Sub + #End Region - + #Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO" - + Private Sub DescargaXMLTraslado(Parametros As Hashtable) If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") @@ -864,12 +864,12 @@ Partial Class PopUpVerFactura End If Archivo = Nothing End If - End Sub - + End Sub + #End Region - + #Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO" - + Private Sub DescargaPDFTraslado(Parametros As Hashtable) If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf") @@ -888,10 +888,10 @@ Partial Class PopUpVerFactura End If Archivo = Nothing End If - End Sub - + End Sub + #End Region - + #Region " OP = 'Vta,Fact' - IMPRIME PDF VENTAS" Private Sub DescargaFacturaVenta(Parametros As Hashtable) If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then @@ -1198,11 +1198,11 @@ Partial Class PopUpVerFactura End If End If - End Sub + End Sub #End Region - + #Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN " - + Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer) Dim ObjInventarios As New ClsInventarios @@ -2465,19 +2465,19 @@ Partial Class PopUpVerFactura If (UsuarioActual.CveEmpresa = 72) Then params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios") - 'Else - ' params.Add(New ReportParameter("Folio", Folio)) - ' params.Add(New ReportParameter("Fecha", Fecha)) - ' params.Add(New ReportParameter("Almacen", Almacen)) - ' params.Add(New ReportParameter("SubProyecto", SubProyecto)) - ' params.Add(New ReportParameter("Observaciones", Observaciones)) - ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - 'End If - - + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios") + 'Else + ' params.Add(New ReportParameter("Folio", Folio)) + ' params.Add(New ReportParameter("Fecha", Fecha)) + ' params.Add(New ReportParameter("Almacen", Almacen)) + ' params.Add(New ReportParameter("SubProyecto", SubProyecto)) + ' params.Add(New ReportParameter("Observaciones", Observaciones)) + ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + 'End If + + Case 18 'D E V O L U C I O N D E L C L I E N T E Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -2654,36 +2654,36 @@ Partial Class PopUpVerFactura ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") ElseIf CveConcepto = 22 Then ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - 'Case 22 'ENTRADA POR PRESTAMO - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - ' Dim params As New List(Of ReportParameter) - - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) - ' Else - ' params.Add(New ReportParameter("LogoPath", "")) - ' End If - - ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) - ' params.Add(New ReportParameter("Almacen", Almacen)) - ' params.Add(New ReportParameter("Fecha", Fecha)) - ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - ' params.Add(New ReportParameter("Folio", Folio)) - ' params.Add(New ReportParameter("Descuentos", "")) - ' params.Add(New ReportParameter("IVA", "")) - ' params.Add(New ReportParameter("Total", "")) - ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - ' params.Add(New ReportParameter("FacturadoA", NombreCliente)) - ' If (UsuarioActual.CveEmpresa = 72) Then - ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - ' End If - ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") - + End If + + 'Case 22 'ENTRADA POR PRESTAMO + ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim params As New List(Of ReportParameter) + + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + + ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) + ' params.Add(New ReportParameter("Almacen", Almacen)) + ' params.Add(New ReportParameter("Fecha", Fecha)) + ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + ' params.Add(New ReportParameter("Folio", Folio)) + ' params.Add(New ReportParameter("Descuentos", "")) + ' params.Add(New ReportParameter("IVA", "")) + ' params.Add(New ReportParameter("Total", "")) + ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + ' params.Add(New ReportParameter("FacturadoA", NombreCliente)) + ' If (UsuarioActual.CveEmpresa = 72) Then + ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") + Case 24 'SALIDA POR RESGUARDO If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -3158,11 +3158,11 @@ Partial Class PopUpVerFactura If CveConcepto = 2 Then ElseIf CveConcepto = 3 Then End If - End Sub - - + End Sub + + #End Region - + #Region "OP = 'OC' - IMPRIME PDF OC" Private Sub ImprimePDFOC(CveOrdenCompra As Integer) Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1")) @@ -3198,10 +3198,10 @@ Partial Class PopUpVerFactura ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}") End If End If - End Sub - + End Sub + #End Region - + #Region "OP = 'VAL' - IMPRIME PDF VAL" Private Sub GenerarPDFVale(CveVale As Integer) @@ -3231,9 +3231,9 @@ Partial Class PopUpVerFactura 'End If End If ObjAF.Dispose() - End Sub + End Sub #End Region - + #Region "OP = 'OS' - IMPRIMIR PDF OS" Private Sub GenerarPDFOS(CveOS As Integer) Dim ObjOS As New ClsOS() @@ -3352,9 +3352,9 @@ Partial Class PopUpVerFactura TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String)) TmpDTMaterialesOS.Columns.Add("PS", GetType(String)) TmpDTMaterialesOS.Columns.Add("UM", GetType(String)) - End Sub + End Sub #End Region - + #Region "OP = 'OI' - Crear Archivo " Private Sub CrearArchivo(Archivo As String) Dim ObjEventos As New ClsOIEventos @@ -3363,11 +3363,11 @@ Partial Class PopUpVerFactura Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server DescargarArchivo(file) - End Sub - - + End Sub + + #End Region - + #Region "OP = 'Contratos' - Crear Archivo " Private Sub CrearArchivoContratos(Archivo As String) @@ -3375,11 +3375,11 @@ Partial Class PopUpVerFactura Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server DescargarArchivo(file) - End Sub - - + End Sub + + #End Region - + #Region "OP = 'OI' - Descargar Archivo " Private Sub DescargarArchivo(File As System.IO.FileInfo) If File.Exists Then 'set appropriate headers @@ -3409,11 +3409,11 @@ Partial Class PopUpVerFactura Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()") End If 'nothing in the URL as HTTP GET - End Sub + End Sub #End Region - + #Region "OP = 'AFR' - AF" - + Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer) Dim ObjAF As New ClsAF 'Dim ObjSubProyecto As New ClsSubProyectos @@ -3600,9 +3600,9 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo) - End Sub + End Sub #End Region - + #Region "OP = 'POL' " Private Sub ImprimirPolizaPDF(IdPoliza As Integer) 'Dim ObjConta As New ClsContabilidad @@ -3641,9 +3641,9 @@ Partial Class PopUpVerFactura ObjPoliza.Dispose() - End Sub + End Sub #End Region - + #Region "OP = 'CAN' - CANCELACION" Public Sub ImprimeCancelacion(CveVenta As Integer) Dim ObjVentas As New ClsVentas @@ -3668,9 +3668,9 @@ Partial Class PopUpVerFactura End If ObjVentas.Dispose() - End Sub + End Sub #End Region - + #Region "OP = 'DC' - DEPOSITOS CAJA" Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta)) @@ -3697,11 +3697,11 @@ Partial Class PopUpVerFactura ObjIE.Dispose() - End Sub + End Sub #End Region - + #Region "I E C H E Q U E S" - + Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer) Dim CveTipoTransaccion = -1 Dim ObjIE As New ClsBancos() @@ -4108,21 +4108,21 @@ Partial Class PopUpVerFactura ParamComprobacion.Dispose() ObjIE.Dispose() - End Sub - + End Sub + #End Region - + #Region "OP = RECIBO DE PAGOS" Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer) PDFReciboDePagos(CveVenta, CveIE, -1) - End Sub + End Sub #End Region - + #Region "OP = VTA - PyME" - - ' 04/05/2018 - Pruebas de impresion de factura PyME + + ' 04/05/2018 - Pruebas de impresion de factura PyME Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF") Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) Dim File As FileInfo = New FileInfo(Directorio1) @@ -4177,9 +4177,9 @@ Partial Class PopUpVerFactura Else RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')") End If - End Sub + End Sub #End Region - + #Region "OP = ENTREGAS - Entregas por realizar" Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String) Dim Correcto As Boolean = False @@ -4199,7 +4199,7 @@ Partial Class PopUpVerFactura ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios") End If - End Sub + End Sub #End Region - + End Class 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/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index f51a57272..120b5ff4b 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -222,7 +222,7 @@ -
Comprobación:
+
Comprobación:
@@ -230,6 +230,14 @@
+
Aplica NC:
+
+ + + + + +
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index d35433c2c..842000f1e 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -379,7 +379,7 @@ Partial Class RepCxPDetalle DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, CveMoneda, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero, Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3, - -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero) Then + -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero()) Then Dim TMP_DTDatos As New DataTable diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index 4e64fa231..8789e9f31 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -101,11 +101,12 @@ +<%-- CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true"--%> - + @@ -281,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/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb index 300c3e6ff..3e4e49632 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb @@ -42,6 +42,63 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual End Set End Property + + Public Property DtHeadersCount As Integer + Get + If ViewState("DtHeadersCount") Is Nothing Then + Return -1 + Else + Return ViewState("DtHeadersCount").ToString.ToEntero + End If + + + End Get + Set(value As Integer) + ViewState("DtHeadersCount") = value + End Set + End Property + + + + + Private Property DTHeaders As DataTable + + Get + + If ViewState("DTHeaders") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTHeaders"), DataTable) + End If + + + End Get + Set(value As DataTable) + ViewState("DTHeaders") = value + End Set + + End Property + + + Private Property DTDatos As DataTable + + Get + + If ViewState("DTDatos") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DTDatos"), DataTable) + End If + + + End Get + Set(value As DataTable) + ViewState("DTDatos") = value + End Set + + End Property + + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -121,20 +178,33 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click CargaDatos() End Sub - Private Sub CargaDatos() + Private Sub CargaDatos() + + + DTHeaders = New DataTable + DTDatos = New DataTable + Dim Conta As New ClsContabilidad + DtHeadersCount = 0 + If Conta.GetAnexoCatalogoAnual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlEjercicio2.SelectedValue.ToEntero, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then - Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0) + 'Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0) + DTHeaders = Conta.DSResultados.Tables(0) + DTDatos = Conta.DSResultados.Tables(1) + + + DtHeadersCount = DTHeaders.Rows.Count GvAnual.DataSource = Conta.DSResultados.Tables(1) Dim Index = 2 For Index = 2 To GvAnual.Columns.Count - 1 GvAnual.Columns(Index).Visible = False Next Index + listaCamposanios.Clear() Index = 2 - For Each Dr As DataRow In DtHeaders.Rows + For Each Dr As DataRow In DTHeaders.Rows GvAnual.Columns(Index).Visible = True CType(GvAnual.Columns(Index), BoundField).DataField = String.Format("Ejercicio{0}", Dr("Ejercicio")) GvAnual.Columns(Index).HeaderText = Dr("Ejercicio").ToString @@ -166,7 +236,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual UpAnual.Update() 'RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});") - RegistraScript($"LimpiaCeros();") + + 'RegistraScript($"LimpiaCeros();") + Conta.Dispose() @@ -191,10 +263,61 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual setgraficaCC(e) If e.Row.RowIndex = 0 Then e.Row.Style.Add("font-weight", "bold") - End If - - e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") - + End If + + + If e.Row.DataKey("Level").ToEntero = 0 Then + e.Row.CssClass = "Totales" + End If + + If e.Row.DataKey("Level").ToEntero = 1 Then + e.Row.CssClass = "SubTotales" + End If + + Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero + + Dim inicial As Boolean = True + Dim Index As Integer = 2 + + For Each DRow As DataRow In DTHeaders.Rows + + Dim Importe As Decimal = e.Row.DBCampo($"Ejercicio{DRow("Ejercicio")}").ToDecimal + Dim Anio As Integer = DRow("Ejercicio").ToString.ToEntero + + If Importe <> 0 Then + e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + + End If + + If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then + + e.Row.Cells(Index + 1).Text = "-" + + ElseIf e.Row.Cells(Index + 1).Text.ToDecimal < 0 Then + e.Row.Cells(Index + 1).ForeColor = Drawing.Color.Red + + End If + + If e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal = 0 Then + e.Row.Cells(Index + 2).Text = "-" + ElseIf e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal < 0 Then + e.Row.Cells(Index + 2).ForeColor = Drawing.Color.Red + End If + + + 'If inicial Then + ' Index = Indice + 1 + ' inicial = False + ' Continue For + 'End If + + Index += 3 + Next + + + + 'e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") + End If End Sub @@ -231,4 +354,56 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual + Protected Sub GvAnual_DataBound(sender As Object, e As EventArgs) + + 'If DtHeadersCount > 0 Then + + + ' '96 32 + + ' Dim NColumns As Integer = GvAnual.Columns.Count + ' Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal) + + ' Dim cell1 As New TableHeaderCell() + ' cell1.Text = "" + ' cell1.ColumnSpan = 1 + ' row.Controls.Add(cell1) + + ' Dim cell2 As New TableHeaderCell() + ' cell2.Text = "" + ' cell2.ColumnSpan = 1 + ' row.Controls.Add(cell2) + + + ' Dim cell3 As New TableHeaderCell() + ' cell3.Text = "" + ' cell3.ColumnSpan = 1 + ' row.Controls.Add(cell3) + + ' Dim cell4 As New TableHeaderCell() + ' cell4.Text = "" + ' cell4.ColumnSpan = 1 + ' row.Controls.Add(cell4) + + ' For x = 0 To DtHeadersCount + + ' Dim cell As New TableHeaderCell() + ' cell.Text = "" + ' cell.ColumnSpan = 1 + ' row.Controls.Add(cell) + + ' Dim cellColspan2 = New TableHeaderCell() + ' cellColspan2.ColumnSpan = 2 + ' cellColspan2.Text = "Variación" + ' row.Controls.Add(cellColspan2) + + ' x = x + 1 + + ' Next + + ' GvAnual.HeaderRow.Parent.Controls.AddAt(0, row) + + 'End If + + End Sub End Class diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index 03e4cd9ec..0a34338fd 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -103,7 +103,7 @@
+ DataKeyNames="Level,CveCuenta" CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="2" data-heightmenos="300"> @@ -124,141 +124,144 @@ + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + +
@@ -299,8 +302,7 @@
- - + @@ -322,7 +324,7 @@ } else { CargaGraficaPastel(); } - $('.LblTituloGrafica').text($(obj).parent().parent().text()); + $('.LblTituloGrafica').text($(obj).closest('tr').text().trim()); } function CargaGraficaBarras() { let data = cdatos; @@ -396,7 +398,7 @@ function cargaGraficaBarras2() { //Hypgrafica $("#DivModalGrafica").modal(); - $('.LblTituloGrafica').text('grafica'); + $('.LblTituloGrafica').text('Grafica'); let items = [] let data; let series = []; @@ -517,8 +519,7 @@ diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 39d6dcf25..bb9bbfec4 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -1,120 +1,120 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Drawing +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Drawing Imports System.IO -Imports Extensiones +Imports Extensiones Imports GemBox.Spreadsheet -Imports Microsoft.Reporting.WebForms - -Partial Class Contabilidad_RepEstadoResultadosHorizontal +Imports Microsoft.Reporting.WebForms + +Partial Class Contabilidad_RepEstadoResultadosHorizontal Inherits ClsPaginas -#Region "PROPIEDADES" +#Region "PROPIEDADES" - Private Property DtDatosMes As DataTable - Get - DtDatosMes = DirectCast(ViewState("DtDatosMes"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtDatosMes") = value - End Set - End Property - - Private Property DtIngresosMes As DataTable - Get - DtIngresosMes = DirectCast(ViewState("DtIngresosMes"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtIngresosMes") = value - End Set - End Property - Private Property DtGastosMes As DataTable - Get - DtGastosMes = DirectCast(ViewState("DtGastosMes"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtGastosMes") = value - End Set - End Property - Private Property TotalActualMes As Double - Get - TotalActualMes = ViewState("TotalActualMes").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalActualMes") = value - End Set - End Property - Private Property TotalAnteriorMes As Double - Get - TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble - End Get - Set(value As Double) - ViewState("TotalAnteriorMes") = value - End Set - End Property - Private Property FechaIMes As String - Get - Return ViewState("FechaIMes").ToString - End Get - Set(value As String) - ViewState("FechaIMes") = value - End Set - End Property - Private Property FechaFMes As String - Get - Return ViewState("FechaFMes").ToString - End Get - Set(value As String) - ViewState("FechaFMes") = value - End Set + Private Property DtDatosMes As DataTable + Get + DtDatosMes = DirectCast(ViewState("DtDatosMes"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatosMes") = value + End Set End Property - Private Property listacolores As List(Of String) - Get - Return DirectCast(ViewState("listacolores"), List(Of String)) - End Get - Set(value As List(Of String)) - ViewState("listacolores") = value - End Set + Private Property DtIngresosMes As DataTable + Get + DtIngresosMes = DirectCast(ViewState("DtIngresosMes"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtIngresosMes") = value + End Set + End Property + Private Property DtGastosMes As DataTable + Get + DtGastosMes = DirectCast(ViewState("DtGastosMes"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtGastosMes") = value + End Set + End Property + Private Property TotalActualMes As Double + Get + TotalActualMes = ViewState("TotalActualMes").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalActualMes") = value + End Set + End Property + Private Property TotalAnteriorMes As Double + Get + TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalAnteriorMes") = value + End Set + End Property + Private Property FechaIMes As String + Get + Return ViewState("FechaIMes").ToString + End Get + Set(value As String) + ViewState("FechaIMes") = value + End Set + End Property + Private Property FechaFMes As String + Get + Return ViewState("FechaFMes").ToString + End Get + Set(value As String) + ViewState("FechaFMes") = value + End Set End Property - Private Property listaCampos As List(Of String()) - Get - Return DirectCast(ViewState("listaCampos"), List(Of String())) - End Get - Set(value As List(Of String())) - ViewState("listaCampos") = value - End Set + Private Property listacolores As List(Of String) + Get + Return DirectCast(ViewState("listacolores"), List(Of String)) + End Get + Set(value As List(Of String)) + ViewState("listacolores") = value + End Set End Property - Private Property listaCamposanios As List(Of String()) - Get - Return DirectCast(ViewState("listaCamposanios"), List(Of String())) - End Get - Set(value As List(Of String())) - ViewState("listaCamposanios") = value - End Set + + Private Property listaCampos As List(Of String()) + Get + Return DirectCast(ViewState("listaCampos"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCampos") = value + End Set End Property - Private Property listaCamposaniosGastos As List(Of String()) - Get - Return DirectCast(ViewState("listaCamposaniosGastos"), List(Of String())) - End Get - Set(value As List(Of String())) - ViewState("listaCamposaniosGastos") = value - End Set + Private Property listaCamposanios As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposanios"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposanios") = value + End Set End Property - Private Property listaCamposaniosTotal As List(Of String()) - Get - Return DirectCast(ViewState("listaCamposaniosTotal"), List(Of String())) - End Get - Set(value As List(Of String())) - ViewState("listaCamposaniosTotal") = value - End Set + Private Property listaCamposaniosGastos As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposaniosGastos"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposaniosGastos") = value + End Set + End Property + Private Property listaCamposaniosTotal As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposaniosTotal"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposaniosTotal") = value + End Set End Property 'Private Property ReporteComplementario As Boolean @@ -126,49 +126,49 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ' End Set 'End Property -#End Region +#End Region #Region " M E S H O R I Z O N T A L " - Private Property DtDatosMesH As DataTable - Get - DtDatosMesH = DirectCast(ViewState("DtDatosMesH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtDatosMesH") = value - End Set + Private Property DtDatosMesH As DataTable + Get + DtDatosMesH = DirectCast(ViewState("DtDatosMesH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatosMesH") = value + End Set End Property - Private Property DtIngresosMesH As DataTable - Get - DtIngresosMesH = DirectCast(ViewState("DtIngresosMesH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtIngresosMesH") = value - End Set + Private Property DtIngresosMesH As DataTable + Get + DtIngresosMesH = DirectCast(ViewState("DtIngresosMesH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtIngresosMesH") = value + End Set End Property - Private Property DtGastosMesH As DataTable - Get - DtGastosMesH = DirectCast(ViewState("DtGastosMesH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtGastosMesH") = value - End Set + Private Property DtGastosMesH As DataTable + Get + DtGastosMesH = DirectCast(ViewState("DtGastosMesH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtGastosMesH") = value + End Set End Property - Private Property DTTotalesMesH As DataTable - Get - DTTotalesMesH = DirectCast(ViewState("DTTotalesMesH"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DTTotalesMesH") = value - End Set + Private Property DTTotalesMesH As DataTable + Get + DTTotalesMesH = DirectCast(ViewState("DTTotalesMesH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DTTotalesMesH") = value + End Set End Property #End Region @@ -308,7 +308,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal #End Region - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then listacolores = New List(Of String) listaCampos = New List(Of String()) @@ -328,7 +328,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal listacolores.Add("#000000") listacolores.Add("#FF0F00") - TotalActualMes = 0 + TotalActualMes = 0 TotalAnteriorMes = 0 CargaEjercicios() @@ -341,12 +341,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual) ValidaEjercicios() - End If + End If End Sub Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) - If Tab.ActiveTabIndex = 0 Then + If TAB.ActiveTabIndex = 0 Then LiSubProyectoDdl.Visible = True LiSubProyectoLbl.Visible = True @@ -366,7 +366,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DVTri.Visible = False End If - If Tab.ActiveTabIndex = 1 Then + If TAB.ActiveTabIndex = 1 Then LiSubProyectoDdl.Visible = True LiSubProyectoLbl.Visible = True @@ -391,7 +391,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If - If Tab.ActiveTabIndex = 2 Then + If TAB.ActiveTabIndex = 2 Then ValidaEjercicios() @@ -415,7 +415,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If - If Tab.ActiveTabIndex = 3 Then + If TAB.ActiveTabIndex = 3 Then LiSubProyectoDdl.Visible = True LiSubProyectoLbl.Visible = True @@ -470,45 +470,45 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal UpFiltros.Update() - End Sub - - Private Sub CargaEjercicios() - 'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ClsConta As New ClsContabilidad - If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then - DdlEjercicio.DataSource = ClsConta.DtResultados - DdlEjercicio2.DataSource = ClsConta.DtResultados - Else - DdlEjercicio.DataSource = Nothing - DdlEjercicio2.DataSource = Nothing - End If - ClsConta.Dispose() - DdlEjercicio.DataBind() - DdlEjercicio2.DataBind() - - DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) - If DdlEjercicio.Items.Count = 0 Then - DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString)) - End If - DdlPeriodo.SelectedValue = Now.Month.ToString End Sub - Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) - TotalActualMes = 0 + Private Sub CargaEjercicios() + 'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ClsConta As New ClsContabilidad + If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then + DdlEjercicio.DataSource = ClsConta.DtResultados + DdlEjercicio2.DataSource = ClsConta.DtResultados + Else + DdlEjercicio.DataSource = Nothing + DdlEjercicio2.DataSource = Nothing + End If + ClsConta.Dispose() + DdlEjercicio.DataBind() + DdlEjercicio2.DataBind() + + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) + If DdlEjercicio.Items.Count = 0 Then + DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString)) + End If + DdlPeriodo.SelectedValue = Now.Month.ToString + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + TotalActualMes = 0 TotalAnteriorMes = 0 'Mes - If Tab.ActiveTabIndex = 0 Then + If TAB.ActiveTabIndex = 0 Then CargaDatosMes() End If 'MES HORIZONTAL - If Tab.ActiveTabIndex = 1 Then + If TAB.ActiveTabIndex = 1 Then CargaDatosMesH() End If 'AÑO HORIZONTAL - If Tab.ActiveTabIndex = 2 Then + If TAB.ActiveTabIndex = 2 Then If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia) @@ -518,7 +518,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If 'SUBPROYECTO - If Tab.ActiveTabIndex = 3 Then + If TAB.ActiveTabIndex = 3 Then CargaDatosSubProyectoH() End If @@ -534,96 +534,96 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal - Private Sub CargaDatosMes() - - - FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) - FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy") - 'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero - - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") - Else - DtDatosMes = Nothing - Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) - End If - ObjConta.Dispose() - - If DtDatosMes IsNot Nothing Then - CargaGridsMes() - SumaTotales() - End If - - End Sub - Private Sub CargaGridsMes() - DtIngresosMes = DtDatosMes.FiltraParametros("Tipo ='H' ") - DtGastosMes = DtDatosMes.FiltraParametros("Tipo ='G' ") - Dim Row As DataRow = DtIngresosMes.NewRow - - - Dim TotalActual = 0.0, TotalAnterior = 0.0 - If DtIngresosMes.Rows.Count > 0 Then - - For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - DtIngresosMes.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosMes.Rows.Add(Row) - End If - - Dim T1 = TotalActual, T2 = TotalAnterior - - TotalActual = 0 - TotalAnterior = 0 - - Row = DtGastosMes.NewRow - If DtGastosMes.Rows.Count > 0 Then - - For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero - Row.Item("CtaMayor") = -1 - DtGastosMes.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtGastosMes.Rows.Add(Row) - End If - - - GvIngresosMes.DataSource = DtIngresosMes - GvIngresosMes.DataBind() - - GvGastosMes.DataSource = DtGastosMes - GvGastosMes.DataBind() - - UpDatos.Update() - + Private Sub CargaDatosMes() + + + FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) + FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy") + 'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + + 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjConta As New ClsContabilidad + If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") + Else + DtDatosMes = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + If DtDatosMes IsNot Nothing Then + CargaGridsMes() + SumaTotales() + End If + + End Sub + Private Sub CargaGridsMes() + DtIngresosMes = DtDatosMes.FiltraParametros("Tipo ='H' ") + DtGastosMes = DtDatosMes.FiltraParametros("Tipo ='G' ") + Dim Row As DataRow = DtIngresosMes.NewRow + + + Dim TotalActual = 0.0, TotalAnterior = 0.0 + If DtIngresosMes.Rows.Count > 0 Then + + For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = TotalActual.ToString + Row.Item("PorcentajeActual") = "100.00" + Row.Item("ImporteAcumulado") = TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = "100.00" + Row.Item("CtaMayor") = -1 + DtIngresosMes.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresosMes.Rows.Add(Row) + End If + + Dim T1 = TotalActual, T2 = TotalAnterior + + TotalActual = 0 + TotalAnterior = 0 + + Row = DtGastosMes.NewRow + If DtGastosMes.Rows.Count > 0 Then + + For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = TotalActual + Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero + Row.Item("ImporteAcumulado") = TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("CtaMayor") = -1 + DtGastosMes.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtGastosMes.Rows.Add(Row) + End If + + + GvIngresosMes.DataSource = DtIngresosMes + GvIngresosMes.DataBind() + + GvGastosMes.DataSource = DtGastosMes + GvGastosMes.DataBind() + + UpDatos.Update() + End Sub @@ -642,33 +642,33 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal - LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) - - LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) - - + LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) + + LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) + + End Sub -#Region "GV´S ROW DATA BOUND" +#Region "GV´S ROW DATA BOUND" Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales3" - e.Row.ControlStyle.Font.Bold = True - End If - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray + 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + e.Row.ControlStyle.Font.Bold = True + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + 'e.Row.CssClass = "SubTotales3" + e.Row.ControlStyle.Font.Bold = True + End If + + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) @@ -678,56 +678,56 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Else e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString - End If - - End If - - - If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red - End If - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If - End Sub - - Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" - e.Row.ControlStyle.Font.Bold = True - End If - - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - End If - + End If + + End If + + + If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + End If + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + End If + End Sub + + Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray + 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + e.Row.ControlStyle.Font.Bold = True + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + 'e.Row.CssClass = "SubTotales" + e.Row.ControlStyle.Font.Bold = True + End If + + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + End If + If DdlDivisor.SelectedValue.ToEntero > 1 Then e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString Else e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString - End If - - If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red - End If - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If + End If + + If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + End If + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + End If End Sub -#End Region +#End Region @@ -741,184 +741,184 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Private Sub CargaDatosMesH() - FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" - Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate + FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" + Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero - - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") - Else - DtDatosMesH = Nothing - Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) - End If - ObjConta.Dispose() - - If DtDatosMesH IsNot Nothing Then + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + + 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjConta As New ClsContabilidad + If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") + Else + DtDatosMesH = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + If DtDatosMesH IsNot Nothing Then CargaGridsMesH() - Else - - End If - - End Sub - - Private Sub CargaGridsMesH() - - DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo ='H' ") + Else + + End If + + End Sub + + Private Sub CargaGridsMesH() + + DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo ='H' ") DtGastosMesH = DtDatosMesH.FiltraParametros("Tipo ='G' ") DTTotalesMesH = DtDatosMesH.Clone() - Dim Row As DataRow = DtIngresosMesH.NewRow - + Dim Row As DataRow = DtIngresosMesH.NewRow + Dim TotalActual = 0.0, TotalAnterior = 0.0 - If DtIngresosMesH.Rows.Count > 0 Then - - For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") + If DtIngresosMesH.Rows.Count > 0 Then + + For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") + Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") + Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") + Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") + Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") + Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") + Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") + Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") + Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") + Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") + Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") - Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)") - Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)") - Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)") - Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)") - - Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)") - Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)") - Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)") - - - Row.Item("Nombre") = "TOTAL INGRESOS" - Row.Item("ImporteActual") = TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - - DtIngresosMesH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosMesH.Rows.Add(Row) - End If - - Dim T1 = TotalActual, T2 = TotalAnterior - - TotalActual = 0 - TotalAnterior = 0 - - Row = DtGastosMesH.NewRow - If DtGastosMesH.Rows.Count > 0 Then - - For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)") + Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)") + Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)") + Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)") + + Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)") + Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)") + Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)") + + + Row.Item("Nombre") = "TOTAL INGRESOS" + Row.Item("ImporteActual") = TotalActual.ToString + Row.Item("PorcentajeActual") = "100.00" + Row.Item("ImporteAcumulado") = TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = "100.00" + Row.Item("CtaMayor") = -1 + + DtIngresosMesH.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresosMesH.Rows.Add(Row) + End If + + Dim T1 = TotalActual, T2 = TotalAnterior + + TotalActual = 0 + TotalAnterior = 0 + + Row = DtGastosMesH.NewRow + If DtGastosMesH.Rows.Count > 0 Then + + For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble Next - Row.Item("Enero") = DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - Row.Item("Febrero") = DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - Row.Item("Marzo") = DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - Row.Item("Abril") = DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - Row.Item("Mayo") = DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - Row.Item("Junio") = DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - Row.Item("Julio") = DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - Row.Item("Agosto") = DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - Row.Item("Septiembre") = DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - Row.Item("Octubre") = DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") - - Row.Item("Tri1") = DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)") - Row.Item("Tri2") = DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)") - Row.Item("Tri3") = DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)") - Row.Item("Tri4") = DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)") - - Row.Item("Cua1") = DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)") - Row.Item("Cua2") = DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)") - Row.Item("Cua3") = DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)") - - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero - Row.Item("CtaMayor") = -1 - DtGastosMesH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtGastosMesH.Rows.Add(Row) - End If - + Row.Item("Enero") = DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") + Row.Item("Febrero") = DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") + Row.Item("Marzo") = DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") + Row.Item("Abril") = DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") + Row.Item("Mayo") = DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") + Row.Item("Junio") = DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") + Row.Item("Julio") = DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") + Row.Item("Agosto") = DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") + Row.Item("Septiembre") = DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") + Row.Item("Octubre") = DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") + Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") + Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") + + Row.Item("Tri1") = DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)") + Row.Item("Tri2") = DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)") + Row.Item("Tri3") = DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)") + Row.Item("Tri4") = DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)") + + Row.Item("Cua1") = DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)") + Row.Item("Cua2") = DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)") + Row.Item("Cua3") = DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)") + + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = TotalActual + Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero + Row.Item("ImporteAcumulado") = TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("CtaMayor") = -1 + DtGastosMesH.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtGastosMesH.Rows.Add(Row) + End If + If DtIngresosMesH.Rows.Count > 0 Then Row = DTTotalesMesH.NewRow - Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") + Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") + Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") + Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") + Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") + Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") + Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") + Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") + Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - - Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - - Row.Item("Nombre") = "Resultados del Ejercicio:" - 'Row.Item("ImporteActual") = TotalActual.ToString - 'Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString - 'Row.Item("PorcentajeAcumulado") = "100.00" - 'Row.Item("CtaMayor") = -1 - + Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") + Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") + Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") + Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") + + Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") + Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") + Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") + + Row.Item("Nombre") = "Resultados del Ejercicio:" + 'Row.Item("ImporteActual") = TotalActual.ToString + 'Row.Item("PorcentajeActual") = "100.00" + Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString + 'Row.Item("PorcentajeAcumulado") = "100.00" + 'Row.Item("CtaMayor") = -1 + DTTotalesMesH.Rows.Add(Row) - End If - - GvIngresosMesH.DataSource = DtIngresosMesH - GvIngresosMesH.DataBind() - - GvGastosMesH.DataSource = DtGastosMesH - GvGastosMesH.DataBind() - - GvTotalesMesH.DataSource = DTTotalesMesH - GvTotalesMesH.DataBind() - - + End If + + GvIngresosMesH.DataSource = DtIngresosMesH + GvIngresosMesH.DataBind() + + GvGastosMesH.DataSource = DtGastosMesH + GvGastosMesH.DataBind() + + GvTotalesMesH.DataSource = DTTotalesMesH + GvTotalesMesH.DataBind() + + If DdlTri.SelectedValue.ToEntero = 0 Then 'ocultar trimestre cuatrimestre GvIngresosMesH.Columns(4).Visible = False @@ -1009,25 +1009,25 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvTotalesMesH.Columns(12).Visible = True GvTotalesMesH.Columns(19).Visible = True - End If - - - UpDatosMesH.Update() - + End If + + + UpDatosMesH.Update() + End Sub Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - e.Row.ControlStyle.Font.Bold = True + e.Row.ControlStyle.Font.Bold = True ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - e.Row.ControlStyle.Font.Bold = True - End If - + e.Row.ControlStyle.Font.Bold = True + End If + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then @@ -1119,21 +1119,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If - End If - - End Sub - - Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" - e.Row.ControlStyle.Font.Bold = True + End If + + End Sub + + Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray + 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + e.Row.ControlStyle.Font.Bold = True + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + 'e.Row.CssClass = "SubTotales" + e.Row.ControlStyle.Font.Bold = True End If If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then @@ -1225,10 +1225,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If - End If + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + End If End Sub Protected Sub GvTotalesMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) @@ -1701,7 +1701,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Private Sub CargaDatosSubProyectoH() - FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" + FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") @@ -1955,7 +1955,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + + If CveSubProyectoIntermo.ToEntero > 0 Then + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + End If + Next IndiceInicio @@ -2047,23 +2051,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal #Region "DESCARGA EXCEL" - Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - Imprimir("Excel") - End Sub - - Private Sub Imprimir(Optional reporte As String = "PDF") - - - If Tab.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then + Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + Imprimir("Excel") + End Sub + + Private Sub Imprimir(Optional reporte As String = "PDF") + + + If TAB.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then ExportToExcelG(GvIngresosMes, GvGastosMes, TMesT1, "Reporte_Mensual", UsuarioActual, "Mensual") - ElseIf Tab.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then + ElseIf TAB.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH) - ElseIf Tab.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then + ElseIf TAB.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH) - ElseIf Tab.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then - ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"{LblSubProyecto.Text} Horizontal", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True) + ElseIf TAB.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then + + ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True) + End If + + End Sub 'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100) @@ -2272,9 +2280,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") - End Sub - - Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub + + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) End Sub #End Region @@ -2283,5 +2291,5 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal -End Class - +End Class + 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/Empresas/Grales/Formatos/CartaPorte.rdlc b/Empresas/Grales/Formatos/CartaPorte.rdlc index 157b03620..2db90a3aa 100644 --- a/Empresas/Grales/Formatos/CartaPorte.rdlc +++ b/Empresas/Grales/Formatos/CartaPorte.rdlc @@ -460,7 +460,7 @@ Textbox1 0.9533cm - 0.23022cm + 0.21008cm 0.66127cm 9.36417cm 2 @@ -769,10 +769,11 @@ - =Parameters!FechaEntrega.Value + =Left(Parameters!FechaEntrega.Value,10) @@ -150,7 +156,7 @@
  • - Agregar checkList
    • + Agregar checklist
  • Cambiar estatus
  • @@ -254,9 +260,9 @@
    - - - + + + Prioridad: @@ -291,7 +297,7 @@
    -
    +
    @@ -302,7 +308,7 @@
    - Agregar + Agregar <%--Agregar--%>
    @@ -366,7 +372,7 @@ Estatus:
    - +
    %
    @@ -531,7 +537,7 @@
    -
    +
    -
    - - -
    +
    + + +
    @@ -752,10 +758,10 @@ Agregar relación
    -
    +
    Relacionar Con: - - + + @@ -901,13 +907,13 @@ --%> - - - Personal: + + + Personal: - - Proveedores: + + Proveedores:
    @@ -1137,10 +1143,12 @@ function CambiarTitulo(cadena) { let TTitulo = $('#E_LtlTitulo') let texto = TTitulo.text(); - let splited = texto.split(" "); - let size = splited[splited.length - 1].length; - texto = texto.substring(0, texto.length - size) + cadena; - TTitulo.text(texto); + if (texto != 'Nueva tarea') { + let splited = texto.split(" "); + let size = splited[splited.length - 1].length; + texto = texto.substring(0, texto.length - size) + cadena; + TTitulo.text(texto); + } } var avancecambio = 0; function barraavance() { @@ -1154,7 +1162,7 @@ step: .01, //[disable] onChange: (function () { - setTimeout(function () { let avance = $(".TxtAvance").val(); if ( avance != Valorxyz) { avancecambio = 1; $('.LblPorcentaje').text(avance)} }, 50); + setTimeout(function () { let avance = $(".TxtAvance").val(); if (avance != Valorxyz) { avancecambio = 1; $('.LblPorcentaje').text(avance) } }, 50); }) }); } diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 7daeca4a6..b1bc69b0f 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -126,7 +126,7 @@ public partial class OI_TareaDetalle : ClsPaginas LnkcambiarEstatus.Visible = false; LnkAgregarTema.Visible = false; portletEstatus.Visible = false; - LtlTitulo.Text = "Tarea Nueva"; + LtlTitulo.Text = "Nueva tarea"; TxtArchivo.Visible = true; CveUsuarioDe = UsuarioActual.CveUsuario; } @@ -139,17 +139,18 @@ public partial class OI_TareaDetalle : ClsPaginas } private void Setpermisos() { + bool permisedestatus = (CveEventoEstatus > 1 && CveEventoEstatus < 4); bool esmiembro = UsuarioActual.CveUsuario.Contiene(LCveUsuarioCCP.ToArray()); bool esdeel = UsuarioActual.CveUsuario == CveUsuarioDe; bool esPara = UsuarioActual.CveUsuario == CveUsuarioPara; Permisos = new OI_TareaDetalle_Permisos { EntrarOI = (EsNuevo || esmiembro), - CheckList = (EsNuevo || esdeel || esPara) && CveEventoEstatus < 4, - EdicionGeneral = (EsNuevo || esdeel) && CveEventoEstatus < 4, - Bitacora = esmiembro && CveEventoEstatus < 4, - Avance = esPara && CveEventoEstatus < 4, - Reasignar = esPara && CveEventoEstatus < 4, + CheckList = (EsNuevo || esdeel || esPara) && permisedestatus, + EdicionGeneral = (EsNuevo || esdeel) && permisedestatus, + Bitacora = esmiembro && permisedestatus, + Avance = esPara && permisedestatus, + Reasignar = esPara && permisedestatus, Estatus1_2_3 = esPara, Estatus4_5 = esdeel }; @@ -229,9 +230,9 @@ public partial class OI_TareaDetalle : ClsPaginas { DDlEstatus.Items.Remove(item); } - LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && (Permisos.Estatus1_2_3 || Permisos.Estatus4_5); + LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && ((Permisos.Estatus1_2_3 && CveEventoEstatus < 4) || Permisos.Estatus4_5); - if (CveEventoEstatus >= 4) + if ( permisedestatus) { LnkAgregarTema.Visible = false; LnkUpUsuarios.Visible = false; @@ -1021,6 +1022,11 @@ public partial class OI_TareaDetalle : ClsPaginas //if (DdlEventoEstatus.SelectedValue.ToEntero == 3 | DdlEventoEstatus.SelectedValue.ToEntero == 1) // EnviarCorreoCambioEstatus(false); //CargaDatos(); + if (CveEstatus == 4) + { + TxtAvance.Text = "100"; + LblPorcentaje.Text = string.Format("{0:##0.##}", "100".ToDecimal()); + } string mensaje = string.Format("Se cambió el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text); DdlEventoEstatus.SelectedValueExist(DDlEstatus.SelectedValue); lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text; @@ -1270,7 +1276,7 @@ public partial class OI_TareaDetalle : ClsPaginas { if (objoi.DtResultados.Rows.Count > 0) { - //LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString(); + //LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString(); LblPorcentaje.Text = string.Format("{0:##0.##}", TxtAvance.Text.ToDecimal()); } cargaActividades(objoi); @@ -1323,11 +1329,28 @@ public partial class OI_TareaDetalle : ClsPaginas int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); gvRow.FCCheckBox("ChkPara").Checked = false; CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + CheckBox chkpara = gvRow.FCCheckBox("ChkPara"); + + chkpara.Checked = false; chkCCpara.Checked = false; - if (CveUsuario == CveUsuarioPara) + chkCCpara.Enabled = true; + chkpara.Enabled = true; + + if ((CveUsuario == CveUsuarioPara) || (CveUsuario == CveUsuarioDe)) + { + if (CveUsuario == CveUsuarioPara) + { + chkpara.Checked = true; + } + if (CveUsuario == CveUsuarioDe) + { + chkCCpara.Checked = true; + chkCCpara.Enabled = false; + } + } + else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray())) { chkCCpara.Checked = true; - chkCCpara.Enabled = false; } } @@ -1363,6 +1386,7 @@ public partial class OI_TareaDetalle : ClsPaginas if (CveUsuario == CveUsuarioDe) { chkCCpara.Checked = true; + chkCCpara.Enabled = false; } } else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray())) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index fc309b263..613bc415a 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2822,6 +2822,32 @@
    +
    +
    +
    + + Pagos no bancarios +
    +
    +
    +
    + + + + + + + + + + + + + +
    +
    +
    diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 1ab33cd40..c5750f271 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1509,7 +1509,8 @@ Partial Class RH_Personal 'Carga Conceptos de Nómina CarcaConceptosNomina() - + 'Carga Pagos no Bancarios + CargarPagosNoBancarios() 'Carga Resguardos Dim ObjResguardos As New ClsAF If ObjResguardos.GetActivosFijosResguardos(-1, -1, CvePersonal, -1) Then @@ -6338,4 +6339,13 @@ Partial Class RH_Personal End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class diff --git a/Scripts/custom.js b/Scripts/custom.js index e3135edfa..f3852450c 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -137,7 +137,7 @@ function buscadorMenuCaudi() { let tickBar = 0; let input = $('#' + idTxtMaster); - let BuscarMenu =function() { + let BuscarMenu = function () { tickBar = tickBar + 1; tickBarnew = tickBar; @@ -263,7 +263,7 @@ setswitch = function () { var label; var labeltext = ' '; if ($($(this).find('label')).html()) { - labeltext = $($(this).find('label')).html() + labeltext = $($(this).find('label')).html(); } label = ''; label = $(label); @@ -281,7 +281,7 @@ setswitch = function () { var label; var labeltext = ' '; if ($($(this).find('label')).html()) { - labeltext = $($(this).find('label')).html() + labeltext = $($(this).find('label')).html(); } label = ''; label = $(label); @@ -321,8 +321,8 @@ function ADScroller2() { var widthGral = $(document).width() - WidthMenos; var heightGral = $(window).height() - HeightMenos; if (Heightfijo > 0) { heightGral = Heightfijo; } - if (widthGral < 100) { widthGral = 100 } - if (heightGral < 100) { heightGral = 100 } + if (widthGral < 100) { widthGral = 100; } + if (heightGral < 100) { heightGral = 100; } widthGral = Tthis.parent().parent().width(); Tthis.removeClass('ADSCROLLER2'); @@ -377,7 +377,7 @@ function ADScroller2() { for (var i = 0; i < txx1.length; i++) { tr1 = $(txx1[i]).closest('tr'); td1 = $(txx1[i]).closest('td'); - tr1.append(td1) + tr1.append(td1); var hr1 = tr1.outerHeight(); var hr2 = $(txx2[i]).closest('tr').outerHeight(); if (hr1 > hr2) { @@ -393,7 +393,7 @@ function ADScroller2() { - var contenedor = $('
    ') + var contenedor = $('
    '); var divheader = $('
    '); var divcenter = $('
    '); var divheader1 = $('
    '); @@ -431,10 +431,34 @@ function ADScroller2() { divcenter.append(divcenterbody); divbodyScroll = $('
    ').append(Tthis); divcenterbody.append(divbodyScroll); - divbodyScroll.scroll(function () { - divheaderScroll.scrollLeft($(this).scrollLeft()) - divcolsScroll.scrollTop($(this).scrollTop()) + + let fncScroll = function (obj, $this, divheaderScroll, idx) { + if (idx) { + divheaderScroll.scrollLeft($this.scrollLeft()); + } + obj.scrollTop($this.scrollTop()); + }; + divbodyScroll.mouseover(function () { + divbodyScroll.scroll(function () { fncScroll(divcolsScroll, divbodyScroll, divheaderScroll, true); }); }); + divcolsScroll.mouseover(function () { + divcolsScroll.scroll(function () { fncScroll(divbodyScroll, divcolsScroll, divheaderScroll, false); }); + }); + divbodyScroll.mouseleave(function () { + divbodyScroll.unbind('scroll'); + }); + divcolsScroll.mouseleave(function () { + divcolsScroll.unbind('scroll'); + }); + let sizeoftablefunc = function () { + let sizetable = Tthis.outerHeight(); + if (sizetable < divbodyScroll.height()) { + sizetable = sizetable + 20; + divcolsScroll.css('height', sizetable); + divbodyScroll.css('height', sizetable); + contenedor.css('width', sizetable + altoc1); + } + }; $(window).resize(function () { var widthGral = $(window).width() - WidthMenos; /*console.log(widthGral);*/ @@ -443,23 +467,25 @@ function ADScroller2() { /* console.log(widthGral);*/ var heightGral = $(window).height() - HeightMenos; if (Heightfijo > 0) { heightGral = Heightfijo; } - if (widthGral < 100) { widthGral = 100 } - if (heightGral < 100) { heightGral = 100 } + if (widthGral < 100) { widthGral = 100; } + if (heightGral < 100) { heightGral = 100; } contenedor.css('width', widthGral); divheader.css('width', widthGral); divcenter.css('width', widthGral); divheaderScroll.css('width', (widthGral - anchoc1)); - divcolsScroll.css('height', (heightGral - altoc1)); + divcolsScroll.css('height', (heightGral - altoc1+20)); divbodyScroll.css('width', (widthGral - anchoc1)); divbodyScroll.css('height', (heightGral - altoc1 + 20)); + setTimeout(sizeoftablefunc, 100); }); $('table#ADCol' + Tid + ' tr').hover( - function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover') }, - function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover') }); + function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover');}, + function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover');}); $('table#' + Tid + ' tr').hover( - function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover') }, - function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover') }); + function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover');}, + function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover'); }); + setTimeout(sizeoftablefunc, 100); } catch (err) { @@ -1817,7 +1843,7 @@ jQuery(document).ready(function () { DataTablePaginatorScroll(); DataTablePaginatorScroll2(); loadAdDropzone(); - clonsbuttons(); + clonsbuttons(); ADScroller2(); //setTimeout(ADScroller2, 500); $('body').removeClass('page-portlet-fullscreen'); @@ -1853,7 +1879,7 @@ jQuery(document).ready(function () { let showhideRows = function () { usuariotext = input.val(); - + let strusuario = usuariotext.length > 0 ? ':contains("' + usuariotext + '")' : '';// td:nth-child(2) $this.find('tr.items').attr('hide', '1');//oculto todos $this.find('tr.items' + strusuario).attr('hide', '');//muestro los que tienen filtro diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index bd7244f30..bf1c5fadc 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -454,7 +454,7 @@ Partial Class Sistemas_Empresa End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click Dim ObjEmpresas As New ClsSisEmpresas - Dim ObjGral As New ClsGenerales(ObjEmpresas.IniciaTransacSQL()) + Dim ObjGral As New ClsGenerales() Dim ObjContPAQ As ClsContPAQi = Nothing Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL()) @@ -487,6 +487,7 @@ Partial Class Sistemas_Empresa End If ViewState("CveEmpresa") = ObjEmpresas.CveEmpresa + InicializaClasificacionIVA() TextoOK = "La nueva Empresa se guardó correctamente." Else TextoError = "Ocurrió un error al agregar la empresa" @@ -1549,7 +1550,7 @@ Partial Class Sistemas_Empresa UpmodalFiel.Update() RegistraScript("$('#ModalUpFiel').modal('hide');") Else - Alert("Favor de llenar todos los campos :
    -Contraseña
    -Archivo CER
    -Archivo KEY", TipoMensaje.MsgAdvertencia) + Alert("Favor de llenar todos los campos :
    -Contraseña
    -Archivo CER
    -Archivo KEY", TipoMensaje.MsgAdvertencia) End If End Sub Public Function execCommand(command As String()) As String diff --git a/UserControl/TareaNueva.ascx b/UserControl/TareaNueva.ascx index 01e3aaf57..74e689f22 100644 --- a/UserControl/TareaNueva.ascx +++ b/UserControl/TareaNueva.ascx @@ -10,15 +10,17 @@ .fileTarea .addropzone { margin-bottom: 10px; - min-height: 100px; + min-height: 120px; } .fileTarea .addropzone.dz-clickable:before { position: absolute; - content: "Arrastre el archivo"; + content: "Arrastre el archivo"; + margin-top: 20px; + } + .fileTarea .addropzone.dz-clickable:before,.fileTarea .addropzone.dz-clickable:after { color: #808080; - font-size: 20px; - margin-top: 30px; + font-size: 20px; } .fileTarea .addropzone .dz-preview, .fileTarea .dropzone-previews .dz-preview { @@ -116,9 +118,9 @@
    - - - + + + Prioridad: diff --git a/Ventas/AuxiliarCliente.aspx b/Ventas/AuxiliarCliente.aspx index ef96afba5..86e5822cd 100644 --- a/Ventas/AuxiliarCliente.aspx +++ b/Ventas/AuxiliarCliente.aspx @@ -169,17 +169,8 @@ - - - - - - - - - - - + + diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index b9895d553..e81cadbb6 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -2396,6 +2396,54 @@
    + +
    +
    +
    + + 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/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 0aecf49c4..1e3cdac65 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -487,10 +487,10 @@ Partial Class Clientes Set(value As String) ViewState("linkDescargaPagare") = value End Set - End Property - + End Property + #End Region - + #Region "Documentacion" Private Property DTDocumentacion As DataTable Get @@ -601,21 +601,21 @@ Partial Class Clientes Set(value As String) ViewState("AdjuntoDocumentacion") = value End Set - End Property - 'Private ReadOnly Property CvePersonal As Integer - ' Get - ' If ViewState("CvePersonal") Is Nothing Then - ' Return -1 - ' Else - ' Return ViewState("CvePersonal").ToString.ToEntero - ' End If - ' End Get - 'End Property - + End Property + 'Private ReadOnly Property CvePersonal As Integer + ' Get + ' If ViewState("CvePersonal") Is Nothing Then + ' Return -1 + ' Else + ' Return ViewState("CvePersonal").ToString.ToEntero + ' End If + ' End Get + 'End Property + #End Region - - - + + + #Region " A C U M U L A D O R E S" Property CveVentaNota As Integer Get @@ -655,10 +655,10 @@ Partial Class Clientes Set(value As String) ViewState("SerieNotaAcumulador") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -890,8 +890,8 @@ Partial Class Clientes ChkPermiso5.Enabled = False ChkPermiso6.Enabled = False - End Sub - + End Sub + #Region " PERMISOS PAGINAS " Private Function PermiteGuardar() As Boolean Return UsuarioActual.TienePermisoProceso(192) @@ -901,17 +901,17 @@ Partial Class Clientes End Function Private Function PermiteEliminar() As Boolean Return UsuarioActual.TienePermisoProceso(194) - End Function - + End Function + #End Region - - + + #Region "C A R G A S" - - - - - + + + + + Private Sub CreaDtPago() DtPagos = New DataTable DtPagos.Columns.Add("CveTipoMovimiento", GetType(String)) @@ -930,19 +930,19 @@ Partial Class Clientes DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) UpDatos.Update() - End Sub - - - - Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX") - - DdlEstadoSAT.Items.Clear() - DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais) - + End Sub + + + + Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX") + + DdlEstadoSAT.Items.Clear() + DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais) + DdlEstadoSAT.DataBind() - DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) - UpDatos.Update() - + DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) + UpDatos.Update() + End Sub Private Sub CargaResponsables() @@ -994,12 +994,12 @@ Partial Class Clientes DdlClienteSucursal.DataSource = ObjCliente.DtResultados DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados End If - End If - - - - - + End If + + + + + ObjCliente.Dispose() DdlSucursalCliente.DataBind() @@ -1013,10 +1013,10 @@ Partial Class Clientes DdlClienteSucursalEnvio.DataBind() DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlClienteSucursalEnvio.SelectedValue = "-1" - - - + DdlClienteSucursalEnvio.SelectedValue = "-1" + + + End Sub Private Sub CargaGridRetenciones() Dim ObjClientes As New ClsClientes @@ -1191,10 +1191,10 @@ Partial Class Clientes End If - CargaCombosComercioExterior() - - - + CargaCombosComercioExterior() + + + End Sub Private Sub CargaSubProyectoss() DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) @@ -1388,6 +1388,7 @@ Partial Class Clientes 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() + CargarPagosNoBancarios() If UsuarioActual.TienePermisoProceso(279) Then LnkPorcentajeMarcas.Visible = True @@ -1546,9 +1547,9 @@ Partial Class Clientes CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString) DdlSATPais.SelectedValueExist(ObjClientes.DtResultados(0)("SATPais").ToString) - DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado) - - + DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado) + + If DdlPais.SelectedValue.Contiene("151", "66", "40") Then DdlEstado.Visible = True DdlEstado.SelectedValueExist(ObjClientes.CveEstado) @@ -1681,17 +1682,17 @@ Partial Class Clientes End If CargaEventoBitacora() - If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then - CargaCuentasConceptos() - divCuentas.Visible = True - divCuentasContp.Visible = False - Else - divCuentas.Visible = False - divCuentasContp.Visible = True - End If - - - 'Ocultamos la mayoria de informacion si es no-frecuente + If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then + CargaCuentasConceptos() + divCuentas.Visible = True + divCuentasContp.Visible = False + Else + divCuentas.Visible = False + divCuentasContp.Visible = True + End If + + + 'Ocultamos la mayoria de informacion si es no-frecuente If ObjClientes.TipoCliente = 2 Then TabFiscalContable.Visible = False TabCxC.Visible = False @@ -1714,7 +1715,7 @@ Partial Class Clientes End If TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString - TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString + TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString Else Existe = False Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) @@ -1939,11 +1940,11 @@ Partial Class Clientes DdlSucursalUsoCFDI.Items.Clear() DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica) DdlSucursalUsoCFDI.DataBind() - End Sub + End Sub #End Region - + #Region "V E R M Á S" - + Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs) If BtnVerMasVentas.Text = "Ver Más" Then CargaHistorial(-1) @@ -2037,9 +2038,9 @@ Partial Class Clientes TxtParaMail.Text = TxtCobranzaCorreo.Text UpSendMail.Update() RegistraScript("$('#ModalDivMail').modal('show');") - End Sub + End Sub #End Region - + #Region "B T N ´ S" Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click Dim ObjClientes As New ClsClientes() @@ -2347,85 +2348,85 @@ Partial Class Clientes Dim errorContPaq As Boolean = False Dim IdContPaqi As Integer = 0 - Dim CodigoPersona As Integer = 0 - - + Dim CodigoPersona As Integer = 0 + + #Region "comentado" - 'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then - - ' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa) - - ' If ObjContPaqi.GetPersona(TxtRFC.Text) Then - - ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then - - ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero - ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero - - ' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0) - ' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString - ' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString - - ' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then - ' errorContPaq = False - ' Else - ' errorContPaq = True - ' End If - - ' Else - ' If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then - - ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero - ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero - ' errorContPaq = False - ' Else - ' errorContPaq = True - ' End If - ' End If - ' End If - - - ' If Not errorContPaq Then - ' Dim IdContPaqiCliente As Integer - - ' If ObjContPaqi.GetCliente(-1, CodigoPersona) Then - - ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then - - ' IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString.ToEntero - - ' If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then - ' errorContPaq = False - ' Else - ' errorContPaq = True - ' End If - ' Else - ' If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then - ' errorContPaq = False - ' Else - ' errorContPaq = True - ' End If - ' End If - ' Else - ' errorContPaq = True - ' End If - ' End If - - - ' If Not errorContPaq Then - ' ObjContPaqi.Commit() - ' ObjContPaqi.Dispose() - ' Else - ' ObjContPaqi.RollBack() - ' ObjContPaqi.Dispose() - ' Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError) - ' Exit Sub - ' End If - - - 'End If + 'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then + + ' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa) + + ' If ObjContPaqi.GetPersona(TxtRFC.Text) Then + + ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then + + ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero + ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero + + ' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0) + ' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString + ' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString + + ' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then + ' errorContPaq = False + ' Else + ' errorContPaq = True + ' End If + + ' Else + ' If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then + + ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero + ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero + ' errorContPaq = False + ' Else + ' errorContPaq = True + ' End If + ' End If + ' End If + + + ' If Not errorContPaq Then + ' Dim IdContPaqiCliente As Integer + + ' If ObjContPaqi.GetCliente(-1, CodigoPersona) Then + + ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then + + ' IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString.ToEntero + + ' If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then + ' errorContPaq = False + ' Else + ' errorContPaq = True + ' End If + ' Else + ' If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then + ' errorContPaq = False + ' Else + ' errorContPaq = True + ' End If + ' End If + ' Else + ' errorContPaq = True + ' End If + ' End If + + + ' If Not errorContPaq Then + ' ObjContPaqi.Commit() + ' ObjContPaqi.Dispose() + ' Else + ' ObjContPaqi.RollBack() + ' ObjContPaqi.Dispose() + ' Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError) + ' Exit Sub + ' End If + + + 'End If #End Region - + Dim LT As String = If(HDLT.Value.ToDouble <> 0, HDLT.Value, "0") Dim LG As String = If(HDLG.Value.ToDouble <> 0, HDLG.Value, "0") @@ -2671,11 +2672,11 @@ Partial Class Clientes ObjClientes.Dispose() objDoc.Dispose() RecargaGlobal() - End Sub - + End Sub + #End Region - - + + #Region "G L O B L A L" Private Sub RecargaGlobal() 'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT) @@ -2853,11 +2854,11 @@ Partial Class Clientes End If End If - End Sub + End Sub #End Region - + #Region "R H" - + Private Sub CargaPersonalAsignado() Dim ObjPersonal As New ClsRH If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, CveCliente, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then @@ -2930,9 +2931,9 @@ Partial Class Clientes End If End If - End Sub + End Sub #End Region - + #Region "S U C U R S A L E S" Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click ChkEstatusSucursal.Checked = True @@ -3066,7 +3067,7 @@ Partial Class Clientes UpModalDivMapa.Update() - End Sub + End Sub #Region "G V S U C U R S A L E S" Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound @@ -3185,9 +3186,9 @@ Partial Class Clientes Else CargaGrid("", 0) End If - End Sub + End Sub #End Region - + #Region "G V U S U A R I O S P O R T A L" Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand If e.CommandName = "RestablecerContraseña" Then @@ -3339,9 +3340,9 @@ Partial Class Clientes CargaGrid("", 1) End If - End Sub + End Sub #End Region - + #Region "O R D E N A M I E N T O" Private Sub CargaGrid(Orden As String, gvi As Integer) If gvi = 0 Then @@ -3373,12 +3374,12 @@ Partial Class Clientes UPPUsuarios.Update() End If - End Sub + End Sub #End Region - - + + #End Region - + #Region "U S U A R I O S" Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click Dim ObjUsuario As New ClsSisUsuarios @@ -3560,9 +3561,9 @@ Partial Class Clientes ChkPermiso5.Checked = False ChkPermiso6.Checked = False ChkPermiso7.Checked = False - End Sub + End Sub #End Region - + #Region "E V E N T O - B I T A C O R A" Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -3768,11 +3769,11 @@ Partial Class Clientes BtnActivaRegistroISR.Visible = True End If - End Sub + End Sub #End Region - + #Region " I M P R I M I R P D F" - + Protected Sub ChkAntIXCNC_CheckedChanged(sender As Object, e As EventArgs) DdlTipoDocto.ClearSelection() If ChkAntIXCNC.Checked Then @@ -3800,21 +3801,21 @@ Partial Class Clientes 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim params As New List(Of ReportParameter) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) End If - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario)) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("Cliente", TxtNombre.Text)) Dim ObjGPS As New ClsGPS Dim tablaReporte As DataTable If ObjGPS.DispositivosGet(-1, DdlEstatusDispositivos.SelectedValue.ToEntero(), CveCliente) Then - tablaReporte = ObjGPS.DtResultados - + tablaReporte = ObjGPS.DtResultados + ImprimirPDF("Empresas/Grales/Formatos/EquiposGPS.rdlc", tablaReporte, params, "Equipo GPS", Formato) Else Alert("No hay lista de dispositivos para imprimir") @@ -3957,10 +3958,10 @@ Partial Class Clientes If DtCxCFact2 IsNot Nothing AndAlso DtCxCFact2.Rows.Count > 0 Then Dim dr As DataRow = DtCxCFact2.Rows(0) Dim lista = New List(Of CrystalParametro) - Dim SaldoDisponible As String = "0.00" - If TxtLimiteCredito.Text.ToDouble > 0 Then - SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo = 'Act'").ToString.ToDouble).FormatoNumero - End If + Dim SaldoDisponible As String = "0.00" + If TxtLimiteCredito.Text.ToDouble > 0 Then + SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo = 'Act'").ToString.ToDouble).FormatoNumero + End If lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) @@ -4163,11 +4164,11 @@ Partial Class Clientes a.GuardaLog() Dim Mail As New ClsSisMail() Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) - End Sub + End Sub #End Region - + #Region " COTIZACIONES " - + Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs) If BtnVerMasCot.Text = "Ver Más" Then CargaCotizaciones(-1) @@ -4237,9 +4238,9 @@ Partial Class Clientes HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}" End If End If - End Sub + End Sub #End Region - + #Region "D I R E C C I O N E N V I O " Public Sub Edit_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) @@ -4319,12 +4320,12 @@ Partial Class Clientes End If CargaDireccionesEnvio() - End Sub - + End Sub + #End Region - + #Region " IMPORTAR SALDOS " - + Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click CargaClientesImportarSaldos() RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos")) @@ -4430,9 +4431,9 @@ Partial Class Clientes e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo"))) e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"))) End If - End Sub + End Sub #End Region - + #Region "Cuentas/Equipos" Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs) HdnModalidad.Value = "I" @@ -5020,9 +5021,9 @@ Partial Class Clientes End If Return Retorno - End Function + End Function #End Region - + #Region "GPS" Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click If hdnArrayDispositivo.Value.Length > 0 Then @@ -5125,10 +5126,10 @@ Partial Class Clientes UpMoverDispositivo.Update() RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});") - End Sub - + End Sub + #End Region - + #Region "Sucursales" Public Sub CreaDTSucursales() @@ -5362,14 +5363,14 @@ Partial Class Clientes End If End If End If - End Sub - + End Sub + #End Region - + #Region "G P S" - - - + + + Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String) Try @@ -5440,11 +5441,11 @@ Partial Class Clientes End If ObjClientes.Dispose() - End Sub - - + End Sub + + #End Region - + #Region "C O N T R A T O S" Private Sub CargaDatosContrato() If CveCliente <= 0 Then @@ -5490,31 +5491,31 @@ Partial Class Clientes e.Row.CssClass = "Totales white" End If End If - End Sub - + End Sub + #End Region - + #Region "M E T O D O S " Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged - If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then - - Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'") - If tmp.Rows.Count > 0 Then - Dim Totales As DataRow = tmp.NewRow - Totales("SubTotal") = tmp.SUM("SubTotal") - Totales("Total") = tmp.SUM("Total") - Totales("Descuento") = tmp.SUM("Descuento") - Totales("Amortizacion") = tmp.SUM("Amortizacion") - Totales("MAX_Total") = tmp.MAX("MAX_Total") - Totales("AVG_Total") = tmp.AVG("AVG_Total") - Totales("MIN_Total") = tmp.MIN("MIN_Total") - Totales("CountTotal") = tmp.COUNT("CountTotal") - tmp.Rows.InsertAt(Totales, 0) - End If - GVHistorial.DataSource = tmp - ElseIf DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue = "-1" Then - GVHistorial.DataSource = DTHistorialVentas - End If + If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then + + Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'") + If tmp.Rows.Count > 0 Then + Dim Totales As DataRow = tmp.NewRow + Totales("SubTotal") = tmp.SUM("SubTotal") + Totales("Total") = tmp.SUM("Total") + Totales("Descuento") = tmp.SUM("Descuento") + Totales("Amortizacion") = tmp.SUM("Amortizacion") + Totales("MAX_Total") = tmp.MAX("MAX_Total") + Totales("AVG_Total") = tmp.AVG("AVG_Total") + Totales("MIN_Total") = tmp.MIN("MIN_Total") + Totales("CountTotal") = tmp.COUNT("CountTotal") + tmp.Rows.InsertAt(Totales, 0) + End If + GVHistorial.DataSource = tmp + ElseIf DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue = "-1" Then + GVHistorial.DataSource = DTHistorialVentas + End If GVHistorial.DataBind() End Sub Private Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged @@ -5672,9 +5673,9 @@ Partial Class Clientes CobranzaTelefono = "" CodigoCliente = "" - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then - divCorreoEntregaCompras.Visible = True - divCorreoEntregaAlmacen.Visible = True + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then + divCorreoEntregaCompras.Visible = True + divCorreoEntregaAlmacen.Visible = True End If End Sub @@ -5896,13 +5897,13 @@ Partial Class Clientes End If - End Sub - + End Sub + #End Region - + #Region "IMPRIMIR GVHistorial" - - + + Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs) Dim retorno As Byte() = Nothing Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -5981,18 +5982,18 @@ Partial Class Clientes ObjClientes.Dispose() Return retorno - End Function - - + End Function + + #End Region - + #Region "C O B R A N Z A" Public Sub Visitas_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivVisitas")) - End Sub - + End Sub + #End Region - + #Region "Usuarios" Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero @@ -6027,12 +6028,12 @@ Partial Class Clientes e.Row.Cells(5).Visible = False End If End If - End Sub + End Sub #End Region - - + + #Region "C U E N T A S - B A N C A R I A S" - + Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False) If CveCliente <= 0 Then Exit Sub @@ -6054,8 +6055,8 @@ Partial Class Clientes End If ObjCuentasBancos.Dispose() - CargaPSGridCuentasBancos() - + CargaPSGridCuentasBancos() + CargaMonedas() End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) @@ -6205,8 +6206,8 @@ Partial Class Clientes TxtNumeroCuenta2.Text = "" TxtConvenioCIE2.Text = "" TxtReferencia2.Text = "" - End Sub - + End Sub + #Region "GRIDVIEW - CUENTAS BANCARIAS" Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -6257,15 +6258,15 @@ Partial Class Clientes RecargaGlobalCuentasBancarias() End Sub Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) - If CveCliente > 0 Then - - GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing - + If CveCliente > 0 Then + + GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing + End If - End Sub - + End Sub + #End Region - + Private Sub CargaPSGridCuentasBancos() If CveCliente > 0 Then GvBancosCuentas.DataSource = DTCuentasBancos @@ -6323,9 +6324,9 @@ Partial Class Clientes divestatus.Visible = True UpAddBancos.Update() RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) - End Sub + End Sub #End Region - + #Region "C L I E N T E S P A G O S R E A L I Z A D O S I M P R I M I R P D F/Excel" Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click GenerarPDF("Excel") @@ -6586,10 +6587,10 @@ Partial Class Clientes ObjVentas.Dispose() Return PdfFactura(Vta) - End Function - + End Function + #End Region - + #Region "COMERCIO EXTERIOR" Public Sub CargaCombosComercioExterior() @@ -6703,12 +6704,12 @@ Partial Class Clientes End Sub Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs) CargaColonia() - End Sub - + End Sub + #End Region - + #Region "D O C U M E N T A C I O N " - + Private Sub CargaDocumentacionCliente() Dim objRH As New ClsEdocumentacion() @@ -6973,12 +6974,12 @@ Partial Class Clientes Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim Adjunto As String = GvRow.DataKey("Adjunto") - Dim stringDescargaDocumento As String = "" - If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then - stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa) - Else - stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto) - End If + Dim stringDescargaDocumento As String = "" + If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then + stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa) + Else + stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto) + End If linkDescargaPagare = stringDescargaDocumento TxtDireccionAval.Text = "" @@ -7043,8 +7044,8 @@ Partial Class Clientes Response.Buffer = True memoryStream.WriteTo(Response.OutputStream) Response.End() - memoryStream.Dispose() - + memoryStream.Dispose() + End Sub Protected Sub GvDocumentosFirma_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentosCliente.RowDataBound @@ -7112,7 +7113,7 @@ Partial Class Clientes LnkDownLoadDoc.Visible = True End If - txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy") + txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy") If Adjunto.Trim.Length > 0 Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then @@ -7539,12 +7540,12 @@ Partial Class Clientes RegistraScript("Download('" & baseUrl & "')") - End Sub - + End Sub + #End Region - + #Region "D O C U M E N T O S V E N T A S" - + Private Sub CargaDocumentosVenta(tCveCliente As Integer) Dim objInv As New ClsEdocumentacion @@ -7715,11 +7716,11 @@ Partial Class Clientes objRH.Dispose() - End Sub - - + End Sub + + #End Region - + #Region "PERSONA FISICA" Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs) RegistraScript("$('#DivModalPersonaFisica').modal();") @@ -7744,9 +7745,9 @@ Partial Class Clientes ObjCliente.Dispose() UpDatos.Update() - End Sub + End Sub #End Region - + #Region "USUARIOS PLATAFORMA CLIENTE - 6 " Protected Sub CargaUsuariosPortalCliente() Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios @@ -7755,19 +7756,19 @@ Partial Class Clientes GvUsuarios.DataBind() End If objUsuario.Dispose() - End Sub + End Sub #End Region - + #Region " DEVOLVER DINERO ANT/NC " Private Sub InicializaDevolverDinero() If UsuarioActual.TienePermisoProceso(247) Then GVAnticipos.Columns(6).Visible = True End If - End Sub + End Sub #End Region - + #Region "MODAL GRAFICA/PEDIDOS" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If CargaDatatables() Then RegistraScript("$('#DivModalGrafica').modal('show')") @@ -8100,13 +8101,13 @@ Partial Class Clientes RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55") UPModalProd.Update() - End Sub - - + End Sub + + #End Region - + #Region "TAB - COMPORTAMIENTO DE VENTAS" - + Private Sub CargaGrupo() DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3")) DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4")) @@ -8286,12 +8287,12 @@ Partial Class Clientes ObjVentas.Dispose() GvComportamientoVenta.DataBind() UpDatosComportamientoVenta.Update() - End Sub - + End Sub + #End Region - + #Region "DISPOSITIVOS" - + Protected Sub LnkMoverDispositivo_Click(sender As Object, e As EventArgs) Dim CveDispositivo As Integer = HdnCveDispositivoMover.Value.ToEntero() Dim CveCliente As Integer = DdlClienteDispositivo.SelectedValue.ToEntero() @@ -8329,10 +8330,10 @@ Partial Class Clientes CargaEventoBitacora() NombreDispositivo = "" RegistraScript("$('#DivMoverDispositivo').modal('hide');") - End Sub - + End Sub + #End Region - + #Region "CRM" Protected Sub CargaDatosCRM() Dim ObjCRM = New ClsCRM() @@ -8432,9 +8433,9 @@ Partial Class Clientes Alert("Se Unificó correctamente al Cliente con la Empresa CRM.") End If End If - End Sub + End Sub #End Region - + #Region "PORCENTAJE PRECIO DE MARCAS" Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas")) @@ -8638,9 +8639,9 @@ Partial Class Clientes ObjPS.Dispose() - End Sub + End Sub #End Region - + #Region "PORCENTAJE PRECIO DE PRODUCTOS" Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios")) @@ -8876,12 +8877,12 @@ Partial Class Clientes Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs) DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2) - End Sub + End Sub #End Region - + #Region " A C U M U L A D O R E S" - - + + Protected Sub LnkFacturaUsadosCargos_Click(sender As Object, e As EventArgs) 'CveVentaNota = 0 @@ -10146,9 +10147,18 @@ Partial Class Clientes End Sub Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) CargaEventoBitacora() - End Sub - Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaEstados(DdlSATPais.SelectedValue) - End Sub + End Sub + Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaEstados(DdlSATPais.SelectedValue) + End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class diff --git a/Ventas/RepConciliacionSat.aspx b/Ventas/RepConciliacionSat.aspx index b8102a0e3..d5e7c5c20 100644 --- a/Ventas/RepConciliacionSat.aspx +++ b/Ventas/RepConciliacionSat.aspx @@ -137,12 +137,12 @@ <%# Eval("CFDISAT")%> - + <%# Eval("CFDISIGSinSAT")%> - + <%# Eval("CFDISATSinSIG")%> diff --git a/Ventas/SolicitudesSAT.aspx b/Ventas/SolicitudesSAT.aspx index ac492ae6a..66c61af18 100644 --- a/Ventas/SolicitudesSAT.aspx +++ b/Ventas/SolicitudesSAT.aspx @@ -239,7 +239,7 @@ -

    Solicitar Descarga SAT

    +

    Solicitar descarga SAT

    diff --git a/vwd.webinfo b/vwd.webinfo index 9d2d954bf..a5848e16b 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -106,6 +106,8 @@ + +