Reporte de productos por mes y año, usando clases, arraylis y LINQ. VB.NET 2012 - 2013.

La siguiente aplicación muestra los productos que se vencen en un determinado mes y año de vencimiento y también se realiza un reporte con los datos consultados.
En el programa se hace uso de una Clase Producto, ArrayList y en las consultas se usa LINQ.

Código en el Load del Formulario:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

DataGridView1.Columns.Add("", "CODIGO")

DataGridView1.Columns.Add("", "NOMBRE")

DataGridView1.Columns.Add("", "PRECIO")

DataGridView1.Columns.Add("", "STOCK")

DataGridView1.Columns.Add("", "VENCIMIENTO")

cboMes.Items.Add("ENERO")

cboMes.Items.Add("FEBRERO")

cboMes.Items.Add("MARZO")

cboMes.Items.Add("ABRIL")

cboMes.Items.Add("MAYO")

cboMes.Items.Add("JUNIO")

cboMes.Items.Add("JULIO")

cboMes.Items.Add("AGOSTO")

cboMes.Items.Add("SETIEMBRE")

cboMes.Items.Add("OCTUBRE")

cboMes.Items.Add("NOVIEMBRE")

cboMes.Items.Add("DICIEMBRE")

cboMes.SelectedIndex = 0

cboAño.Items.Add("2014")

cboAño.Items.Add("2015")

cboAño.Items.Add("2016")

cboAño.Items.Add("2017")

cboAño.Items.Add("2018")

cboAño.Items.Add("2019")

cboAño.Items.Add("2020")

cboAño.Items.Add("2021")

cboAño.Items.Add("2022") 

cboAño.SelectedIndex = 0

Dim P1 As New PRODUCTO("1", "KOLA REAL", "5.5", "500", "6/12/2014")

LISTA.Add(P1)

Dim P2 As New PRODUCTO("2", "INKA KOLA", "7.8", "600", "12/12/2014")

LISTA.Add(P2)

Dim P3 As New PRODUCTO("3", "COLGATE", "2.5", "300", "2/7/2015")

LISTA.Add(P3)

Dim P4 As New PRODUCTO("4", "ACE", "4.5", "200", "22/8/2015")

LISTA.Add(P4)

Dim P5 As New PRODUCTO("5", "HARINA BLANCA FLOR", "8.5", "100", "12/7/2015")

LISTA.Add(P5)

Dim P6 As New PRODUCTO("6", "CRISTAL", "5.5", "200", "2/8/2016")

LISTA.Add(P6)

Dim P7 As New PRODUCTO("7", "CIELO", "4.5", "800", "2/8/2016") 

LISTA.Add(P7)

Dim P8 As New PRODUCTO("8", "7 UP", "5.5", "100", "2/10/2015")

LISTA.Add(P8)

Dim P9 As New PRODUCTO("9", "CORONA", "7.5", "50", "2/10/2015") 

LISTA.Add(P9)

Dim P10 As New PRODUCTO("10", "PILSEN", "5.5", "190", "2/11/2015")

LISTA.Add(P10)

Dim P11 As New PRODUCTO("1", "FANTA", "5.5", "200", "2/11/2015") 

LISTA.Add(P11)

End Sub

El botón imprimir muestra lo siguiente:

 



La clase producto:

Public Class PRODUCTO

Private CODIGO As String

Private NOMBRE As String

Private PRECIO As String

Private STOCK As String

Private FECHAVENCIMIENTO As String

Sub New(COD As String, NOM As String, P As String, S As String, F As String)

Me.CODIGO = COD

Me.NOMBRE = NOM

Me.PRECIO = P

Me.STOCK = S

Me.FECHAVENCIMIENTO = F

End Sub

Public Function getCODIGO() As String

Return Me.CODIGO

End Function

Public Function getNOMBRE() As String

Return Me.NOMBRE

End Function

Public Function getPRECIO() As String

Return Me.PRECIO

End Function

Public Function getSTOCK() As String

Return Me.STOCK

End Function

Public Function getFECHAVENCIMIENTO() As String

Return Me.FECHAVENCIMIENTO

End Function

End Class

Código fuente solicitar a:
cgprognet@hotmail.com
cgprognet@gmail.com