Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git
This commit is contained in:
Antonio Gonzalez
@@ -277,9 +277,12 @@
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlPSModal" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="PSCodigo" DataValueField="CvePS" Width="240px" CausesValidation="true"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="DdlPSModal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto / Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpDefinir"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlPSModal.ClientID.ToString()%>">Producto/Servicios:</label>
|
||||
<label for="<%= DdlPSModal.ClientID.ToString()%>"><span style="color:#F3565D;">* </span>Producto/Servicios:</label>
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPSModal" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " UsaWebService="true"
|
||||
IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||
|
||||
<%--<asp:DropDownList ID="DdlPSModal" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="PSCodigo" DataValueField="CvePS" Width="240px" CausesValidation="true"></asp:DropDownList>--%>
|
||||
<%--<asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="DdlPSModal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto / Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpDefinir"></asp:RequiredFieldValidator>--%>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
|
||||
@@ -64,9 +64,9 @@ Partial Class Inventarios_RepMaximoMinimo
|
||||
DdlAlmacenModal.DataBind()
|
||||
DdlAlmacenModal.Items.Insert(0, New ListItem("Seleccione Almacén", "-1"))
|
||||
|
||||
DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
|
||||
DdlPSModal.DataBind()
|
||||
DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
|
||||
'DdlPSModal.DataBind()
|
||||
'DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
UpModalMaximoMinimo.Update()
|
||||
|
||||
|
||||
@@ -86,9 +86,9 @@ Partial Class Inventarios_RepMaximoMinimo
|
||||
DdlAlmacen.Items.Clear()
|
||||
'If DtSubptoyecto.Rows.Count > 0 Then
|
||||
'Dim CveSucursal As Integer = DtSubptoyecto(0)("CveSucursal").ToString.ToEntero
|
||||
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto={0}", DdlSubProyecto.SelectedValue.ToEntero))
|
||||
DdlAlmacen.DataBind()
|
||||
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(String.Format("CveSubProyecto={0}", DdlSubProyecto.SelectedValue.ToEntero))
|
||||
DdlAlmacen.DataBind()
|
||||
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
'Else
|
||||
' DdlAlmacen.DataSource = Nothing
|
||||
' DdlAlmacen.DataBind()
|
||||
@@ -195,7 +195,8 @@ Partial Class Inventarios_RepMaximoMinimo
|
||||
Private Sub LnkDefinir_Click(sender As Object, e As EventArgs) Handles LnkDefinir.Click
|
||||
HFDefinir.Value = "I"
|
||||
DdlAlmacenModal.SelectedIndex = 0
|
||||
DdlPSModal.SelectedIndex = 0
|
||||
DdlPSModal.SelectedValue = "-1"
|
||||
DdlPSModal.SelectedText = "Seleccione"
|
||||
TxtMaximo.Text = ""
|
||||
TxtMinimo.Text = ""
|
||||
DdlAlmacenModal.Enabled = True
|
||||
@@ -206,20 +207,26 @@ Partial Class Inventarios_RepMaximoMinimo
|
||||
End Sub
|
||||
|
||||
Private Sub LbAgregarMaximoMinimo_Click(sender As Object, e As EventArgs) Handles LbAgregarMaximoMinimo.Click
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
If HFDefinir.Value = "I" Then
|
||||
If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
|
||||
Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ElseIf HFDefinir.Value = "U" Then
|
||||
If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
|
||||
Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
If DdlPSModal.SelectedValue.ToEntero > 0 Then
|
||||
|
||||
CargaGrid()
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
|
||||
ObjInventario.Dispose()
|
||||
Using ObjInventario As New ClsInventarios
|
||||
|
||||
If HFDefinir.Value = "I" Then
|
||||
If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
|
||||
Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ElseIf HFDefinir.Value = "U" Then
|
||||
If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
|
||||
Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
End Using
|
||||
|
||||
CargaGrid()
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
|
||||
Else
|
||||
Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub UpdateMaximoMinimo(sender As Object, e As EventArgs)
|
||||
@@ -227,13 +234,15 @@ Partial Class Inventarios_RepMaximoMinimo
|
||||
HFDefinir.Value = "U"
|
||||
Dim CveAlmacen As Integer = GvRow.DataKey("CveAlmacen").ToString.ToEntero
|
||||
Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
|
||||
Dim strPS As String = GvRow.DataKey("PS").ToString()
|
||||
Dim Maximo As String = GvRow.DataKey("Maximo").ToString
|
||||
Dim Minimo As String = GvRow.DataKey("Minimo").ToString
|
||||
|
||||
DdlAlmacenModal.Enabled = False
|
||||
DdlPSModal.Enabled = False
|
||||
|
||||
DdlAlmacenModal.SelectedValue = CveAlmacen.ToString
|
||||
DdlAlmacenModal.SelectedValue = CveAlmacen.ToString()
|
||||
DdlPSModal.SelectedText = strPS
|
||||
DdlPSModal.SelectedValue = CvePS.ToString
|
||||
TxtMaximo.Text = Maximo
|
||||
TxtMinimo.Text = Minimo
|
||||
|
||||
@@ -1284,11 +1284,15 @@
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtMailrecibonomina" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
|
||||
<asp:Label runat="server" AssociatedControlID="TxtMailrecibonomina" Text="Mail recibo nómina:"></asp:Label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlRegimenContratacion" runat="server" AppendDataBoundItems="true" DataTextField="RegimenContratacion" CssClass="form-control input-sm select2me" DataValueField="CveSATRegimenContratacion" ValidationGroup="GrpGuardar">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Mail recibo nómina:"></asp:Label>
|
||||
<asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Régimen Contratación:"></asp:Label>
|
||||
<asp:RequiredFieldValidator ID="RFVRegimenContratacion" runat="server" ControlToValidate="DdlRegimenContratacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Régimen Contratación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<i></i>
|
||||
</div>
|
||||
@@ -1311,6 +1315,7 @@
|
||||
<br />
|
||||
<asp:CheckBox ID="ChkSeInscribioSS" CssClass="make-switchsd" data-size="small" runat="server" Text="" />
|
||||
</div>
|
||||
<asp:Panel runat="server" ID="PnlSalarios" Visible="false">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
|
||||
@@ -1340,6 +1345,7 @@
|
||||
|
||||
<i></i>
|
||||
</asp:Panel>
|
||||
</asp:Panel>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtBono" runat="server" MaxLength="10" Text="0"></asp:TextBox>
|
||||
|
||||
@@ -12,8 +12,8 @@ Imports System.Xml
|
||||
Imports System.Web.Script.Services
|
||||
|
||||
Partial Class RH_Personal
|
||||
Inherits ClsPaginas
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "P R O P I E D A D E S"
|
||||
Private Property DTCuentasBancos As DataTable
|
||||
Get
|
||||
@@ -331,14 +331,14 @@ Partial Class RH_Personal
|
||||
Set(value As Integer)
|
||||
ViewState("CveMovimientoDetalleUniforme") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "V A C A C I O N E S - P E R M I S O S"
|
||||
|
||||
|
||||
Private Property VacInicioPeriodo As Date
|
||||
Get
|
||||
If ViewState("VacInicioPeriodo") Is Nothing Then
|
||||
@@ -538,13 +538,13 @@ Partial Class RH_Personal
|
||||
Set(value As Integer)
|
||||
ViewState("CvePermiso") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "PROPIEDADES FAMILIARES"
|
||||
|
||||
|
||||
Private Property ActualizarFamiliar As Boolean
|
||||
Get
|
||||
If ViewState("ActualizarFamiliar") Is Nothing Then
|
||||
@@ -782,7 +782,7 @@ Partial Class RH_Personal
|
||||
pnlSalarioIMSS.Visible = False
|
||||
End If
|
||||
'
|
||||
|
||||
PnlSalarios.Visible = UsuarioActual.Empresa.Funcionalidad(701) = "1"
|
||||
|
||||
ViewState("Orden") = ""
|
||||
ViewState("Orden1") = ""
|
||||
@@ -970,10 +970,10 @@ Partial Class RH_Personal
|
||||
Private Sub SetPermisos()
|
||||
'Permisos
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "Carga Combos"
|
||||
|
||||
|
||||
Private Sub CargaEscolaridad()
|
||||
DdlEscolaridad.DataSource = GlobalDTEscolaridad
|
||||
DdlEscolaridad.DataBind()
|
||||
@@ -1204,16 +1204,16 @@ Partial Class RH_Personal
|
||||
Nom.Dispose()
|
||||
GvNominas.DataBind()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Asistencias"
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkEliminarAsistencia_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
Dim ObjRH As New ClsRH
|
||||
@@ -1321,7 +1321,7 @@ Partial Class RH_Personal
|
||||
ObjPersonal.Dispose()
|
||||
|
||||
BtnConsultarAsistencia_Click(sender, e)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub CargaConsignacion()
|
||||
|
||||
@@ -1340,8 +1340,8 @@ Partial Class RH_Personal
|
||||
|
||||
ChkEstemporal.Checked = ObjPersonal.DtResultados.Rows(0)("esTemporal").ToString() = "1"
|
||||
CHKRFCValidado.Checked = ObjPersonal.DtResultados.Rows(0)("RFCValidado").ToString() = "1"
|
||||
|
||||
'Carga Datos Personales
|
||||
TxtMailrecibonomina.Text = ObjPersonal.DtResultados.Rows(0)("MaiReciboNomina").ToString()
|
||||
'Carga Datos Personales
|
||||
LtlPersonal.Text = ObjPersonal.NombreCompleto
|
||||
NombreCompleto = ObjPersonal.NombreCompleto
|
||||
'TxtNombre.Text = ObjPersonal.Nombre
|
||||
@@ -1942,11 +1942,11 @@ Partial Class RH_Personal
|
||||
DdlClienteAsignado.Attributes.Remove("onclick")
|
||||
DdlClienteAsistenciaC.Attributes.Remove("onclick")
|
||||
DdlClienteAsistenciaA.Attributes.Remove("onclick")
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "Buzón de Calidad"
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub CargaBuzonCalidad()
|
||||
|
||||
Dim ObjPersonal As New ClsRH
|
||||
@@ -2282,12 +2282,12 @@ Partial Class RH_Personal
|
||||
End If
|
||||
GvBuzonCalidad.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Resguardos"
|
||||
|
||||
|
||||
Protected Sub GvResguardos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvResguardos.RowDataBound
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -2310,13 +2310,13 @@ Partial Class RH_Personal
|
||||
e.Row.FCLiteral("LtlAF").Text = Liga & e.Row.FCLiteral("LtlAF").Text & "</a>"
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Nómina"
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub CarcaConceptosNomina()
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
|
||||
@@ -2505,9 +2505,9 @@ Partial Class RH_Personal
|
||||
|
||||
ObjPersonal.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub DdlTipoAplicacion_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
Dim Ddl As DropDownList = DirectCast(sender, DropDownList)
|
||||
|
||||
@@ -2589,10 +2589,10 @@ Partial Class RH_Personal
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "G A S T O S X C O M P R O B A R"
|
||||
|
||||
|
||||
Protected Sub RBLTipoGastos_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
If RBLTipoGastos.SelectedValue = "1" Then
|
||||
@@ -2681,10 +2681,10 @@ Partial Class RH_Personal
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "E V E N T O - B I T A C O R A"
|
||||
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -2760,9 +2760,9 @@ Partial Class RH_Personal
|
||||
HttpContext.Current.Response.End()
|
||||
|
||||
Archivo = Nothing
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub GvGxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGxC.RowDataBound, GvGxCHistorial.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 1 Then
|
||||
@@ -2815,7 +2815,7 @@ Partial Class RH_Personal
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#Region "TAB BANCOS"
|
||||
Private Sub CargaMonedas()
|
||||
DdlMoneda.DataSource = GlobalDTMonedas
|
||||
@@ -2963,8 +2963,8 @@ Partial Class RH_Personal
|
||||
|
||||
ObjCuentasBancos.Dispose()
|
||||
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "GRIDVIEW - CUENTAS BANCARIAS"
|
||||
Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -3117,11 +3117,11 @@ Partial Class RH_Personal
|
||||
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
|
||||
ObjCuentasBancos.Dispose()
|
||||
CargaGvBitacora()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim Orden As String = ""
|
||||
@@ -3157,10 +3157,10 @@ Partial Class RH_Personal
|
||||
ViewState("Orden1") = Orden
|
||||
CargaGvAsistencias()
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "I M P R I M I R N O M I N A"
|
||||
Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -3168,11 +3168,11 @@ Partial Class RH_Personal
|
||||
|
||||
ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "Recibo")
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " ORGANIGRAMA "
|
||||
Private Sub CargaSuperioresOrganigrama()
|
||||
Dim ObjRH As New ClsRH
|
||||
@@ -3193,10 +3193,10 @@ Partial Class RH_Personal
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "I M P R I M I R "
|
||||
Private Sub GenerarPDF(Optional Formato As String = "PDF")
|
||||
|
||||
@@ -3498,12 +3498,12 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
|
||||
GenerarPDFGastosXComp("Excel")
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "D O C U M E N T A C I O N C O N T R A T O S"
|
||||
|
||||
|
||||
Private Sub CargaDocumentacionFirmaDecontratos()
|
||||
|
||||
If CvePersonal > 0 Then
|
||||
@@ -4220,10 +4220,10 @@ Partial Class RH_Personal
|
||||
|
||||
RegistraScript("Download('" & baseUrl & "')")
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
|
||||
@@ -4244,10 +4244,10 @@ Partial Class RH_Personal
|
||||
Obj = Nothing
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "VACACIONES"
|
||||
|
||||
|
||||
Private Sub CargaVacaciones()
|
||||
|
||||
Dim objRH As New ClsRH
|
||||
@@ -4941,12 +4941,12 @@ Partial Class RH_Personal
|
||||
|
||||
objRH.Dispose()
|
||||
Return ListaTags
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CURSOS"
|
||||
|
||||
|
||||
Private Sub CargaCursos()
|
||||
|
||||
Dim objRH As New ClsRH
|
||||
@@ -5044,11 +5044,11 @@ Partial Class RH_Personal
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "UNIFORMES"
|
||||
Private Sub CargaComboUniformes()
|
||||
|
||||
@@ -5184,12 +5184,12 @@ Partial Class RH_Personal
|
||||
ObjInventario.RollBack()
|
||||
End If
|
||||
ObjInventario.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CARGAR IMAGEN"
|
||||
Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchivo"))
|
||||
@@ -5231,10 +5231,10 @@ Partial Class RH_Personal
|
||||
TxtCargaImg.Text = "[]"
|
||||
UpAddArchivo.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "PERMISOS"
|
||||
|
||||
|
||||
Public Sub CargaPermisos()
|
||||
|
||||
Dim ObjRH As New ClsRH
|
||||
@@ -5360,57 +5360,57 @@ Partial Class RH_Personal
|
||||
ObjRH.Dispose()
|
||||
|
||||
CargaPermisos()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
|
||||
' Preguntar si existe en temporales
|
||||
' If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString()) Then
|
||||
' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString())
|
||||
' If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
|
||||
' If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
|
||||
' File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||
' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||
' Else
|
||||
' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||
' End If
|
||||
|
||||
' Else
|
||||
' Imagen Default
|
||||
' If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
|
||||
' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
' Si existe mover de temporales a .../Empresas/RH/Personal, SINO Session("FileUpload") = ""
|
||||
' Si existe en: .../Empresas/RH/Personal Guardar, SINO Session("FileUpload") = ""
|
||||
|
||||
|
||||
|
||||
|
||||
' If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString()) Then
|
||||
' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString())
|
||||
' If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
|
||||
' Session("FileUpload") = ""
|
||||
|
||||
' If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
|
||||
' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & CvePersonal & Extension
|
||||
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
|
||||
|
||||
'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
|
||||
' Preguntar si existe en temporales
|
||||
' If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString()) Then
|
||||
' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString())
|
||||
' If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
|
||||
' If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
|
||||
' File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||
' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||
' Else
|
||||
' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||
' End If
|
||||
|
||||
' Else
|
||||
' Imagen Default
|
||||
' If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
|
||||
' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
' Si existe mover de temporales a .../Empresas/RH/Personal, SINO Session("FileUpload") = ""
|
||||
' Si existe en: .../Empresas/RH/Personal Guardar, SINO Session("FileUpload") = ""
|
||||
|
||||
|
||||
|
||||
|
||||
' If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString()) Then
|
||||
' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString())
|
||||
' If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
|
||||
' Session("FileUpload") = ""
|
||||
|
||||
' If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
|
||||
' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & CvePersonal & Extension
|
||||
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
#Region "Consumos"
|
||||
|
||||
|
||||
Private Sub Consumos()
|
||||
|
||||
Dim ObjCompras As New ClsCompras
|
||||
@@ -5489,10 +5489,10 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs)
|
||||
GenerarPDFConsumo()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region ""
|
||||
Protected Sub LbMail_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -5576,9 +5576,9 @@ Partial Class RH_Personal
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "VIATICOS"
|
||||
Protected Sub CargaViaticosPersonal()
|
||||
Dim ObjBancos As ClsBancos = New ClsBancos
|
||||
@@ -5613,11 +5613,11 @@ Partial Class RH_Personal
|
||||
If (e.Row.RowType = DataControlRowType.Footer) Then
|
||||
e.Row.FCLiteral("LtTotalImporte").Text = DTViaticosDetalle.SUM("Importe").FormatoNumero()
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "BITACORA"
|
||||
|
||||
|
||||
Private Sub CargaGvBitacora()
|
||||
|
||||
If CvePersonal > 0 Then
|
||||
@@ -5630,12 +5630,12 @@ Partial Class RH_Personal
|
||||
UpHistorialModificacion.Update()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PAGO DE FACTURAS"
|
||||
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||
CargaPagoFactura()
|
||||
UpnHistorial.Update()
|
||||
@@ -5648,10 +5648,10 @@ Partial Class RH_Personal
|
||||
End If
|
||||
ObjRH.Dispose()
|
||||
GVPagoFactura.DataBind()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub BtnSaldoInicial_Click(sender As Object, e As EventArgs)
|
||||
Dim SaldoInicial As Double = TxtSaldoInicial.Text.ToDouble()
|
||||
Dim Fecha As DateTime = TxtFechaSaldo.Text.ToDateTime()
|
||||
@@ -5667,8 +5667,8 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
Private Function AgregarSaldoInicial(SaldoInicial As Double, Fecha As DateTime, CveMoneda As Integer, ObjMov As ClsContabilidad) As Integer
|
||||
Return ObjMov.AddPrePolizas("RH/Personal", 13, SaldoInicial, SaldoInicial, CveMoneda, Fecha, "Saldo Inicial", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#Region "L I C E N C I A S"
|
||||
Public Sub CargaLicencias()
|
||||
If CvePersonal > 0 Then
|
||||
@@ -5815,7 +5815,7 @@ Partial Class RH_Personal
|
||||
End If
|
||||
RegistraScript("$('#DivAddLicencias').modal('hide');")
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
Protected Sub BtnPDFResguardo_Click(sender As Object, e As EventArgs)
|
||||
GenerarPDFResguardosAF()
|
||||
@@ -5892,12 +5892,12 @@ Partial Class RH_Personal
|
||||
Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "FAMILIARES"
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub CargaFamiliares()
|
||||
|
||||
If CvePersonal <> -1 Then
|
||||
@@ -6148,11 +6148,11 @@ Partial Class RH_Personal
|
||||
|
||||
'objRH.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub DdlTipoAsistencias_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
Dim ddl As DropDownList = DirectCast(sender, DropDownList)
|
||||
Dim gvrow As GridViewRow = DirectCast(ddl.NamingContainer, GridViewRow)
|
||||
|
||||
@@ -88,6 +88,8 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user