Compras % IVA prorateo, formato numerico al exportar a excel

Contabilidad/RepAnexoCatalogoCC.aspx.vb

@@ -236,9 +236,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
             Next
 
             Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
+            If e.Row.Cells(2).Text.ToDecimal <> 0 Then
+                e.Row.Cells(2).Text = $"<a  { If(e.Row.Cells(2).Text.ToDecimal < 0, "style='color:Red;'", "style='color:#337ab7;'")  } target='_blank' href='./RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={CveCunetaRow}&FF={txtFechaF.Text}&FI={txtFechaI.Text}&ER=1&CveSubProyecto=-1' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.Cells(2).Text.ToDecimal.ToString("###,###,##0"), e.Row.Cells(2).Text.ToDecimal.ToString("###,###,###.00")) }</a>"
+            Else
+                e.Row.Cells(2).Text = $"-"
+            End If
+
+
             Dim inicial As Boolean = True
             Index = 4
-
             For Each DRow As DataRow In DTHeaders.Rows
                 Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal