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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-02-14 10:43:05 -07:00
parent 0da266bf82 9f66e179f7
commit a6128d5863
12 changed files with 455 additions and 645 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
Acumuladores/CatFoliosGarantia.aspx
View File

@@ -67,6 +67,42 @@
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
<ContentTemplate>
<asp:Panel ID="Panel1" runat="server" DefaultButton="BtnConsultar">
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
<div class="tools">
<asp:Button Text="Consultar" ID="BtnConsultar" CssClass="btn btn-primary" OnClick="BtnConsultar_Click" runat="server" />
</div>
<div class="titlefiltros caption ">
<div class="row" style="padding-top: 10px;">
<label class="col-md-1 truncate">Tipo Folio:</label>
<div class="col-md-2 ">
<%-- <asp:DropDownList ID="DdlSucursal" runat="server" CssClass="select2me" DataTextField="Sucursal" DataValueField="CveSucursal" Width="200px" ValidationGroup="GrpGuardar"></asp:DropDownList>--%>
<asp:DropDownList ID="DdlTipoFolio" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
<asp:ListItem Value="general" >general</asp:ListItem>
<asp:ListItem Value="optima">optima</asp:ListItem>
<asp:ListItem Value="motobateria">motobateria</asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1 truncate">Estatus:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Activo" Value="1"></asp:ListItem>
<asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
</asp:Panel>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UpGral" runat="server" UpdateMode="Conditional">
<ContentTemplate>
@@ -77,12 +113,12 @@
</div>
</div>
<div class="row" style="margin:5px">
<div class="row" style="margin: 5px">
<asp:UpdatePanel ID="UPGvFolioGarantia" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto"
DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true"
@@ -94,7 +130,16 @@
&nbsp;<asp:Literal ID="LblFolioGarantia" runat="server" Text='<%# Eval("FolioGarantia") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Folio">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblTipoFolio" runat="server" Text='<%# Eval("tipoFolio") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Limite">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblLimite" runat="server" Text='<%# Eval("Limite") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SubProyecto" ItemStyle-Width="150px">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
@@ -201,9 +246,9 @@
<label for="<%= TxtFolioGarantia.ClientID.ToString()%>">Folio:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
<asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Width="200px" AutoPostBack="true"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVProducto2" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectos" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
@@ -216,10 +261,27 @@
<div class="form-group form-md-line-input input-iconright">
<label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</label>&nbsp;
<asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
<asp:ListItem Value="general" Selected ="True">general</asp:ListItem>
<asp:ListItem Value="optima">optima</asp:ListItem>
<asp:ListItem Value="motobateria">motobateria</asp:ListItem>
</asp:DropDownList>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
<label for="<%= TxtLimite.ClientID.ToString()%>">Limite:</label>
<i></i>
</div>
<%-- <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
<asp:TextBox ID="TxtCargo" CssClass="form-control " Width="150px" runat="server" MaxLength="10" CausesValidation="true" Style="text-align: right!important; margin-right: 10px!important" OnKeyup="FormatoMoneda(this);"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtCargo" runat="server" ControlToValidate="TxtCargo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cargo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTamanio"></asp:RequiredFieldValidator>

