aplica anticipos pagados E72,E80

App_Code/ClsMovimientos.vb

@@ -241,7 +241,7 @@ Public Class ClsMovimientos
                            Gpo As Integer, CveResponsable As Integer,
                            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) As Boolean
+                           Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean
 
         Dim Retorno As Boolean = False
         'Data = New DataTable
@@ -273,7 +273,8 @@ Public Class ClsMovimientos
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
-            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
         End With
 
         Try
@@ -324,7 +325,7 @@ Public Class ClsMovimientos
                                   CveResponsable As Integer, 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 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) As Boolean
+                                  Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean
 
         Dim Retorno As Boolean = False
         'Data = New DataTable
@@ -364,8 +365,8 @@ Public Class ClsMovimientos
             .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
+            .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
-
+            .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
         End With
 
         Try

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