adecuacion j13 y j14

This commit is contained in:
Tito Ruiz 2020-05-28 01:03:24 -05:00
parent 77329904b3
commit b2cb4e716d
20 changed files with 145 additions and 22 deletions

Binary file not shown.

View File

@ -121,7 +121,7 @@ Partial Class frmParamsGral
Me.txtValor.Location = New System.Drawing.Point(97, 280) Me.txtValor.Location = New System.Drawing.Point(97, 280)
Me.txtValor.MaxLength = 50 Me.txtValor.MaxLength = 50
Me.txtValor.Name = "txtValor" Me.txtValor.Name = "txtValor"
Me.txtValor.Size = New System.Drawing.Size(47, 20) Me.txtValor.Size = New System.Drawing.Size(316, 20)
Me.txtValor.TabIndex = 91 Me.txtValor.TabIndex = 91
' '
'lblTraduccion 'lblTraduccion
@ -139,7 +139,7 @@ Partial Class frmParamsGral
Me.chkActivo.Enabled = False Me.chkActivo.Enabled = False
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(171, 280) Me.chkActivo.Location = New System.Drawing.Point(341, 283)
Me.chkActivo.Name = "chkActivo" Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 21) Me.chkActivo.Size = New System.Drawing.Size(72, 21)
Me.chkActivo.TabIndex = 93 Me.chkActivo.TabIndex = 93

View File

@ -155,7 +155,7 @@
</value> </value>
</data> </data>
<data name="GridMaster.PropBag" xml:space="preserve"> <data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;225&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 478, 225&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 478, 225&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;225&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 478, 225&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 478, 225&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

View File

@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
' You can specify all the values or you can default the Build and Revision Numbers ' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below: ' by using the '*' as shown below:
<Assembly: AssemblyVersion("2.5.5.7")> <Assembly: AssemblyVersion("2.5.5.9")>
<Assembly: AssemblyFileVersion("2.5.5.7")> <Assembly: AssemblyFileVersion("2.5.5.9")>

View File

@ -32,6 +32,7 @@ Partial Class frmReporteJ13
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox() Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.lblFooter = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel() Me.panel3 = New System.Windows.Forms.Panel()
Me.btnExportXLS = New System.Windows.Forms.Button()
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel2.SuspendLayout() Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
@ -88,11 +89,11 @@ Partial Class frmReporteJ13
Me.btnExport.BackColor = System.Drawing.Color.Black Me.btnExport.BackColor = System.Drawing.Color.Black
Me.btnExport.Enabled = False Me.btnExport.Enabled = False
Me.btnExport.ForeColor = System.Drawing.Color.White Me.btnExport.ForeColor = System.Drawing.Color.White
Me.btnExport.Location = New System.Drawing.Point(354, 57) Me.btnExport.Location = New System.Drawing.Point(363, 57)
Me.btnExport.Name = "btnExport" Me.btnExport.Name = "btnExport"
Me.btnExport.Size = New System.Drawing.Size(83, 25) Me.btnExport.Size = New System.Drawing.Size(83, 25)
Me.btnExport.TabIndex = 4 Me.btnExport.TabIndex = 4
Me.btnExport.Text = "Exportar" Me.btnExport.Text = "Generar"
Me.btnExport.UseVisualStyleBackColor = False Me.btnExport.UseVisualStyleBackColor = False
Me.btnExport.Visible = False Me.btnExport.Visible = False
' '
@ -157,12 +158,26 @@ Partial Class frmReporteJ13
Me.panel3.Size = New System.Drawing.Size(700, 38) Me.panel3.Size = New System.Drawing.Size(700, 38)
Me.panel3.TabIndex = 402 Me.panel3.TabIndex = 402
' '
'btnExportXLS
'
Me.btnExportXLS.BackColor = System.Drawing.Color.Black
Me.btnExportXLS.Enabled = False
Me.btnExportXLS.ForeColor = System.Drawing.Color.White
Me.btnExportXLS.Location = New System.Drawing.Point(461, 58)
Me.btnExportXLS.Name = "btnExportXLS"
Me.btnExportXLS.Size = New System.Drawing.Size(83, 25)
Me.btnExportXLS.TabIndex = 403
Me.btnExportXLS.Text = "Exportar"
Me.btnExportXLS.UseVisualStyleBackColor = False
Me.btnExportXLS.Visible = False
'
'frmReporteJ13 'frmReporteJ13
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(700, 461) Me.ClientSize = New System.Drawing.Size(700, 461)
Me.Controls.Add(Me.btnExportXLS)
Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.btnExport) Me.Controls.Add(Me.btnExport)
@ -194,4 +209,5 @@ Partial Class frmReporteJ13
Private WithEvents Img_logoCabecera As PictureBox Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents lblFooter As Label Friend WithEvents lblFooter As Label
Private WithEvents panel3 As Panel Private WithEvents panel3 As Panel
Friend WithEvents btnExportXLS As Button
End Class End Class

