none
Duda Sobre Arreglos y listas

    Pregunta

  • Buen dia actualmente tengo una aplicacion que hace cdfi o xml y tiene una manera ruda de poner los conceptos y esta limitado a 50 como lo muestro anterior.

     Private Sub AGREGARCONCEPTOS(ByRef LCON As List(Of ComprobanteConcepto))
            Dim ELEMENTOS As Integer
            ELEMENTOS = LCON.Count
            cfd.Conceptos = New Kripto_Software_CFDI32.ComprobanteConcepto() {}
                   Select Case ELEMENTOS
                Case 1
                    cfd.Conceptos = New Kripto_Software_CFDI32.ComprobanteConcepto() {LCON(0)}
                Case 2
                    cfd.Conceptos = New Kripto_Software_CFDI32.ComprobanteConcepto() {LCON(0), LCON(1)}
                Case 3
                    cfd.Conceptos = New Kripto_Software_CFDI32.ComprobanteConcepto() {LCON(0), LCON(1), LCON(2)}

    'de esta manera llega hasta el 50

      End Select
        End Sub

    Mi duda es hay alguna manera de agregar esas listas por un for o while ? ya que estoy en la nececidad de aumentarlo hasta 500 case?

    De ante mano gracias


    Carlos Lerma

    jueves, 23 de febrero de 2017 0:34

Respuestas

  • Hola, por qué usas la lista que tienes como parámetro en tu método?

    Presuponiendo que Kripto_Software_CFDI32.ComprobanteConcepto y ComprobanteConcepto indicado en el parámetro,

    simplemente harías,

    Private Sub AGREGARCONCEPTOS(ByRef LCON As List(Of ComprobanteConcepto))
    	cfd.Conceptos = LCON.ToArray() ' Convertir a Array
    End Sub


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos


    jueves, 23 de febrero de 2017 7:44