Ventas autoguadardo de productos en procedimiento

2023-12-06 11:00:22 -07:00
parent 4c3eae82dd
commit 97b3a4a72a
1 changed files with 5 additions and 0 deletions
--- 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