App_Code/ClsAF.vb

@@ -2604,7 +2604,7 @@ Public Class ClsAF
             .Add("@FechaVF", SqlDbType.DateTime).Value = FechaVF
             .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveCliente", SqlDbType.Int).Value = Estatus
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
         End With
         Try
             SqlAdapter.Fill(Data)

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
@@ -274,6 +274,7 @@ Public Class ClsMovimientos
             .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .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
@@ -365,7 +366,7 @@ Public Class ClsMovimientos
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
-
+            .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
         End With
 
         Try

Bancos/DepositosCaja.aspx.vb

@@ -157,7 +157,6 @@ Partial Class Bancos_DepositosCaja
         Dim imprimirFolios As String = ""
         Dim CveSubProyectoIntermediario As Integer = -1
         Dim CveClasificacionIntermediario As Integer = -1
-        Dim CveProveedorIntermediario As Integer = -1
 
         If drOrigen IsNot Nothing Then
             CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
@@ -230,12 +229,27 @@ Partial Class Bancos_DepositosCaja
                 CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
                 CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
                     OcurrioError = True
                 End If
             End If
 
+            If 1 = 1 Then
 
+                    CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
+                    CveSubProyectoIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
+
+                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+                        OcurrioError = True
+                    End If
+
+                    If IVA <> 0 Then
+                        If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, DdlClasificacionIntermediario.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=IVA, CveCuenta:=CveCuentaBancariaOrigen, PorcentajeImpuesto:=0.16D) Then
+                            OcurrioError = True
+                        End If
+                    End If
+
+                End If
 
             Else
                 OcurrioError = True

Contabilidad/RegPrePolizaS.aspx.vb

@@ -735,7 +735,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             dr("CvePersonal") = drt("CvePersonal")
             dr("CveClasificacion") = -1
             dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
-            dr("FolioPoliza") = drt("FolioPoliza")
+            'dr("FolioPoliza") = 0 'drt("FolioPoliza")
 
             DtMovimientos.Rows.Add(dr)
         Next

Contratos/ContratoObra.aspx.vb

@@ -1680,8 +1680,8 @@ Partial Class Contratos_ContratoObra
                 ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True
             End If
             If Autorizado Then
-                e.Row.FCLinkButton("imgE").Visible = False
+                ' e.Row.FCLinkButton("imgE").Visible = False
-                e.Row.FCLinkButton("imgD").Visible = False
+                'e.Row.FCLinkButton("imgD").Visible = False
             End If
             If CveTipoContrato = 25 Then
                 e.Row.Cells(1).Width = Unit.Pixel(10)
@@ -2044,8 +2044,8 @@ Partial Class Contratos_ContratoObra
                 ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True
             End If
             If Autorizado Then
-                e.Row.FCLinkButton("imgE").Visible = False
+                'e.Row.FCLinkButton("imgE").Visible = False
-                e.Row.FCLinkButton("imgD").Visible = False
+                'e.Row.FCLinkButton("imgD").Visible = False
             End If
 
         End If

Contratos/FacturacionMasiva.aspx.vb

@@ -566,16 +566,21 @@ Partial Class Contratos_FacturacionMasiva
             DtR("Cantidad") = row("CantidadContratada")
             DtR("CveUM") = row("CveUM")
             DtR("UM") = row("UM")
-            DtR("SATClaveUM") = row("SATClaveUnidadMedida")
+
+            DtR("SATClaveUM") = row("SATClaveUM")
             DtR("CveClasificacion") = row("CveClasificacion")
             DtR("Clasificacion") = row("Clasificacion")
             DtR("CvePS") = row("CvePS")
             DtR("PS") = row("PS")
             DtR("CodigoPS") = row("CodigoPS")
-            DtR("SATClaveProdServ") = row("SATClavePS")
+
+            DtR("SATClaveProdServ") = row("SATClaveProdServ")
+
             DtR("NoIdentificacion") = row("NoIdentificacion")
+
             DtR("CveTipoPS") = drPS("CveTipoPS")
             DtR("CveTipoInvPS") = drPS("Inv_CveMetodoInventario")
+
             DtR("Obs") = TxtObservaciones.Text + " " + row("Observacion").ToString
             DtR("PU") = row("PU")
             DtR("IVA") = row("PorcentajeIVA")

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