j13 y j14
This commit is contained in:
parent
7313774880
commit
77329904b3
Binary file not shown.
Binary file not shown.
80
Actualizadores/frmParam.Designer.vb
generated
80
Actualizadores/frmParam.Designer.vb
generated
@ -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
|
||||||
|
@ -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
|
@ -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")>
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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.
@ -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.
BIN
bin/MINDS CLIENTEOF_20200428.zip
Normal file
BIN
bin/MINDS CLIENTEOF_20200428.zip
Normal file
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>XDA0ED8wf/l3fI+NIvEsm2C8Ywc=</dsig:DigestValue>
|
<dsig:DigestValue>wp/BUmitH4XO8zkbRdDk8Ag8UQ8=</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.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.
Loading…
Reference in New Issue
Block a user