1. Kardex. Visualización de cantidades pendientes de recibir (backorder) y visualizar como se componen la OC.

2.  permitir cancelación de partida del producto de la backorder.
3.  Filtro aseguradora en reportes de cxc y listado de clientes.
4. Rep CxC, personalizar columna de límite de crédito

App_Code/ClsClientes.vb

@@ -261,7 +261,7 @@ Public Class ClsClientes
     Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer,
                                 CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1,
                                 Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveUsuarioConsulta As Integer = -1,
-                                Optional Cuenta As String = "-1", Optional EnQuebranto As Integer = -1, Optional EnDemanda As Integer = -1) As Boolean
+                                Optional Cuenta As String = "-1", Optional EnQuebranto As Integer = -1, Optional EnDemanda As Integer = -1, Optional Aseguradora As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ClientesGet")
@@ -287,6 +287,7 @@ Public Class ClsClientes
             .Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta
             .Add("@EnQuebranto", SqlDbType.Int).Value = EnQuebranto
             .Add("@EnDemanda", SqlDbType.Int).Value = EnDemanda
+            .Add("@Aseguradora", SqlDbType.Int).Value = Aseguradora
 
         End With
         Try

App_Code/ClsMovimientos.vb

@@ -240,7 +240,7 @@ Public Class ClsMovimientos
                            TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
                            Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
                            Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1,
-                           Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1) As Boolean
+                           Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1, Optional Aseguradora As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         'Data = New DataTable
@@ -276,6 +276,7 @@ Public Class ClsMovimientos
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             .Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional
             .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@Aseguradora", SqlDbType.Int).Value = Aseguradora
         End With
 
         Try
@@ -328,7 +329,7 @@ Public Class ClsMovimientos
                                   Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
                                   Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1,
                                   Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1,
-                                  Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1) As Boolean
+                                  Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1, Optional Aseguradora As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DS = New DataSet
@@ -369,6 +370,7 @@ Public Class ClsMovimientos
             .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
             .Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional
             .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@Aseguradora", SqlDbType.Int).Value = Aseguradora
         End With
 
         Try

App_Code/ClsOC.vb

@@ -2588,6 +2588,44 @@ Public Class ClsOC
 
     End Function
 
+    Public Function PendientesCompra(CvePS As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_OC_PendientesCompra")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener lo pendiente de comprar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function CancelarPartidaPendiente(CveOrdenCompraDetalle As Integer, NuevaCantidad As Decimal, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_OC_CancelarPartidaPendiente")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle
+            .Add("@NuevaCantidad", SqlDbType.Decimal).Value = NuevaCantidad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al cancelar la partida pendiente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 
 #Region " IDisposable Support "
     ' IDisposable

CxC/RepCxC.aspx

