cambios de extensiones .SUM de double a decimal

RH/AsistenciaDetalle.aspx.vb

@@ -210,7 +210,7 @@ Partial Class RH_AsistenciaDetalle
         Dim ObjAsistencias As New ClsRH
         Dim ObjAsistenciasDetalle As New ClsRH
 
-        If ObjAsistencias.AddAsistencia(CvePersonal, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero, NowADS(), 6, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjAsistencias.AddAsistencia(CvePersonal, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero, NowADS(), 6, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "G") Then
             If ObjAsistencias.CveAsistencia > 0 AndAlso
                 ObjAsistenciasDetalle.AddAsistenciasDetalle(ObjAsistencias.CveAsistencia, DdlSubProyectoAsignado.SelectedValue.ToEntero, TxtHoraInicio.Text.Trim.ToDateTime, TxtHoraFin.Text.Trim.ToDateTime, DdlTipoHora.SelectedValue.ToEntero) Then
                 TxtHoraInicio.Text = ""

RH/MiPerfil.aspx.vb

@@ -354,11 +354,11 @@ Partial Class RH_MiPerfil
         End Set
     End Property
 
-    Private Property ImporteTotal As Double
+    Private Property ImporteTotal As Decimal
         Get
-            Return ViewState("ImporteTotal").ToString.ToDouble
+            Return ViewState("ImporteTotal").ToString.ToDecimal
         End Get
-        Set(value As Double)
+        Set(value As Decimal)
             ViewState("ImporteTotal") = value
         End Set
     End Property

RH/Personal.aspx.vb

@@ -7654,10 +7654,9 @@ Partial Class RH_Personal
                     Utilidades = String.Format("{0:N2}", dbrow("Importe"))
                     dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
                 End If
-                SDTotalText = Texto2Letras(dSDTotal.ToString().ToDouble())
+                SDTotalText = Texto2Letras(dSDTotal)
                 SDTotal = String.Format("{0:N2}", dSDTotal)
 
-
             End If
         End Using
 

RH/SolicitudViaticos.aspx.cs

@@ -38,11 +38,11 @@ public partial class RH_SolicitudViaticos : ClsPaginas
             ViewState["DTConceptosDetalles"] = value;
         }
     }
-    private Double ImporteTotal
+    private decimal ImporteTotal
     {
         get
         {
-            return ViewState["ImporteTotal"].ToString().ToDouble();
+            return ViewState["ImporteTotal"].ToString().ToDecimal();
         }
 
         set