- mejora parametro cveempresa

This commit is contained in:
2024-08-10 14:06:04 -07:00
parent 8f34b2341c
commit 55fc50f89d

View File

@@ -1126,7 +1126,7 @@ Partial Class OI_EventoDetalle
'UsuarioPara = DdlUsuarioPara.SelectedItem.Text 'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("") Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
Dim RutaGuardar = "" Dim RutaGuardar = ""
RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta) RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)