cambios de extensiones .SUM de double a decimal

Ventas/Clientes.aspx.vb

@@ -7411,11 +7411,10 @@ Partial Class Clientes
 
             Dim FechaLugar As String = $"{LocalidadSucursal}, {EstadoSucursal} a {fechaConFormato}"
 
-
             Tags.Add(New TagsDocumentos("{Monto}", monto))
             Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
             Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
-            Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
+            Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDecimal.Texto2Letras(1)))
             Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
             Tags.Add(New TagsDocumentos("{Direccion}", String.Format("{0} #{1} {2}, COL.{3}, CP. {4}", direccion, noInt, noExt, colonia, cpCliente).ToUpper()))
             Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0}, {1}", ciudad, estado).ToUpper()))
@@ -8932,12 +8931,11 @@ Partial Class Clientes
 
     Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs)
         DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero(), DdlProducto2)
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " A C U M U L A D O R E S"
-
-
+
     Protected Sub LnkFacturaUsadosCargos_Click(sender As Object, e As EventArgs)
         'CveVentaNota = 0
 
@@ -9035,13 +9033,9 @@ Partial Class Clientes
         End If
 
         Alert("Listo")
-
         CargaUsados()
-
-
     End Sub
 
-
     Function FolioNotaCredito(Tipo As Integer) As Boolean
 
         FolioNotaAcumulador = 0
@@ -9778,7 +9772,6 @@ Partial Class Clientes
                         If row.Item("Total").ToString.ToDouble > 0 Then
                             Total += row.Item("Total").ToString.ToDouble
                             Cantidad += 1
-
                         End If
                     End If
                 Next