diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 74bee1337..19f9b146a 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4587,8 +4587,11 @@
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 0de0ae587..6cbf1dc99 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1617,6 +1617,11 @@ Partial Class Compras_Compras
DdlTipoGastoAsignar.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGastoAsignar.DataBind()
UpParametros.Update()
+
+ If UsuarioActual.CveRol = 1 Then
+ ChkAliasFlexible.Visible = True
+ End If
+
End Sub
Private Sub CargaGvAcarreos(tCveProveedor As Integer)
@@ -5962,10 +5967,6 @@ Partial Class Compras_Compras
End If
End If
-
-
-
-
End If
If TipoCambioCompra > 1 AndAlso DdlMoneda.SelectedValue.ToEntero <> 1 Then Concepto += $" TC{TipoCambioCompra} ${importeMovimiento.FormatoNumero(2)}"
@@ -6062,7 +6063,7 @@ Partial Class Compras_Compras
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
Case 14 'IVA X Acreditar
importeMovimiento = importeIVAxAcreditar
- importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+ importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
PorcentajeImpuesto = PorcentajeIVA
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
@@ -6382,30 +6383,30 @@ Partial Class Compras_Compras
Else
importeMovimiento = 0
End If
- Case 285 'Ret IVA 6% Servicios
+ 'Case 285 'Ret IVA 6% Servicios
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
+ ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
- 'If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
- ' If ObjConta.DtResultados.Rows.Count > 0 Then
- ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- ' End If
- 'End If
+ ' 'If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ ' ' If ObjConta.DtResultados.Rows.Count > 0 Then
+ ' ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ ' ' End If
+ ' 'End If
- If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
+ ' If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
- If CveMoneda = 2 Then
- importeMN = TxtRetIVA.Text.ToDecimal * TxtTC.Text.ToDecimal
- Else
- importeMN = TxtRetIVA.Text.ToDecimal
- importeMovimiento = TxtRetIVA.Text.ToDecimal
+ ' If CveMoneda = 2 Then
+ ' importeMN = TxtRetIVA.Text.ToDecimal * TxtTC.Text.ToDecimal
+ ' Else
+ ' importeMN = TxtRetIVA.Text.ToDecimal
+ ' importeMovimiento = TxtRetIVA.Text.ToDecimal
- End If
+ ' End If
- Else
- importeMovimiento = 0
- End If
+ ' Else
+ ' importeMovimiento = 0
+ ' End If
Case 6 'Compra
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
@@ -8446,7 +8447,7 @@ Partial Class Compras_Compras
Dim Respuesta As Boolean = False
- Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+ Dim IVADetalles As Decimal = TmpDT.SUMD("IVA", " IVA > 0 ")
Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
@@ -8459,8 +8460,9 @@ Partial Class Compras_Compras
End If
For Each dRow As DataRow In TmpDT.Rows
- If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows.Count > 0 Then
- Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows(0)
+ Dim DttPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero)
+ If DttPS.Rows.Count > 0 Then
+ Dim DrPS As DataRow = DttPS.Rows(0)
dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString)
dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString)
Else
@@ -8486,7 +8488,7 @@ Partial Class Compras_Compras
IndiceContador = IndiceContador + 1
Next
- IVADetalles = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+ IVADetalles = TmpDT.SUMD("IVA", " IVA > 0 ")
DiferenciaIVas = TxtIVA.Text.ToDecimal - IVADetalles
If Math.Abs(DiferenciaIVas) > 0.01D Then
@@ -8506,21 +8508,16 @@ Partial Class Compras_Compras
TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
End If
-
-
TmpDT.AcceptChanges()
End If
End If
-
'Revalidacion de ajuste
- IVADetalles = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+ IVADetalles = TmpDT.SUMD("IVA", " IVA > 0 ")
DiferenciaIVas = TxtIVA.Text.ToDecimal - IVADetalles
-
-
If Math.Abs(DiferenciaIVas) > 0.01D Then
Respuesta = False
If IVADetalles > 0 Then
@@ -8542,8 +8539,6 @@ Partial Class Compras_Compras
Respuesta = True
End If
-
-
If Respuesta Then
Dim IEPSPSDetalles As Decimal = TmpDT.SUMD("IEPSPS", " IEPSPS > 0 ")
@@ -8552,11 +8547,9 @@ Partial Class Compras_Compras
Dim DTConsultaIEPSPS As New DataTable
DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'")
-
Dim IndiceContador As Integer = 0
Dim IndicePrimero As Integer = 0
-
For Each dRow As DataRow In TmpDT.Rows
If Boolean.Parse(dRow("AplicaIEPS").ToString) Then
IndicePrimero = IndiceContador
@@ -8590,12 +8583,6 @@ Partial Class Compras_Compras
End If
-
-
-
-
-
-
Return Respuesta
End Function
@@ -18686,8 +18673,8 @@ Partial Class Compras_Compras
End If
- If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then
- GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
+ If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario, ChkAliasFlexible.Checked) Then
+ GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = PS.DtResultados
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("PS") = tPS
@@ -20954,6 +20941,10 @@ Partial Class Compras_Compras
UpFacturaNC.Update()
UpMostrarTodos.Update()
End Sub
+
+ Private Sub ChkAliasFlexible_CheckedChanged(sender As Object, e As EventArgs) Handles ChkAliasFlexible.CheckedChanged
+ TxtPSAlias.Enabled = ChkAliasFlexible.Checked
+ End Sub
End Class
Public Class MMensajeDevolucion
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index da6216dcc..bae47738f 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -1403,7 +1403,7 @@
-
+
@@ -1411,6 +1411,12 @@
+
+
+
+
+
+