j13 y j14

This commit is contained in:
Tito Ruiz 2020-05-06 18:18:29 -05:00
parent 7313774880
commit 77329904b3
18 changed files with 183 additions and 30 deletions

Binary file not shown.

View File

@ -44,6 +44,10 @@ Partial Class frmParam
Me.panel3 = New System.Windows.Forms.Panel() Me.panel3 = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.lblFooter = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label()
Me.btnGuardarCarteras = New System.Windows.Forms.Button()
Me.txtRutaCarteras = New System.Windows.Forms.TextBox()
Me.btnRutaCarteras = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.panel2.SuspendLayout() Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
@ -108,7 +112,7 @@ Partial Class frmParam
Me.BTCerrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) Me.BTCerrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.BTCerrar.ForeColor = System.Drawing.Color.White Me.BTCerrar.ForeColor = System.Drawing.Color.White
Me.BTCerrar.ImageAlign = System.Drawing.ContentAlignment.BottomCenter Me.BTCerrar.ImageAlign = System.Drawing.ContentAlignment.BottomCenter
Me.BTCerrar.Location = New System.Drawing.Point(562, 171) Me.BTCerrar.Location = New System.Drawing.Point(562, 205)
Me.BTCerrar.Name = "BTCerrar" Me.BTCerrar.Name = "BTCerrar"
Me.BTCerrar.Size = New System.Drawing.Size(106, 29) Me.BTCerrar.Size = New System.Drawing.Size(106, 29)
Me.BTCerrar.TabIndex = 6 Me.BTCerrar.TabIndex = 6
@ -128,6 +132,10 @@ Partial Class frmParam
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.BackColor = System.Drawing.Color.White Me.GroupBox1.BackColor = System.Drawing.Color.White
Me.GroupBox1.Controls.Add(Me.btnGuardarCarteras)
Me.GroupBox1.Controls.Add(Me.txtRutaCarteras)
Me.GroupBox1.Controls.Add(Me.btnRutaCarteras)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.btnGuardarPreocupantes) Me.GroupBox1.Controls.Add(Me.btnGuardarPreocupantes)
Me.GroupBox1.Controls.Add(Me.btnGuardarInusuales) Me.GroupBox1.Controls.Add(Me.btnGuardarInusuales)
Me.GroupBox1.Controls.Add(Me.btnGuardarRelevantes) Me.GroupBox1.Controls.Add(Me.btnGuardarRelevantes)
@ -146,7 +154,7 @@ Partial Class frmParam
Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(12, 66) Me.GroupBox1.Location = New System.Drawing.Point(12, 66)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(691, 205) Me.GroupBox1.Size = New System.Drawing.Size(691, 241)
Me.GroupBox1.TabIndex = 8 Me.GroupBox1.TabIndex = 8
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
@ -277,36 +285,37 @@ Partial Class frmParam
' '
Me.desHeader.AutoSize = True Me.desHeader.AutoSize = True
Me.desHeader.BackColor = System.Drawing.Color.Transparent Me.desHeader.BackColor = System.Drawing.Color.Transparent
Me.desHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.desHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.desHeader.ForeColor = System.Drawing.SystemColors.Window Me.desHeader.ForeColor = System.Drawing.SystemColors.Window
Me.desHeader.Location = New System.Drawing.Point(21, 8) Me.desHeader.Location = New System.Drawing.Point(21, 8)
Me.desHeader.Name = "desHeader" Me.desHeader.Name = "desHeader"
Me.desHeader.Size = New System.Drawing.Size(151, 22) Me.desHeader.Size = New System.Drawing.Size(143, 24)
Me.desHeader.TabIndex = 2 Me.desHeader.TabIndex = 2
Me.desHeader.Text = "Reportes CNBV" Me.desHeader.Text = "Reportes CNBV"
' '
'panel3 'panel3
' '
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel3.BackColor = System.Drawing.Color.Black Me.panel3.BackColor = System.Drawing.Color.Black
Me.panel3.Controls.Add(Me.Label5) Me.panel3.Controls.Add(Me.Label5)
Me.panel3.Controls.Add(Me.lblFooter) Me.panel3.Controls.Add(Me.lblFooter)
Me.panel3.ForeColor = System.Drawing.Color.Navy Me.panel3.ForeColor = System.Drawing.Color.Navy
Me.panel3.Location = New System.Drawing.Point(3, 294) Me.panel3.Location = New System.Drawing.Point(3, 313)
Me.panel3.Name = "panel3" Me.panel3.Name = "panel3"
Me.panel3.Size = New System.Drawing.Size(715, 33) Me.panel3.Size = New System.Drawing.Size(715, 33)
Me.panel3.TabIndex = 361 Me.panel3.TabIndex = 361
' '
'Label5 'Label5
' '
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.BackColor = System.Drawing.Color.Transparent Me.Label5.BackColor = System.Drawing.Color.Transparent
Me.Label5.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.SystemColors.Window Me.Label5.ForeColor = System.Drawing.SystemColors.Window
Me.Label5.Location = New System.Drawing.Point(649, 5) Me.Label5.Location = New System.Drawing.Point(649, 8)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(42, 17) Me.Label5.Size = New System.Drawing.Size(41, 15)
Me.Label5.TabIndex = 3 Me.Label5.TabIndex = 3
Me.Label5.Text = "Minds" Me.Label5.Text = "Minds"
' '
@ -314,20 +323,63 @@ Partial Class frmParam
' '
Me.lblFooter.AutoSize = True Me.lblFooter.AutoSize = True
Me.lblFooter.BackColor = System.Drawing.Color.Transparent Me.lblFooter.BackColor = System.Drawing.Color.Transparent
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblFooter.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
Me.lblFooter.Location = New System.Drawing.Point(1019, 7) Me.lblFooter.Location = New System.Drawing.Point(1019, 7)
Me.lblFooter.Name = "lblFooter" Me.lblFooter.Name = "lblFooter"
Me.lblFooter.Size = New System.Drawing.Size(42, 17) Me.lblFooter.Size = New System.Drawing.Size(41, 15)
Me.lblFooter.TabIndex = 2 Me.lblFooter.TabIndex = 2
Me.lblFooter.Text = "Minds" Me.lblFooter.Text = "Minds"
' '
'btnGuardarCarteras
'
Me.btnGuardarCarteras.BackColor = System.Drawing.Color.Black
Me.btnGuardarCarteras.Enabled = False
Me.btnGuardarCarteras.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.btnGuardarCarteras.ForeColor = System.Drawing.Color.White
Me.btnGuardarCarteras.ImageAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnGuardarCarteras.Location = New System.Drawing.Point(562, 169)
Me.btnGuardarCarteras.Name = "btnGuardarCarteras"
Me.btnGuardarCarteras.Size = New System.Drawing.Size(106, 32)
Me.btnGuardarCarteras.TabIndex = 19
Me.btnGuardarCarteras.Text = "Aceptar"
Me.btnGuardarCarteras.UseVisualStyleBackColor = False
'
'txtRutaCarteras
'
Me.txtRutaCarteras.Enabled = False
Me.txtRutaCarteras.Location = New System.Drawing.Point(189, 176)
Me.txtRutaCarteras.Name = "txtRutaCarteras"
Me.txtRutaCarteras.Size = New System.Drawing.Size(367, 20)
Me.txtRutaCarteras.TabIndex = 18
'
'btnRutaCarteras
'
Me.btnRutaCarteras.BackColor = System.Drawing.Color.Black
Me.btnRutaCarteras.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnRutaCarteras.ForeColor = System.Drawing.Color.White
Me.btnRutaCarteras.Location = New System.Drawing.Point(143, 173)
Me.btnRutaCarteras.Name = "btnRutaCarteras"
Me.btnRutaCarteras.Size = New System.Drawing.Size(40, 23)
Me.btnRutaCarteras.TabIndex = 17
Me.btnRutaCarteras.Text = ". . ."
Me.btnRutaCarteras.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(9, 179)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(123, 13)
Me.Label6.TabIndex = 16
Me.Label6.Text = "Path Reportes J13 y J14"
'
'frmParam 'frmParam
' '
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(712, 317) Me.ClientSize = New System.Drawing.Size(712, 347)
Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
@ -372,4 +424,8 @@ Partial Class frmParam
Private WithEvents panel3 As Panel Private WithEvents panel3 As Panel
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents lblFooter As Label Friend WithEvents lblFooter As Label
Friend WithEvents btnGuardarCarteras As Button
Friend WithEvents txtRutaCarteras As TextBox
Friend WithEvents btnRutaCarteras As Button
Friend WithEvents Label6 As Label
End Class End Class

