-- colorea en rojo la dif, en poriva vs el total vendido
This commit is contained in:
@@ -230,6 +230,13 @@ Partial Class Bancos_RepCortes
|
|||||||
If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
|
If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
|
||||||
DivIVA.Visible = True
|
DivIVA.Visible = True
|
||||||
GvPorIVA.DataSource = DsDatos.Tables(2)
|
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
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user