Documetos parametros, Alamacenes, RepEstado resultados(General)
This commit is contained in:
Rakcsle Supertramp
@@ -154,7 +154,8 @@
|
||||
<div id="divAgregarDocumentacion" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalDocumentacion" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
@@ -163,70 +164,194 @@
|
||||
</h4>
|
||||
</div>
|
||||
|
||||
<div class="modal-body">
|
||||
<div class="modal-body">
|
||||
|
||||
|
||||
<asp:TabContainer runat="server" ID="TabContDocumentos">
|
||||
|
||||
<asp:TabPanel ID="TabDocumentos" runat="server" HeaderText="Documentos">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="Txtdocumentacion" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtdocumentacion" runat="server" ControlToValidate="Txtdocumentacion" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<label for="<%= Txtdocumentacion.ClientID.ToString()%>">Documento:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlDocumentacionTipo" runat="server" Width="150" CssClass=" select2me form-control " DataValueField="CveDocumentacionTipo" DataTextField="DocumentacionTipo">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator InitialValue="-1" ID="rfvDdlDocumentacionTipo" ControlToValidate="DdlDocumentacionTipo" CssClass="help-block errorimput" ValidationGroup="GrpEscolaridad" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlDocumentacionTipo.ClientID.ToString()%>">Tipo de documento:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtOrden" CssClass="form-control" onkeypress="validate(event)" MaxLength="3" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtOrden" runat="server" ControlToValidate="TxtOrden" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<ajax:FilteredTextBoxExtender ID="filTxtOrden" runat="server" TargetControlID="TxtOrden" FilterType="Numbers" ValidChars="" />
|
||||
<label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtDiasLimite" CssClass="form-control" onkeypress="validate(event)" MaxLength="2" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtDiasLimite" runat="server" ControlToValidate="TxtDiasLimite" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<ajax:FilteredTextBoxExtender ID="FilTxtDiasLimite" runat="server" TargetControlID="TxtDiasLimite" FilterType="Numbers" ValidChars="" />
|
||||
<label for="<%= TxtOrden.ClientID.ToString()%>">Dias Limite:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox ID="ChkAplicaDiasLimite" runat="server" Text="Aplica Dias Limite" />
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox ID="ChkAplicaFechaVencimiento" runat="server" Text="Aplica Fecha de Vencimiento" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox ID="chkRequerido" runat="server" Text="Requerido" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox ID="chkEstatus" runat="server" Text="Activo" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright ">
|
||||
<div class="row ">
|
||||
<div class="col-md-12">
|
||||
<asp:TextBox ID="TxtFileDocumentacion" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:TabPanel>
|
||||
|
||||
<asp:TabPanel ID="TabParametros" runat="server" HeaderText="Parametros">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="form-group form-md-line-input input-iconright" style="text-align:right!important">
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarParametro" CssClass="Texto" OnClick="LnkAgregarParametro_Click" Text="Agregar Parametro"></asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class ="col-md-12">
|
||||
<asp:UpdatePanel ID="UpGvParametros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvParametros" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveDocumentacionParametro,CveDocumentacion,Parametro,Descripcion " CssClass="table table-hover table-advance Widthall" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="60px" HeaderText="Parametro">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlParametro" runat="server" Text='<%# Eval("Parametro") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Descripción">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="50px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkParametroEditar" runat="server" AlternateText="Editar" ToolTip="Editar documento" CausesValidation="False" OnClick="LnkParametroEditar_Click"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil' Tittle='Editar Documento' ></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="50px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkEliminarParametro" OnClick="LnkEliminarParametro_Click" runat="server" AlternateText="Eliminar" ToolTip="Eliminar" CausesValidation="False"
|
||||
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash' title='Eliminar'></i>" Title="Eliminar Documento" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea eliminar el documento?" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:TabPanel>
|
||||
|
||||
</asp:TabContainer>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="Txtdocumentacion" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtdocumentacion" runat="server" ControlToValidate="Txtdocumentacion" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<label for="<%= Txtdocumentacion.ClientID.ToString()%>">Documento:</label>
|
||||
<div class="modal-footer">
|
||||
|
||||
<div class="row">
|
||||
<asp:Button ID="BtnAgregarDocumentoModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpEscolaridad" />
|
||||
<button id="BtnCancelarEscolaridadModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlDocumentacionTipo" runat="server" Width="150" CssClass=" select2me form-control " DataValueField="CveDocumentacionTipo" DataTextField="DocumentacionTipo">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator InitialValue="-1" ID="rfvDdlDocumentacionTipo" ControlToValidate="DdlDocumentacionTipo" CssClass="help-block errorimput" ValidationGroup="GrpEscolaridad" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlDocumentacionTipo.ClientID.ToString()%>">Tipo de documento:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtOrden" CssClass="form-control" onkeypress="validate(event)" MaxLength="3" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtOrden" runat="server" ControlToValidate="TxtOrden" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<ajax:FilteredTextBoxExtender ID="filTxtOrden" runat="server" TargetControlID="TxtOrden" FilterType="Numbers" ValidChars="" />
|
||||
<label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<%-- <div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtDocumentacionFormato" CssClass="form-control" MaxLength="50" runat="server"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="filTxtDocumentacionFormato" runat="server" TargetControlID="TxtDocumentacionFormato" FilterType="Numbers, uppercaseLetters,LowercaseLetters,Custom" ValidChars="_" />
|
||||
<label for="<%= TxtDocumentacionFormato.ClientID.ToString()%>">Nombre de Formato:</label>
|
||||
</div>--%>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtDiasLimite" CssClass="form-control" onkeypress="validate(event)" MaxLength="2" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtDiasLimite" runat="server" ControlToValidate="TxtDiasLimite" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<ajax:FilteredTextBoxExtender ID="FilTxtDiasLimite" runat="server" TargetControlID="TxtDiasLimite" FilterType="Numbers" ValidChars="" />
|
||||
<label for="<%= TxtOrden.ClientID.ToString()%>">Dias Limite:</label>
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div id="DVParametros" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalParametros" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<h4> <asp:Literal ID="Literal1" runat="server">Parametros</asp:Literal></h4>
|
||||
</h4>
|
||||
</div>
|
||||
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtParametro" CssClass="form-control" MaxLength="50" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtParametro" runat="server" ControlToValidate="TxtParametro" ValidationGroup="GrpParametro" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtParametro.ClientID.ToString()%>">Parametro:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox ID="ChkAplicaDiasLimite" runat="server" Text ="Aplica Dias Limite" />
|
||||
<asp:TextBox ID="TxtParametroDescripcion" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtParametroDescripcion" runat="server" ControlToValidate="TxtParametroDescripcion" ValidationGroup="GrpParametro" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtParametroDescripcion.ClientID.ToString()%>">Descripción:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox ID="ChkAplicaFechaVencimiento" runat="server" Text ="Aplica Fecha de Vencimiento" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox ID="chkRequerido" runat="server" Text ="Requerido" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox ID="chkEstatus" runat="server" Text ="Activo" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright ">
|
||||
<div class="row ">
|
||||
<div class="col-md-12">
|
||||
<asp:TextBox ID="TxtFileDocumentacion" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnAgregarDocumentoModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpEscolaridad" />
|
||||
<button id="BtnCancelarEscolaridadModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnGuardarParametro" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpParametro" OnClick="BtnGuardarParametro_Click" />
|
||||
<button id="BtnCerrarParametro" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
@@ -238,6 +363,7 @@
|
||||
|
||||
|
||||
|
||||
|
||||
<div id="DvTags" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpEtiquetas" UpdateMode="Conditional">
|
||||
@@ -321,7 +447,7 @@
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script>
|
||||
|
||||
@@ -170,7 +170,16 @@ Partial Class RH_CatDocumentos
|
||||
chkEstatus.Checked = True
|
||||
chkRequerido.Checked = True
|
||||
|
||||
ActualizarDocumentacion = False
|
||||
ActualizarDocumentacion = False
|
||||
|
||||
CreatDTParametros()
|
||||
|
||||
GvParametros.DataSource = DTTempParametros
|
||||
GvParametros.DataBind()
|
||||
UpGvParametros.Update()
|
||||
|
||||
CveDocumentacion = -1
|
||||
|
||||
UpModalDocumentacion.Update()
|
||||
End Sub
|
||||
|
||||
@@ -237,8 +246,13 @@ Partial Class RH_CatDocumentos
|
||||
BtnAgregarDocumentoModal.Text = "Actualizar"
|
||||
|
||||
UpModalDocumentacion.Update()
|
||||
ActualizarDocumentacion = True
|
||||
|
||||
ActualizarDocumentacion = True
|
||||
|
||||
|
||||
|
||||
|
||||
CargaDatosParametro()
|
||||
|
||||
RegistraScript("$('#divAgregarDocumentacion').modal({ backdrop: 'static', keyboard: false});")
|
||||
|
||||
End Sub
|
||||
@@ -319,13 +333,15 @@ Partial Class RH_CatDocumentos
|
||||
|
||||
Protected Sub BtnAgregarDocumentoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarDocumentoModal.Click
|
||||
|
||||
Dim objRH As New ClsEdocumentacion
|
||||
Dim ObjEdoc As New ClsEdocumentacion
|
||||
Dim intCompleto As Integer = 0
|
||||
Dim _estatus As Integer = 0
|
||||
Dim _requerido As Integer = 0
|
||||
Dim _formato As String = ""
|
||||
|
||||
|
||||
Dim ErrorProceso As Boolean = True
|
||||
|
||||
|
||||
If chkEstatus.Checked Then
|
||||
_estatus = 1
|
||||
End If
|
||||
@@ -337,30 +353,64 @@ Partial Class RH_CatDocumentos
|
||||
If ActualizarDocumentacion Then
|
||||
|
||||
_formato = GuardarArchivo(CveDocumentacion)
|
||||
If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
If ObjEdoc.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
|
||||
Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaDocumentacion()
|
||||
End If
|
||||
Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion)
|
||||
ErrorProceso = False
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
ObjEdoc.IniciaTransacSQL()
|
||||
|
||||
If ObjEdoc.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
|
||||
Else
|
||||
If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
|
||||
CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero
|
||||
_formato = GuardarArchivo(CveDocumentacion)
|
||||
If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
CveDocumentacion = ObjEdoc.DtResultados(0)(0).ToString.ToEntero
|
||||
_formato = GuardarArchivo(CveDocumentacion)
|
||||
|
||||
If ObjEdoc.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
|
||||
End If
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
|
||||
Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaDocumentacion()
|
||||
Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
|
||||
If GvParametros.Rows.Count > 0 Then
|
||||
|
||||
For Each GvRow As GridViewRow In GvParametros.Rows
|
||||
|
||||
If Not ObjEdoc.AddDocumentacionParametros(CveDocumentacion, GvRow.DataKey("Parametro"), GvRow.DataKey("Descripcion"), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
ErrorProceso = True
|
||||
Exit For
|
||||
Else
|
||||
ErrorProceso = False
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
Else
|
||||
ErrorProceso = False
|
||||
End If
|
||||
|
||||
If Not ErrorProceso Then
|
||||
ObjEdoc.Commit()
|
||||
Else
|
||||
ObjEdoc.RollBack()
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ObjEdoc.Dispose()
|
||||
|
||||
ActualizarDocumentacion = False
|
||||
|
||||
CargaDocumentacion()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -399,10 +449,226 @@ Partial Class RH_CatDocumentos
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
Property DTTempParametros As DataTable
|
||||
|
||||
Get
|
||||
|
||||
If ViewState("DTTempParametros") Is Nothing Then
|
||||
Return New DataTable
|
||||
Else
|
||||
Return DirectCast(ViewState("DTTempParametros"), DataTable)
|
||||
End If
|
||||
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTTempParametros") = value
|
||||
End Set
|
||||
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Property IndexParametro As Integer
|
||||
|
||||
Get
|
||||
If ViewState("IndexParametro") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("IndexParametro").ToString.ToEntero
|
||||
End If
|
||||
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IndexParametro") = value
|
||||
End Set
|
||||
|
||||
End Property
|
||||
|
||||
Property CveDocumentacionParametro As Integer
|
||||
|
||||
Get
|
||||
If ViewState("CveDocumentacionParametro") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return ViewState("CveDocumentacionParametro").ToString.ToEntero
|
||||
End If
|
||||
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveDocumentacionParametro") = value
|
||||
End Set
|
||||
|
||||
End Property
|
||||
|
||||
Private Sub CargaDatosParametro()
|
||||
|
||||
If CveDocumentacion > 0 Then
|
||||
|
||||
Dim ObjDoc As New ClsEdocumentacion
|
||||
|
||||
If ObjDoc.GetDocumentacionParametros(-1, CveDocumentacion, UsuarioActual.CveEmpresa) Then
|
||||
GvParametros.DataSource = ObjDoc.DtResultados
|
||||
End If
|
||||
|
||||
ObjDoc.Dispose()
|
||||
GvParametros.DataBind()
|
||||
|
||||
Else
|
||||
GvParametros.DataSource = DTTempParametros
|
||||
GvParametros.DataBind()
|
||||
End If
|
||||
|
||||
UpGvParametros.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CreatDTParametros()
|
||||
|
||||
Dim DT As New DataTable
|
||||
|
||||
DT.Columns.Add("CveDocumentacionParametro", GetType(Integer))
|
||||
DT.Columns.Add("CveDocumentacion", GetType(Integer))
|
||||
DT.Columns.Add("Documentacion", GetType(String))
|
||||
DT.Columns.Add("Parametro", GetType(String))
|
||||
DT.Columns.Add("Descripcion", GetType(String))
|
||||
DT.Columns.Add("CveUsuario", GetType(Integer))
|
||||
DT.Columns.Add("Nombre", GetType(String))
|
||||
DT.Columns.Add("FechaIng", GetType(Date))
|
||||
DT.Columns.Add("CveEmpresa", GetType(Integer))
|
||||
|
||||
DT.AcceptChanges()
|
||||
|
||||
DTTempParametros = DT
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkEliminarParametro_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveDocumentacionParametroEliminar As Integer = GvRow.DataKey("CveDocumentacionParametro").ToEntero
|
||||
Dim IndexEliminar As Integer = GvRow.RowIndex
|
||||
|
||||
If CveDocumentacion > 0 Then
|
||||
|
||||
Dim ObjDoc As New ClsEdocumentacion
|
||||
If ObjDoc.RemoveDocumentacionParametros(CveDocumentacionParametroEliminar, UsuarioActual.CveEmpresa) Then
|
||||
Alert("Parametro eliminado correctamente.")
|
||||
End If
|
||||
ObjDoc.Dispose()
|
||||
|
||||
|
||||
Else
|
||||
Dim DRow As DataRow = DTTempParametros(IndexEliminar)
|
||||
DRow.Delete()
|
||||
DTTempParametros.AcceptChanges()
|
||||
Alert("Parametro eliminado correctamente.")
|
||||
End If
|
||||
|
||||
|
||||
CargaDatosParametro()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkParametroEditar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
If CveDocumentacion > 0 Then
|
||||
CveDocumentacionParametro = GvRow.DataKey("CveDocumentacionParametro").ToString.ToEntero
|
||||
IndexParametro = -1
|
||||
Else
|
||||
CveDocumentacionParametro = -1
|
||||
IndexParametro = GvRow.RowIndex
|
||||
End If
|
||||
|
||||
TxtParametro.Text = GvRow.DataKey("Parametro")
|
||||
TxtParametroDescripcion.Text = GvRow.DataKey("Descripcion")
|
||||
|
||||
UpModalParametros.Update()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "DVParametros"))
|
||||
IndexParametro = -1
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnGuardarParametro_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ErrorProceso As Boolean = True
|
||||
|
||||
|
||||
If CveDocumentacion > 0 Then
|
||||
|
||||
Dim ObjDoc As New ClsEdocumentacion
|
||||
|
||||
|
||||
If CveDocumentacionParametro > 0 Then
|
||||
If ObjDoc.UpdateDocumentacionParametros(CveDocumentacionParametro, CveDocumentacion, TxtParametro.Text.Trim, TxtParametroDescripcion.Text.Trim, UsuarioActual.CveEmpresa) Then
|
||||
Alert("Parametro actualizado correctamente.")
|
||||
ErrorProceso = False
|
||||
End If
|
||||
Else
|
||||
If ObjDoc.AddDocumentacionParametros(CveDocumentacion, TxtParametro.Text.Trim, TxtParametroDescripcion.Text.Trim, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
Alert("Parametro agregado correctamente.")
|
||||
ErrorProceso = False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
ObjDoc.Dispose()
|
||||
|
||||
Else
|
||||
If IndexParametro > 0 Then
|
||||
Dim Drow As DataRow = DTTempParametros(IndexParametro)
|
||||
Drow("Parametro") = TxtParametro.Text
|
||||
Drow("Descripcion") = TxtParametroDescripcion.Text
|
||||
'Editar Row en base a index
|
||||
ErrorProceso = False
|
||||
Alert("Parametro actualizado correctamente.")
|
||||
Else
|
||||
|
||||
Dim Drow As DataRow = DTTempParametros.NewRow
|
||||
Drow("Parametro") = TxtParametro.Text
|
||||
Drow("Descripcion") = TxtParametroDescripcion.Text
|
||||
|
||||
|
||||
DTTempParametros.Rows.Add(Drow)
|
||||
Alert("Parametro agregado correctamente.")
|
||||
ErrorProceso = False
|
||||
'Agreagr Row
|
||||
End If
|
||||
DTTempParametros.AcceptChanges()
|
||||
End If
|
||||
|
||||
If ErrorProceso = False Then
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DVParametros"))
|
||||
End If
|
||||
|
||||
CargaDatosParametro()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkAgregarParametro_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
TxtParametro.Text = ""
|
||||
TxtParametroDescripcion.Text = ""
|
||||
|
||||
CveDocumentacionParametro = -1
|
||||
IndexParametro = -1
|
||||
|
||||
UpModalParametros.Update()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "DVParametros"))
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
@@ -4668,6 +4668,71 @@
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div id="DVDescargaDocumentoParametrosModal" class="modal ADS fade" role="dialog">
|
||||
<asp:UpdatePanel ID="UpdatePanel4" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-content rowpadding">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" runat="server" style="text-align: left">Parametros</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<asp:UpdatePanel ID="UpGvParametros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvParametros" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveDocumentacionParametro,CveDocumentacion,Parametro,Descripcion " CssClass="table table-hover table-advance Widthall" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="60px" HeaderText="Parametro">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlParametro" runat="server" Text='<%# Eval("Parametro") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Descripción">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Valor">
|
||||
<ItemTemplate>
|
||||
|
||||
<asp:TextBox ID="TxtParametro" runat="server" Text="" Width="150px" ValidationGroup="GrpDescargaFormato" ></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVTxtParametro" runat="server" ControlToValidate="TxtParametro" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDescargaFormato"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="CERFVTxtParametro" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtParametro" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="LnkDescargaFormatoParametros" OnClick="LnkDescargaFormatoParametros_Click" ValidationGroup="GrpDescargaFormato" CssClass="btn btn-primary" runat="server">Descargar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
|
||||
<iframe id="my_iframe" style="display: none;"></iframe>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
@@ -611,12 +611,29 @@ Partial Class RH_Personal
|
||||
Set(value As Boolean)
|
||||
ViewState("ValMadre") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
End Property
|
||||
|
||||
|
||||
Private Property DocumentoParametros As String
|
||||
Get
|
||||
If ViewState("DocumentoParametros") Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
Return ViewState("DocumentoParametros").ToString
|
||||
End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("DocumentoParametros") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
|
||||
Dim resultado As String = ""
|
||||
|
||||
@@ -3782,10 +3799,36 @@ Partial Class RH_Personal
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero
|
||||
Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
|
||||
|
||||
DescarFormato(DocumentacionFormato)
|
||||
|
||||
Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
|
||||
|
||||
|
||||
Dim ObjEdoc As New ClsEdocumentacion
|
||||
|
||||
If ObjEdoc.GetDocumentacionParametros(-1, CveDocumentacion, UsuarioActual.CveEmpresa) Then
|
||||
If ObjEdoc.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
GvParametros.DataSource = ObjEdoc.DtResultados
|
||||
ObjEdoc.Dispose()
|
||||
|
||||
GvParametros.DataBind()
|
||||
UpGvParametros.Update()
|
||||
|
||||
DocumentoParametros = DocumentacionFormato
|
||||
RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('show')")
|
||||
|
||||
Else
|
||||
ObjEdoc.Dispose()
|
||||
DescarFormato(DocumentacionFormato)
|
||||
End If
|
||||
Else
|
||||
ObjEdoc.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Public Sub DescarFormato(documento As String)
|
||||
|
||||
@@ -6216,5 +6259,48 @@ Partial Class RH_Personal
|
||||
TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
|
||||
RegistraScript("$('#Dmodamodificarsalario').modal()")
|
||||
UpModSalario.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
Protected Sub LnkDescargaFormatoParametros_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
|
||||
|
||||
Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
|
||||
|
||||
For Each GvRow As GridViewRow In GvParametros.Rows
|
||||
|
||||
If GvRow.FCTextBox("TxtParametro").Text.Trim.Length > 0 Then
|
||||
ListaTagsDocumentost.Add(New TagsDocumentos(GvRow.DataKey("Parametro"), GvRow.FCTextBox("TxtParametro").Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
|
||||
Dim PathSource As String
|
||||
Dim pathDesti As String
|
||||
|
||||
PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & DocumentoParametros
|
||||
pathDesti = PathRoot & "Temp\" & CvePersonal & DocumentoParametros
|
||||
|
||||
If File.Exists(pathDesti) Then
|
||||
File.Delete(pathDesti)
|
||||
End If
|
||||
|
||||
File.Copy(PathSource, pathDesti)
|
||||
|
||||
Dim objDoc As New clsGemBoxDocument(pathDesti)
|
||||
objDoc.SustituirTags(ListaTagsDocumentost)
|
||||
objDoc.Guardar(pathDesti)
|
||||
|
||||
Dim fileinfo As New FileInfo(pathDesti)
|
||||
|
||||
Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
|
||||
baseUrl = baseUrl & "/temp/" & fileinfo.Name
|
||||
|
||||
RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('hide')", "500")
|
||||
RegistraDescargaJavaScript(baseUrl)
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user