From f43042312efddaa5279d0a33710a426f7bb56692 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 10 May 2023 10:48:34 -0700 Subject: [PATCH 1/4] Limpieza de funcionalidad 520 --- App_Code/ClsBancos.vb | 6 +----- Bancos/IE.aspx.vb | 5 +---- Compras/Proveedores.aspx.vb | 5 +---- Inventarios/TraspasoAlmacen.aspx.vb | 18 ------------------ 4 files changed, 3 insertions(+), 31 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index ca61f5bd1..8a261bc7b 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4843,11 +4843,7 @@ Public Class ClsBancos 'MOVIMIENTOS CHEQUE If GetBancosIEMovimientos(CveIENotificar, UsuarioActual.CveEmpresa) Then - Dim Textov33 As String = "" - If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - End If - + Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos" strBody.AppendFormat("
") strBody.AppendFormat(" ") diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 583fafb2d..a37c92bf4 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -6223,10 +6223,7 @@ Partial Class Bancos_IE 'MOVIMIENTOS CHEQUE If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - Dim Textov33 As String = "" - If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - End If + Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos" strBody.AppendFormat("
") strBody.AppendFormat("
") diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index ccfb2ae94..18574cc43 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -5898,10 +5898,7 @@ Partial Class Compras_Proveedores 'MOVIMIENTOS CHEQUE If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - Dim Textov33 As String = "" - If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - End If + Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos" strBody.AppendFormat("
") strBody.AppendFormat("
") diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 11e1f5e05..352045248 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -2624,14 +2624,6 @@ Partial Class Inventarios_TraspasoAlmacen strBody.AppendFormat(" ") strBody.AppendFormat(" ", ObjInventario.Observaciones) strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - 'strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ", objIE.Observaciones) - 'strBody.AppendFormat(" ") strBody.AppendFormat(" ") strBody.AppendFormat("
Observaciones:{0}
Importe:$ {0} {1}
Observaciones:{0}
") strBody.AppendFormat("
") @@ -2644,12 +2636,6 @@ Partial Class Inventarios_TraspasoAlmacen strBody.AppendFormat("
") strBody.AppendFormat("
") - - 'MOVIMIENTOS CHEQUE - 'Dim Textov33 As String = "" - 'If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - 'End If If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then strBody.AppendFormat("
") strBody.AppendFormat(" ") @@ -2662,8 +2648,6 @@ Partial Class Inventarios_TraspasoAlmacen strBody.AppendFormat(" ") strBody.AppendFormat(" ") strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ") - 'strBody.AppendFormat(" ") strBody.AppendFormat(" ") @@ -2672,8 +2656,6 @@ Partial Class Inventarios_TraspasoAlmacen strBody.AppendFormat(" ", dr("Cantidad").ToString.FormatoNumero) strBody.AppendFormat(" ", dr("UnidadMedida").ToString) strBody.AppendFormat(" ", dr("CodigoPS").ToString) - 'strBody.AppendFormat(" ", dr("FolioFiscal")) - 'strBody.AppendFormat(" ", dr("ImporteNC").ToString.FormatoNumero) strBody.AppendFormat(" ") Next From 6a2d7efa3e3b9e645e6612b0dc25b82cd977420f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 11 May 2023 10:50:03 -0700 Subject: [PATCH 2/4] opcion para consumo interno --- Inventarios/EntradasSalidas.aspx.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 5c74dc695..7c5b0a4a4 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1950,8 +1950,13 @@ Partial Class Inventarios_EntradasSalidas End If If Not ErrorMovInv Then + Dim OpcionPrePoliza As Integer = -1 + 'SI ES CONSUMO INTERNO + If DdlConcepto.SelectedValue = "30" Then + OpcionPrePoliza = 11 + End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then If ObjConta.ValorPolizaDescuadre > 0 Then ErrorMovInv = True GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") From ba9aaf5e08837aed33226fc37ff5e188d2443c9d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 11 May 2023 11:03:47 -0700 Subject: [PATCH 3/4] =?UTF-8?q?Tama=C3=B1o=20de=20txt=20de=20PU=20en=20ven?= =?UTF-8?q?tas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 10fd4987a..5541ff8c2 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1065,7 +1065,7 @@ -
CantidadUnidadProducto / ServicioFolio FiscalNC Aplicadas
{0}{0}{0}{0}{0}
+
From 09fbd611be0b8644fb25725a1e72fb6a1d08e4a2 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 11 May 2023 11:28:32 -0700 Subject: [PATCH 4/4] cambiar funcionalidad 570 por la 702 --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1afe33093..add3b72e4 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7070,7 +7070,7 @@ Partial Class Ventas Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595) 'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO - If Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then + If (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("1", "2")) AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then RBLPago.SelectedValue = "2" RBLPago.Items(0).Enabled = False RBLPago_SelectedIndexChanged(Nothing, Nothing)