diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 8c62cb16c..37b4b57f8 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -936,8 +936,6 @@
-
-
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index cf452736c..9da0edab4 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12478,26 +12478,9 @@ Partial Class Ventas
Dim totIVA As Decimal = Obj.IVA
Dim totRetIVA As Decimal = Obj.RetIVA
Dim totRetISR As Decimal = Obj.RetISR
-
Dim i As Integer = 1
-
- 'detalles
Dim tPS As String
- If UsuarioActual.CveEmpresa = 119 Then
- 'Dim ObjPed As New ClsInventarios
- 'If ObjPed.GetVentasPedimento(CveVenta, UsuarioActual.CveEmpresa) Then
- ' Dim dttped As DataTable = ObjPed.DtResultados
- ' If Not Obj.DtDetalle.Columns.Contains("NumeroPedimento") Then
- ' Obj.DtDetalle.Columns.Add("NumeroPedimento", Type.GetType("System.String"))
- ' End If
- ' For Each drt As DataRow In Obj.DtDetalle.Rows
- ' Dim Pedimento As String = dttped.FiltroPrimeroValor("Pedimento", $"CveVentaDetalle = {drt("CveVentaDetalle")}")
- ' drt("NumeroPedimento") = Pedimento
- ' Next
- 'End If
- 'ObjPed.Dispose()
- End If
-
+ 'detalles
For Each drr As DataRow In Obj.DtDetalle.Rows
If drr("PS").ToString().Length = 1 Then
tPS = drr("Obs").ToString()