RepProgramasOperativosAvances

Compras/Compras.aspx.vb

@@ -4919,7 +4919,7 @@ Partial Class Compras_Compras
                                 End If
                             Next
 
-                            Dim DoctosRelacionados As String = If(UUIDSList.Count > 0, String.Join(",", UUIDSList.ToArray()), "-1")
+                            Dim DoctosRelacionados As String = GeneraStrinDoctosRelacionados()
 
                             If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
                               LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
@@ -8234,6 +8234,29 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+    Private Function GeneraStrinDoctosRelacionados() As String
+
+        Dim DoctosRelacionados As String = "-1"
+        Dim listaUUIDSRelacionados As New List(Of String)
+
+        If UUIDSList.Count > 0 Then
+            For Each s As String In UUIDSList
+                If s.Trim.Length > 0 Then
+                    listaUUIDSRelacionados.Add(s.Trim)
+                End If
+            Next
+        End If
+
+        If listaUUIDSRelacionados.Count > 0 Then
+            DoctosRelacionados = String.Join(",", listaUUIDSRelacionados.ToArray())
+            DoctosRelacionados = DoctosRelacionados.Substring(0, DoctosRelacionados.Length - 2)
+        End If
+
+        Return DoctosRelacionados
+
+
+    End Function
+
     Private Function AsignarSubProyectoPrincipal() As Integer
 
         Dim CveSubProyectoPrincioal As Integer = -1