.

Compras/Compras.aspx.vb

@@ -6382,7 +6382,7 @@ Partial Class Compras_Compras
                                                                 ' adfasdasd
                                                                 'ChkNCInvNC
 
-                                                                If Not RegistraConcepto225 AndAlso Not ChkNCInvNC.Checked AndAlso Not RegistroCuentaPuente Then
+                                                                If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then
                                                                     'GASTO
                                                                     If UsuarioActual.CveEmpresa = 119 Then
                                                                         DT = TmpDT

Contabilidad2/CatCuentas.aspx.vb

@@ -29,14 +29,14 @@ Partial Class Contabilidad2_CatCuentas
         If Not Page.IsPostBack Then
             'inicio()
             'RegistraScript("$('#Tsubcuenta').mask('00000-0000-0000-00000');")
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            '  If UsuarioActual.Empresa.UsaContabilidad Then
             CargaMonedas()
             CargaAgrupadorSAT()
             CargaDatos()
-            Else
-                Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
-                MEECuenta.Enabled = False
-            End If
+            'Else
+            '    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
+            '    MEECuenta.Enabled = False
+            'End If
         End If
     End Sub
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2546,6 +2546,9 @@ Partial Class Inventarios_TraspasoAlmacen
             Try
                 Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
                 For Each RowExcel As DataRow In dt.Rows
+                    If RowExcel("Codigo").ToString() <> "" Then
+
+
                         Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
 
                         Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
@@ -2594,9 +2597,10 @@ Partial Class Inventarios_TraspasoAlmacen
                             RowsNoCargados = RowsNoCargados + 1
                             ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
                         End If
+                    End If
                 Next
             Catch ex As Exception
-                OnError("Ocurrió un error al cargar los productos.", ex)
+                OnError("Ocurrió un error al cargar los productos." & ProductosNoCargados.ToString(), ex)
             Finally
 
                 If NoPSConSerieLote > 0 Then