diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a23cdaaa2..c51b13eb9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18116,7 +18116,7 @@ Partial Class Ventas
     End Sub
     Protected Sub DdlNCFactura_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlNCFactura.SelectedIndexChanged
         Dim objcompras As New ClsCompras
-        If objcompras.GetCompraDetallealmacen(0, DdlNCFactura.SelectedValue.ToEntero()) Then
+        If objcompras.GetCompraDetalleAlmacen(0, DdlNCFactura.SelectedValue.ToEntero()) Then
             GvInvNC.DataSource = objcompras.DtResultados
             If objcompras.DtResultados.Rows.Count > 0 Then
                 Tab.ActiveTabIndex = 1