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

-- condicion de desglosaieps

Browse Source
This commit is contained in:
rrene
2022-02-23 07:28:54 -07:00
parent 2d9df6a688
commit d01254cd6e
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/Modelos.vb
View File

@@ -394,9 +394,14 @@ 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
If ObjVentas.GetVentaDetalle(CveVenta) Then If ObjVentas.GetVentaDetalle(CveVenta) Then
Me.DtDetalle = ObjVentas.DtResultados.Copy() Me.DtDetalle = ObjVentas.DtResultados.Copy()
End If End If