adecuacion j13 y j14
This commit is contained in:
parent
77329904b3
commit
b2cb4e716d
Binary file not shown.
Binary file not shown.
4
Actualizadores/frmParamsGral.Designer.vb
generated
4
Actualizadores/frmParamsGral.Designer.vb
generated
@ -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
|
||||||
|
@ -155,7 +155,7 @@
|
|||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="GridMaster.PropBag" xml:space="preserve">
|
<data name="GridMaster.PropBag" xml:space="preserve">
|
||||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>225</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 478, 225</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 478, 225</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>225</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 478, 225</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 478, 225</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></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>
|
||||||
|
@ -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")>
|
||||||
|
20
Reportes/frmReporteJ13.Designer.vb
generated
20
Reportes/frmReporteJ13.Designer.vb
generated
@ -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
|
||||||
|
@ -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
|
20
Reportes/frmReporteJ14.Designer.vb
generated
20
Reportes/frmReporteJ14.Designer.vb
generated
@ -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
|
||||||
|
@ -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
|
@ -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.
@ -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.
Binary file not shown.
@ -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.
@ -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.
Loading…
Reference in New Issue
Block a user