-

Inventarios/EntradasSalidas.aspx.vb

@@ -1937,9 +1937,7 @@ Partial Class Inventarios_EntradasSalidas
                                     CveConceptoContable = 181
                                     TipoMovtoOtro = False
                                     If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
-                                    'If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
-                                    '    IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
-                                    'End If
+
                                 Case 34
                                     CveConceptoContable = 51
                                     EsContabilizable = True
@@ -3901,9 +3899,6 @@ Partial Class Inventarios_EntradasSalidas
                     '            Exit For
                     '        End If
                     '    Else
-                    '        If ObjConta.GetRetCuenta(176, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                    '            IdCtaContable = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                    '        End If
 
                     '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorInventario, Concepto, 176, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveOC:=HdnCveOrdenCompra.Value.ToEntero, CveOCDetalle:=RowOC("CveOrdenCompraDetalle").ToString.ToEntero) Then
                     '            ErrorMovInv = True
@@ -5486,7 +5481,6 @@ Partial Class Inventarios_EntradasSalidas
                 tCveSubProyecto = drAlmacenVirtual("CveSubProyecto").ToString.ToEntero
             End If
 
-
             'VERIFICA SI TIENE ALMACEN VIRTUAL
             If CveAlmacenVirtual > 0 Then
                 If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -5528,6 +5522,9 @@ Partial Class Inventarios_EntradasSalidas
                         End If
 
                     End If
+                End If
+            End If
+
         Catch ex As Exception
             ErrorMovInv = True
         End Try