AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Quitar direccion de envio en E13, no utilizarla para carta porte

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-06-06 09:34:55 -07:00
parent ebabb9f072
commit dfe775acd4
1 changed files with 2 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ventas/Ventas.aspx.vb
View File

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