PA para editar la observación de una venta agregado

App_Code/ClsVentas.vb

@@ -460,8 +460,7 @@ Public Class ClsVentas
                                  Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
                                  Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
                                  Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
-                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveVendedor As Integer = -1, Optional ObsAlm As String = "", Optional FormaPaqueteria As Integer = -1,
+                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean
-                                 Optional CorreoNot As String = "-1") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
 
@@ -492,10 +491,6 @@ Public Class ClsVentas
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra
             .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@ObservacionesAlm", SqlDbType.NVarChar).Value = ObsAlm
-            .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
-            .Add("@CorreoNotificacion", SqlDbType.NVarChar).Value = CorreoNot
         End With
 
         Try
@@ -507,6 +502,32 @@ Public Class ClsVentas
 
         Return Retorno
     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) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasObservacionesUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
+            .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
+            .Add("@CorreoNotificaciones", SqlDbType.NVarChar).Value = CorreoNotificaciones
+            .Add("@ObservacionesAlm", SqlDbType.NVarChar).Value = ObservacionesAlm
+            .Add("@Pedido", SqlDbType.NVarChar).Value = Pedido
+            .Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra
+            .Add("@FechaPago", SqlDbType.Date).Value = FechaPago
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar las observaciones de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
     Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasFechaVencimientoUpdate")

Ventas/Ventas.aspx.vb

@@ -26143,10 +26143,8 @@ Partial Class Ventas
 
     Private Sub GuardarValoresEditados()
         Dim ObjVentas As New ClsVentas()
-        If ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(),
+        If ObjVentas.UpdateObservacionesVenta(CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
-                                  TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, DdlMetodoPago33.SelectedValue.ToEntero, DdlFormaPago33.SelectedValue.ToEntero,
+                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text) Then
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue, OrdenCompra:=TxtOrdenCompra.Text, PedidoContrato:=TxtPedidoContrato.Text, ObsAlm:=TxtObsAlmacen.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero,
-                                  CorreoNot:=TxtCorreoNotificaciones.Text, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
             CargaVenta()
             BtnEditar.Text = "Editar"
             Alert("Actualizado correctamente")