This commit is contained in:
2024-06-05 14:05:53 -07:00
27 changed files with 1823 additions and 1321 deletions

View File

@@ -230,6 +230,13 @@ Partial Class Bancos_RepCortes
If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
DivIVA.Visible = True
GvPorIVA.DataSource = DsDatos.Tables(2)
Dim tsum As Decimal = DsDatos.Tables(2).SUMD("IVA16") + DsDatos.Tables(2).SUMD("IVA0")
If Math.Abs(tsum - DtCortesVentasResumen.MAX("Importe").ToDecimal) > 1 Then
GvPorIVA.ForeColor = Drawing.Color.Red
GvPorIVA.ToolTip = (tsum - DtCortesVentasResumen.MAX("Importe").ToDecimal).ToString
Else
GvPorIVA.ForeColor = Drawing.Color.Black
End If
End If
End If