ventas, considerar en actualziar el recalculo de ieps

App_Code/Modelos.vb

@@ -4001,7 +4001,7 @@ Namespace Modelos
                                     End If
                                 End If
                             Else
-                                Retorno.Mensaje = "No se pudo comprobar la vigencia de la factura."
+                                Retorno.Mensaje = "SAT - No se pudo verificar el estatus de la factura."
                                 Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
 
                                 Return Retorno

Inventarios/RecepcionUsados.aspx.vb

@@ -1086,7 +1086,7 @@ Partial Class Inventarios_RecepcionUsados
                             'si es selectedvalue = 2, es entrada ,3 -salida
                             Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 2, 1, 2)
 
-                                If RBLOpcion.SelectedValue.ToEntero = 2 AndAlso EsDistribuidor Then
+                            If RBLOpcion.SelectedValue.ToEntero = 2 AndAlso EsDistribuidor Then
 
                                 If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
                                                 UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
@@ -1096,7 +1096,7 @@ Partial Class Inventarios_RecepcionUsados
                                 End If
 
                             End If
-                            Next
+                        Next
 
                             If Not ErrorMovInv Then
 
@@ -1646,7 +1646,7 @@ Partial Class Inventarios_RecepcionUsados
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
     Private Sub InicializaClientes()
 
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) '.FiltraParametros("EsDistribuidor = 1")
+        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros("EsDistribuidor = 1")
         DdlClientes.DataBind()
         DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClientes.SelectedValue = "-1"

Ventas/Clientes.aspx.vb

@@ -9199,7 +9199,7 @@ Partial Class Clientes
         Dim Serie As String = ""
 
         If FolioNotaCredito(Tipo) Then
-            Folio = FolioNotaAcumulador
+            Folio = -1
             Serie = SerieNotaAcumulador
         End If
 
@@ -9305,9 +9305,9 @@ Partial Class Clientes
         End If
 
         ObjFactura.FechaEjecucion = Now
-        ObjFactura.CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
+        ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
-        ObjFactura.CveSubProyectoCobranza = DdlSubProyecto.SelectedValue.ToEntero
+        ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
-        ObjFactura.CveSubProyectoEjecucion = DdlSubProyecto.SelectedValue.ToEntero
+        ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
         ObjFactura.AtencionA = "-1"
         ObjFactura.MotivoDescuento = ""
         ObjFactura.Observaciones = ""

Ventas/Ventas.aspx.vb

@@ -5897,6 +5897,8 @@ Partial Class Ventas
             End If
 
             Dim TotalCalculableImpuestos As Decimal = ((Cantidad * PU) - (Descuento))
+            Dim TotalCalculableImpuestosIVA As Decimal = 0
+            TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("IEPSPorcentaje").ToString.ToDecimal)
 
 
             TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero
@@ -5907,7 +5909,7 @@ Partial Class Ventas
             TmpDT.Rows(e.RowIndex)("PU") = PU
             TmpDT.Rows(e.RowIndex)("Descuento") = Descuento
             TmpDT.Rows(e.RowIndex)("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
-            TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+            TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
             TmpDT.Rows(e.RowIndex)("ImporteIEPS") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
             TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
             TmpDT.Rows(e.RowIndex)("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)

packages.config

@@ -3,12 +3,15 @@
   <package id="AjaxControlToolkit" version="15.1.4.0" targetFramework="net4" />
   <package id="AjaxControlToolkit.StaticResources" version="15.1.4.0" targetFramework="net4" />
   <package id="Antlr" version="3.4.1.9004" targetFramework="net4" />
+  <package id="log4net" version="1.2.10" targetFramework="net45" />
   <package id="Microsoft.AspNet.Web.Optimization" version="1.1.3" targetFramework="net4" />
   <package id="Microsoft.Bcl" version="1.1.9" targetFramework="net40" />
   <package id="Microsoft.Bcl.Async" version="1.0.168" targetFramework="net40" />
   <package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net40" />
   <package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net45" />
   <package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net4" />
+  <package id="Microsoft.ReportViewer.Common.v12" version="12.0.0.1" targetFramework="net45" />
+  <package id="Microsoft.ReportViewer.WebForms.v12" version="12.0.0.0" targetFramework="net45" />
   <package id="Microsoft.SqlServer.Types" version="14.0.1016.290" targetFramework="net45" />
   <package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net4" />
   <package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net4" />