AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-05-26 12:59:18 -07:00
parent 389d81290a 592b1c61d5
commit 5b3d5332f1
2 changed files with 65 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Compras/Compras.aspx.vb
View File

@@ -4565,7 +4565,7 @@ Partial Class Compras_Compras
Exit Sub Exit Sub
End If End If
'If Not AjustaIva() Then 'If Not AjustaIVA() Then
' Exit Sub ' Exit Sub
'End If 'End If
@@ -8046,7 +8046,7 @@ Partial Class Compras_Compras
Dim IVADetalles As Decimal = TmpDT.SUMD("IVA", " IVA > 0 ") Dim IVADetalles As Decimal = TmpDT.SUMD("IVA", " IVA > 0 ")
Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
If Math.Abs(DiferenciaIVas) > 0 Then
If Math.Abs(DiferenciaIVas) > 0.05 Then If Math.Abs(DiferenciaIVas) > 0.05 Then
Dim DTConsulta As New DataTable Dim DTConsulta As New DataTable
@@ -8118,6 +8118,7 @@ Partial Class Compras_Compras
Alert("existe una diferencia de más de 0.05 entre el IVA de la compra y los detalles.", TipoMensaje.MsgAdvertencia) Alert("existe una diferencia de más de 0.05 entre el IVA de la compra y los detalles.", TipoMensaje.MsgAdvertencia)
Respuesta = False Respuesta = False
End If End If
End If
Return Respuesta Return Respuesta
@@ -20356,6 +20357,7 @@ Partial Class Compras_Compras
dRow91_5("RetISR") = dRow91_5("RetISR").ToString.ToDecimal * Mul91_5 dRow91_5("RetISR") = dRow91_5("RetISR").ToString.ToDecimal * Mul91_5
dRow91_5("IEPSPS") = dRow91_5("IEPSPS").ToString.ToDecimal * Mul91_5 dRow91_5("IEPSPS") = dRow91_5("IEPSPS").ToString.ToDecimal * Mul91_5
dRow91_5("IEPSPSIVA") = dRow91_5("IEPSPSIVA").ToString.ToDecimal * Mul91_5 dRow91_5("IEPSPSIVA") = dRow91_5("IEPSPSIVA").ToString.ToDecimal * Mul91_5
dRow91_5("Descuento") = dRow91_5("Descuento").ToString.ToDecimal * Mul91_5
dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5 dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5
dRow91_5("NoDeducible") = 1 dRow91_5("NoDeducible") = 1
@@ -20367,6 +20369,7 @@ Partial Class Compras_Compras
dRow8_5("RetISR") = dRow8_5("RetISR").ToString.ToDecimal * Mul85 dRow8_5("RetISR") = dRow8_5("RetISR").ToString.ToDecimal * Mul85
dRow8_5("IEPSPS") = dRow8_5("IEPSPS").ToString.ToDecimal * Mul85 dRow8_5("IEPSPS") = dRow8_5("IEPSPS").ToString.ToDecimal * Mul85
dRow8_5("IEPSPSIVA") = dRow8_5("IEPSPSIVA").ToString.ToDecimal * Mul85 dRow8_5("IEPSPSIVA") = dRow8_5("IEPSPSIVA").ToString.ToDecimal * Mul85
dRow8_5("Descuento") = dRow8_5("Descuento").ToString.ToDecimal * Mul85
dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85 dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85
dRow8_5("NoDeducible") = 0 dRow8_5("NoDeducible") = 0

2
Ventas/Clientes.aspx.vb
View File

@@ -3979,8 +3979,6 @@ Partial Class Clientes
End If End If
End If End If
End If End If
Return Respuesta Return Respuesta