diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index ca6c1f834..4062c16a1 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -731,8 +731,7 @@
-
-
+
<%----%>
@@ -760,11 +759,9 @@
-
-
<%----%>
-
+
@@ -790,7 +787,6 @@
-
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 8fc3b0d2a..6102d1c11 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2986,8 +2986,10 @@ Partial Class Inventarios_EntradasSalidas
Dim ErrorMovInv As Boolean = False
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas(Modulo, 53, 0, 0, 1, Fecha, Concepto, CveUsuario, CveEmpresa)
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
- ErrorMovInv = True
+ If CveMovimientoSalida > 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
+ ErrorMovInv = True
+ End If
End If
If CveMovimientoEntrada > 0 Then
@@ -2995,7 +2997,7 @@ Partial Class Inventarios_EntradasSalidas
ErrorMovInv = True
End If
End If
- If dttCostos IsNot Nothing Then
+ If dttCostos IsNot Nothing AndAlso CveMovimientoSalida > 0 Then
For Each RowInv As DataRow In dttCostos.Rows
Dim ValorInventario As Decimal = dttCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
@@ -3006,7 +3008,6 @@ Partial Class Inventarios_EntradasSalidas
Next
End If
-
If Not ErrorMovInv Then Retorno = CvePrePoliza
Return Retorno
@@ -5551,7 +5552,7 @@ Partial Class Inventarios_EntradasSalidas
End If
Dim tCveMovtoEntrada As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1)
Dim tCveMovtoSalida As Integer = If(tOrigen > 0, -1, CveMovimientoVirtual)
- If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
+ If Not ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
ErrorMovInv = True
End If
End If