Correcion descarga xml Clientes

Ventas/ProductosServicios.aspx.vb

@@ -2005,16 +2005,35 @@ Partial Class ProductosyServicios
             If DdlPsUnificar.SelectedValue.ToEntero() = CvePS Then
                 Alert("No se puede seleccionar el mismo producto y/o servicio", TipoMensaje.MsgAdvertencia)
             Else
+
+
+                Dim ErrorUnificacion As Boolean = False
+
                 Dim ObjPS As New ClsProductosServicios
+
+                'ObjPS.IniciaTransacSQL()
+
                 If ObjPS.UnificarPS(CvePS, DdlPsUnificar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                     Alert("Los productos y/o servicios han sido unificados", TipoMensaje.MsgInformacion)
                 Else
                     Alert("Los productos y/o servicios no han podido ser unificados", TipoMensaje.MsgError)
+                    ErrorUnificacion = True
                 End If
+
+                'If ErrorUnificacion Then
+                '    ObjPS.RollBack()
+                'Else
+                '    ObjPS.Commit()
+                'End If
+
                 ObjPS.Dispose()
-                RecargaGlobal()
-                RegistraScript("$('#DivUnificar').modal('hide');")
-                UpDatos.Update()
+
+                If Not ErrorUnificacion Then
+                    RecargaGlobal()
+                    RegistraScript("$('#DivUnificar').modal('hide');")
+                    UpDatos.Update()
+                End If
+
             End If
         Else
             Alert("Es necesario seleccionar un producto y/o servicio", TipoMensaje.MsgAdvertencia)