diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f111ce803..374f6a220 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
@@ -17386,8 +17386,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)
 
@@ -22904,15 +22902,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