From dfe775acd4133fa14ae8493c42c9be6eb7e89c1e Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 6 Jun 2022 09:34:55 -0700
Subject: [PATCH] Quitar direccion de envio en E13, no utilizarla para carta
 porte

---
 Ventas/Ventas.aspx.vb | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2861d68b4..7a8d2f264 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2351,7 +2351,7 @@ Partial Class Ventas
             UpFacturar.Update()
             'CargaTiposDocumentos()
             TrEmitir.Visible = False
-            If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 1 Then
+            If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 13 Then
                 DivCartaPorte.Visible = True
             End If
             ViewState("EstablecioFolio") = False
@@ -6165,7 +6165,7 @@ Partial Class Ventas
                 End If
 
                 'HABILITA LA OPCION DE DIRECCION DE ENVIO
-                If UsuarioActual.CveEmpresa.Contiene(1, 13, 72, 119, 140) Then
+                If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140) Then
                     trDireccionEnvio.Visible = True
                     CargaDireccionesEnvio()
                 End If
@@ -17424,8 +17424,6 @@ Partial Class Ventas
             RecargaSucursalPartidas()
         End If
 
-        CargaDireccionSucursalOrigen(GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(""))
-
         DdlPS.Attributes.Remove("data-cvesubproyecto")
         DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
 
@@ -22942,15 +22940,9 @@ Partial Class Ventas
         If ChkDireccionEnvio.Checked Then
             DdlDireccionEnvio.Visible = True
             LnkOtraDireccion.Visible = True
-            'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
         Else
             DdlDireccionEnvio.Visible = False
             LnkOtraDireccion.Visible = False
-            If SucursalDestinoCP IsNot Nothing Then
-                SucursalDestinoCP = Nothing
-                SucursalDestinoCP = New Modelos.SucursalModel
-                'TxtDestinoCP.Text = ""
-            End If
         End If
     End Sub
     Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click