View File

@ -11,7 +11,7 @@ Public Class frmReporteJ13
Dim currentYear As Integer Dim currentYear As Integer
Dim comboSource As New Dictionary(Of String, String)() Dim comboSource As New Dictionary(Of String, String)()
initialYear = 2020 initialYear = 2019
currentYear = Now.Year currentYear = Now.Year
For year As Integer = initialYear To currentYear For year As Integer = initialYear To currentYear
comboSource.Add(year.ToString + "1", year.ToString + " - 1") comboSource.Add(year.ToString + "1", year.ToString + " - 1")
@ -23,6 +23,8 @@ Public Class frmReporteJ13
canExport = False canExport = False
btnExport.Enabled = canExport btnExport.Enabled = canExport
btnExport.Visible = canExport btnExport.Visible = canExport
btnExportXLS.Enabled = canExport
btnExportXLS.Visible = canExport
Dim ClassAud As New ClassMyUtils Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J13") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J13")
End Sub End Sub
@ -44,6 +46,8 @@ Public Class frmReporteJ13
canExport = False canExport = False
btnExport.Enabled = canExport btnExport.Enabled = canExport
btnExport.Visible = canExport btnExport.Visible = canExport
btnExportXLS.Enabled = canExport
btnExportXLS.Visible = canExport
dgvResult.DataSource = Nothing dgvResult.DataSource = Nothing
incluyeInvalidos = 0 incluyeInvalidos = 0
Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?", Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
@ -67,10 +71,14 @@ Public Class frmReporteJ13
End If End If
btnExport.Enabled = canExport btnExport.Enabled = canExport
btnExport.Visible = canExport btnExport.Visible = canExport
btnExportXLS.Enabled = canExport
btnExportXLS.Visible = canExport
dgvResult.DataSource = dsGral.Tables(0) dgvResult.DataSource = dsGral.Tables(0)
Catch ex As Exception Catch ex As Exception
MessageBox.Show(ex.Message) MessageBox.Show(ex.Message)
End Try End Try
Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Consulta Reporte J13")
End Sub End Sub
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
@ -105,7 +113,44 @@ Public Class frmReporteJ13
MessageBox.Show(ex.Message) MessageBox.Show(ex.Message)
End Try End Try
Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Generando Reporte J13")
sr.Close() sr.Close()
End Sub End Sub
Private Sub btnExportarXLS_Click(sender As Object, e As EventArgs) Handles btnExportXLS.Click
Dim fileName As String = year.ToString + "_" + semester.ToString + "_ R03 J-0313.txt"
Dim fullPath As String = fileName
Dim clsExcel As aExcel
Dim ds As New DataSet
Try
clsExcel = New aExcel
clsExcel.Titulo = fileName
ds.Tables.Add("ReporteJ13")
' Add Columns
Dim col As DataColumn
For Each dgvCol As DataGridViewColumn In dgvResult.Columns
col = New DataColumn(dgvCol.Name)
ds.Tables("ReporteJ13").Columns.Add(col)
Next
'Add Rows from the datagridview
Dim row As DataRow
Dim colcount As Integer = dgvResult.Columns.Count - 1
For i As Integer = 0 To dgvResult.Rows.Count - 1
row = ds.Tables("ReporteJ13").Rows.Add
For Each column As DataGridViewColumn In dgvResult.Columns
row.Item(column.Index) = dgvResult.Rows.Item(i).Cells(column.Index).Value
Next
Next
clsExcel.ExportDataset(ds)
'MessageBox.Show("Reporte generado correctamente")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Exportando Reporte J13")
End Sub
End Class End Class

View File

