From ddda3e22da9e8203de924a12320d449abc8ab9bb Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 6 Oct 2023 12:05:20 -0700 Subject: [PATCH] =?UTF-8?q?--=20ajuste=20para=20el=20env=C3=ADo=20de=20des?= =?UTF-8?q?cripci=C3=B3n=20de=20venta?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 33 +++++++++++++++------------------ 1 file changed, 15 insertions(+), 18 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 750625e13..502428c99 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9977,7 +9977,6 @@ Partial Class Ventas 'ContPAQ El movimiento 1 es el de Venta Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" - AutoConta = AutocontaMatriz(AutoConta) If DdlTipoComprobante.SelectedValue.Contiene("Rem", "RNC", "Cot", "Ped", "Pd2", "PA") Then @@ -10016,22 +10015,22 @@ Partial Class Ventas End If End If - Try - 'RMF, cuando es pedido, se manda autorización. - If ObjFactura.TipoDocto.Contiene("PA") Then + 'Try + ' 'RMF, cuando es pedido, se manda autorización. + ' If ObjFactura.TipoDocto.Contiene("PA") Then - Dim Titulo As String = "Solicitud de autorización" 'usuarios de crédito y cobranza - Dim Msg As String = String.Format("{0} - Folio {1} ", DdlSubProyectoDatos.SelectedItem.Text, TxtFolio.Text) - 'If UsuarioActual.CveEmpresa = 119 Then - ' ClsSisNotificaciones.SendNotificacionERP(1715, Titulo, Msg, 1) - ' ClsSisNotificaciones.SendNotificacionERP(1815, Titulo, Msg, 1) - ' ClsSisNotificaciones.SendNotificacionERP(1830, Titulo, Msg, 1) - 'End If + ' Dim Titulo As String = "Solicitud de autorización" 'usuarios de crédito y cobranza + ' Dim Msg As String = String.Format("{0} - Folio {1} ", DdlSubProyectoDatos.SelectedItem.Text, TxtFolio.Text) + ' 'If UsuarioActual.CveEmpresa = 119 Then + ' ' ClsSisNotificaciones.SendNotificacionERP(1715, Titulo, Msg, 1) + ' ' ClsSisNotificaciones.SendNotificacionERP(1815, Titulo, Msg, 1) + ' ' ClsSisNotificaciones.SendNotificacionERP(1830, Titulo, Msg, 1) + ' 'End If - End If - Catch ex As Exception - OnError("Ocurrió un error al mandar las notificaciones de autorización", ex) - End Try + ' End If + 'Catch ex As Exception + ' OnError("Ocurrió un error al mandar las notificaciones de autorización", ex) + 'End Try Try ViewState("CveVenta") = ObjFactura.CveVenta @@ -13024,9 +13023,7 @@ Partial Class Ventas End If Dim DescripcionVenta As String = "" - If factura.TipoDocto = "Ing" AndAlso UsuarioActual.CveEmpresa = 13 Then - DescripcionVenta = TxtDescripcionVenta.Text - End If + If TxtDescripcionVenta.Text <> "" Then DescripcionVenta = TxtDescripcionVenta.Text If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,