agregando "Es outsourcing" a los productos, agregando columna a Fluctuacion y alerta a clsOC

Bancos/FluctuacionCambiaria.aspx.vb

@@ -7,7 +7,14 @@ Partial Class Bancos_FluctuacionCambiaria
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
-
+    Private Property LblTotal() As String
+        Get
+            Return ViewState("Total").ToString
+        End Get
+        Set(value As String)
+            ViewState("Total") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -60,16 +67,20 @@ Partial Class Bancos_FluctuacionCambiaria
 
     Private Sub CargaDatosCompra()
         Dim ObjBancos As New ClsBancos
-        LblTotalCompras.Text = "0.00"
+        'LblTotalCompras.Text = "0.00"
         If ObjBancos.GetFluctuaciones(TxtFecha.Text.ToDate, 1, UsuarioActual.CveEmpresa) Then
             GvCompras.DataSource = ObjBancos.DtResultados
-            LblTotalCompras.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            'LblTotalCompras.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
             GvCompras.DataSource = Nothing
             Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvCompras.DataBind()
+        If GvCompras.Rows.Count > 0 Then
+            GvCompras.Rows(GvCompras.Rows.Count - 1).CssClass = "SubTotales2"
+        End If
     End Sub
 
     Private Sub CargaDatosVentas()
@@ -201,7 +212,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
 
 
-        Total = LblTotalCompras.Text.ToDecimal
+        Total = LblTotal.ToDecimal
         If Total > 0 Then
             CveConceptoContable = 64
             CveCuenta = CveCuentaGanancia