none
Rellenar Crystal Reports con vector o comparar registros numericos. RRS feed

  • Pregunta

  • Resulta que en un programa de bodega el cliente me solicito que le hiciera la siguiente ventana:

    Y ahora quiere que esta misma ventana (listbox) se la imprima.

    Esta ventana se rellena de la siguiente manera: if(stockActual <= stockMinimo + 2)

    Y el codigo que lo rellena es el siguiente:

        Public Sub stockCritico()
            Dim contador As Integer = objFunciones.contadorQuerySelect("SELECT * FROM productos")
            Dim codigos(contador) As String
    
            lbStockCritico.Items.Clear()
    
            If (contador <> 0) Then
                Dim stock(contador) As Integer
                Dim nombreProducto(contador) As String
                Dim temp As Integer = 0
    
                objFunciones.querySelect("SELECT nombreProducto, nombreSubProducto, codigo, stockMinimo FROM productos ORDER BY nombreProducto ASC")
                While lectura.Read
                    stock(temp) = lectura("stockMinimo")
                    codigos(temp) = lectura("codigo")
                    nombreProducto(temp) = lectura("nombreProducto") + " - " + lectura("nombreSubProducto")
                    temp += 1
                End While
                conexion.Close()
    
                Dim contadorReal As Integer = 0
                For i = 0 To contador - 1
                    objFunciones.querySelect("SELECT stock FROM stock WHERE codigoBarras = '" + codigos(i) + "'")
                    lectura.Read()
                    If (lectura("stock") <= stock(i) + 2) Then
                        lbStockCritico.Items.Add(nombreProducto(i) + "                  Stock Mínimo: " + stock(i).ToString + "     Stock Actual: " + lectura("stock").ToString)
                        codigosReales(contadorReal) = codigos(i)
                        contadorReal += 1
                    End If
                    conexion.Close()
                Next
            End If
        End Sub

    Hasta el momento relleno los reportes de la siguiente manera:

        Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
            MsgBox("Espere mientras se genera la nómina de stock cero")
            Dim rpt As New nominastockcero
            Dim formulario As New VisorReportes
            dat5.Clear()
    
            Call conexiones()
    
            buscar = "SELECT * FROM stock WHERE stock = 0"
            Dim cmd As New MySqlCommand(buscar, conectarme)
            Dim adaptador As New MySqlDataAdapter(cmd)
            adaptador.Fill(dat5, "stock")
            rpt.SetDataSource(dat5)
    
            formulario.CrystalReportViewer1.ReportSource = rpt
            formulario.Show()
        End Sub

    ¿De que manera puedo realizar la misma comparacion en crystal reports? o ¿de que forma envio el siguiente arreglo?

    codigosReales(contadorReal) = codigos(i)

    "Que es el que contiene los codigos de barra de los productos que se despliegan en esta pantalla de stock critico".

    Espero haberme dado a entender y de antemano gracias por la ayuda.

    jueves, 1 de marzo de 2012 22:08