diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 8d840b5a5..e0a88a441 100644
--- a/App_Code/Modelos.vb
+++ b/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
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 269c53936..7fe120eaa 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/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"
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index c2751d5d1..54de8ab19 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/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.CveSubProyectoCobranza = DdlSubProyecto.SelectedValue.ToEntero
- ObjFactura.CveSubProyectoEjecucion = DdlSubProyecto.SelectedValue.ToEntero
+ ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
+ ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
+ ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
ObjFactura.AtencionA = "-1"
ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = ""
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 3079f5ad9..15fbafaec 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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)
diff --git a/packages.config b/packages.config
index 745b27f24..c1f65a236 100644
--- a/packages.config
+++ b/packages.config
@@ -3,12 +3,15 @@
+
+
+