View File

@ -2,11 +2,14 @@ Public Class frmParam
Dim rutaAntR As String Dim rutaAntR As String
Dim rutaAntI As String Dim rutaAntI As String
Dim rutaAntP As String Dim rutaAntP As String
Dim rutaAntC As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRutaRelevantes.Click Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRutaRelevantes.Click
FolderBrowserDialog.ShowDialog() FolderBrowserDialog.ShowDialog()
txtRutaRelevantes.Text = FolderBrowserDialog.SelectedPath txtRutaRelevantes.Text = FolderBrowserDialog.SelectedPath
btnGuardarRelevantes.Enabled = True btnGuardarRelevantes.Enabled = True
Colores()
End Sub End Sub
Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click
@ -122,9 +125,11 @@ Public Class frmParam
txtRutaRelevantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaRelevantes") txtRutaRelevantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaRelevantes")
txtRutaInusuales.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaInusuales") txtRutaInusuales.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaInusuales")
txtRutaPreocupantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaPreocupantes") txtRutaPreocupantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaPreocupantes")
txtRutaCarteras.Text = Classcom.ds.Tables(0).Rows(0).Item("rutacarteras")
rutaAntR = txtRutaRelevantes.Text rutaAntR = txtRutaRelevantes.Text
rutaAntI = txtRutaInusuales.Text rutaAntI = txtRutaInusuales.Text
rutaAntP = txtRutaPreocupantes.Text rutaAntP = txtRutaPreocupantes.Text
rutaAntC = txtRutaCarteras.Text
End If End If
@ -205,6 +210,11 @@ Public Class frmParam
Else Else
btnGuardarPreocupantes.BackColor = Color.Black btnGuardarPreocupantes.BackColor = Color.Black
End If End If
If btnGuardarCarteras.Enabled = False Then
btnGuardarCarteras.BackColor = Color.DarkGray
Else
btnGuardarCarteras.BackColor = Color.Black
End If
End Sub End Sub
Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles lblCveNombreSofome.Click Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles lblCveNombreSofome.Click
@ -283,4 +293,41 @@ Public Class frmParam
MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try End Try
End Sub End Sub
Private Sub btnGuardarCarteras_Click(sender As Object, e As EventArgs) Handles btnGuardarCarteras.Click
Dim strSqlParam As String
Dim ClassCom As New clsComplejo
Try
ClassCom.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera FROM ParamRep ")
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
'strSqlParam = " UPDATE ParamRep SET IdOrganismoInternacional = '001002',idinstitucionFinanciera = '" & Me.CbOInFinanciera.SelectedValue & "',rutainusuales = '" & TXTRutaInusuales.Text & "'"
strSqlParam = " UPDATE ParamRep SET rutacarteras = '" & txtRutaCarteras.Text & "'"
ClassCom.sbGuardaModifica(strSqlParam)
Else
strSqlParam = " INSERT INTO ParamRep (IdOrganismoInternacional,idinstitucionFinanciera,rutacarteras) VALUES ('1002','" & CbOInFinanciera.SelectedValue & "','" & txtRutaCarteras.Text & "')"
ClassCom.sbInserta(strSqlParam)
End If
btnGuardarCarteras.Enabled = False
Dim coneccion As New ClassMyUtils
coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "MODIFICACIÓN DE LA RUTA REPORTES CARTERAS DE VALORES (ANTERIOR:" & rutaAntC & ", NUEVO:" & txtRutaCarteras.Text & ")")
rutaAntC = txtRutaCarteras.Text
Colores()
Catch ex As Exception
MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub btnRutaCarteras_Click(sender As Object, e As EventArgs) Handles btnRutaCarteras.Click
FolderBrowserDialog.ShowDialog()
txtRutaCarteras.Text = FolderBrowserDialog.SelectedPath
btnGuardarCarteras.Enabled = True
Colores()
End Sub
End Class End Class

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.5")> <Assembly: AssemblyVersion("2.5.5.7")>
<Assembly: AssemblyFileVersion("2.5.5.5")> <Assembly: AssemblyFileVersion("2.5.5.7")>

