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()