From d079b82845c3ef93f75b9db2b083273e3b87e2a6 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 27 Apr 2025 13:05:40 -0700 Subject: [PATCH 01/11] =?UTF-8?q?--=20Manejo=20de=20sesi=C3=B3n.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/SIGFacturacion.ashx | 1 + 1 file changed, 1 insertion(+) diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 034a71d08..ec403c3e2 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -233,6 +233,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) + HttpContext.Current.Session("UsuarioSIG") = UsuarioActual End If ObjUsuarios.Dispose() Return UsuarioActual From 309600e9380a3f9a8ab1bff29d403314a3f06037 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 27 Apr 2025 13:40:12 -0700 Subject: [PATCH 02/11] - ocultar columna de importes cuando es almacenista --- Ventas/RepComisionesSMS.aspx.vb | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb index 23d0bf991..4f74bc443 100644 --- a/Ventas/RepComisionesSMS.aspx.vb +++ b/Ventas/RepComisionesSMS.aspx.vb @@ -66,6 +66,18 @@ Partial Class Ventas_RepComisionesSMS GvDatos.Columns(19).Visible = False 'fecha pago GvDatos.Columns(20).Visible = False 'pagada End If + 'ocultar columnas en usuario almacen. + If UsuarioActual.CveRol = 1578 Then 'almacen + GvDatos.Columns(11).Visible = False 'precio unitario + GvDatos.Columns(12).Visible = False 'precio total + GvDatos.Columns(14).Visible = False 'vendedor + GvDatos.Columns(16).Visible = False 'tecnico + GvDatos.Columns(17).Visible = False 'gerente + GvDatos.Columns(18).Visible = False 'ed.medica + GvDatos.Columns(19).Visible = False 'fecha pago + GvDatos.Columns(20).Visible = False 'pagada + End If + End Sub Public Sub CargaDatos() From 15479007ee51107c6d03a9d5cdc74e1ed7fca661 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 28 Apr 2025 12:05:46 -0700 Subject: [PATCH 03/11] -- alta clientes en mayusculas --- Ventas/PV.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 65cdb1650..07cea1e59 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -6759,7 +6759,7 @@ Partial Class PV Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False) Dim GeneroCliente As Boolean = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False) - If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, + If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim.ToUpper, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero(), DdlFormaCliente.SelectedValue.ToEntero(), CvePrecioLista:=CvePrecioLista, From c4e58b18fc96eb62e99c4479b241229a94b7c5d9 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 28 Apr 2025 15:51:29 -0700 Subject: [PATCH 04/11] TareasProgramadas Envio de estado cuenta, compras cvetipoOperacion, , reembolsos filtror rwo acumulado, ajkustes carta porte, OC carga desde excel filtro rows vacios, personal cuentas deposito --- Ashx/TareasProgramadas.ashx | 17 +- Compras/Compras.aspx.vb | 6 +- Compras/Proveedores.aspx | 186 ++++++------- Compras/ReembolsosComprobaciones.aspx.vb | 2 +- .../Grales/Formatos/CartaPorteTimbrado.rdlc | 7 +- OC/OC.aspx.vb | 22 ++ OI/Proyecto.aspx | 50 +++- RH/Personal.aspx | 200 +++++++++++++- RH/Personal.aspx.vb | 248 +++++++++++++++--- 9 files changed, 577 insertions(+), 161 deletions(-) diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index fb461e57e..8e79bea06 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -108,7 +108,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState context.Response.Write(retorno) Case "EstadosCuenta" 'CargaEstadosCuenta(context, 119, 227774) - CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual) + 'CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual) + Dim tCveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero + CargaEstadosCuenta(context, tCveEmpresa, -1, FechaEnvio, FechaActual) Case "ScoreCard" CargaScoreCard(context, 140, FechaEnvio) @@ -354,6 +356,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState #Region "E S T A D O S D E C U E N T A" Private Sub CargaEstadosCuenta(ByVal context As HttpContext, pCveEmpresa As Integer, pCveCliente As Integer, FechaEnvio As DateTime, FechaActual As DateTime) + + Dim Usuario As Usuario = ValidaUsuarioSistema(100, pCveEmpresa) + Dim Retorno As New JArray() Dim DtEmpresas As DataTable = Nothing Using ObjEmpresas As New ClsSisEmpresas() @@ -364,7 +369,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState If DtEmpresas IsNot Nothing Then For Each Row As DataRow In DtEmpresas.Rows - Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero()) + 'Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero()) Dim obj As JObject = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente) Retorno.Add(obj) @@ -499,7 +504,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState Dim Envio As Boolean = False If Not String.IsNullOrEmpty(Correo) Then + 'Correo = "oscar.irigoyen@adssistemas.mx" Envio = EnviarEstadoCuenta(UsuarioActual, Correo, Cliente) + GuardaLog($"Log envio Estados Cuenta correo {If(Envio, "Enviado", "Error")} CveCliente {CveCliente} ") End If If Envio Then @@ -522,6 +529,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState New JProperty("Cliente", Cliente.Nombre) )) End If + End If Next End If @@ -857,7 +865,10 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState If sw.Elapsed.TotalSeconds > 10 Then GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds} ") End If - If MR IsNot Nothing Then MR.Dispose() + If MR IsNot Nothing Then + 'MR.Close() + MR.Dispose() + End If Return Bytes End Function diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6ed284990..985b03230 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2562,7 +2562,7 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) End If - If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(0, 3, 4) Then ' 85 - Otros If UsuarioActual.CveEmpresa <> 119 Then DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) @@ -2585,7 +2585,7 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) End If - If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(3, 4) Then ' 85 - Otros If UsuarioActual.CveEmpresa <> 119 Then DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) @@ -2619,7 +2619,7 @@ Partial Class Compras_Compras DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2")) End If - If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(3, 4) Then ' 85 - Otros If UsuarioActual.CveEmpresa <> 119 Then DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 4a7d61348..4c7dd8fa6 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -3326,89 +3326,89 @@ - -
+
+
-
-
-
-
- - -
-
-
-
- - - -
-
-
-
-
-
- - -
-
-
-
- - -
-
-
-
- - <%----%> - -
-
-
-
- - - -
-
-
-
-
-
- - - -
-
-
-
- - -
-
-
-
-
- - -
+
+ + +
-
-
- - - +
+
+
+ + + +
+
+
+
+
+
+ + +
+
+
+
+ + +
+
+
+
+
+
+ + +
+
+
+
+ + + +
+
+
+
+
+
+ + + +
+
+
+
+ + +
+
+
+
+
+
+ + +
+
+
+
+ + + +
+
-
-
@@ -3427,38 +3427,38 @@
-
-
-
+
+
+
-
-
+
+
-
- - +
+ +
-
-
+
+
-
- - - Seleccione uno - - - - +
+ + + Seleccione uno + + + + + +
-
-
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 8ad336c6e..7edaa79fb 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -950,7 +950,7 @@ Partial Class Compras_ReembolsosComprobaciones GvCxP.Visible = True ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), OpcionSaldo:=1) - DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0") + DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND LEN(SerieFolio) > 0 ") GvCxP.DataSource = DtDatos CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index f305d7390..6f4ef8887 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -6485,6 +6485,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot 0.6cm 3.97474cm 45 + + true + @@ -6525,6 +6528,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot 0.6cm 3.97474cm 46 + + true + @@ -7793,7 +7799,6 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot Textbox14 - 0cm 14.77452cm 0.54708cm 4.70062cm diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 52dbb0613..6f84c33b8 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -6952,6 +6952,28 @@ Partial Class OC_OC Dim dt As New DataTable dt = ReadExcelFile(Ruta + FileName, True) + + + If dt.Rows.Count > 0 Then + Dim dtOriginal As DataTable = dt + Dim dtFiltrada As DataTable = dtOriginal.Clone() + Try + For Each row As DataRow In dtOriginal.Rows + Dim cantidadStr As String = row("Cantidad").ToString().Trim() + + Dim cantidadNum As Decimal + If Decimal.TryParse(cantidadStr, cantidadNum) Then + If cantidadNum > 0 Then + dtFiltrada.ImportRow(row) + End If + End If + Next + Catch ex As Exception + + End Try + dt = dtFiltrada + End If + Dim ErrorArchivo As Boolean = False 'Dim Conexion As Odbc.OdbcConnection = Nothing diff --git a/OI/Proyecto.aspx b/OI/Proyecto.aspx index a0ce32782..44edfcb16 100644 --- a/OI/Proyecto.aspx +++ b/OI/Proyecto.aspx @@ -119,17 +119,8 @@
- -
-
- - Nuevo -
-
- -
-
-
+ +
@@ -269,8 +260,11 @@
-
- + + + + +
@@ -320,6 +314,36 @@