@@ -11,7 +11,7 @@
         }
 
         .TextoGris {
-            color:gray;
+            color: gray;
         }
 
         .select2 .select2-selection__rendered {
@@ -118,6 +118,7 @@
                         <div class="row">
                             <div class="col-md-1 truncate">
                                 Cliente:
+                           
                             </div>
                             <div class="col-md-2 ">
                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
@@ -134,6 +135,7 @@
                             </div>
                             <div class="col-md-1 truncate">
                                 Grupo: 
+                           
                             </div>
                             <div class="col-md-2 truncate">
                                 <asp:DropDownList ID="DdlGrupo" runat="server" CssClass="form-control  input-small input-sm select2me" Width="100%">
@@ -158,6 +160,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate">
                             Vendedor:
+                       
                         </div>
                         <div class="col-md-2 ">
                             <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
@@ -166,6 +169,7 @@
                         </div>
                         <div class="col-md-1 truncate" title="Fecha Inicio Documento" data-toggle="tooltip" data-placement="top">
                             Fecha Inicio Docto:
+                       
                         </div>
                         <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -183,6 +187,7 @@
                         </div>
                         <div class="col-md-1 truncate" title="Fecha Fin Documento" data-toggle="tooltip" data-placement="top">
                             Fecha Fin Docto: 
+                       
                         </div>
                         <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -203,6 +208,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate">
                             Registró:
+                       
                         </div>
                         <div class="col-md-2 ">
                             <asp:DropDownList ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Usuario" DataValueField="CveUsuario" CssClass="form-control  input-small input-sm select2me" Width="100%">
@@ -211,6 +217,7 @@
                         </div>
                         <div class="col-md-1 truncate">
                             Responsable:
+                       
                         </div>
                         <div class="col-md-2 ">
                             <asp:DropDownList ID="DdlResponsable" runat="server" AppendDataBoundItems="true" DataTextField="Usuario" DataValueField="CveUsuario" CssClass="form-control  input-small input-sm select2me" Width="100%">
@@ -220,6 +227,7 @@
 
                         <div class="col-md-1 truncate">
                             Tipo Docto:
+                       
                         </div>
                         <div class="col-md-2 " style="padding-bottom: 10px;">
                             <asp:ListBox ID="DdlTipoDocto" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
@@ -240,6 +248,7 @@
 
                         <div class="col-md-1 truncate">
                             Estatus Cobranza:
+                       
                         </div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlCobranzaEstatus" DataValueField="CveCobranzaEstatus" DataTextField="CobranzaEstatus" runat="server" CssClass="form-control  select2me">
@@ -249,6 +258,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate" data-toggle="tooltip" title="Fecha Vencimiento Inicial">
                             Fecha Venc. Inicial:
+                       
                         </div>
                         <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -266,6 +276,7 @@
                         </div>
                         <div class="col-md-1 truncate" data-toggle="tooltip" title="Fecha Vencimiento Final">
                             Fecha Venc. Final:
+                       
                         </div>
                         <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -284,6 +295,7 @@
 
                         <div class="col-md-1 truncate">
                             Corte A:
+                       
                         </div>
                         <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
@@ -302,6 +314,7 @@
 
                         <div class="col-md-1 truncate">
                             Estatus Cliente:
+                       
                         </div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlEstatusCliente" runat="server" AppendDataBoundItems="true" CssClass="form-control  input-small input-sm select2me" Width="100%">
@@ -316,6 +329,7 @@
 
                         <div class="col-md-1 truncate" title="Clasificación Cliente" data-toggle="tooltip" data-placement="top">
                             Clasificación Cliente:
+                       
                         </div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlClienteClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteClasificacion_SelectedIndexChanged" runat="server" AppendDataBoundItems="true" CssClass="form-control  input-small input-sm select2me" Width="100%" DataTextField="ClienteClasificacion" DataValueField="CveClienteClasificacion"></asp:DropDownList>
@@ -324,6 +338,7 @@
                         <div id="DivEmpresasFiltro" runat="server" visible="false">
                             <div class="col-md-1 truncate">
                                 Empresas:
+                           
                             </div>
                             <div class="col-md-2 " style="padding-bottom: 10px;">
                                 <asp:ListBox ID="DdlEmpresas" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Empresa" DataValueField="CveEmpresa"></asp:ListBox>
@@ -333,6 +348,7 @@
 
                         <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
                             Tipo Cliente:
+                       
                         </div>
 
                         <div class="col-md-2">
@@ -344,6 +360,7 @@
                         </div>
                         <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
                             Moneda:
+                       
                         </div>
 
                         <div class="col-md-2">
@@ -359,6 +376,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top" id="divLineaAdicional1" runat="server" visible="false">
                             Linea Adicional:
+                       
                         </div>
                         <div class="col-md-2" id="divLineaAdicional2" runat="server" visible="false">
                             <asp:DropDownList ID="DdlTieneLineaAdicional" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
@@ -367,14 +385,25 @@
                                 <asp:ListItem Text="Sin lineas adicionales" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1 truncate" title="Contrato:" data-toggle="tooltip" data-placement="top" id="divContrato1" visible="false" runat="server" >
+                        <div class="col-md-1 truncate" title="Contrato:" data-toggle="tooltip" data-placement="top" id="divContrato1" visible="false" runat="server">
                             Contrato:
+                       
                         </div>
-                        <div class="col-md-2" runat="server" id="divContrato" visible="false" >
+                        <div class="col-md-2" runat="server" id="divContrato" visible="false">
                             <asp:DropDownList ID="DdlContrato" runat="server" AppendDataBoundItems="true" DataTextField="TituloInfo" DataValueField="CveContrato" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-1 truncate" title="Aseguradora:" data-toggle="tooltip" data-placement="top">
+                            Aseguradora:
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlAseguradora" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todo" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Aseguradora" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No Aseguradora" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
 
                 </div>
@@ -386,11 +415,12 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
                 EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-rows="2" GridLines="None" AllowPaging="False" >
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-rows="2" GridLines="None" AllowPaging="False">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Grupo
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("GPO") %>'></asp:Literal>
@@ -402,6 +432,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             Código Cliente
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlCodigoCl" runat="server" Text='<%# Eval("CodigoCliente") %>'></asp:Literal>
@@ -413,6 +444,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             Nombre Corto
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlNombreCorto" runat="server" Text='<%# Eval("NombreCorto") %>'></asp:Literal>
@@ -423,6 +455,7 @@
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Saldo
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink CssClass="Texto" ID="HplSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:HyperLink>
@@ -494,6 +527,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             Ventas
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink CssClass="Texto" ID="LtlVentas" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:HyperLink>
@@ -503,6 +537,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             Saldo
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink CssClass="Texto" ID="LtlSaldo1" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:HyperLink>
@@ -512,6 +547,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             Resta
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink CssClass="Texto" ID="LtlVentasRecuperado" runat="server"></asp:HyperLink>
@@ -521,6 +557,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             % Recup.
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink CssClass="Texto" ID="LtlPorRecuperado" runat="server"></asp:HyperLink>
@@ -530,6 +567,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             % X Recup.
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink CssClass="Texto" ID="LtlPorPorRecuperar" runat="server"></asp:HyperLink>
@@ -539,6 +577,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             SubTotal Pend
+                        
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Label CssClass="TextoGris" ID="LtlSubtotalP" runat="server" Text='<%# Eval("SubtotalPendiente", "{0:N2}") %>'></asp:Label>
@@ -548,6 +587,7 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             IVA Pend
+                       
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Label CssClass="TextoGris" ID="LtlIVAP" runat="server" Text='<%# Eval("IVAPendiente", "{0:N2}") %>'></asp:Label>
@@ -557,12 +597,23 @@
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             IEPS Pend
+                        
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Label CssClass="TextoGris" ID="LtlIEPSP" runat="server" Text='<%# Eval("IEPSPendiente", "{0:N2}") %>'></asp:Label>
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <HeaderTemplate>
+                            Límite de Crédito
+    
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Label CssClass="TextoGris" ID="LtlLimiteCredito" runat="server" Text='<%# Eval("LimiteCredito", "{0:N2}") %>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
@@ -599,6 +650,9 @@
                             <br />
                             <asp:CheckBox ID="ChkIEPSP" runat="server" Text="" Checked="False" />
                             <label for="ChkNombreCorto">IEPS Pendiente </label>
+                             <br />
+                            <asp:CheckBox ID="ChkLimiteCredito" runat="server" Text="" Checked="False" />
+                            <label for="ChkLimiteCredito">Límite de Crédito </label>
 
                         </div>
                         <div class="modal-footer">
@@ -726,6 +780,7 @@
                                     </div>
 
                                     </div>
+                               
                                 </ContentTemplate>
                             </asp:UpdatePanel>
                             <div class="modal-footer">
@@ -762,6 +817,7 @@
 
                                     <div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">
                                         Especifico:
+                            
                                         <asp:TextBox ID="TxtEspecifico" runat="server" Width="55px" />
                                     </div>
                                 </ContentTemplate>

CxC/RepCxC.aspx.vb

@@ -241,7 +241,8 @@ Partial Class RepCxC
                             "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
                             If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero,
                             CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                            TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(), CveContrato:=DdlContrato.SelectedValue.ToEntero()) Then
+                            TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(), CveContrato:=DdlContrato.SelectedValue.ToEntero(),
+                            Aseguradora:=DdlAseguradora.SelectedValue.ToEntero) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
@@ -393,6 +394,7 @@ Partial Class RepCxC
                 e.Row.CssClass = "Totales"
                 e.Row.Cells(3).BackColor = Drawing.Color.Transparent
                 e.Row.Cells(13).BackColor = Drawing.Color.Transparent
+                e.Row.Cells(22).Text = ""
             End If
             If e.Row.RowIndex = 1 Then
                 e.Row.Cells(0).Width = Unit.Pixel(295)
@@ -420,53 +422,53 @@ Partial Class RepCxC
                 End If
             End If
 
-            Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente{26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente{26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
-            Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}",
+            Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}&CveContrato={29}&Aseguradora={30}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, 1, DdlTieneLineaAdicional.SelectedValue.ToEntero(), e.Row.DBCampo("CveContrato"), DdlAseguradora.SelectedValue.ToEntero)
 
             e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot
 
@@ -662,6 +664,7 @@ Partial Class RepCxC
         ActivaColumna(19, ChkSubTotalP.Checked)
         ActivaColumna(20, ChkIVAP.Checked)
         ActivaColumna(21, ChkIEPSP.Checked)
