aplica anticipos pagados E72,E80

CxC/RepCxC.aspx

@@ -335,6 +335,9 @@
                                 <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-2">
+                            <asp:CheckBox ID="ChkAnticipos" runat="server" Text="Incluye Anticipos" TextAlign="Left" Visible="false" />
+                            </div>
 
                     </div>
 

CxC/RepCxC.aspx.vb

@@ -105,6 +105,7 @@ Partial Class RepCxC
             CargaCombos()
             CargaGvPersonalizarRaqngoColumnas()
             CargaDatos()
+            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then ChkAnticipos.visible = True
             ActivaEnviarEstadoCuenta()
             If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True
             CreaDataTableColor()
@@ -195,12 +196,14 @@ Partial Class RepCxC
         CveCobranzaEstatus = DdlCobranzaEstatus.SelectedValue.ToEntero
         CveClienteClasificacion = DdlClienteClasificacion.SelectedValue.ToEntero
         Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
+        Dim AplicaAnticipos As Integer = If(ChkAnticipos.checked, 1, 0)
+
 
         If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
                             "-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) Then
+                            TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=AplicaAnticipos) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados