Error al dividir registro, cuando se esta registrando una factura nueva

Compras/Compras.aspx.vb

@@ -11383,6 +11383,7 @@ Partial Class Compras_Compras
 
         TmpDT.Columns.Add("DifPSSat", GetType(Integer))
 
+
         TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
         TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
 
@@ -12380,6 +12381,10 @@ Partial Class Compras_Compras
     Protected Sub DivirInsumo(sender As Object, e As EventArgs)
         Dim index2 As Integer = 0
 
+        If Not TmpDT.Columns.Contains("Importe") Then
+            TmpDT.Columns.Add("Importe", GetType(Decimal))
+        End If
+
         'LLena el AF vinculado para no perderlo
         For Each Row As DataRow In TmpDT.Rows
             If GvAFInsumos.Rows(index2).FCHiddenField("HdnCveAF").Value.ToEntero > 0 Then