diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index d4b0fd8d3..f524b2e9e 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -593,9 +593,6 @@
-
-
-
@@ -8474,33 +8471,22 @@
-
-
+
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
+
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e418969b4..4acfb7bfd 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4483,7 +4483,7 @@ Partial Class Ventas
End If
For Each Row As DataRow In DtDetalle.Rows
- If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS, -1) Then
+ If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS) Then
If OS.DtResultados.FiltraParametros("SeFacturara = 1").Rows.Count > 0 Then
Alert("Hay materiales en la Orden de Servicio, ¿Desea facturar los materiales?", TipoMensaje.MsgConfirmacion, "BtnMateriales()")
End If
@@ -21641,7 +21641,7 @@ Partial Class Ventas
DtDetalle = TmpDT.Copy
For Each Row As DataRow In DtDetalle.Rows
- If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS, -1) Then
+ If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS) Then
Dim Cons As Integer = TmpDT.Rows.Count + 1
For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows