Entrega almacen filtro fechas y ocultar controles de entrega en primera etapa, clientes ocultar txt dirección de envio

Ventas/Clientes.aspx.vb

@@ -911,6 +911,8 @@ Partial Class Clientes
             End If
 
             LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
+
+            MostrarTxtDireccionesClienteEnvio()
         End If
 
         'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
@@ -921,6 +923,16 @@ Partial Class Clientes
     End Sub
 
 #Region "  PERMISOS PAGINAS  "
+
+    Private Sub MostrarTxtDireccionesClienteEnvio()
+
+        If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
+            DVDireccionCliente1.Visible = True
+            DVDireccionCliente2.Visible = True
+        End If
+
+    End Sub
+
     Private Function PermiteGuardar() As Boolean
         Return UsuarioActual.TienePermisoProceso(192)
     End Function