-- condicion de desglosaieps

This commit is contained in:
2022-02-23 07:28:54 -07:00
parent 2d9df6a688
commit d01254cd6e

View File

@@ -394,6 +394,11 @@ Namespace Modelos
SetSubProyecto() SetSubProyecto()
SetSubProyectoMatriz() SetSubProyectoMatriz()
SetCliente() SetCliente()
If ObjVentas.DtResultados.Rows(0)("IEPS").ToString.ToDecimal <= 0 Then
Me.VentaDesglosaIEPS = False
Else
Me.VentaDesglosaIEPS = True
End If
SetTotales(ObjVentas.DtResultados, ObjVentas) SetTotales(ObjVentas.DtResultados, ObjVentas)
End If End If
End If End If