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

carga masiva salarios

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-02-02 11:54:00 -07:00
parent 5c13dff631
commit 3f81b54267
9 changed files with 542 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Sistemas/PopUpCambiaUsuario.aspx.vb
View File

@@ -48,9 +48,6 @@ Partial Class Sistemas_PopUpCambiaUsuario
Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
CveEmpresa = 119
End If
If splitedtext.Length > 0 Then
Select Case splitedtext(0).ToUpper()
@@ -62,8 +59,13 @@ Partial Class Sistemas_PopUpCambiaUsuario
Case "BDH" : CveEmpresa = "140"
Case "ECONOLLANTAS" : CveEmpresa = "141"
Case "SERVEC" : CveEmpresa = "153"
Case "CITRUS" : CveEmpresa = "172"
Case "KINO" : CveEmpresa = "173"
End Select
End If
If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
CveEmpresa = 158
End If
DdlEmpresa.DataBind()
DdlEmpresa.SelectedValue = CveEmpresa