25
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -38,7 +38,7 @@ Partial Class Acumuladores_CatFoliosGarantia
If Not Page.IsPostBack Then
CargaSubProyectos()
CargadatosGvFolioGarantia()
CargadatosGvFolioGarantia(-1, "-1")
End If
End Sub
@@ -53,11 +53,11 @@ Partial Class Acumuladores_CatFoliosGarantia
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargadatosGvFolioGarantia()
Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String)
Dim objAcum As New ClsAcumuladores
If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa) Then
If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor) Then
GvFolioGarantia.DataSource = objAcum.DtResultados
Else
GvFolioGarantia.DataSource = Nothing
@@ -116,7 +116,7 @@ Partial Class Acumuladores_CatFoliosGarantia
If Not Actualizar Then
If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero) Then
If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then
TxtFolioGarantia.Text = ""
ChkEstatus.Checked = True
@@ -125,7 +125,7 @@ Partial Class Acumuladores_CatFoliosGarantia
'TxtCompra.Text = ""
'TxtPuntos.Text = ""
CargadatosGvFolioGarantia()
CargadatosGvFolioGarantia(-1, "-1")
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia")
UpGral.Update()
@@ -135,7 +135,8 @@ Partial Class Acumuladores_CatFoliosGarantia
Alert("Ocurrió un error al guardar el Folio de Garantía", TipoMensaje.MsgError)
End If
Else
If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero) Then
If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then
TxtFolioGarantia.Text = ""
ChkEstatus.Checked = True
@@ -144,7 +145,7 @@ Partial Class Acumuladores_CatFoliosGarantia
'TxtCompra.Text = ""
'TxtPuntos.Text = ""
CargadatosGvFolioGarantia()
CargadatosGvFolioGarantia(-1, "-1")
UpModalFolioGarantia.Update()
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia")
@@ -171,7 +172,7 @@ Partial Class Acumuladores_CatFoliosGarantia
Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia")
If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
CargadatosGvFolioGarantia()
CargadatosGvFolioGarantia(-1, "-1")
Alert("Capacitador Eliminó Correctamente ", TipoMensaje.MsgInformacion)
Else
@@ -180,7 +181,7 @@ Partial Class Acumuladores_CatFoliosGarantia
objAcum.Dispose()
CargadatosGvFolioGarantia()
CargadatosGvFolioGarantia(-1, "-1")
CveFolioGarantia = -1
@@ -198,6 +199,8 @@ Partial Class Acumuladores_CatFoliosGarantia
TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
TxtLimite.Text = GvRow.DataKey("Limite")
DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio")
'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00")
'TxtBonificacion.Text = GvRow.DataKey("Bonificacion").ToDecimal.ToString("###,###,###.00")
'TxtCompra.Text = GvRow.DataKey("Compra").ToDecimal.ToString("###,###,###.00")
@@ -221,6 +224,8 @@ Partial Class Acumuladores_CatFoliosGarantia
#End Region
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue)
End Sub
End Class

11
App_Code/ClsAcumuladores.vb
View File

@@ -483,7 +483,7 @@ Public Class ClsAcumuladores
#Region " FOLIOS GARANTÍA "
Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1) As Boolean
Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional TipoFolio As String = "-1") As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
@@ -493,6 +493,7 @@ Public Class ClsAcumuladores
.Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
.Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@tipoFolio", SqlDbType.VarChar).Value = TipoFolio
End With
Try
@@ -507,7 +508,7 @@ Public Class ClsAcumuladores
Return Retorno
End Function
Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
@@ -520,6 +521,8 @@ Public Class ClsAcumuladores
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
.Add("@Limite", SqlDbType.Int).Value = Limite
End With
@@ -535,7 +538,7 @@ Public Class ClsAcumuladores
Return Retorno
End Function
Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer) As Boolean
Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
@@ -548,6 +551,8 @@ Public Class ClsAcumuladores
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
.Add("@Limite", SqlDbType.Int).Value = Limite
End With

137
App_Code/ClsCompProveedores.vb
View File

