-mejora en la hora de movimiento

- sino tiene prepoliza que no consulte

Inventarios/EntradasSalidas.aspx.vb

@@ -1048,16 +1048,18 @@ Partial Class Inventarios_EntradasSalidas
             TxtObservaciones.Enabled = True
         End If
 
-        Dim ObjContabilidad As New ClsContabilidad
-        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-            Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
-            If dr IsNot Nothing Then
-                If dr("IdPoliza").ToString.ToEntero > 0 Then
-                    BtnEliminar.Visible = False
+        If CvePrePoliza > 0 Then
+            Dim ObjContabilidad As New ClsContabilidad
+            If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+                If dr IsNot Nothing Then
+                    If dr("IdPoliza").ToString.ToEntero > 0 Then
+                        BtnEliminar.Visible = False
+                    End If
                 End If
             End If
+            ObjContabilidad.Dispose()
         End If
-        ObjContabilidad.Dispose()
 
         'SI TIENE PREPOLIZA NO SE DEBE PODER EDITAR
         If Mov.TienePrePoliza > 0 Then
@@ -4273,7 +4275,7 @@ Partial Class Inventarios_EntradasSalidas
         Dim ValorSalida As Decimal = 0
         Dim ImporteConcepto As Decimal = 0
         Dim tConcepto As String = TxtIFDescripcion.Text.Trim
-        Dim Fecha = TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd").ToDate
+        Dim Fecha As Date = (TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd ") & Now.ToShortTimeString).ToDate
         Dim tCveSubProyectoEntrada As Integer = -1
         Dim tCveSubProyectoSalida As Integer = -1
         Dim TipoMovto As Boolean = False
@@ -4414,6 +4416,8 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
             If ValorEntrada >= ValorSalida Then
+                'si el valor entrada es igual al valorsalida, y este sea cero.
+                If tCveSubProyectoEntrada = -1 Then tCveSubProyectoEntrada = tCveSubProyectoSalida
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"