+        ActivaColumna(22, ChkLimiteCredito.Checked)
 
         If SePersonalizo = 1 Then
             ImgExcelPersonalizado.Visible = True

CxC/RepCxCDetalle.aspx

@@ -331,6 +331,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top" id="divLineaAdicional1" runat="server" visible="false">
                             Linea Adicional:
+                       
                         </div>
                         <div class="col-md-2" id="divLineaAdicional2" runat="server" visible="false">
                             <asp:DropDownList ID="DdlTieneLineaAdicional" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
@@ -339,14 +340,25 @@
                                 <asp:ListItem Text="Sin lineas adicionales" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1 truncate" title="Contrato:" data-toggle="tooltip" data-placement="top" id="divContrato1" visible="false" runat="server" >
+                        <div class="col-md-1 truncate" title="Contrato:" data-toggle="tooltip" data-placement="top" id="divContrato1" visible="false" runat="server">
                             Contrato:
+                       
                         </div>
-                        <div class="col-md-2" runat="server" id="divContrato" visible="false" >
+                        <div class="col-md-2" runat="server" id="divContrato" visible="false">
                             <asp:DropDownList ID="DdlContrato" runat="server" AppendDataBoundItems="true" DataTextField="TituloInfo" DataValueField="CveContrato" Width="100%" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-1 truncate" title="Aseguradora:" data-toggle="tooltip" data-placement="top">
+                            Aseguradora:
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlAseguradora" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todo" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Aseguradora" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No Aseguradora" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
 
 
@@ -458,6 +470,8 @@
                                     <cc1:TimeSelector ID="TimeSelector" runat="server" DisplaySeconds="false" DisplayButtons="false">
                                     </cc1:TimeSelector>
                                 </div>
+
+
                             </div>
 
                             <div class="row" style="text-align: center; margin-top: 10px;">

CxC/RepCxCDetalle.aspx.vb

@@ -431,6 +431,7 @@ Partial Class RepCxCDetalle
             CargaContratos()
         End If
         DdlContrato.SelectedValueExist(If(Request("CveContrato") IsNot Nothing, Request("CveContrato").ToString, "-1").ToString)
+        DdlAseguradora.SelectedValueExist(If(Request("Aseguradora") IsNot Nothing, Request("Aseguradora").ToString, "-1").ToString)
 
     End Sub
     Private Sub CargaContratos()
@@ -475,7 +476,7 @@ Partial Class RepCxCDetalle
                                    FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero,
                                    CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
                                    CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(),
-                                   CveContrato:=DdlContrato.SelectedValue.ToEntero) Then
+                                   CveContrato:=DdlContrato.SelectedValue.ToEntero, Aseguradora:=DdlAseguradora.SelectedValue.ToEntero) Then
 
             GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0)
 

Inventarios/Kardex.aspx

@@ -388,6 +388,19 @@
                         </div>
                     </div>
                 </div>
+                <div class="col-md-2 col-sm-3 col-xs-6" id="DivIndicadorOC" visible="false" runat="server">
+                    <div class="widget-thumb text-uppercase  bordered">
+                        <h4 class="widget-thumb-heading">OC</h4>
+                        <div class="widget-thumb-wrap">
+                            <i class="widget-thumb-icon bg-yellow fa fa-cubes"></i>
+                            <div class="widget-thumb-body">
+                                <span class="widget-thumb-body-stat">
+                                    <asp:LinkButton ID="LnkIndicador_OC" Text="" OnClick="LnkIndicador_OC_Click" runat="server" />
+                                </span>
+                            </div>
+                        </div>
+                    </div>
+                </div>
             </div>
             <div class="row">
                 <div class="col-md-12">
@@ -514,6 +527,41 @@
             <asp:AsyncPostBackTrigger ControlID="btConsultar" EventName="Click" />
         </Triggers>
     </asp:UpdatePanel>
