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

Acumuladores/CatFoliosGarantia.aspx

@@ -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>
@@ -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>

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -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

App_Code/ClsAcumuladores.vb

@@ -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
 

App_Code/ClsCompProveedores.vb

@@ -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 "

Edoc/CatDocumentosContratos.aspx

@@ -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>
+                            <asp:Literal ID="LrlTipoContrato" runat="server" Text='<%# Eval("TipoContrato") %>'></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:TemplateField>
-                    <asp:TemplateField HeaderText="Fecha">
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>                        
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Usuario">
+                    <asp:TemplateField HeaderText="Documento"    ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>                            
-                            <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
+                           <asp:Literal ID="LtlDocumento" runat="server" Text='<%# Eval("Documentacion") %>' ></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>                     
-                    <asp:TemplateField HeaderText="Editar">
+
-                        <EditItemTemplate>
+                    <asp:TemplateField HeaderText="Requerido"   ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
-                            <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>" />
+                             <asp:CheckBox runat="server" ID="ChkRequerido" Checked= '<%# Eval("Requerido") %>' AutoPostBack="true" OnCheckedChanged="ChkRequerido_CheckedChanged" CssClass="md-checksd" />
-                        </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" />
+            </asp:GridView>
-                <AlternatingRowStyle CssClass="TextoAlterno" />
+
-            </asp:GridView>--%>
+           </div>
+
+
+ 
+
+ 
 
 
 

Edoc/CatDocumentosContratos.aspx.vb

@@ -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
+    Private Sub CargaDatos()
-    '    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
 
+        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
+    Protected Sub ChkRequerido_CheckedChanged(sender As Object, e As EventArgs)
-    '    If e.Row.RowType = DataControlRowType.DataRow Then
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow)
-    '        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 GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+        Dim CveTipoContrato As Integer = GvRow.DataKey("CveTipoContrato").ToEntero
-    '    Dim ObjGenero As New ClsRH
+        Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
-    '    If ObjGenero.RemoveGenero(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+        Dim ChkRequerido As CheckBox = GvRow.FCCheckBox("ChkRequerido")
-    '        GvDatos.EditIndex = -1
-    '        ViewState("DTGenero") = ObjGenero.DtResultados
-    '        GlobalDTGenero = ObjGenero.DtResultados
-    '        Alert("El Género se eliminó correctamente.", TipoMensaje.MsgInformacion)
-    '    End If
 
-    '    ObjGenero.Dispose()
+        Dim ObjProv As New ClsCompProveedores
 
-    '    If ViewState("Orden").ToString() <> String.Empty Then
+        ObjProv.UpdateTiposContratosDocumentos(CveTipoContrato, CveDocumentacion, ChkRequerido.Checked)
-    '        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
+        ObjProv.Dispose()
-    '    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
 
+    End Sub
 
 End Class

Edoc/CatTipoContratos.aspx

@@ -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" >
+           <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%"
-        <tr>
+                    ToolTip="Listado de Genero" CssClass="table table-striped table-advance table-hover"   GridLines="None" >
-            <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" >
                 <Columns>
-                    <asp:TemplateField HeaderText="Género">
+                                  
+                    <asp:TemplateField HeaderText="Tipo Contrato">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlGenero" runat="server" Text='<%# Eval("Genero", "{0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlTipocontrato" runat="server" Text='<%# Eval("Tipocontrato") %>'></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">
+                    <asp:TemplateField HeaderText="Esatus"   ItemStyle-Width="100"  ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlEstado" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
+                            <asp:Literal ID="LtlEsatusString" runat="server" Text='<%# Eval("EstatusString") %>'></asp:Literal>
                         </ItemTemplate>
-                        <EditItemTemplate>
-                            <asp:CheckBox ID="ChkEstado" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False)  %>' />
-                        </EditItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Fecha">
+
+                     <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">
+                    <asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">                        
-                        <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>" />
+                           <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" />
+            </asp:GridView>
-                <AlternatingRowStyle CssClass="TextoAlterno" />
+
-            </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:TextBox ID="TxtTipoContrato" 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>
+                                    <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="GeneroTxt">Tipo Contrato:</label>
+                                    <label for="TxtTipoContrato">Tipo Contrato:</label>
                                     <i></i>
                                 </div>
                                 <br ID="saltoDeLinea" runat="server" />

Edoc/CatTipoContratos.aspx.vb

@@ -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
+        Dim ObjProv As New ClsCompProveedores
-    '    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 GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+        If ObjProv.RemoveTiposContratos(CveTipoContratoEliminar, UsuarioActual.CveEmpresa) Then
-    '    Dim ObjGenero As New ClsRH
+            Alert("Tipo Contrato eliminado correctamente")
-    '    If ObjGenero.RemoveGenero(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+        Else
-    '        GvDatos.EditIndex = -1
+            ErrorProceso = True
-    '        ViewState("DTGenero") = ObjGenero.DtResultados
+        End If
-    '        GlobalDTGenero = ObjGenero.DtResultados
-    '        Alert("El Género se eliminó correctamente.", TipoMensaje.MsgInformacion)
-    '    End If
 
-    '    ObjGenero.Dispose()
+        If Not ErrorProceso Then
-
+            CargaDatos()
-    '    If ViewState("Orden").ToString() <> String.Empty Then
+        End If
-    '        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
 
 
+        ObjProv.Dispose()
+
+    End Sub
 End Class

Empresas/141/Formatos/Factura.rdlc

@@ -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>

Ventas/PV.aspx.vb

@@ -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()

Ventas/Ventas.aspx

@@ -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>

Ventas/Ventas.aspx.vb

@@ -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"