From ca372ea0d6c3ecf75b25ddd8dbf3e6070a48d076 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 6 Apr 2024 08:30:27 -0700 Subject: [PATCH 1/5] =?UTF-8?q?--=20acomodo=20de=20c=C3=B3digo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/OrdenesServicios.aspx.vb | 35 +---------------------------------- 1 file changed, 1 insertion(+), 34 deletions(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 453c99c5d..adaaba76a 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -4,19 +4,11 @@ Option Strict On Imports Extensiones Imports System.IO Imports System.Data -Imports Telerik.Web.UI -Imports System.Data.SqlClient -Imports Stimulsoft.Report.StiOptions.Export -Imports Modelos -Imports System.Runtime.InteropServices.ComTypes -Imports APP_Code_CSharp -Imports System.ComponentModel.Design Partial Class OS_OrdenesServicios Inherits ClsPaginas #Region "Propiedades" - Private Shared missing As Object = System.Reflection.Missing.Value Private Property CveCliente As Integer Get Return ViewState("CveCliente").ToString.ToEntero @@ -436,11 +428,6 @@ Partial Class OS_OrdenesServicios LblCuentaEquipoTH.Visible = False DdlCuentaEquipo.Visible = False - - - - - TREstatus2.Visible = If(TipoEstatus.Contiene(4, 5), False, True) DdlPsModalFinalizar.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") @@ -456,8 +443,6 @@ Partial Class OS_OrdenesServicios DdlPsModalFinalizar.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) End If - - End If If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then @@ -735,9 +720,6 @@ Partial Class OS_OrdenesServicios TxtIdentificadorCliente.Text = ObjOS.IdentificadorCliente TxtFolioAdicional.Text = ObjOS.FolioAdicional - - - CargaEventoBitacora() CargaHistorial() CargaDetalles() @@ -762,7 +744,6 @@ Partial Class OS_OrdenesServicios ViewState("CveCliente") = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString.ToEntero CargaCliente(CveCliente) - Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0) If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then TxtDescripcion.Text = Drow("SerieFolio").ToString @@ -822,10 +803,7 @@ Partial Class OS_OrdenesServicios TmpDT.Rows.Add(drt) Cons = Cons + 1 - - End If - Next GvPS.DataSource = TmpDT GvPS.DataBind() @@ -845,8 +823,6 @@ Partial Class OS_OrdenesServicios Dim IDOSDetalle As Integer = 1 CreaDT() - - If ObjOrdenServicio.GetOrdenesServiciosDetalle(CveOS) Then If ObjOrdenServicio.DtResultados IsNot Nothing Then For Each Row As DataRow In ObjOrdenServicio.DtResultados.Rows @@ -999,13 +975,9 @@ Partial Class OS_OrdenesServicios End Sub Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1, Optional CargaPublicoGeneral As Boolean = False) - - Dim ObjCliente As New ClsClientes() - Dim NombreCliente As String = "-1" - If CargaPublicoGeneral Then NombreCliente = "PUBLICO EN GENERAL" End If @@ -1225,10 +1197,6 @@ Partial Class OS_OrdenesServicios 'ObjEstatusPermisos.Dispose() - - - - 'OS Estatus Inicial If tipoEstatus = 1 And UsuarioActual.TienePermisoProceso(366) Then Exit Sub @@ -1256,7 +1224,6 @@ Partial Class OS_OrdenesServicios UpGuardar.Visible = False - End Sub #End Region @@ -3365,7 +3332,7 @@ Partial Class OS_OrdenesServicios End Sub - Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlTransaction) As RespuestaFacturacion + Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlClient.SqlTransaction) As RespuestaFacturacion Dim Respuesta As New RespuestaFacturacion() Dim CveRemisionGenerada As Integer = -1 From 78c3958d6fc196604a1be2c958a27e2065d00418 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Apr 2024 08:16:58 -0700 Subject: [PATCH 2/5] - no formatear cantidad en remisiones pendients de facturar, por problemas con validador --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 4ff4f66e6..30a10c25a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -5589,7 +5589,7 @@ Cantidad - + From 1d78fcb1e0e909a72f84b3551c821087de356e03 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Apr 2024 08:17:17 -0700 Subject: [PATCH 3/5] -ocultar precio libre --- Ventas/ProductosServicios.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 57187d90a..cada5cc55 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -819,7 +819,7 @@ -
+ From 8e067aa4a6d3da1ac7acdc63673e67229f36af97 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Apr 2024 08:17:46 -0700 Subject: [PATCH 4/5] =?UTF-8?q?-=20cambio=20en=20mensaje=20para=20obtncion?= =?UTF-8?q?=20de=20facturas=20pendinetes=20de=20aceptar=20para=20cancelaci?= =?UTF-8?q?=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inicio.aspx.vb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 2c3ffb9ac..e5e6cc56f 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -30,7 +30,6 @@ Partial Class Inicio For Each item As DataRow In theDataSet.Tables(0).Rows sb.AppendFormat("{0};", item("Uuid").ToString()) Next - If objventas.GetFacturasCanceladasPendientes(sb.ToString(), CveEmpresa) Then retorno = True End If @@ -41,12 +40,11 @@ Partial Class Inicio End If End If Else - Alert("Error al obtener cancelaciones pendientes: " & resp.Descripcion, ModExtensiones.TipoMensaje.MsgError) + Alert("Los servicios del SAT presentan intermitencia y no se puede obtener la información de cancelaciones pendientes: " & resp.Descripcion, ModExtensiones.TipoMensaje.MsgError) End If - Catch ex As Exception retorno = False - Me.OnError("Error al obtener cancelaciones pendientes: ", ex, "") + Me.OnError("Los servicios del SAT presentan intermitencia y no se puede obtener la información: ", ex, "") End Try gvCancelaPendiente.DataBind() Return retorno From 92afababafc90e105e60f4c8533c439a8395aa9c Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Apr 2024 08:18:56 -0700 Subject: [PATCH 5/5] -- mostrar porentajes de iva, solo para E190, E192 --- Bancos/RepCortes.aspx.vb | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 41d2ada37..c90c3d82e 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -5,8 +5,7 @@ Imports System.Data Imports Extensiones Partial Class Bancos_RepCortes - Inherits ClsPaginas - Private Shared missing As Object = System.Reflection.Missing.Value + Inherits ClsPaginas #Region "PROPIEDADES" Private Property DtCortes As DataTable @@ -174,10 +173,12 @@ Partial Class Bancos_RepCortes GvP.DataSource = Vn.DtResultados DtCortesVentasResumen = Vn.DtResultados End If - If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - GvPorIVA.DataSource = Vn.DtResultados - End If - + If UsuarioActual.CveEmpresa.Contiene(190, 192) Then + If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvPorIVA.DataSource = Vn.DtResultados + End If + End If + If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then GvD.DataSource = Vent.DtResultados DtCortesVentas = Vent.DtResultados