+    <div id="ModalOC" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalOC" UpdateMode="Conditional" RenderMode="Inline" style="width: 50%">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal3" Text="OC Pendientes X Recibir" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row" style="width: 100%">
+                                <asp:GridView ID="GvOC" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
+                                    ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None"
+                                    DataKeyNames="CveOrdenCompra,CveOrdenCompraDetalle,Fecha,Folio,CantidadPendienteVincular">
+                                    <Columns>
+                                        <asp:BoundField HeaderText="Folio" DataField="Folio" />
+                                        <asp:BoundField HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" DataField="Fecha" />
+                                        <asp:BoundField HeaderText="Cantidad" DataField="CantidadPendienteVincular" DataFormatString="{0:#,###}" ItemStyle-HorizontalAlign="Right" />
+                                        <asp:TemplateField HeaderText="Cancelar" ItemStyle-HorizontalAlign="Center" >
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkCancelarOCDetalle" OnClick="LnkCancelarOCDetalle_Click" runat="server" AlternateText="Editar" CausesValidation="False"
+                                                    data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar la partida?" data-btn-ok-label="si" 
+                                                    CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <button type="button" class="btn btn-primary" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
     <div id="ModalTiposAlmacen" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpTiposAlmacen" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
             <ContentTemplate>

Inventarios/Kardex.aspx.vb

@@ -31,6 +31,7 @@ Partial Class Inventarios_Kardex
         End Set
     End Property
 
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -315,6 +316,11 @@ Partial Class Inventarios_Kardex
                         LtIndicador_MensajeSerie.Text = ""
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                        CargarOCPendientesCompra()
+                        DivIndicadorOC.Visible = True
+                    End If
+
                     UpIndicadores.Update()
 
                     GvM.Attributes.Add("data-heighterror", "430")
@@ -330,6 +336,17 @@ Partial Class Inventarios_Kardex
         End If
     End Sub
 
+    Private Sub CargarOCPendientesCompra()
+        Dim ObjOC As New ClsOC
+        If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvOC.DataSource = ObjOC.DtResultados.Copy
+            LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
+        End If
+        ObjOC.Dispose()
+        GvOC.DataBind()
+        UpModalOC.Update()
+    End Sub
+
     Private Function CargarKardex(CvePS As Integer) As DataTable
         Dim dt As DataTable = Nothing
 
@@ -713,4 +730,29 @@ Partial Class Inventarios_Kardex
         Return CvePSRespuesta
 
     End Function
+
+    Protected Sub LnkIndicador_OC_Click(sender As Object, e As EventArgs)
+        UpModalOC.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "ModalOC"))
+    End Sub
+
+    Protected Sub LnkCancelarOCDetalle_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
+
+        Dim CveOrdenCompraDetalle As Integer = GvRow.DataKey("CveOrdenCompraDetalle").ToEntero
+        Dim NuevaCantidad As Decimal = GvRow.DataKey("CantidadPendienteVincular").ToDecimal
+
+        If CveOrdenCompraDetalle <= 0 Then
+            Exit Sub
+        End If
+
+        Dim ObjOC As New ClsOC
+        If ObjOC.CancelarPartidaPendiente(CveOrdenCompraDetalle, NuevaCantidad, UsuarioActual.CveEmpresa) Then
+            CargarOCPendientesCompra()
+            Alert("La partida se cancelo correctamente.")
+        End If
+
+        ObjOC.Dispose()
+        UpIndicadores.Update()
+    End Sub
 End Class

Ventas/CatClientes.aspx

@@ -6,7 +6,8 @@
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
     <li>
-        <asp:HyperLink runat="server" NavigateUrl="/Ventas/Clientes.aspx"> <i class="fa fa-user-plus"></i> Agregar</asp:HyperLink> <%--fa fa-users--%>
+        <asp:HyperLink runat="server" NavigateUrl="/Ventas/Clientes.aspx"> <i class="fa fa-user-plus"></i> Agregar</asp:HyperLink>
+        <%--fa fa-users--%>
     </li>
     <li>
         <asp:LinkButton ID="LinkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
@@ -42,17 +43,17 @@
                     <div class="titlefiltros  caption ">
                         <div class="row" style="height: 32px;">
 
