diff --git a/.vs/Minds Cliente/v15/.suo b/.vs/Minds Cliente/v15/.suo index debbf33..277e386 100644 Binary files a/.vs/Minds Cliente/v15/.suo and b/.vs/Minds Cliente/v15/.suo differ diff --git a/.vs/Minds Cliente/v15/Server/sqlite3/storage.ide b/.vs/Minds Cliente/v15/Server/sqlite3/storage.ide index 0f0f7f8..89330ad 100644 Binary files a/.vs/Minds Cliente/v15/Server/sqlite3/storage.ide and b/.vs/Minds Cliente/v15/Server/sqlite3/storage.ide differ diff --git a/Actualizadores/frmParam.Designer.vb b/Actualizadores/frmParam.Designer.vb index 5bf0343..b823bd7 100644 --- a/Actualizadores/frmParam.Designer.vb +++ b/Actualizadores/frmParam.Designer.vb @@ -44,6 +44,10 @@ Partial Class frmParam Me.panel3 = New System.Windows.Forms.Panel() Me.Label5 = 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.panel2.SuspendLayout() 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.ForeColor = System.Drawing.Color.White 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.Size = New System.Drawing.Size(106, 29) Me.BTCerrar.TabIndex = 6 @@ -128,6 +132,10 @@ Partial Class frmParam 'GroupBox1 ' 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.btnGuardarInusuales) Me.GroupBox1.Controls.Add(Me.btnGuardarRelevantes) @@ -146,7 +154,7 @@ Partial Class frmParam Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Location = New System.Drawing.Point(12, 66) 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.TabStop = False ' @@ -277,36 +285,37 @@ Partial Class frmParam ' Me.desHeader.AutoSize = True 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.Location = New System.Drawing.Point(21, 8) 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.Text = "Reportes CNBV" ' '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) Me.panel3.BackColor = System.Drawing.Color.Black Me.panel3.Controls.Add(Me.Label5) Me.panel3.Controls.Add(Me.lblFooter) 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.Size = New System.Drawing.Size(715, 33) Me.panel3.TabIndex = 361 ' '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.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.Location = New System.Drawing.Point(649, 5) + Me.Label5.Location = New System.Drawing.Point(649, 8) 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.Text = "Minds" ' @@ -314,20 +323,63 @@ Partial Class frmParam ' Me.lblFooter.AutoSize = True 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.Location = New System.Drawing.Point(1019, 7) 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.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 ' 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(712, 317) + Me.ClientSize = New System.Drawing.Size(712, 347) Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.GroupBox1) @@ -372,4 +424,8 @@ Partial Class frmParam Private WithEvents panel3 As Panel Friend WithEvents Label5 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 diff --git a/Actualizadores/frmParam.vb b/Actualizadores/frmParam.vb index ca02a15..a29eed2 100644 --- a/Actualizadores/frmParam.vb +++ b/Actualizadores/frmParam.vb @@ -2,11 +2,14 @@ Public Class frmParam Dim rutaAntR As String Dim rutaAntI 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 FolderBrowserDialog.ShowDialog() txtRutaRelevantes.Text = FolderBrowserDialog.SelectedPath btnGuardarRelevantes.Enabled = True + Colores() + End Sub 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") txtRutaInusuales.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaInusuales") txtRutaPreocupantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaPreocupantes") + txtRutaCarteras.Text = Classcom.ds.Tables(0).Rows(0).Item("rutacarteras") rutaAntR = txtRutaRelevantes.Text rutaAntI = txtRutaInusuales.Text rutaAntP = txtRutaPreocupantes.Text + rutaAntC = txtRutaCarteras.Text End If @@ -205,6 +210,11 @@ Public Class frmParam Else btnGuardarPreocupantes.BackColor = Color.Black End If + If btnGuardarCarteras.Enabled = False Then + btnGuardarCarteras.BackColor = Color.DarkGray + Else + btnGuardarCarteras.BackColor = Color.Black + End If End Sub 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) End Try 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 \ No newline at end of file diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 04cde22..45f09ce 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -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: - - + + diff --git a/Reportes/frmReporteJ13.vb b/Reportes/frmReporteJ13.vb index 3dfdaf5..c1e8ab7 100644 --- a/Reportes/frmReporteJ13.vb +++ b/Reportes/frmReporteJ13.vb @@ -37,18 +37,31 @@ Public Class frmReporteJ13 Dim SQL As String = String.Empty Dim idInherent As Integer Dim idConrolEffect As Integer + Dim incluyeInvalidos As Integer comboKey = DirectCast(cmbSemester.SelectedItem, KeyValuePair(Of String, String)).Key year = comboKey.Substring(0, 4) semester = comboKey.Substring(comboKey.Length - 1) 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 - SQL = "sp_Consulta_ReporteJ13 " + year + ", " + semester + SQL = "sp_Consulta_ReporteJ13 " + year + ", " + semester + ", " + incluyeInvalidos.ToString Dim dsGral As DataSet = Classcom.fdtDataSet(SQL) If dsGral.Tables.Count = 0 Then MessageBox.Show("No existen registros para el semestre seleccionado") + Exit Sub ElseIf dsGral.Tables(0).Rows.Count = 0 Then MessageBox.Show("No existen registros para el semestre seleccionado") + Exit Sub Else canExport = True End If @@ -62,12 +75,24 @@ Public Class frmReporteJ13 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 repDirectory As String = "" + Dim fullPath As String = fileName Dim sr As StreamWriter Dim strDelimiter As String = ";" Dim intColumnCount As Integer = dgvResult.Columns.Count - 1 Dim strRowData As String = "" + Dim Classcom As New clsComplejo + 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 strRowData = "" For intRowData As Integer = 0 To intColumnCount diff --git a/Reportes/frmReporteJ14.vb b/Reportes/frmReporteJ14.vb index 4ba3e69..c630401 100644 --- a/Reportes/frmReporteJ14.vb +++ b/Reportes/frmReporteJ14.vb @@ -11,18 +11,32 @@ Public Class frmReporteJ14 Dim SQL As String = String.Empty Dim idInherent As Integer Dim idConrolEffect As Integer + Dim incluyeInvalidos As Integer comboKey = DirectCast(cmbQuarter.SelectedItem, KeyValuePair(Of String, String)).Key year = comboKey.Substring(0, 4) quarter = comboKey.Substring(comboKey.Length - 1) 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 - SQL = "sp_Consulta_ReporteJ14 " + year + ", " + quarter + SQL = "sp_Consulta_ReporteJ14 " + year + ", " + quarter + ", " + incluyeInvalidos.ToString Dim dsGral As DataSet = Classcom.fdtDataSet(SQL) 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 - MessageBox.Show("No existen registros para el semestre seleccionado") + MessageBox.Show("No existen registros para el trimestre seleccionado") + Exit Sub Else canExport = True End If @@ -36,12 +50,23 @@ Public Class frmReporteJ14 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 repDirectory As String = "" + Dim fullPath As String = fileName Dim sr As StreamWriter Dim strDelimiter As String = ";" Dim intColumnCount As Integer = dgvResult.Columns.Count - 1 Dim strRowData As String = "" + Dim Classcom As New clsComplejo 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 strRowData = "" For intRowData As Integer = 0 To intColumnCount diff --git a/bin/MINDS CLIENTEOF.application b/bin/MINDS CLIENTEOF.application index 411fde8..97cd3e3 100644 --- a/bin/MINDS CLIENTEOF.application +++ b/bin/MINDS CLIENTEOF.application @@ -14,7 +14,7 @@ - XDA0ED8wf/l3fI+NIvEsm2C8Ywc= + wp/BUmitH4XO8zkbRdDk8Ag8UQ8= diff --git a/bin/MINDS CLIENTEOF.exe b/bin/MINDS CLIENTEOF.exe index f2196e9..7480b45 100644 Binary files a/bin/MINDS CLIENTEOF.exe and b/bin/MINDS CLIENTEOF.exe differ diff --git a/bin/MINDS CLIENTEOF.exe.manifest b/bin/MINDS CLIENTEOF.exe.manifest index 17803d2..98b7469 100644 --- a/bin/MINDS CLIENTEOF.exe.manifest +++ b/bin/MINDS CLIENTEOF.exe.manifest @@ -4,7 +4,7 @@ - + @@ -247,14 +247,14 @@ - - + + - Js4Wcp+Y5s7qlw5GITfhusML5IM= + wzgx4YgvMegsMJ59DfVeIRlabrw= diff --git a/bin/MINDS CLIENTEOF.pdb b/bin/MINDS CLIENTEOF.pdb index 0575e5a..4463046 100644 Binary files a/bin/MINDS CLIENTEOF.pdb and b/bin/MINDS CLIENTEOF.pdb differ diff --git a/bin/MINDS CLIENTEOF_20200428.zip b/bin/MINDS CLIENTEOF_20200428.zip new file mode 100644 index 0000000..453d02e Binary files /dev/null and b/bin/MINDS CLIENTEOF_20200428.zip differ diff --git a/bin/app.publish/MINDS CLIENTEOF.exe b/bin/app.publish/MINDS CLIENTEOF.exe index f2196e9..7480b45 100644 Binary files a/bin/app.publish/MINDS CLIENTEOF.exe and b/bin/app.publish/MINDS CLIENTEOF.exe differ diff --git a/obj/Debug/MINDS CLIENTEOF.application b/obj/Debug/MINDS CLIENTEOF.application index 411fde8..97cd3e3 100644 --- a/obj/Debug/MINDS CLIENTEOF.application +++ b/obj/Debug/MINDS CLIENTEOF.application @@ -14,7 +14,7 @@ - XDA0ED8wf/l3fI+NIvEsm2C8Ywc= + wp/BUmitH4XO8zkbRdDk8Ag8UQ8= diff --git a/obj/Debug/MINDS CLIENTEOF.exe b/obj/Debug/MINDS CLIENTEOF.exe index f2196e9..7480b45 100644 Binary files a/obj/Debug/MINDS CLIENTEOF.exe and b/obj/Debug/MINDS CLIENTEOF.exe differ diff --git a/obj/Debug/MINDS CLIENTEOF.exe.manifest b/obj/Debug/MINDS CLIENTEOF.exe.manifest index 17803d2..98b7469 100644 --- a/obj/Debug/MINDS CLIENTEOF.exe.manifest +++ b/obj/Debug/MINDS CLIENTEOF.exe.manifest @@ -4,7 +4,7 @@ - + @@ -247,14 +247,14 @@ - - + + - Js4Wcp+Y5s7qlw5GITfhusML5IM= + wzgx4YgvMegsMJ59DfVeIRlabrw= diff --git a/obj/Debug/MINDS CLIENTEOF.pdb b/obj/Debug/MINDS CLIENTEOF.pdb index 0575e5a..4463046 100644 Binary files a/obj/Debug/MINDS CLIENTEOF.pdb and b/obj/Debug/MINDS CLIENTEOF.pdb differ diff --git a/obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache b/obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache index 24b1a8a..70c7c45 100644 Binary files a/obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache and b/obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache differ