Public Sub SiOpcion_5_EnBoton_Siguiente_Compras()
With My.Forms.FrmRegistrosCompras
If Opcion = 5 Then
Dim dt As New DataTable
If .DataGridView1.RowCount >= 0 Then
If (IsNothing(dt)) Then
dt.Columns.Add("Id_Mes_Año", GetType(Integer))
dt.Columns.Add("Registro", GetType(Integer))
dt.Columns.Add("Fecha", GetType(Date))
dt.Columns.Add("Razon_Social", GetType(String))
dt.Columns.Add("CUIT", GetType(String))
dt.Columns.Add("Comprobante", GetType(String))
dt.Columns.Add("Numero", GetType(String))
dt.Columns.Add("Materia_Prima", GetType(Decimal))
dt.Columns.Add("Gasto_Fabric", GetType(Decimal))
dt.Columns.Add("Cuenta", GetType(String))
dt.Columns.Add("Neto", GetType(Decimal))
dt.Columns.Add("IVA", GetType(Decimal))
dt.Columns.Add("Total", GetType(Decimal))
dt.Columns.Add("Cod_Proveedor", GetType(Integer))
dt.Columns.Add("Cod_Cuenta", GetType(Integer))
dt.AcceptChanges()
.DataGridView1.Columns.Clear()
.DataGridView1.DataSource = dt
dr = dt.NewRow()
dr("Id_Mes_Año") = CInt(.lblCodMesAno.Text)
dr("Registro") = CInt(.lblRegNro.Text)
dr("Fecha") = .DateTimePicker1.Value.ToShortDateString
dr("Razon_Social") = .cmbProveedor.Text
dr("CUIT") = .lblCuit.Text
dr("Comprobante") = .cmbComporobante.Text
dr("Numero") = .MaskedTextBox1.Text
Call Evalua()
'dr("Materia_Prima") = CDec(.txtNeto.Text)
'dr("Gasto_Fabric") = CDec(.txtNeto.Text)
dr("Cuenta") = .cmbCuenta.Text
'dr("Neto") = CDec(.txtNeto.Text)
dr("IVA") = CDec(.lblIvaImporte.Text)
dr("Total") = CDec(.lblValTotal.Text)
dr("Cod_Proveedor") = CInt(.lblCodProveedor.Text)
dr("Cod_Cuenta") = CInt(.lblCodCuenta.Text)
dt.Rows.Add(dr)
dt.AcceptChanges()
Else
dt = TryCast(.DataGridView1.DataSource, DataTable)
dr = dt.NewRow()
dr("Id_Mes_Año") = CInt(.lblCodMesAno.Text)
dr("Registro") = CInt(.lblRegNro.Text)
dr("Fecha") = .DateTimePicker1.Value.ToShortDateString
dr("Razon_Social") = .cmbProveedor.Text
dr("CUIT") = .lblCuit.Text
dr("Comprobante") = .cmbComporobante.Text
dr("Numero") = .MaskedTextBox1.Text
Call Evalua() '<-- Public Evalua
'dr("Materia_Prima") = CDec(.txtNeto.Text)
'dr("Gasto_Fabric") = CDec(.txtNeto.Text)
dr("Cuenta") = .cmbCuenta.Text
'dr("Neto") = CDec(.txtNeto.Text)
dr("IVA") = CDec(.lblIvaImporte.Text)
dr("Total") = CDec(.lblValTotal.Text)
dr("Cod_Proveedor") = CInt(.lblCodProveedor.Text)
dr("Cod_Cuenta") = CInt(.lblCodCuenta.Text)
dt.Rows.Add(dr)
Dim dv As New DataView
dv = dt.DefaultView
dv.Sort = "Fecha ASC, Numero ASC"
.DataGridView1.DataSource = dv.ToTable()
End If
End If
End If
Call ConfiguraDGVyLabelsEnFrmRegistrosCompras()
End With
End Sub