adecuacion j13 y j14
This commit is contained in:
Tito Ruiz
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.MaxLength = 50
|
||||
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
|
||||
'
|
||||
'lblTraduccion
|
||||
@ -139,7 +139,7 @@ Partial Class frmParamsGral
|
||||
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.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.Size = New System.Drawing.Size(72, 21)
|
||||
Me.chkActivo.TabIndex = 93
|
||||
|
||||
@ -155,7 +155,7 @@
|
||||
</value>
|
||||
</data>
|
||||
<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 name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
|
||||
@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
|
||||
<Assembly: AssemblyVersion("2.5.5.7")>
|
||||
<Assembly: AssemblyFileVersion("2.5.5.7")>
|
||||
<Assembly: AssemblyVersion("2.5.5.9")>
|
||||
<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.lblFooter = New System.Windows.Forms.Label()
|
||||
Me.panel3 = New System.Windows.Forms.Panel()
|
||||
Me.btnExportXLS = New System.Windows.Forms.Button()
|
||||
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.panel2.SuspendLayout()
|
||||
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -88,11 +89,11 @@ Partial Class frmReporteJ13
|
||||
Me.btnExport.BackColor = System.Drawing.Color.Black
|
||||
Me.btnExport.Enabled = False
|
||||
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.Size = New System.Drawing.Size(83, 25)
|
||||
Me.btnExport.TabIndex = 4
|
||||
Me.btnExport.Text = "Exportar"
|
||||
Me.btnExport.Text = "Generar"
|
||||
Me.btnExport.UseVisualStyleBackColor = False
|
||||
Me.btnExport.Visible = False
|
||||
'
|
||||
@ -157,12 +158,26 @@ Partial Class frmReporteJ13
|
||||
Me.panel3.Size = New System.Drawing.Size(700, 38)
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(700, 461)
|
||||
Me.Controls.Add(Me.btnExportXLS)
|
||||
Me.Controls.Add(Me.panel3)
|
||||
Me.Controls.Add(Me.panel2)
|
||||
Me.Controls.Add(Me.btnExport)
|
||||
@ -194,4 +209,5 @@ Partial Class frmReporteJ13
|
||||
Private WithEvents Img_logoCabecera As PictureBox
|
||||
Friend WithEvents lblFooter As Label
|
||||
Private WithEvents panel3 As Panel
|
||||
Friend WithEvents btnExportXLS As Button
|
||||
End Class
|
||||
|
||||
@ -11,7 +11,7 @@ Public Class frmReporteJ13
|
||||
Dim currentYear As Integer
|
||||
Dim comboSource As New Dictionary(Of String, String)()
|
||||
|
||||
initialYear = 2020
|
||||
initialYear = 2019
|
||||
currentYear = Now.Year
|
||||
For year As Integer = initialYear To currentYear
|
||||
comboSource.Add(year.ToString + "1", year.ToString + " - 1")
|
||||
@ -23,6 +23,8 @@ Public Class frmReporteJ13
|
||||
canExport = False
|
||||
btnExport.Enabled = canExport
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J13")
|
||||
End Sub
|
||||
@ -44,6 +46,8 @@ Public Class frmReporteJ13
|
||||
canExport = False
|
||||
btnExport.Enabled = canExport
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
dgvResult.DataSource = Nothing
|
||||
incluyeInvalidos = 0
|
||||
Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
|
||||
@ -67,10 +71,14 @@ Public Class frmReporteJ13
|
||||
End If
|
||||
btnExport.Enabled = canExport
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
dgvResult.DataSource = dsGral.Tables(0)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Consulta Reporte J13")
|
||||
End Sub
|
||||
|
||||
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
|
||||
@ -105,7 +113,44 @@ Public Class frmReporteJ13
|
||||
MessageBox.Show(ex.Message)
|
||||
|
||||
End Try
|
||||
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Generando Reporte J13")
|
||||
sr.Close()
|
||||
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
|
||||
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.lblFooter = New System.Windows.Forms.Label()
|
||||
Me.panel3 = New System.Windows.Forms.Panel()
|
||||
Me.btnExportXLS = New System.Windows.Forms.Button()
|
||||
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.panel2.SuspendLayout()
|
||||
@ -43,11 +44,11 @@ Partial Class frmReporteJ14
|
||||
Me.btnExport.BackColor = System.Drawing.Color.Black
|
||||
Me.btnExport.Enabled = False
|
||||
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.Size = New System.Drawing.Size(83, 25)
|
||||
Me.btnExport.TabIndex = 9
|
||||
Me.btnExport.Text = "Exportar"
|
||||
Me.btnExport.Text = "Generar"
|
||||
Me.btnExport.UseVisualStyleBackColor = False
|
||||
Me.btnExport.Visible = False
|
||||
'
|
||||
@ -157,12 +158,26 @@ Partial Class frmReporteJ14
|
||||
Me.panel3.Size = New System.Drawing.Size(684, 38)
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(684, 477)
|
||||
Me.Controls.Add(Me.btnExportXLS)
|
||||
Me.Controls.Add(Me.panel3)
|
||||
Me.Controls.Add(Me.panel2)
|
||||
Me.Controls.Add(Me.btnExport)
|
||||
@ -194,4 +209,5 @@ Partial Class frmReporteJ14
|
||||
Private WithEvents panel2 As Panel
|
||||
Friend WithEvents lblFooter As Label
|
||||
Private WithEvents panel3 As Panel
|
||||
Friend WithEvents btnExportXLS As Button
|
||||
End Class
|
||||
|
||||
@ -18,6 +18,8 @@ Public Class frmReporteJ14
|
||||
canExport = False
|
||||
btnExport.Enabled = canExport
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
dgvResult.DataSource = Nothing
|
||||
incluyeInvalidos = 0
|
||||
Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
|
||||
@ -42,10 +44,14 @@ Public Class frmReporteJ14
|
||||
End If
|
||||
btnExport.Enabled = canExport
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
dgvResult.DataSource = dsGral.Tables(0)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Búsqueda Reporte J14")
|
||||
End Sub
|
||||
|
||||
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
|
||||
@ -81,6 +87,8 @@ Public Class frmReporteJ14
|
||||
End Try
|
||||
|
||||
sr.Close()
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Generando Reporte J14")
|
||||
End Sub
|
||||
|
||||
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 comboSource As New Dictionary(Of String, String)()
|
||||
|
||||
initialYear = 2020
|
||||
initialYear = 2019
|
||||
currentYear = Now.Year
|
||||
For year As Integer = initialYear To currentYear
|
||||
comboSource.Add(year.ToString + "1", year.ToString + " - 1")
|
||||
@ -102,6 +110,8 @@ Public Class frmReporteJ14
|
||||
canExport = False
|
||||
btnExport.Enabled = canExport
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J14")
|
||||
End Sub
|
||||
@ -110,4 +120,40 @@ Public Class frmReporteJ14
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Cerrando Reporte J14")
|
||||
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
|
||||
@ -14,7 +14,7 @@
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>wp/BUmitH4XO8zkbRdDk8Ag8UQ8=</dsig:DigestValue>
|
||||
<dsig:DigestValue>cOaJB0l9sCxMAdeCEBDKjp2/rrM=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@ -4,7 +4,7 @@
|
||||
<description asmv2:iconFile="MINDS.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<application />
|
||||
<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="" />
|
||||
</entryPoint>
|
||||
<trustInfo>
|
||||
@ -247,14 +247,14 @@
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5828608">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" language="neutral" processorArchitecture="msil" />
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5831168">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>wzgx4YgvMegsMJ59DfVeIRlabrw=</dsig:DigestValue>
|
||||
<dsig:DigestValue>CmEn4AYxicleViWqK6UCXGGB+VU=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</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:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>wp/BUmitH4XO8zkbRdDk8Ag8UQ8=</dsig:DigestValue>
|
||||
<dsig:DigestValue>cOaJB0l9sCxMAdeCEBDKjp2/rrM=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@ -4,7 +4,7 @@
|
||||
<description asmv2:iconFile="MINDS.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<application />
|
||||
<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="" />
|
||||
</entryPoint>
|
||||
<trustInfo>
|
||||
@ -247,14 +247,14 @@
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5828608">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" language="neutral" processorArchitecture="msil" />
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5831168">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>wzgx4YgvMegsMJ59DfVeIRlabrw=</dsig:DigestValue>
|
||||
<dsig:DigestValue>CmEn4AYxicleViWqK6UCXGGB+VU=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user