From 97b3a4a72a73306b88a040fab4b156a5f045d8ae Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 6 Dec 2023 11:00:22 -0700
Subject: [PATCH] Ventas autoguadardo de productos en  procedimiento

---
 Ventas/Ventas.aspx.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c80df0e69..8b3a784ff 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13499,6 +13499,7 @@ Partial Class Ventas
             End If
 
             If EsVentaMedica AndAlso ErrorList.Count = 0 AndAlso ChkRequiereTecnico.Checked Then
+
                 GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList)
 
                 If ErrorList.Count = 0 Then
@@ -13507,6 +13508,10 @@ Partial Class Ventas
                     End If
                 End If
 
+                If ObjVentas.SincronizacionProcedimientoProducto(DdlProcedimiento.SelectedValue.ToEntero, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                    ErrorList.Add("Ocurrió un error al guardar la los productos al procedimiento")
+                End If
+
             End If