RepProgramasOperativosAvances

Ventas/ProductosServicios.aspx.vb

@@ -2033,7 +2033,7 @@ Partial Class ProductosyServicios
 
                 Dim ObjPS As New ClsProductosServicios
 
-                'ObjPS.IniciaTransacSQL()
+                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)
@@ -2042,11 +2042,11 @@ Partial Class ProductosyServicios
                     ErrorUnificacion = True
                 End If
 
-                'If ErrorUnificacion Then
-                '    ObjPS.RollBack()
-                'Else
-                '    ObjPS.Commit()
-                'End If
+                If ErrorUnificacion Then
+                    ObjPS.RollBack()
+                Else
+                    ObjPS.Commit()
+                End If
 
                 ObjPS.Dispose()