@@ -1549,6 +1549,143 @@ Public Class ClsCompProveedores
#End Region
#Region "TIPOS CONTRATOS"
Public Function GetTiposContratos(CveTipoContrato As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Prov_SAT_CatTipoContratosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el los tipos de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddTiposContratos(TipoContrato As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Prov_SAT_CatTipoContratosAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@TipoContrato", SqlDbType.VarChar).Value = TipoContrato
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar el tipo de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateTiposContratos(CveTipoContrato As Integer, TipoContrato As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Prov_SAT_CatTipoContratosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato
.Add("@CveTipoContrato", SqlDbType.VarChar).Value = TipoContrato
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el tipo de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveTiposContratos(CveTipoContrato As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Prov_SAT_CatTipoContratosRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el tipo de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function GetTiposContratosDcumentos(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Prov_SAT_CatTipoContratosDocumentosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el tipo de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateTiposContratosDocumentos(CveTipoContrato As Integer, CveDocumentacion As Integer, Requerido As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Prov_SAT_CatTipoContratosDocumentosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato
.Add("@CveDocumentacion", SqlDbType.Int).Value = CveDocumentacion
.Add("@Requerido", SqlDbType.Bit).Value = Requerido
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al Obtener los actualizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
' IDisposable
#Region " IDisposable Support "

411
Edoc/CatDocumentosContratos.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="RH - Catálogo de Géneros" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatDocumentosContratos.aspx.vb" Inherits="Edoc_CatDocumentosContratos" %>
<%@ Page Title="Documentos Contratos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatDocumentosContratos.aspx.vb" Inherits="Edoc_CatDocumentosContratos" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
@@ -27,394 +27,39 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<table width="872" class="table table-hover table-advance">
<tbody>
<tr>
<th width="116">Tipo de contrato</th>
<th width="416">Documento</th>
<th width="100">Requerido</th>
</tr>
<tr>
<td>SubContratos</td>
<td>ACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)</td>
<td>
<div class="checkbox"> <label><input type="checkbox" value="" checked></label></div>
</td>
</tr>
<tr>
<td>SubContratos</td>
<td>IDENTIFICACION REPRESENTANTE LEGAL</td>
<td><div class="checkbox"> <label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>PODER REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>REGISTRO PATRONAL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>REGISTRO ANTE EL SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>PAGOS PROVSIONALES</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>PAGO DEL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>PAGO DEL ESTADO</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>OPINION DE CUMPLIMIENTO SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>CARTA DE NO ADEUDO IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>RELACION DE PERSONAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>RECIBOS XML NOMINA</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>SubContratos</td>
<td>REGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>ACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>IDENTIFICACION REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>PODER REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>REGISTRO PATRONAL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>REGISTRO ANTE EL SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>PAGOS PROVSIONALES</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>PAGO DEL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>PAGO DEL ESTADO</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>OPINION DE CUMPLIMIENTO SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>CARTA DE NO ADEUDO IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>RELACION DE PERSONAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>RECIBOS XML NOMINA</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>REGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>ACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>IDENTIFICACION REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>PODER REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>REGISTRO PATRONAL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>REGISTRO ANTE EL SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>PAGOS PROVSIONALES</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>PAGO DEL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>PAGO DEL ESTADO</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>OPINION DE CUMPLIMIENTO SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>CARTA DE NO ADEUDO IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>RELACION DE PERSONAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>RECIBOS XML NOMINA</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Limpieza</td>
<td>REGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>ACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>IDENTIFICACION REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>PODER REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>REGISTRO PATRONAL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>REGISTRO ANTE EL SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>PAGOS PROVSIONALES</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>PAGO DEL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>PAGO DEL ESTADO</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>OPINION DE CUMPLIMIENTO SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>CARTA DE NO ADEUDO IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>RELACION DE PERSONAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>RECIBOS XML NOMINA</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Materiales</td>
<td>REGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>ACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>IDENTIFICACION REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>PODER REPRESENTANTE LEGAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>REGISTRO PATRONAL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>REGISTRO ANTE EL SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>PAGOS PROVSIONALES</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>PAGO DEL IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>PAGO DEL ESTADO</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>OPINION DE CUMPLIMIENTO SAT</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>CARTA DE NO ADEUDO IMSS</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>RELACION DE PERSONAL</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>RECIBOS XML NOMINA</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
<tr>
<td>Acarreos</td>
<td>REGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)</td>
<td><div class="checkbox"><label><input type="checkbox" value="" checked></label></div></td>
</tr>
</tbody>
</table>
<%-- <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveGenero,Genero,Estatus" EmptyDataText="No se encontraron Géneros Registrados" ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover" style="margin-top:-10px; text-align:center;width:100%;" GridLines="None" >
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoContrato,CveDocumentacion" EmptyDataText="No se encontraron datos" Width="100%"
ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover" GridLines="None" >
<Columns>
<asp:TemplateField HeaderText="Género">
<asp:TemplateField HeaderText="Tipo Contrato">
<ItemTemplate>
<asp:Literal ID="LtlGenero" runat="server" Text='<%# Eval("Genero", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtGenero" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Genero") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVGenero" runat="server" ControlToValidate="TxtGenero" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Genero''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCGenero" runat="server" HighlightCssClass="vco" TargetControlID="RFVGenero" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estado">
<ItemTemplate>
<asp:Literal ID="LtlEstado" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstado" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
<asp:Literal ID="LrlTipoContrato" runat="server" Text='<%# Eval("TipoContrato") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
<asp:TemplateField HeaderText="Documento" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlDocumento" runat="server" Text='<%# Eval("Documentacion") %>' ></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario">
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</asp:TemplateField>
<asp:TemplateField HeaderText="Requerido" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:CheckBox runat="server" ID="ChkRequerido" Checked= '<%# Eval("Requerido") %>' AutoPostBack="true" OnCheckedChanged="ChkRequerido_CheckedChanged" CssClass="md-checksd" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton OnClick="GvDatos_RowEditing" ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>--%>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>

106
Edoc/CatDocumentosContratos.aspx.vb
View File

@@ -11,106 +11,42 @@ Partial Class Edoc_CatDocumentosContratos
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
End If
End Sub
'Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
' RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposContrato"))
'End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click
Private Sub CargaDatos()
Dim ObjProv As New ClsCompProveedores
If ObjProv.GetTiposContratosDcumentos(UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjProv.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjProv.Dispose()
GvDatos.DataBind()
End Sub
#Region "G V D A T O S"
'Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then
' If e.Row.RowIndex = 0 Then
' e.Row.Cells(0).Width = Unit.Pixel(250)
' e.Row.Cells(1).Width = Unit.Pixel(100)
' e.Row.Cells(2).Width = Unit.Pixel(100)
' e.Row.Cells(3).Width = Unit.Pixel(100)
' e.Row.Cells(4).Width = Unit.Pixel(100)
' e.Row.Cells(5).Width = Unit.Pixel(61)
' End If
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
' End If
'End Sub
Protected Sub ChkRequerido_CheckedChanged(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
'Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
' Dim ObjGenero As New ClsRH
' If ObjGenero.RemoveGenero(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
' GvDatos.EditIndex = -1
' ViewState("DTGenero") = ObjGenero.DtResultados
' GlobalDTGenero = ObjGenero.DtResultados
' Alert("El Género se eliminó correctamente.", TipoMensaje.MsgInformacion)
' End If
Dim CveTipoContrato As Integer = GvRow.DataKey("CveTipoContrato").ToEntero
Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
Dim ChkRequerido As CheckBox = GvRow.FCCheckBox("ChkRequerido")
' ObjGenero.Dispose()
Dim ObjProv As New ClsCompProveedores
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
'End Sub
ObjProv.UpdateTiposContratosDocumentos(CveTipoContrato, CveDocumentacion, ChkRequerido.Checked)
'Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
' GvDatos.EditIndex = -1
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
'End Sub
'Protected Sub GvDatos_RowUpdating(sender As Object, e As EventArgs) Handles BtnEditarTiposDModal.Click
' Dim ObjGenero As New ClsRH
' Dim Genero As String = GeneroTxt.Text.Trim
' Dim Estatus As Boolean = ChkEstatus.Checked
' Dim CveGenero As Integer = CveGeneroAEditar
' If ObjGenero.UpdateGenero(Genero, Estatus, CveGenero) Then
' GvDatos.EditIndex = -1
' ViewState("DTGenero") = ObjGenero.DtResultados
' GlobalDTGenero = ObjGenero.DtResultados
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
' End If
' ObjGenero.Dispose()
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
'End Sub
'Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs)
' BtnAgregarTiposDModal.Visible = False
' BtnEditarTiposDModal.Visible = True
' CheckActiveSection.Visible = True
' saltoDeLinea.Visible = True
' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
' GeneroTxt.Text = GvRow.DataKey("Genero")
' ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
' CveGeneroAEditar = Convert.ToInt32(GvRow.DataKey("CveGenero")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
' UpDatos.Update()
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
' RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
'End Sub
#End Region
ObjProv.Dispose()
End Sub
End Class

103
Edoc/CatTipoContratos.aspx
View File

@@ -13,7 +13,7 @@
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar Tipo Contrato " Text="<i class='fa fa-plus'></i> Agregar Tipo Contrato"></asp:LinkButton>
<asp:LinkButton runat="server" ID="BtnAgregarTipoContrato" data-toggle="tooltip" data-placement="left" title="Agregar Tipo Contrato " Text="<i class='fa fa-plus'></i> Agregar Tipo Contrato"></asp:LinkButton>
</li>
</ContentTemplate>
@@ -28,97 +28,54 @@
<ContentTemplate>
<table style="width:600px!important" class="table table-hover table-advance" >
<tr>
<th>Tipo de Contrato</th>
<th>Estatus</th>
<th>Usuario</th>
<th style="width:100px!important">Comandos</th>
</tr>
<tr>
<td style="text-align: left">SubContratos</td>
<td style="text-align: left">Activo</td>
<td>Sistema</td>
<td><a class="btn btn-circle btn-sm green" onclick="return MuestraModal()"><i class='fa fa-pencil' > </i></a></td>
</tr>
<tr>
<td style="text-align: left">Acarreos</td>
<td style="text-align: left">Activo</td>
<td>Sistema</td>
<td><a class="btn btn-circle btn-sm green" onclick="return MuestraModal()"><i class='fa fa-pencil' > </i></a></td>
</tr>
<tr>
<td style="text-align: left">Limpieza</td>
<td style="text-align: left">Activo</td>
<td>Sistema</td>
<td><a class="btn btn-circle btn-sm green" onclick="return MuestraModal()"><i class='fa fa-pencil' > </i></a></td>
</tr>
<tr>
<td style="text-align: left">Materiales</td>
<td style="text-align: left">Activo</td>
<td>Sistema</td>
<td><a class="btn btn-circle btn-sm green" onclick="return MuestraModal()"><i class='fa fa-pencil' > </i></a></td>
</tr>
</table>
<%-- <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveGenero,Genero,Estatus" EmptyDataText="No se encontraron Géneros Registrados" ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover" style="margin-top:-10px; text-align:center;width:100%;" GridLines="None" >
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoContrato,TipoContrato,Estatus" EmptyDataText="No se encontraron Tipos de contrato" Width="100%"
ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover" GridLines="None" >
<Columns>
<asp:TemplateField HeaderText="Género">
<asp:TemplateField HeaderText="Tipo Contrato">
<ItemTemplate>
<asp:Literal ID="LtlGenero" runat="server" Text='<%# Eval("Genero", "{0}") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtGenero" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Genero") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVGenero" runat="server" ControlToValidate="TxtGenero" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Genero''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCGenero" runat="server" HighlightCssClass="vco" TargetControlID="RFVGenero" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estado">
<ItemTemplate>
<asp:Literal ID="LtlEstado" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstado" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
</EditItemTemplate>
<asp:Literal ID="LtlTipocontrato" runat="server" Text='<%# Eval("Tipocontrato") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha">
<asp:TemplateField HeaderText="Esatus" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlEsatusString" runat="server" Text='<%# Eval("EstatusString") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario">
<asp:TemplateField HeaderText="Usuario" >
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton OnClick="GvDatos_RowEditing" ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkActualizar" runat="server" OnClick="LnkGvActualizar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>--%>
</Columns>
</asp:GridView>
</div>
<div id="DivAgregarTiposContrato" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposContrato" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
@@ -128,9 +85,9 @@
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTipoSubcontrato" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtTipoSubcontrato" runat="server" ControlToValidate="TxtTipoSubcontrato" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Sub Contrato''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="GeneroTxt">Tipo Contrato:</label>
<asp:TextBox ID="TxtTipoContrato" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtTipoContrato" runat="server" ControlToValidate="TxtTipoContrato" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Contrato''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTipos"></asp:RequiredFieldValidator>
<label for="TxtTipoContrato">Tipo Contrato:</label>
<i></i>
</div>
<br ID="saltoDeLinea" runat="server" />

173
Edoc/CatTipoContratos.aspx.vb
View File

@@ -7,110 +7,117 @@ Imports Extensiones
Partial Class Edoc_CatTipoContrato
Inherits ClsPaginas
Protected Property CveTipoContrato As Integer
Get
If ViewState("CveTipoContrato") Is Nothing Then
Return -1
Else
Return ViewState("CveTipoContrato").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveTipoContrato") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
End If
End Sub
Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
Private Sub CargaDatos()
Dim ObjProv As New ClsCompProveedores
If ObjProv.GetTiposContratos(-1, UsuarioActual.CveEmpresa, -1) Then
GvDatos.DataSource = ObjProv.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjProv.Dispose()
GvDatos.DataBind()
End Sub
Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarTipoContrato.Click
CveTipoContrato = -1
TxtTipoContrato.Text = ""
ChkEstatus.Checked = True
UpModalTiposContrato.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposContrato"))
End Sub
Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveTipoContrato = GvRow.DataKey("CveTipoContrato").ToEntero
TxtTipoContrato.Text = GvRow.DataKey("TipoContrato")
ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
UpModalTiposContrato.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposContrato"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click
Dim ObjProv As New ClsCompProveedores
Dim ErrorProceso As Boolean = False
If CveTipoContrato = -1 Then
If Not ObjProv.AddTiposContratos(TxtTipoContrato.Text, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
End If
Else
If Not ObjProv.UpdateTiposContratos(CveTipoContrato, TxtTipoContrato.Text, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
End If
End If
If Not ErrorProceso Then
RegistraScript(String.Format("$('#{0}').modal('HIDE');", "DivAgregarTiposContrato"))
CargaDatos()
End If
ObjProv.Dispose()
End Sub
#Region "G V D A T O S"
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ErrorProceso As Boolean = False
Dim CveTipoContratoEliminar As Integer = GvRow.DataKey("CveTipoContrato").ToEntero
'Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then
' If e.Row.RowIndex = 0 Then
' e.Row.Cells(0).Width = Unit.Pixel(250)
' e.Row.Cells(1).Width = Unit.Pixel(100)
' e.Row.Cells(2).Width = Unit.Pixel(100)
' e.Row.Cells(3).Width = Unit.Pixel(100)
' e.Row.Cells(4).Width = Unit.Pixel(100)
' e.Row.Cells(5).Width = Unit.Pixel(61)
' End If
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
' End If
'End Sub
Dim ObjProv As New ClsCompProveedores
'Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
' Dim ObjGenero As New ClsRH
' If ObjGenero.RemoveGenero(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
' GvDatos.EditIndex = -1
' ViewState("DTGenero") = ObjGenero.DtResultados
' GlobalDTGenero = ObjGenero.DtResultados
' Alert("El Género se eliminó correctamente.", TipoMensaje.MsgInformacion)
' End If
If ObjProv.RemoveTiposContratos(CveTipoContratoEliminar, UsuarioActual.CveEmpresa) Then
Alert("Tipo Contrato eliminado correctamente")
Else
ErrorProceso = True
End If
' ObjGenero.Dispose()
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
'End Sub
'Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
' GvDatos.EditIndex = -1
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
'End Sub
'Protected Sub GvDatos_RowUpdating(sender As Object, e As EventArgs) Handles BtnEditarTiposDModal.Click
' Dim ObjGenero As New ClsRH
' Dim Genero As String = GeneroTxt.Text.Trim
' Dim Estatus As Boolean = ChkEstatus.Checked
' Dim CveGenero As Integer = CveGeneroAEditar
' If ObjGenero.UpdateGenero(Genero, Estatus, CveGenero) Then
' GvDatos.EditIndex = -1
' ViewState("DTGenero") = ObjGenero.DtResultados
' GlobalDTGenero = ObjGenero.DtResultados
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
' End If
' ObjGenero.Dispose()
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
'End Sub
'Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs)
' BtnAgregarTiposDModal.Visible = False
' BtnEditarTiposDModal.Visible = True
' CheckActiveSection.Visible = True
' saltoDeLinea.Visible = True
' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
' GeneroTxt.Text = GvRow.DataKey("Genero")
' ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
' CveGeneroAEditar = Convert.ToInt32(GvRow.DataKey("CveGenero")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
' UpDatos.Update()
' If ViewState("Orden").ToString() <> String.Empty Then
' CargaGrid(ViewState("Orden").ToString())
' Else
' CargaGrid("")
' End If
' RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
'End Sub
#End Region
If Not ErrorProceso Then
CargaDatos()
End If
ObjProv.Dispose()
End Sub
End Class

4
Empresas/141/Formatos/Factura.rdlc
View File

@@ -1099,7 +1099,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!PS.Value &amp; " " &amp; Fields!Obs.Value</Value>
<Value>=Fields!PS.Value &amp; System.Environment.NewLine &amp; IIF(Fields!Obs.Value &lt;&gt; "","Observaciones: ","") &amp; Fields!Obs.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8.75pt</FontSize>
@@ -3150,7 +3150,7 @@
</Style>
</Textbox>
</ReportItems>
<Height>20.5093cm</Height>
<Height>20.50931cm</Height>
<Style />
</Body>
<Width>21.16666cm</Width>

9
Ventas/PV.aspx.vb
View File

@@ -5503,7 +5503,14 @@ Partial Class PV
Dim ObjAcumuladores As New ClsAcumuladores
If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
Dim resultado As Integer = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo").ToEntero
TxtConsecutivoAjuste.Text = resultado.ToString
If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero
If resultado < Limite Or Limite = 0 Then
TxtConsecutivoAjuste.Text = resultado.ToString
Else
Alert("limite de folios alcanzado")
End If
End If
UpAjuste.Update()
End If
ObjAcumuladores.Dispose()

4
Ventas/Ventas.aspx
View File

@@ -352,6 +352,9 @@
<li>
<asp:LinkButton runat="server" ID="LnkImprimirFormatoCicovisa" Visible="false" OnClick="LnkImprimirFormatoCicovisa_Click">Imprimir Formato Cicovisa</asp:LinkButton>
</li>
<li>
<asp:LinkButton runat="server" ID="LnkImprimirFormatoTelcel" Visible="false" OnClick="LnkImprimirFormatoTelcel_Click">Imprimir Formato Radio Movil DIPSA</asp:LinkButton>
</li>
<li>
<asp:LinkButton runat="server" ID="LnkEnviarPolizaVirtual" Visible="false" OnClick="LnkEnviarPolizaVirtual_Click">Enviar Póliza Virtual</asp:LinkButton>
</li>
@@ -364,6 +367,7 @@
<asp:PostBackTrigger ControlID="BtnContabilizar" />
<asp:PostBackTrigger ControlID="BtnContabilizar" />
<asp:PostBackTrigger ControlID="LnkImprimirFormatoCicovisa" />
<asp:PostBackTrigger ControlID="LnkImprimirFormatoTelcel" />
<%-- <asp:PostBackTrigger ControlID="LnkDescargarFacturaPrueba" />--%>
<%-- <asp:PostBackTrigger ControlID="LbDescargarExcel" />--%>
</Triggers>

45
Ventas/Ventas.aspx.vb
View File

@@ -2056,6 +2056,10 @@ Partial Class Ventas
If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
LnkImprimirFormatoCicovisa.Visible = True
End If
'HABILITA IMPRESION DE FORMATO TELCEL
If UsuarioActual.CveEmpresa = 72 And CveCliente = 70869 And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
LnkImprimirFormatoTelcel.Visible = True
End If
If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
DivDevAlm.Visible = True
@@ -22126,6 +22130,47 @@ Partial Class Ventas
ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
End If
End Sub
Protected Sub LnkImprimirFormatoTelcel_Click(sender As Object, e As EventArgs)
Dim ObjVentas As New ClsVentas
Dim ObjInventario As New ClsInventarios
Dim SerieFolio As String = ""
Dim PedidoContrato As String = ""
Dim EnvioContacto As String = ""
Dim EnvioDireccion As String = ""
Dim Guia As String = ""
If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString
End If
End If
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
If ObjVentas.DtResultados.Rows.Count > 0 Then
SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, NO. EXT: {ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}"
End If
End If
Dim Dt As DataTable = Nothing
If ObjVentas.GetVentaDetalle(CveVenta) Then
Dt = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
ObjInventario.Dispose()
If Dt.Rows.Count > 0 Then
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
params.Add(New ReportParameter("SerieFolio", SerieFolio))
params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
params.Add(New ReportParameter("Guia", Guia))
ImprimirPDF("Empresas/Grales/Formatos/Telcel.rdlc", Dt, params, String.Format("Formato RADIO MOVIL DIPSA S.A DE C.V. -{0}", Now.ToDateTime.ToShortDateString))
End If
End Sub
#End Region
#Region "REQUIERE OC"