@ -32,6 +32,7 @@ Partial Class frmReporteJ14
Me.panel2 = New System.Windows.Forms.Panel() Me.panel2 = New System.Windows.Forms.Panel()
Me.lblFooter = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel() Me.panel3 = New System.Windows.Forms.Panel()
Me.btnExportXLS = New System.Windows.Forms.Button()
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel2.SuspendLayout() Me.panel2.SuspendLayout()
@ -43,11 +44,11 @@ Partial Class frmReporteJ14
Me.btnExport.BackColor = System.Drawing.Color.Black Me.btnExport.BackColor = System.Drawing.Color.Black
Me.btnExport.Enabled = False Me.btnExport.Enabled = False
Me.btnExport.ForeColor = System.Drawing.Color.White Me.btnExport.ForeColor = System.Drawing.Color.White
Me.btnExport.Location = New System.Drawing.Point(364, 64) Me.btnExport.Location = New System.Drawing.Point(366, 64)
Me.btnExport.Name = "btnExport" Me.btnExport.Name = "btnExport"
Me.btnExport.Size = New System.Drawing.Size(83, 25) Me.btnExport.Size = New System.Drawing.Size(83, 25)
Me.btnExport.TabIndex = 9 Me.btnExport.TabIndex = 9
Me.btnExport.Text = "Exportar" Me.btnExport.Text = "Generar"
Me.btnExport.UseVisualStyleBackColor = False Me.btnExport.UseVisualStyleBackColor = False
Me.btnExport.Visible = False Me.btnExport.Visible = False
' '
@ -157,12 +158,26 @@ Partial Class frmReporteJ14
Me.panel3.Size = New System.Drawing.Size(684, 38) Me.panel3.Size = New System.Drawing.Size(684, 38)
Me.panel3.TabIndex = 403 Me.panel3.TabIndex = 403
' '
'btnExportXLS
'
Me.btnExportXLS.BackColor = System.Drawing.Color.Black
Me.btnExportXLS.Enabled = False
Me.btnExportXLS.ForeColor = System.Drawing.Color.White
Me.btnExportXLS.Location = New System.Drawing.Point(466, 64)
Me.btnExportXLS.Name = "btnExportXLS"
Me.btnExportXLS.Size = New System.Drawing.Size(83, 25)
Me.btnExportXLS.TabIndex = 404
Me.btnExportXLS.Text = "Exportar"
Me.btnExportXLS.UseVisualStyleBackColor = False
Me.btnExportXLS.Visible = False
'
'frmReporteJ14 'frmReporteJ14
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(684, 477) Me.ClientSize = New System.Drawing.Size(684, 477)
Me.Controls.Add(Me.btnExportXLS)
Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.btnExport) Me.Controls.Add(Me.btnExport)
@ -194,4 +209,5 @@ Partial Class frmReporteJ14
Private WithEvents panel2 As Panel Private WithEvents panel2 As Panel
Friend WithEvents lblFooter As Label Friend WithEvents lblFooter As Label
Private WithEvents panel3 As Panel Private WithEvents panel3 As Panel
Friend WithEvents btnExportXLS As Button
End Class End Class

View File

