Personal Envio de correos altas, bajas y reingresos
This commit is contained in:
Oscar Irigoyen
@@ -2136,99 +2136,100 @@ Partial Class RH_Personal
|
||||
CargaGvBitacora()
|
||||
|
||||
If EnviarCorreoNomina AndAlso DDLUsuarioNomina.SelectedValue.ToEntero > 0 Then
|
||||
EnviarCorreoNominista()
|
||||
'EnviarCorreoNominista()
|
||||
EviarCorreoBajaReingresoNomista(TipoMovimientoRH.Alta)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub EnviarCorreoNominista()
|
||||
'Private Sub EnviarCorreoNominista()
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(7) Then
|
||||
' If UsuarioActual.CveEmpresa.Contiene(7) Then
|
||||
|
||||
Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
|
||||
' Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
|
||||
|
||||
If CorreoNominista = "" Then
|
||||
Alert($"No se envio el correo de notificación a nominas, el nominista no tiene {DDLUsuarioNomina.SelectedItem.Text} correo electronico", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
' If CorreoNominista = "" Then
|
||||
' Alert($"No se envio el correo de notificación a nominas, el nominista no tiene {DDLUsuarioNomina.SelectedItem.Text} correo electronico", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
|
||||
Dim correo As New ClsSisMail
|
||||
Dim Cuerpo As New StringBuilder
|
||||
' Dim correo As New ClsSisMail
|
||||
' Dim Cuerpo As New StringBuilder
|
||||
|
||||
Dim Puesto As String = ""
|
||||
Dim Padre As String = ""
|
||||
Dim Madre As String = ""
|
||||
Dim FechaIngreso As String = ""
|
||||
' Dim Puesto As String = ""
|
||||
' Dim Padre As String = ""
|
||||
' Dim Madre As String = ""
|
||||
' Dim FechaIngreso As String = ""
|
||||
|
||||
Dim EmpresaDestino As String = If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, GlobalDTEmpresas(DdlEmpresaAsignada.SelectedValue.ToEntero).Rows(0)("Empresa").ToString, UsuarioActual.Empresa.Empresa)
|
||||
' Dim EmpresaDestino As String = If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, GlobalDTEmpresas(DdlEmpresaAsignada.SelectedValue.ToEntero).Rows(0)("Empresa").ToString, UsuarioActual.Empresa.Empresa)
|
||||
|
||||
Dim objRH As New ClsRH
|
||||
' Dim objRH As New ClsRH
|
||||
|
||||
If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
|
||||
' If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
|
||||
|
||||
Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
|
||||
' Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
|
||||
|
||||
If DtFamiliares.Rows.Count > 0 Then
|
||||
Padre = DtFamiliares.Rows(0)("Nombre").ToString
|
||||
End If
|
||||
' If DtFamiliares.Rows.Count > 0 Then
|
||||
' Padre = DtFamiliares.Rows(0)("Nombre").ToString
|
||||
' End If
|
||||
|
||||
DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
|
||||
' DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
|
||||
|
||||
If DtFamiliares.Rows.Count > 0 Then
|
||||
Madre = DtFamiliares.Rows(0)("Nombre").ToString
|
||||
End If
|
||||
' If DtFamiliares.Rows.Count > 0 Then
|
||||
' Madre = DtFamiliares.Rows(0)("Nombre").ToString
|
||||
' End If
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
objRH.Dispose()
|
||||
Cuerpo.AppendLine("<table border='0' style='width:100%'>")
|
||||
Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ EmpresaDestino }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
|
||||
Cuerpo.AppendLine("<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
|
||||
Cuerpo.AppendLine("</table>")
|
||||
' objRH.Dispose()
|
||||
' Cuerpo.AppendLine("<table border='0' style='width:100%'>")
|
||||
' Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ EmpresaDestino }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
|
||||
' Cuerpo.AppendLine("</table>")
|
||||
|
||||
Cuerpo.AppendLine("<br/>")
|
||||
Cuerpo.AppendLine("<br/>")
|
||||
' Cuerpo.AppendLine("<br/>")
|
||||
' Cuerpo.AppendLine("<br/>")
|
||||
|
||||
Cuerpo.AppendLine("<table border='0'>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left; font-weight:bold;'>{If(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "") }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlRuta.SelectedValue.ToEntero > 0, DdlRuta.SelectedItem.Text, "") }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de ingreso:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaIngreso.Text}</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text} {TxtLugarNacimiento.Text}</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlGenero.SelectedValue = "1", "Masculino", "Femenino") }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
|
||||
' Cuerpo.AppendLine("<table border='0'>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left; font-weight:bold;'>{If(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "") }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlRuta.SelectedValue.ToEntero > 0, DdlRuta.SelectedItem.Text, "") }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de ingreso:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaIngreso.Text}</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text} {TxtLugarNacimiento.Text}</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlGenero.SelectedValue = "1", "Masculino", "Femenino") }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
|
||||
|
||||
|
||||
If Padre.Length > 0 Then
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
|
||||
End If
|
||||
' If Padre.Length > 0 Then
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
|
||||
' End If
|
||||
|
||||
If Madre.Length > 0 Then
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
|
||||
End If
|
||||
' If Madre.Length > 0 Then
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
|
||||
' End If
|
||||
|
||||
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "") }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtTelefono.Text}</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text }</td></tr>")
|
||||
Cuerpo.AppendLine("</table>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "") }</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtTelefono.Text}</td></tr>")
|
||||
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text }</td></tr>")
|
||||
' Cuerpo.AppendLine("</table>")
|
||||
|
||||
correo.SendMail(EmpresaNotificaciones, CorreoNominista, "Notificacion por Alta de Nomina: " & NombreCompleto, Cuerpo.ToString)
|
||||
' correo.SendMail(EmpresaNotificaciones, CorreoNominista, "Notificacion por Alta de Nomina: " & NombreCompleto, Cuerpo.ToString)
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
End Sub
|
||||
'End Sub
|
||||
|
||||
'Private Sub MandaMails(Rutas As Object)
|
||||
' Try
|
||||
@@ -7505,6 +7506,12 @@ Partial Class RH_Personal
|
||||
End Using
|
||||
End If
|
||||
|
||||
If continuar Then
|
||||
|
||||
EviarCorreoBajaReingresoNomista(If(estatus = 1, TipoMovimientoRH.Reingreso, TipoMovimientoRH.Baja))
|
||||
|
||||
End If
|
||||
|
||||
If continuar Then
|
||||
|
||||
RegistraScript("$('#ModalUpEstatus').modal('hide');")
|
||||
@@ -7647,5 +7654,115 @@ Partial Class RH_Personal
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "ENVIAR CORREO NOMINISTA"
|
||||
|
||||
Enum TipoMovimientoRH
|
||||
Alta
|
||||
Baja
|
||||
Reingreso
|
||||
End Enum
|
||||
|
||||
Private Sub EviarCorreoBajaReingresoNomista(eTipoMovimientoRH As TipoMovimientoRH)
|
||||
|
||||
|
||||
Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
|
||||
Dim correo As New ClsSisMail
|
||||
Dim Cuerpo As New StringBuilder
|
||||
|
||||
Dim CorreoUsuario As String = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
|
||||
Dim CCP As String = If(CorreoUsuario.Trim.Length > 0, CorreoUsuario, "")
|
||||
|
||||
If CorreoNominista = "" Then
|
||||
Alert("No se envio el correo de notificación a nominas, el nominista no tiene correo electronico", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim Puesto As String = ""
|
||||
Dim Padre As String = ""
|
||||
Dim Madre As String = ""
|
||||
Dim FechaIngreso As String = ""
|
||||
|
||||
Dim objRH As New ClsRH
|
||||
|
||||
If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
|
||||
|
||||
Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
|
||||
|
||||
If DtFamiliares.Rows.Count > 0 Then
|
||||
Padre = DtFamiliares.Rows(0)("Nombre").ToString
|
||||
End If
|
||||
|
||||
DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
|
||||
|
||||
If DtFamiliares.Rows.Count > 0 Then
|
||||
Madre = DtFamiliares.Rows(0)("Nombre").ToString
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Dim TimpoMovimiento As String = ""
|
||||
|
||||
Select Case eTipoMovimientoRH
|
||||
Case TipoMovimientoRH.Alta
|
||||
TimpoMovimiento = "Alta"
|
||||
Exit Select
|
||||
Case TipoMovimientoRH.Baja
|
||||
TimpoMovimiento = "Baja"
|
||||
Exit Select
|
||||
Case TipoMovimientoRH.Reingreso
|
||||
TimpoMovimiento = "Reingreso"
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
objRH.Dispose()
|
||||
Cuerpo.AppendLine("<table border='0' style='width:100%'>")
|
||||
Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ UsuarioActual.Empresa.Empresa }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
|
||||
|
||||
Cuerpo.AppendLine($"<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificacion por { TimpoMovimiento } de Nomina</td></tr>")
|
||||
Cuerpo.AppendLine("</table>")
|
||||
|
||||
Cuerpo.AppendLine("<br/>")
|
||||
Cuerpo.AppendLine("<br/>")
|
||||
|
||||
Cuerpo.AppendLine("<table border='0'>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left; font-weight:bold;'>{IIf(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "") }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left; font-weight:bold;'>{ DdlRuta.SelectedItem.Text }</td></tr>")
|
||||
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de { TimpoMovimiento }:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaEstatus.Text}</td></tr>")
|
||||
|
||||
If eTipoMovimientoRH = TipoMovimientoRH.Baja Then
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Motivo de Baja:</td><td style=' text-align: left; font-weight:bold;'>{ DdlMotivoBaja.SelectedItem.Text }</td></tr>")
|
||||
If Txobservacionesbaja.Text.Trim.Length > 0 Then
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Observaciones :</td><td style=' text-align: left; font-weight:bold;'>{ Txobservacionesbaja.Text.Trim }</td></tr>")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text} {TxtLugarNacimiento.Text}</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlGenero.SelectedValue = "1", "Masculino", "Femenino") }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text } No Ext.{ TxtNumExt.Text} No int.{TxtNumInt.Text}</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "") }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtCelularPersonal.Text}</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Tel en Caso de Emergencia:</td><td style=' text-align: left; font-weight:bold;'>{ TxtTelefonoEmergencia.Text }</td></tr>")
|
||||
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text }</td></tr>")
|
||||
Cuerpo.AppendLine("</table>")
|
||||
|
||||
correo.SendMail(EmpresaNotificaciones, CorreoNominista, $"Notificacion por { TimpoMovimiento }de Nomina: " & NombreCompleto, Cuerpo.ToString, CCP:=CCP)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user