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

Ruta personalizada por Empresa

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-07-31 09:54:05 -07:00
parent d59dc01317
commit fbde0a2e58
79 changed files with 2710 additions and 2685 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
GPS/CatDistribuidoresMaster.aspx.vb
View File

@@ -98,11 +98,11 @@ Partial Class GPS_CatDistribuidoresMaster
'Dim CveSucursal = objSucursales.AddSucursal("MATRIZ", "M", 0.16, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", "", "", "", "", "", "", "", "", 1)
'If CveSucursal < 0 Then HuboError = True
End If
If Not HuboError Then
If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa)) Then
IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa))
End If
Alert("El distribuidor se agregó correctamente", TipoMensaje.MsgInformacion)
If Not HuboError Then
If Not IO.Directory.Exists(String.Format("{0}", UsuarioActual.Empresa.Ruta)) Then
IO.Directory.CreateDirectory(String.Format("{0}", UsuarioActual.Empresa.Ruta))
End If
Alert("El distribuidor se agregó correctamente", TipoMensaje.MsgInformacion)
End If
ElseIf EsEditar = 1 Then
If objEmpresa.UpdateDistribuidorMaster(TxtRFC.Text, TxtEmpresa.Text, TxtTelefono.Text, TxtContacto.Text, TxtMail.Text, UsuarioActual.CveUsuario, chkEstatus.Checked, CveEmpresa) Then