View File

@ -37,18 +37,31 @@ Public Class frmReporteJ13
Dim SQL As String = String.Empty Dim SQL As String = String.Empty
Dim idInherent As Integer Dim idInherent As Integer
Dim idConrolEffect As Integer Dim idConrolEffect As Integer
Dim incluyeInvalidos As Integer
comboKey = DirectCast(cmbSemester.SelectedItem, KeyValuePair(Of String, String)).Key comboKey = DirectCast(cmbSemester.SelectedItem, KeyValuePair(Of String, String)).Key
year = comboKey.Substring(0, 4) year = comboKey.Substring(0, 4)
semester = comboKey.Substring(comboKey.Length - 1) semester = comboKey.Substring(comboKey.Length - 1)
canExport = False canExport = False
btnExport.Enabled = canExport
btnExport.Visible = canExport
dgvResult.DataSource = Nothing
incluyeInvalidos = 0
Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
"Reporte J13",
MessageBoxButtons.YesNo)
If result = DialogResult.Yes Then
incluyeInvalidos = 1
End If
Try Try
SQL = "sp_Consulta_ReporteJ13 " + year + ", " + semester SQL = "sp_Consulta_ReporteJ13 " + year + ", " + semester + ", " + incluyeInvalidos.ToString
Dim dsGral As DataSet = Classcom.fdtDataSet(SQL) Dim dsGral As DataSet = Classcom.fdtDataSet(SQL)
If dsGral.Tables.Count = 0 Then If dsGral.Tables.Count = 0 Then
MessageBox.Show("No existen registros para el semestre seleccionado") MessageBox.Show("No existen registros para el semestre seleccionado")
Exit Sub
ElseIf dsGral.Tables(0).Rows.Count = 0 Then ElseIf dsGral.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No existen registros para el semestre seleccionado") MessageBox.Show("No existen registros para el semestre seleccionado")
Exit Sub
Else Else
canExport = True canExport = True
End If End If
@ -62,12 +75,24 @@ Public Class frmReporteJ13
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
Dim fileName As String = year.ToString + "_" + semester.ToString + "_ R03 J-0313.txt" Dim fileName As String = year.ToString + "_" + semester.ToString + "_ R03 J-0313.txt"
Dim repDirectory As String = ""
Dim fullPath As String = fileName
Dim sr As StreamWriter Dim sr As StreamWriter
Dim strDelimiter As String = ";" Dim strDelimiter As String = ";"
Dim intColumnCount As Integer = dgvResult.Columns.Count - 1 Dim intColumnCount As Integer = dgvResult.Columns.Count - 1
Dim strRowData As String = "" Dim strRowData As String = ""
Dim Classcom As New clsComplejo
Try Try
sr = File.CreateText(fileName) Classcom.fdtDataSet("SELECT * FROM ParamRep")
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
repDirectory = Classcom.ds.Tables(0).Rows(0).Item("rutacarteras").ToString()
If Directory.Exists(repDirectory) = False Then ' si no existe la carpeta se crea
Directory.CreateDirectory(repDirectory)
End If
fullPath = repDirectory & "\" & fileName
End If
sr = File.CreateText(fullPath)
For intX As Integer = 0 To dgvResult.Rows.Count - 1 For intX As Integer = 0 To dgvResult.Rows.Count - 1
strRowData = "" strRowData = ""
For intRowData As Integer = 0 To intColumnCount For intRowData As Integer = 0 To intColumnCount