@ -18,6 +18,8 @@ Public Class frmReporteJ14
canExport = False canExport = False
btnExport.Enabled = canExport btnExport.Enabled = canExport
btnExport.Visible = canExport btnExport.Visible = canExport
btnExportXLS.Enabled = canExport
btnExportXLS.Visible = canExport
dgvResult.DataSource = Nothing dgvResult.DataSource = Nothing
incluyeInvalidos = 0 incluyeInvalidos = 0
Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?", Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
@ -42,10 +44,14 @@ Public Class frmReporteJ14
End If End If
btnExport.Enabled = canExport btnExport.Enabled = canExport
btnExport.Visible = canExport btnExport.Visible = canExport
btnExportXLS.Enabled = canExport
btnExportXLS.Visible = canExport
dgvResult.DataSource = dsGral.Tables(0) dgvResult.DataSource = dsGral.Tables(0)
Catch ex As Exception Catch ex As Exception
MessageBox.Show(ex.Message) MessageBox.Show(ex.Message)
End Try End Try
Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Búsqueda Reporte J14")
End Sub End Sub
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
@ -81,6 +87,8 @@ Public Class frmReporteJ14
End Try End Try
sr.Close() sr.Close()
Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Generando Reporte J14")
End Sub End Sub
Private Sub frmReporteJ14_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmReporteJ14_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@ -88,7 +96,7 @@ Public Class frmReporteJ14
Dim currentYear As Integer Dim currentYear As Integer
Dim comboSource As New Dictionary(Of String, String)() Dim comboSource As New Dictionary(Of String, String)()
initialYear = 2020 initialYear = 2019
currentYear = Now.Year currentYear = Now.Year
For year As Integer = initialYear To currentYear For year As Integer = initialYear To currentYear
comboSource.Add(year.ToString + "1", year.ToString + " - 1") comboSource.Add(year.ToString + "1", year.ToString + " - 1")
@ -102,6 +110,8 @@ Public Class frmReporteJ14
canExport = False canExport = False
btnExport.Enabled = canExport btnExport.Enabled = canExport
btnExport.Visible = canExport btnExport.Visible = canExport
btnExportXLS.Enabled = canExport
btnExportXLS.Visible = canExport
Dim ClassAud As New ClassMyUtils Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J14") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J14")
End Sub End Sub
@ -110,4 +120,40 @@ Public Class frmReporteJ14
Dim ClassAud As New ClassMyUtils Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Cerrando Reporte J14") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Cerrando Reporte J14")
End Sub End Sub
Private Sub btnExportXLS_Click(sender As Object, e As EventArgs) Handles btnExportXLS.Click
Dim fileName As String = year.ToString + "_" + quarter.ToString + "_ R03 J-0314"
Dim fullPath As String = fileName
Dim clsExcel As aExcel
Dim ds As New DataSet
Try
clsExcel = New aExcel
clsExcel.Titulo = fileName
ds.Tables.Add("ReporteJ14")
' Add Columns
Dim col As DataColumn
For Each dgvCol As DataGridViewColumn In dgvResult.Columns
col = New DataColumn(dgvCol.Name)
ds.Tables("ReporteJ14").Columns.Add(col)
Next
'Add Rows from the datagridview
Dim row As DataRow
Dim colcount As Integer = dgvResult.Columns.Count - 1
For i As Integer = 0 To dgvResult.Rows.Count - 1
row = ds.Tables("ReporteJ14").Rows.Add
For Each column As DataGridViewColumn In dgvResult.Columns
row.Item(column.Index) = dgvResult.Rows.Item(i).Cells(column.Index).Value
Next
Next
clsExcel.ExportDataset(ds)
'MessageBox.Show("Reporte generado correctamente")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Exportando Reporte J14")
End Sub
End Class End Class

View File

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>wp/BUmitH4XO8zkbRdDk8Ag8UQ8=</dsig:DigestValue> <dsig:DigestValue>cOaJB0l9sCxMAdeCEBDKjp2/rrM=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.

View File

@ -4,7 +4,7 @@
<description asmv2:iconFile="MINDS.ico" xmlns="urn:schemas-microsoft-com:asm.v1" /> <description asmv2:iconFile="MINDS.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
<application /> <application />
<entryPoint> <entryPoint>
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
<commandLine file="MINDS CLIENTEOF.exe" parameters="" /> <commandLine file="MINDS CLIENTEOF.exe" parameters="" />
</entryPoint> </entryPoint>
<trustInfo> <trustInfo>
@ -247,14 +247,14 @@
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5828608"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5831168">
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>wzgx4YgvMegsMJ59DfVeIRlabrw=</dsig:DigestValue> <dsig:DigestValue>CmEn4AYxicleViWqK6UCXGGB+VU=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.

Binary file not shown.

View File

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>wp/BUmitH4XO8zkbRdDk8Ag8UQ8=</dsig:DigestValue> <dsig:DigestValue>cOaJB0l9sCxMAdeCEBDKjp2/rrM=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.

View File

@ -4,7 +4,7 @@
<description asmv2:iconFile="MINDS.ico" xmlns="urn:schemas-microsoft-com:asm.v1" /> <description asmv2:iconFile="MINDS.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
<application /> <application />
<entryPoint> <entryPoint>
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
<commandLine file="MINDS CLIENTEOF.exe" parameters="" /> <commandLine file="MINDS CLIENTEOF.exe" parameters="" />
</entryPoint> </entryPoint>
<trustInfo> <trustInfo>
@ -247,14 +247,14 @@
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5828608"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5831168">
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>wzgx4YgvMegsMJ59DfVeIRlabrw=</dsig:DigestValue> <dsig:DigestValue>CmEn4AYxicleViWqK6UCXGGB+VU=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.