diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 08e1b50ed..eca64b3d1 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -604,7 +604,7 @@ Public Class ClsVentas
End Function
Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String,
- Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean
+ Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasObservacionesUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -619,6 +619,9 @@ Public Class ClsVentas
.Add("@Pedido", SqlDbType.NVarChar).Value = Pedido
.Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra
.Add("@FechaPago", SqlDbType.Date).Value = FechaPago
+ .Add("@DescripcionVenta", SqlDbType.VarChar).Value = DescripcionVenta
+
+
End With
Try
SqlAdapter.Fill(Data)
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 256ff61ab..be622b490 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4205,7 +4205,7 @@
-
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index fa5c496ef..6ad972f7e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -33655,6 +33655,9 @@ Partial Class Ventas
UpPS.Update()
End If
+ TxtDescripcionVenta.Enabled = True
+
+ UpCliente.Update()
UpParametros.Update()
UPObservaciones.Update()
UpFacturar.Update()
@@ -33673,7 +33676,7 @@ Partial Class Ventas
ObjVentas.IniciaTransacSQL()
If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
- TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then
+ TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim) Then
TieneError = True
End If