From 1424900bfad61197434c2ff0c264bd76dbbb5fa9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 24 Dec 2023 16:49:12 -0700
Subject: [PATCH] -- mejoras

---
 Ventas/Ventas.aspx.vb | 48 ++++++++++++++++++++-----------------------
 1 file changed, 22 insertions(+), 26 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4acfb7bfd..047d776ef 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3145,8 +3145,6 @@ Partial Class Ventas
 
             End If
 
-            CargaFletes()
-
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="")
             DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue)
             BrSubProyecto.Visible = DdlProyecto.Visible
@@ -3343,7 +3341,7 @@ Partial Class Ventas
             End If
             TxtFecha.Enabled = True
 
-            BloqueaCondiconesPago()
+            BloqueaCondicionesPago()
 
             BloqueaClasificaciones()
 
@@ -3450,7 +3448,7 @@ Partial Class Ventas
         End If
     End Sub
 
-    Private Sub BloqueaCondiconesPago()
+    Private Sub BloqueaCondicionesPago()
         If UsuarioActual.TienePermisoProceso(289) Then
             DdlFormaEntrega.Enabled = False
             DdlUsoCFDI.Enabled = False
@@ -6856,7 +6854,7 @@ Partial Class Ventas
             UPObservaciones.Update()
 
         End If
-        BloqueaCondiconesPago()
+        BloqueaCondicionesPago()
         DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
 
         Dim CveVentaRef As Integer = -1
@@ -25152,31 +25150,31 @@ Partial Class Ventas
     End Sub
 #End Region
 
-#Region "  FLETES  "
+    '#Region "  FLETES  "
 
-    Private Sub CargaFletes()
+    'Private Sub CargaFletes()
 
-        If UsuarioActual.CveEmpresa <> 125 Or CveVenta > 0 Then
-            Exit Sub
-        End If
+    '    If UsuarioActual.CveEmpresa <> 125 Or CveVenta > 0 Then
+    '        Exit Sub
+    '    End If
 
-        HLModalFletes.Visible = True
+    '    HLModalFletes.Visible = True
 
-        Dim ObjVentas As New ClsVentas
+    '    Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then
-            GVFletes.DataSource = ObjVentas.DtResultados
-            GVFletes.DataBind()
-        End If
+    '    If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then
+    '        GVFletes.DataSource = ObjVentas.DtResultados
+    '        GVFletes.DataBind()
+    '    End If
 
-        UpFletes.Update()
+    '    UpFletes.Update()
 
-        ObjVentas.Dispose()
-    End Sub
+    '    ObjVentas.Dispose()
+    'End Sub
 
 
 
-#End Region
+    '#End Region
 
 #Region "A G R E G A R  P S  M O D A L"
     Private Sub CargaMetodosPSModal()
@@ -29272,7 +29270,7 @@ Partial Class Ventas
         UPCondicionesPago.Update()
         UpDetalle.Update()
 
-        BloqueaCondiconesPago()
+        BloqueaCondicionesPago()
     End Sub
     Private Sub InicializaDTAnticiposAmortizacion()
         Me.DtAnticipoAmortizacion = New DataTable
@@ -29630,7 +29628,7 @@ Partial Class Ventas
             End If
         Next
 
-        BloqueaCondiconesPago()
+        BloqueaCondicionesPago()
 
         UpAnticipos.Update()
         UpParametros.Update()
@@ -30204,7 +30202,7 @@ Partial Class Ventas
             DdlIVA.Visible = True
         End If
 
-        BloqueaCondiconesPago()
+        BloqueaCondicionesPago()
 
         CargaVendedores()
 
@@ -31965,8 +31963,7 @@ Partial Class Ventas
             CargaGVInv(TmpDT.FiltraParametros("CveTipoPS = 2"))
         End If
 
-        BloqueaCondiconesPago()
-
+        BloqueaCondicionesPago()
 
         DivDdlFacturaRela.Visible = True
         BtnAgregarFacturasRelaciondas.Visible = True
@@ -31988,7 +31985,6 @@ Partial Class Ventas
             HabilitarControlesCartaPorte(True)
         End If
 
-
         Dim FolioNuevo As String = TxtFolio.Text
         If FolioNuevo <> FolioOriginal Then
             If Adjunto <> "" Then