diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb
index dbf73e938..8ec3004dd 100644
--- a/Ventas/CatPS.aspx.vb
+++ b/Ventas/CatPS.aspx.vb
@@ -294,7 +294,7 @@ Partial Class CatPS
         Dim Retorno As String = ""
         If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
 
-            Dim StrEmpresas As String = UsuarioActual.Empresa.Funcionalidad(563) & "," & UsuarioActual.CveEmpresa ' agregamos la empresa actual
+            Dim StrEmpresas As String = UsuarioActual.CveEmpresa & "," & UsuarioActual.Empresa.Funcionalidad(563)   ' agregamos la empresa actual
             Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
             For Each Franquicia As Integer In EmpresasFranquicia
                 Dim CvePSPagina As Integer = GlobalDTPSSimplificado(Franquicia, Codigo:=CodigoPS.ToUpper).FiltroPrimeroValor("CvePS", "").ToEntero
@@ -307,12 +307,12 @@ Partial Class CatPS
                 End If
 
                 If CvePSAdicional <= 0 AndAlso Opcion = 1 Then
-                    Return String.Format("El producto adicional:{0} no existe en la franquicia: '{1}'", CodigoPS, GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa"))
+                    Return String.Format("El producto adicional: {0} no existe en la franquicia: '{1}'", PSAdicional, GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa"))
                 End If
 
                 If Opcion = 1 Then
                     If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, Cantidad) Then
-                        Return "no se pudo registrar"
+                        Return String.Format("No se registró el producto adicional:{0} no existe en la franquicia: '{1}'", CodigoPS, GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa"))
                     End If
                 End If
                 If Opcion = 2 Then
@@ -405,9 +405,10 @@ Partial Class CatPS
                             Dim CodigoPS As String = dr("CodigoProducto").ToString.Trim
                             Dim CodigoPSAdicional As String = dr("CodigoProductoAdicional").ToString.Trim
                             Dim Cantidad As Integer = dr("CantidadFija").ToString.ToEntero
+                            msgg = GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1)
                             If GuardarProductosEquivalenteEnFranquicia(ObjPS, CodigoPS, CodigoPSAdicional, Cantidad, 1) <> "" Then
                                 ErrorExcel = True
-                                strNoCargados.AppendFormat("código:{0} Adicional:{1}", dr("CodigoProducto").ToString, dr("CodigoProductoAdicional").ToString)
+                                strNoCargados.AppendFormat(" {0}  <br/>", msgg)
                                 Exit For
                             End If
                             ContadorRegistros = ContadorRegistros + 1