View File

@ -11,18 +11,32 @@ Public Class frmReporteJ14
Dim SQL As String = String.Empty Dim SQL As String = String.Empty
Dim idInherent As Integer Dim idInherent As Integer
Dim idConrolEffect As Integer Dim idConrolEffect As Integer
Dim incluyeInvalidos As Integer
comboKey = DirectCast(cmbQuarter.SelectedItem, KeyValuePair(Of String, String)).Key comboKey = DirectCast(cmbQuarter.SelectedItem, KeyValuePair(Of String, String)).Key
year = comboKey.Substring(0, 4) year = comboKey.Substring(0, 4)
quarter = comboKey.Substring(comboKey.Length - 1) quarter = comboKey.Substring(comboKey.Length - 1)
canExport = False canExport = False
btnExport.Enabled = canExport
btnExport.Visible = canExport
dgvResult.DataSource = Nothing
incluyeInvalidos = 0
Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
"Reporte J14",
MessageBoxButtons.YesNo)
If result = DialogResult.Yes Then
incluyeInvalidos = 1
End If
Try Try
SQL = "sp_Consulta_ReporteJ14 " + year + ", " + quarter SQL = "sp_Consulta_ReporteJ14 " + year + ", " + quarter + ", " + incluyeInvalidos.ToString
Dim dsGral As DataSet = Classcom.fdtDataSet(SQL) Dim dsGral As DataSet = Classcom.fdtDataSet(SQL)
If dsGral.Tables.Count = 0 Then If dsGral.Tables.Count = 0 Then
MessageBox.Show("No existen registros para el semestre seleccionado") MessageBox.Show("No existen registros para el trimestre seleccionado")
Exit Sub
ElseIf dsGral.Tables(0).Rows.Count = 0 Then ElseIf dsGral.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No existen registros para el semestre seleccionado") MessageBox.Show("No existen registros para el trimestre seleccionado")
Exit Sub
Else Else
canExport = True canExport = True
End If End If
@ -36,12 +50,23 @@ Public Class frmReporteJ14
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
Dim fileName As String = year.ToString + "_" + quarter.ToString + "_ R03 J-0314.txt" Dim fileName As String = year.ToString + "_" + quarter.ToString + "_ R03 J-0314.txt"
Dim repDirectory As String = ""
Dim fullPath As String = fileName
Dim sr As StreamWriter Dim sr As StreamWriter
Dim strDelimiter As String = ";" Dim strDelimiter As String = ";"
Dim intColumnCount As Integer = dgvResult.Columns.Count - 1 Dim intColumnCount As Integer = dgvResult.Columns.Count - 1
Dim strRowData As String = "" Dim strRowData As String = ""
Dim Classcom As New clsComplejo
Try Try
sr = File.CreateText(fileName) Classcom.fdtDataSet("SELECT * FROM ParamRep")
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
repDirectory = Classcom.ds.Tables(0).Rows(0).Item("rutacarteras").ToString()
If Directory.Exists(repDirectory) = False Then ' si no existe la carpeta se crea
Directory.CreateDirectory(repDirectory)
End If
fullPath = repDirectory & "\" & fileName
End If
sr = File.CreateText(fullPath)
For intX As Integer = 0 To dgvResult.Rows.Count - 1 For intX As Integer = 0 To dgvResult.Rows.Count - 1
strRowData = "" strRowData = ""
For intRowData As Integer = 0 To intColumnCount For intRowData As Integer = 0 To intColumnCount

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>XDA0ED8wf/l3fI+NIvEsm2C8Ywc=</dsig:DigestValue> <dsig:DigestValue>wp/BUmitH4XO8zkbRdDk8Ag8UQ8=</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.5" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" 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="5824512"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5828608">
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.5" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" 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>Js4Wcp+Y5s7qlw5GITfhusML5IM=</dsig:DigestValue> <dsig:DigestValue>wzgx4YgvMegsMJ59DfVeIRlabrw=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.

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>XDA0ED8wf/l3fI+NIvEsm2C8Ywc=</dsig:DigestValue> <dsig:DigestValue>wp/BUmitH4XO8zkbRdDk8Ag8UQ8=</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.5" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" 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="5824512"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5828608">
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.5" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.7" 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>Js4Wcp+Y5s7qlw5GITfhusML5IM=</dsig:DigestValue> <dsig:DigestValue>wzgx4YgvMegsMJ59DfVeIRlabrw=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.