From 12e3c7c07faca8edff6be3ac916c8c02567fffa4 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 25 Aug 2021 12:27:22 -0700 Subject: [PATCH] Error al dividir registro, cuando se esta registrando una factura nueva --- Compras/Compras.aspx.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 8f680c62e..3f4ef0686 100644 --- a/Compras/Compras.aspx.vb +++ b/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