-                            <div class="col-md-1 truncate" >Nombre:</div>
+                            <div class="col-md-1 truncate">Nombre:</div>
                             <div class="col-md-2  truncate" style="max-width: 283px!important">
                                 <asp:TextBox ID="TxtNombre" runat="server" Style="display: inline-block;" CssClass="  form-control input-sm select2me" CausesValidation="true" MaxLength="30" ValidationGroup="GrpFiltrar" Width="100%"></asp:TextBox>
                             </div>
 
-                            <div class="col-md-1  truncate" >RFC:</div>
+                            <div class="col-md-1  truncate">RFC:</div>
                             <div class=" col-md-2  truncate" style="max-width: 283px!important">
                                 <asp:TextBox ID="TxtRFC" runat="server" Style="display: inline-block;" CssClass=" form-control  input-sm select2me" CausesValidation="true" MaxLength="40" ValidationGroup="GrpFiltrar" Width="100%"></asp:TextBox>
                             </div>
 
-                            <div class="col-md-1  truncate" >Estatus:</div>
+                            <div class="col-md-1  truncate">Estatus:</div>
                             <div class=" col-md-1  truncate" style="max-width: 283px!important">
                                 <asp:DropDownList ID="DdlEstatus" runat="server" CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
                                     <asp:ListItem Value="-1">Todos</asp:ListItem>
@@ -83,17 +84,17 @@
 
                 <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                     <div class="row">
-                        <div class="col-md-1  truncate" >Sucursal:</div>
+                        <div class="col-md-1  truncate">Sucursal:</div>
                         <div class=" col-md-2  truncate" style="max-width: 283px!important">
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" DataValueField="CveSubProyecto" DataTextField="SubProyecto" CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1  truncate" >Clasificación:</div>
+                        <div class="col-md-1  truncate">Clasificación:</div>
                         <div class=" col-md-2  truncate" style="max-width: 283px!important">
                             <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1  truncate" >Tipo:</div>
+                        <div class="col-md-1  truncate">Tipo:</div>
                         <div class=" col-md-1   truncate" style="max-width: 283px!important">
                             <asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
                                 <asp:ListItem Value="-1">Todos</asp:ListItem>
@@ -102,7 +103,7 @@
                             </asp:DropDownList>
                         </div>
 
-                        <div class="col-md-1 truncate" >
+                        <div class="col-md-1 truncate">
                             Vendedor:
                         </div>
                         <div class="col-md-2  truncate" style="max-width: 283px!important">
@@ -110,9 +111,11 @@
                             </asp:DropDownList>
                         </div>
 
+
+
                     </div>
                     <div class="row" id="divfiltro2" runat="server" visible="false">
-                        <div class="col-md-1  truncate" >En Demanda:</div>
+                        <div class="col-md-1  truncate">En Demanda:</div>
                         <div class=" col-md-2  truncate" style="max-width: 283px!important">
                             <asp:DropDownList ID="DDlEnDemanda" runat="server" CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
                                 <asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
@@ -120,7 +123,7 @@
                                 <asp:ListItem Value="2">No en Demanda</asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1  truncate" >En Quebranto:</div>
+                        <div class="col-md-1  truncate">En Quebranto:</div>
                         <div class=" col-md-2  truncate" style="max-width: 283px!important">
                             <asp:DropDownList ID="DdlEnQuebranto" runat="server" CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
                                 <asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
@@ -129,6 +132,20 @@
                             </asp:DropDownList>
                         </div>
                     </div>
+
+                    <div class="row">
+                        <div class="col-md-1 truncate" title="Aseguradora:" data-toggle="tooltip" data-placement="top">
+                            Aseguradora:
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlAseguradora" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todo" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Aseguradora" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No Aseguradora" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+
                 </div>
             </div>
 

Ventas/CatClientes.aspx.vb

@@ -47,7 +47,7 @@ Partial Class CatClientes
         If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero,
                                     PermiteCreditoFiltro:=DdlPermiteCredito.SelectedValue.ToEntero,
                                     EnDemanda:=DDlEnDemanda.SelectedValue.ToEntero,
-                                    EnQuebranto:=DdlEnQuebranto.SelectedValue.ToEntero) Then
+                                    EnQuebranto:=DdlEnQuebranto.SelectedValue.ToEntero, Aseguradora:=DdlAseguradora.SelectedValue.ToEntero) Then
 
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 DTDatos = ObjClientes.DtResultados