diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index bc521b471..d77cabad5 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5361,11 +5361,14 @@ Partial Class Compras_Compras
                                                             Next
 
                                                             ''insertar en prepólizas
-                                                            Dim tImporte As Decimal
-                                                            If ObjInventario.GetMovimientosDetalle(CveMovimientoAlmacen, UsuarioActual.CveEmpresa) Then
-                                                                tImporte = ObjInventario.DtResultados.SUM("Total")
+                                                            If CveMovimientoAlmacen > 0 Then
+                                                                Dim tImporte As Decimal
+                                                                If ObjInventario.GetMovimientosDetalle(CveMovimientoAlmacen, UsuarioActual.CveEmpresa) Then
+                                                                    tImporte = ObjInventario.DtResultados.SUM("Total")
+                                                                End If
+                                                                ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 68, ObjInventario.Folio.ToString, ObjInventario.Folio.ToString, CveMovimientoAlmacen:=CveMovimientoInventario)
                                                             End If
-                                                            ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 68, ObjInventario.Folio.ToString, ObjInventario.Folio.ToString, CveMovimientoAlmacen:=CveMovimientoInventario)
+
                                                         End If
                                                     Next
                                                 End If