From 7b6993ba7c76dc9e671500cca454d0f62c4121f1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 21 Sep 2023 21:57:24 -0700
Subject: [PATCH] -- pedimento -- option explcit

---
 Ventas/Ventas.aspx    |  2 --
 Ventas/Ventas.aspx.vb | 19 +------------------
 2 files changed, 1 insertion(+), 20 deletions(-)

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 @@
                             </ContentTemplate>
                         </asp:UpdatePanel>
 
-                        <br />
-
                         <div class="divtab">
                             <asp:UpdatePanel ID="UpPS" runat="server" UpdateMode="Conditional">
                                 <ContentTemplate>
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()