Validacion de prepoliza

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1898,11 +1898,12 @@ Partial Class Inventarios_RecepcionAlmacen
     End Sub
 
     Private Function GeneraPrePolizaSalidaEntregaDirecta(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjContaContPAQ As ClsContPAQi) As Boolean
+        Dim Retorno As Boolean = True
+        Try
             Dim DtCostos As DataTable = Nothing
             Dim ValorInventario As Decimal = 0
             Dim ValorInventarioME As Decimal = 0
             Dim CveConcepto As Integer = 3
-        Dim Retorno As Boolean = True
 
             ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
             Dim CveVenta As Integer = ObjInventario.CveVenta
@@ -1970,9 +1971,16 @@ Partial Class Inventarios_RecepcionAlmacen
                         End If
 
                     End If
-
+                Else
+                    Retorno = False
                 End If
+            Else
+                Retorno = False
             End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guadar la prepoliza", ex)
+            Retorno = False
+        End Try
 
         Return Retorno
     End Function