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

Promociones modal ajustes estilos

Browse Source
This commit is contained in:
rakcsle
2023-10-10 11:17:52 -07:00
parent 0b18ec7ba1
commit 746a72773d
3 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Compras/Compras.aspx.vb
View File

@@ -2221,7 +2221,7 @@ Partial Class Compras_Compras
ChkIEPS.Visible = True
ChkIEPS.Checked = True
DdlConceptoIEPS.Visible = True
CargaProductos(DdlConceptoIEPS, If(UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero, -1), If(IVATemp > 0, False, True))
CargaProductos(DdlConceptoIEPS, If(UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero, -1), True)
LbImporte.Text = "$" + TrasladoIEPS.ToString
End If
@@ -18173,12 +18173,13 @@ Partial Class Compras_Compras
' If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero
If CvePS = -2 Then 'opción Incluir en producto
For Each Dr As DataRow In TmpDT.Rows
Dr("PU") = ((Dr("IEPSPS").ToString.ToDecimal / Dr("Cantidad").ToString.ToDecimal) + Dr("Pu").ToString.ToDecimal).RoundSQL(6)
Dr("IEPSPS") = 0
Dr("IEPSPSPorcentaje") = 0
Dr("Total") = (Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal - Dr("Descuento").ToString.ToDecimal)
If Dr("").ToString.ToDecimal = 0 Then
Dr("PU") = ((Dr("IEPSPS").ToString.ToDecimal / Dr("Cantidad").ToString.ToDecimal) + Dr("Pu").ToString.ToDecimal).RoundSQL(6)
Dr("IEPSPS") = 0
Dr("IEPSPSPorcentaje") = 0
Dr("Total") = (Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal - Dr("Descuento").ToString.ToDecimal)
End If
Next
CalculaTotales(True)