-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #4 from mauryparra/develop
Segundo Sprint
- Loading branch information
Showing
19 changed files
with
3,542 additions
and
1,008 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,128 +1,233 @@ | ||
Public Class Egreso | ||
|
||
Private nComp As String | ||
Private provee As String | ||
Private cGasto As String | ||
Private gasta As String | ||
Private fecha As DateTime | ||
Private tipComp As String | ||
Private uda As String | ||
Private reintegro As Integer | ||
Private mont As Double | ||
Private comen As String | ||
|
||
'Constructor | ||
Public Sub New(ByVal numComprobante As String, ByVal proveedor As String, ByVal catGasto As String, _ | ||
ByVal gastador As String, ByVal fechaEgreso As DateTime, ByVal tipoComprobante As String, _ | ||
ByVal uda As String, ByVal mesReintegro As Integer, ByVal monto As Double, ByVal comentario As String) | ||
Me.nComp = numComprobante | ||
Me.provee = proveedor | ||
Me.cGasto = catGasto | ||
Me.gasta = gastador | ||
Me.fecha = fechaEgreso | ||
Me.tipComp = tipocomprobante | ||
Me.uda = uda | ||
Me.reintegro = mesReintegro | ||
Me.mont = monto | ||
Me.comen = comentario | ||
Imports System.Data.SqlServerCe | ||
|
||
Module Egreso | ||
|
||
Public Sub nuevo_egreso(ByVal compro As String, ByVal proveedor As String, ByVal categoria As String, ByVal persona As String, | ||
ByVal fecha As Date, ByVal tipo_comp As String, ByVal secc As String, ByVal reintegro As Date, ByVal monto As Double, | ||
ByVal comentario As String) | ||
Principal.query = "INSERT INTO egresos (nro_comprobante, proveedor_id, categoria_gasto_id, persona_id, " & | ||
"fecha, tipo_comprobante_id, seccional_id, mes_reintegro, monto, comentario, eliminado, seleccionado)" & | ||
"VALUES (@nro_comprobante, @proveedor, @cat_gasto, @persona, @fecha, @t_comprobante, " & | ||
"@seccional, @reintegro, @monto, @comentario, 0, 0)" | ||
Principal.command.Parameters.Clear() | ||
Principal.command.Parameters.AddWithValue("@nro_comprobante", compro) | ||
Principal.command.Parameters.AddWithValue("@proveedor", proveedor) | ||
Principal.command.Parameters.AddWithValue("@cat_gasto", categoria) | ||
Principal.command.Parameters.AddWithValue("@persona", persona) | ||
Principal.command.Parameters.AddWithValue("@fecha", fecha) | ||
Principal.command.Parameters.AddWithValue("@t_comprobante", tipo_comp) | ||
Principal.command.Parameters.AddWithValue("@seccional", secc) | ||
Principal.command.Parameters.AddWithValue("@reintegro", reintegro) | ||
Principal.command.Parameters.AddWithValue("@monto", monto) | ||
Principal.command.Parameters.AddWithValue("@comentario", comentario) | ||
|
||
consultarNQ(Principal.query, Principal.command) | ||
End Sub | ||
'Get & Set | ||
Public Property numcomprobante() As String | ||
Get | ||
Return nComp | ||
End Get | ||
Set(ByVal value As String) | ||
nComp = value | ||
End Set | ||
End Property | ||
Public Property proveedor() As String | ||
Get | ||
Return provee | ||
End Get | ||
Set(ByVal value As String) | ||
provee = value | ||
End Set | ||
End Property | ||
Public Property catGasto() As String | ||
Get | ||
Return cGasto | ||
End Get | ||
Set(ByVal value As String) | ||
cGasto = value | ||
End Set | ||
End Property | ||
Public Property gastador() As String | ||
Get | ||
Return gasta | ||
End Get | ||
Set(ByVal value As String) | ||
gasta = value | ||
End Set | ||
End Property | ||
Public Property fechaEgreso() As DateTime | ||
Get | ||
Return fecha | ||
End Get | ||
Set(ByVal value As DateTime) | ||
fecha = value | ||
End Set | ||
End Property | ||
Public Property tipoComprobante() As String | ||
Get | ||
Return tipComp | ||
End Get | ||
Set(ByVal value As String) | ||
tipComp = value | ||
End Set | ||
End Property | ||
Public Property seccionalUDA() As String | ||
Get | ||
Return uda | ||
End Get | ||
Set(ByVal value As String) | ||
uda = value | ||
End Set | ||
End Property | ||
Public Property mesReintegro() As Integer | ||
Get | ||
Return reintegro | ||
End Get | ||
Set(ByVal value As Integer) | ||
reintegro = value | ||
End Set | ||
End Property | ||
Public Property monto() As Double | ||
Get | ||
Return mont | ||
End Get | ||
Set(ByVal value As Double) | ||
mont = value | ||
End Set | ||
End Property | ||
Public Property comentario() As String | ||
Get | ||
Return comen | ||
End Get | ||
Set(ByVal value As String) | ||
comen = value | ||
End Set | ||
End Property | ||
|
||
Public Sub cargar_egreso() | ||
|
||
Public Sub modificar_egreso(ByVal id As Integer, ByVal compro As String, ByVal proveedor As Integer, ByVal categoria As Integer, | ||
ByVal persona As Integer, ByVal fecha As Date, ByVal tipo_comp As Integer, ByVal secc As Integer, | ||
ByVal reintegro As Date, ByVal monto As Decimal, ByVal comentario As String) | ||
|
||
Principal.query = "UPDATE Egresos SET nro_comprobante = @nro_comprobante, proveedor_id = @proveedor, categoria_gasto_id = @cat_gasto, " & | ||
"persona_id = @persona, fecha = @fecha, tipo_comprobante_id = @t_comprobante, seccional_id = @seccional, " & | ||
"mes_reintegro = @reintegro, monto = @monto, comentario = @comentario " & | ||
"WHERE id = @id" | ||
Principal.command.Parameters.Clear() | ||
Principal.command.Parameters.AddWithValue("@nro_comprobante", compro) | ||
Principal.command.Parameters.AddWithValue("@proveedor", proveedor) | ||
Principal.command.Parameters.AddWithValue("@cat_gasto", categoria) | ||
Principal.command.Parameters.AddWithValue("@persona", persona) | ||
Principal.command.Parameters.AddWithValue("@fecha", fecha) | ||
Principal.command.Parameters.AddWithValue("@t_comprobante", tipo_comp) | ||
Principal.command.Parameters.AddWithValue("@seccional", secc) | ||
Principal.command.Parameters.AddWithValue("@reintegro", reintegro) | ||
Principal.command.Parameters.AddWithValue("@monto", monto) | ||
Principal.command.Parameters.AddWithValue("@comentario", comentario) | ||
Principal.command.Parameters.AddWithValue("@id", id) | ||
|
||
If consultarNQ(Principal.query, Principal.command) > 0 Then | ||
MsgBox("Egreso modificado exitosamente", MsgBoxStyle.OkOnly, "Guardar Cambios") | ||
Else | ||
MsgBox("Ocurrio un error al guardar los cambios", MsgBoxStyle.Exclamation, "Guardar Cambios") | ||
End If | ||
End Sub | ||
|
||
Public Sub modificar_egreso() | ||
Public Sub eliminar_egreso_soft(ByVal id As Integer) | ||
Principal.query = "UPDATE Egresos SET eliminado = 1 WHERE id = @id" | ||
Principal.command.Parameters.Clear() | ||
Principal.command.Parameters.AddWithValue("@id", id) | ||
|
||
If consultarNQ(Principal.query, Principal.command) > 0 Then | ||
MsgBox("Egreso eliminado exitosamente", MsgBoxStyle.OkOnly, "Eliminar Egreso") | ||
Else | ||
MsgBox("Ocurrio un error al eliminar el egreso", MsgBoxStyle.Exclamation, "Eliminar Egreso") | ||
End If | ||
End Sub | ||
|
||
Public Sub eliminar_egreso() | ||
Public Sub restaurar_egreso(ByVal id As Integer) | ||
Principal.query = "UPDATE Egresos SET eliminado = 0 WHERE id = @id" | ||
Principal.command.Parameters.Clear() | ||
Principal.command.Parameters.AddWithValue("@id", id) | ||
|
||
If consultarNQ(Principal.query, Principal.command) > 0 Then | ||
MsgBox("Egreso restaurado exitosamente", MsgBoxStyle.OkOnly, "Restaurar Egreso") | ||
Else | ||
MsgBox("Ocurrio un error al restaurar el egreso", MsgBoxStyle.Exclamation, "Restaurar Egreso") | ||
End If | ||
End Sub | ||
|
||
Public Sub eliminar_egreso_hard(ByVal id As Integer) | ||
Principal.query = "DELETE FROM Egresos WHERE id = @id" | ||
Principal.command.Parameters.Clear() | ||
Principal.command.Parameters.AddWithValue("@id", id) | ||
|
||
If consultarNQ(Principal.query, Principal.command) > 0 Then | ||
MsgBox("Egreso eliminado exitosamente", MsgBoxStyle.OkOnly, "Eliminar Egreso Permanentemente") | ||
Else | ||
MsgBox("Ocurrio un error al eliminar el egreso", MsgBoxStyle.Exclamation, "Eliminar Egreso Permanentemente") | ||
End If | ||
End Sub | ||
|
||
Public Sub vaciar_papelera() | ||
Principal.query = "DELETE FROM Egresos WHERE eliminado = 1" | ||
|
||
If consultarNQ(Principal.query, Principal.command) > 0 Then | ||
MsgBox("Papelera vaciada exitosamente", MsgBoxStyle.OkOnly, "Vaciar Papelera") | ||
Else | ||
MsgBox("Ocurrio un error al vaciar la papelera", MsgBoxStyle.Exclamation, "Vaciar Papelera") | ||
End If | ||
End Sub | ||
|
||
Public Sub CargardDGV(ByRef dgv As DataGridView, Optional ByVal eliminado As Integer = 0, Optional ByVal nombreDataSet As String = "Egresos_Modificar") | ||
|
||
'Creamos la tabla si no existe | ||
If Not Principal.dataset.Tables.Contains(nombreDataSet) Then | ||
Principal.dataset.Tables.Add(nombreDataSet) | ||
End If | ||
'Limpiamos la tabla | ||
Principal.dataset.Tables(nombreDataSet).Clear() | ||
|
||
'Creamos el query | ||
Principal.command.CommandText = "SELECT TOP (500) E.id AS id, | ||
E.nro_comprobante AS nro_comprobante, | ||
E.tipo_comprobante_id AS tipo_comprobante_id, | ||
Comp.nombre AS tipo_comprobante_nombre, | ||
E.proveedor_id AS proveedor_id, | ||
Pro.nombre AS proveedor_nombre, | ||
E.categoria_gasto_id AS categoria_gasto_id, | ||
Gastos.nombre AS categoria_nombre, | ||
E.persona_id AS persona_id, | ||
Per.nombre AS persona_nombre, | ||
E.fecha AS fecha, | ||
E.seccional_id AS seccional_id, | ||
Secc.nombre AS seccional_nombre, | ||
E.mes_reintegro AS mes_reintegro, | ||
E.monto AS monto, | ||
E.comentario AS comentario, | ||
E.seleccionado AS seleccionado | ||
FROM Egresos AS E | ||
LEFT JOIN TiposComprobantes AS Comp ON E.tipo_comprobante_id = Comp.id | ||
LEFT JOIN Proveedores AS Pro ON E.proveedor_id = Pro.id | ||
LEFT JOIN CategoriasGastos AS Gastos ON E.categoria_gasto_id = Gastos.id | ||
LEFT JOIN Personas AS Per ON E.persona_id = Per.id | ||
LEFT JOIN Seccionales AS Secc ON E.seccional_id = Secc.id | ||
WHERE E.eliminado = " & eliminado & " ORDER BY E.id DESC" | ||
|
||
'Creamos el TableAdapter si no existe | ||
If Not Principal.tableadapters.ContainsKey(nombreDataSet) Then | ||
Principal.tableadapters.Add(nombreDataSet, New SqlCeDataAdapter(Principal.command)) | ||
End If | ||
|
||
'Actualizamos el contenido de la tabla | ||
Principal.tableadapters(nombreDataSet).Fill(Principal.dataset.Tables.Item(nombreDataSet)) | ||
|
||
'Asignamos el Bind | ||
Dim mybinding = New BindingSource(Principal.dataset, nombreDataSet) | ||
|
||
dgv.AutoGenerateColumns = False | ||
|
||
dgv.Columns.Item(0).DataPropertyName = "id" | ||
dgv.Columns.Item(1).DataPropertyName = "seleccionado" | ||
dgv.Columns.Item(2).DataPropertyName = "nro_comprobante" | ||
dgv.Columns.Item(3).DataPropertyName = "tipo_comprobante_id" | ||
dgv.Columns.Item(4).DataPropertyName = "tipo_comprobante_nombre" | ||
dgv.Columns.Item(5).DataPropertyName = "proveedor_id" | ||
dgv.Columns.Item(6).DataPropertyName = "proveedor_nombre" | ||
dgv.Columns.Item(7).DataPropertyName = "categoria_gasto_id" | ||
dgv.Columns.Item(8).DataPropertyName = "categoria_nombre" | ||
dgv.Columns.Item(9).DataPropertyName = "persona_id" | ||
dgv.Columns.Item(10).DataPropertyName = "persona_nombre" | ||
dgv.Columns.Item(11).DataPropertyName = "fecha" | ||
dgv.Columns.Item(12).DataPropertyName = "seccional_id" | ||
dgv.Columns.Item(13).DataPropertyName = "seccional_nombre" | ||
dgv.Columns.Item(14).DataPropertyName = "mes_reintegro" | ||
dgv.Columns.Item(15).DataPropertyName = "monto" | ||
dgv.Columns.Item(16).DataPropertyName = "comentario" | ||
|
||
dgv.DataSource = mybinding | ||
|
||
End Sub | ||
|
||
Public Sub filtrar_datos() | ||
Public Sub FiltrarDGV(ByRef dgv As DataGridView, ByVal sql As String, Optional ByVal eliminado As Integer = 0, Optional ByVal nombreDataSet As String = "Egresos_Modificar") | ||
|
||
'Creamos la tabla si no existe | ||
If Not Principal.dataset.Tables.Contains(nombreDataSet) Then | ||
Principal.dataset.Tables.Add(nombreDataSet) | ||
End If | ||
'Limpiamos la tabla | ||
Principal.dataset.Tables(nombreDataSet).Clear() | ||
|
||
'Creamos el query | ||
Principal.command.CommandText = sql | ||
|
||
'Creamos el TableAdapter si no existe | ||
If Not Principal.tableadapters.ContainsKey(nombreDataSet) Then | ||
Principal.tableadapters.Add(nombreDataSet, New SqlCeDataAdapter(Principal.command)) | ||
End If | ||
|
||
'Actualizamos el contenido de la tabla | ||
Principal.tableadapters(nombreDataSet).Fill(Principal.dataset.Tables.Item(nombreDataSet)) | ||
|
||
'Asignamos el Bind | ||
Dim mybinding = New BindingSource(Principal.dataset, nombreDataSet) | ||
|
||
dgv.AutoGenerateColumns = False | ||
|
||
dgv.Columns.Item(0).DataPropertyName = "id" | ||
dgv.Columns.Item(1).DataPropertyName = "seleccionado" | ||
dgv.Columns.Item(2).DataPropertyName = "nro_comprobante" | ||
dgv.Columns.Item(3).DataPropertyName = "tipo_comprobante_id" | ||
dgv.Columns.Item(4).DataPropertyName = "tipo_comprobante_nombre" | ||
dgv.Columns.Item(5).DataPropertyName = "proveedor_id" | ||
dgv.Columns.Item(6).DataPropertyName = "proveedor_nombre" | ||
dgv.Columns.Item(7).DataPropertyName = "categoria_gasto_id" | ||
dgv.Columns.Item(8).DataPropertyName = "categoria_nombre" | ||
dgv.Columns.Item(9).DataPropertyName = "persona_id" | ||
dgv.Columns.Item(10).DataPropertyName = "persona_nombre" | ||
dgv.Columns.Item(11).DataPropertyName = "fecha" | ||
dgv.Columns.Item(12).DataPropertyName = "seccional_id" | ||
dgv.Columns.Item(13).DataPropertyName = "seccional_nombre" | ||
dgv.Columns.Item(14).DataPropertyName = "mes_reintegro" | ||
dgv.Columns.Item(15).DataPropertyName = "monto" | ||
dgv.Columns.Item(16).DataPropertyName = "comentario" | ||
|
||
dgv.DataSource = mybinding | ||
|
||
End Sub | ||
|
||
End Class | ||
Public Function comprobante_repetido(ByVal nComprobante As String, ByVal proveedorID As Integer) | ||
|
||
Dim flag As Boolean = False | ||
|
||
For i = 0 To Principal.dataset.Tables("Egresos").Rows.Count - 1 | ||
If (Principal.dataset.Tables("Egresos").Rows.Item(i).Item("nro_comprobante") = nComprobante) And | ||
(Principal.dataset.Tables("Egresos").Rows.Item(i).Item("proveedor_id") = proveedorID) Then | ||
flag = True | ||
End If | ||
Next | ||
|
||
Return flag | ||
|
||
End Function | ||
|
||
End Module |
Oops, something went wrong.