diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index be991e0fc..319c6a699 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -1770,6 +1770,11 @@ Public Class ClsProductosServicios
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch Ex1 As SqlException
+
+            If Ex1.Message.Contains("Producto princial no encontrado:") Or Ex1.Message.Contains("Producto unificado no encontrado:") Then
+                Alert(Ex1.Message, TipoMensaje.MsgAdvertencia)
+            End If
+
             OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         Catch ex As Exception
             OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 28609db2d..444ff4848 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2203,8 +2203,8 @@ Partial Class Clientes
                     e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("MonedaIE")
 
                     If e.Row.DBCampo("CveComplementoPago") <> "" Then
-                        e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString())))
-                        e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString())))
+                        e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioCP").ToString(), e.Row.DBCampo("CveIE").ToString())))
+                        e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioCP").ToString(), e.Row.DBCampo("CveIE").ToString())))
 
                         e.Row.FCLinkButton("LnkSendMail").Visible = True
                     End If
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index d6b631b89..747a5f751 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/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)