1671 lines
69 KiB
VB.net
1671 lines
69 KiB
VB.net
'*************************
|
||
'octubre del 2005
|
||
'importacion de espacios de nombres o clases
|
||
Imports CLIENTE.dmModulo
|
||
Imports System.Data.SqlClient
|
||
'Imports AxMSFlexGridLib.AxMSFlexGrid
|
||
Imports C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||
|
||
'Clase que me permite configurar los parametros para leer datos de tablas
|
||
Public Class clsComplejo
|
||
'Declaracion de los instancias de objetos para conectarme a la base de datos
|
||
Public Indice As Integer 'indice de la lista o combo
|
||
Public cnString As String 'cadena de conexiòn de la BD
|
||
Public lsSQL As String 'declaracion de datagrid
|
||
Public cn As New SqlClient.SqlConnection() 'declaraciòn de conexiòn a la BD
|
||
Public cm As New SqlClient.SqlCommand() 'declaraciòn de comando SQL
|
||
Public dr As SqlClient.SqlDataReader 'Datareader
|
||
Public ds As New DataSet() 'declaracion de dataset
|
||
Public ad As New SqlClient.SqlDataAdapter() 'declaraciòn de adaptador
|
||
Public dt As New DataTable 'declaracion de datatable
|
||
Public Shared TipoReporte As Integer
|
||
Public Shared _NoCuenta As String
|
||
Public Shared _FechaIni As String
|
||
Public Shared _FechaFin As String
|
||
|
||
Public Sub sbLlenaCombo3(ByVal SQL As String, ByRef miCombo As ComboBox)
|
||
sbConectaBD()
|
||
Try
|
||
miCombo.DataBindings.Clear()
|
||
miCombo.DataSource = Nothing
|
||
miCombo.Items.Clear()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
dt.Clear()
|
||
ad.Fill(dt)
|
||
miCombo.DataSource = dt
|
||
miCombo.DisplayMember = "nombre"
|
||
miCombo.ValueMember = "clave"
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo3: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
|
||
Public Function fdDataReader(ByVal SQL As String) As SqlClient.SqlDataReader
|
||
'funcion data reader, me permite leer los datos (solo lectura)
|
||
sbConectaBD()
|
||
Try
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
cm.CommandTimeout = 0
|
||
dr = cm.ExecuteReader()
|
||
Return dr
|
||
dr.Close()
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; fdDataReader: " & ex.Message.ToString, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Function
|
||
|
||
Public Function fiCuantosRegistros(ByVal SQL As String) As Integer
|
||
sbConectaBD()
|
||
Try
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
ad.Fill(dt)
|
||
Return dt.Rows.Count
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; fiCuantosRegistros: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Function
|
||
|
||
Public Function fdtDataTable(ByVal SQL As String) As DataTable
|
||
sbConectaBD()
|
||
Try
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
cm.CommandTimeout = 0
|
||
ad.SelectCommand = cm
|
||
ad.Fill(dt)
|
||
Return dt
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; fdtDataTable: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Function
|
||
|
||
Public Function fdtDataSet(ByVal SQL As String) As DataSet
|
||
sbConectaBD()
|
||
Try
|
||
ds.Clear()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
cm.CommandTimeout = 0
|
||
ad.SelectCommand = cm
|
||
ad.Fill(ds)
|
||
Return ds
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; fdtDataSet: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Function
|
||
|
||
Public Function fdtDataSetTabla(ByVal SQL As String) As DataSet
|
||
sbConectaBD()
|
||
Try
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
cm.CommandTimeout = 0
|
||
ad.SelectCommand = cm
|
||
ds.Clear()
|
||
ds.Tables.Clear()
|
||
ad.Fill(ds, "Tabla")
|
||
sbCierraCn()
|
||
Return ds
|
||
Catch ex As Exception
|
||
MessageBox.Show("Problemas al recuperar los datos, en fdtDataSetTabla: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
End Try
|
||
|
||
End Function
|
||
|
||
Public Sub sbGuardaModifica(ByVal SQL As String)
|
||
'Funcion que permite guardar la modificacion de un registro
|
||
sbConectaBD()
|
||
Try
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
cm.ExecuteNonQuery()
|
||
cm.Connection.Close()
|
||
Catch ex As Exception
|
||
MessageBox.Show("error en ClsComplejo; sbGuardaModifica: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
|
||
Public Sub sbConectaBD()
|
||
Try
|
||
'realiza la conexiòn a la BD
|
||
If cn.State = ConnectionState.Closed Then
|
||
'la clase dmModulo me permite obtener el string de conexion
|
||
'cnString = dmModulo.SqlConnection.ConnectionString
|
||
'cn.ConnectionString = cnString
|
||
Dim Conexion As LeeEditorRegistro = New LeeEditorRegistro 'agregada
|
||
Dim valor As String 'agregada
|
||
valor = clsVaribles.Conexion.ConnectionString 'agregada
|
||
cn.ConnectionString = dmModulo.strConnection 'valor 'agregada
|
||
cn.Open() 'abre la conexion
|
||
End If
|
||
Catch ex As Exception
|
||
MessageBox.Show("error en ClsComplejo; sbConectaBD: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Public Sub ConectaBD()
|
||
|
||
Try
|
||
'Declaro una instancia dela clase LeeEditorRegistro, la cual me ayuda
|
||
'a recuperar la cadena conexion
|
||
If cn.State = ConnectionState.Closed Then
|
||
Dim Conexion As LeeEditorRegistro = New LeeEditorRegistro
|
||
Dim valor As String
|
||
valor = clsVaribles.Conexion.ConnectionString
|
||
cn.ConnectionString = valor
|
||
cn.Open()
|
||
End If
|
||
Catch ex As Exception
|
||
MessageBox.Show("error en ClsComplejo; ConectaBD: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Public Sub sbCierraCn()
|
||
'cierra la conexiòn a la BD
|
||
cn.Close()
|
||
End Sub
|
||
|
||
Public Sub sbCierraDataReader()
|
||
'cierra el datareader
|
||
dr.Close()
|
||
End Sub
|
||
|
||
Public Sub sbLlenaLista(ByVal SQL As String, ByVal miLista As ListBox)
|
||
Try
|
||
miLista.DataSource = Nothing
|
||
miLista.Items.Clear()
|
||
dt.Clear()
|
||
'llena una lista con la sentencia SQL especificada
|
||
ConectaBD() 'la original es sbConectaBD()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
ad.Fill(dt)
|
||
miLista.DataSource = dt
|
||
miLista.DisplayMember = "nombre"
|
||
miLista.ValueMember = "clave"
|
||
Catch ex As Exception
|
||
MessageBox.Show("error en ClsComplejo; sbLlenaLista: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
|
||
|
||
Public Sub sbLlenaMSFGrid(ByVal SQL As String, ByVal miFGrid As AxMSFlexGridLib.AxMSFlexGrid)
|
||
'llena un MSFlexGrid con la sentencia SQL especificada
|
||
Dim j As Integer
|
||
Dim i As Integer
|
||
Dim TotalCampos As Integer
|
||
Dim CadenaValores As String
|
||
Dim ValorCampo As Object
|
||
'MsgBox("clsConmplejo; sbLlenaMSFGrid: " & SQL)
|
||
Try
|
||
If SQL <> "" Then
|
||
sbConectaBD()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
dr = cm.ExecuteReader()
|
||
With miFGrid
|
||
Try
|
||
.Visible = False
|
||
.Rows = 1
|
||
TotalCampos = dr.FieldCount()
|
||
.Cols = TotalCampos
|
||
.FixedCols = 0
|
||
.Row = 0
|
||
For i = 0 To .Cols - 1
|
||
.Col = i
|
||
.Text = dr.GetName(i)
|
||
Next
|
||
Catch
|
||
End Try
|
||
End With
|
||
CadenaValores = ""
|
||
While dr.Read()
|
||
miFGrid.Rows = miFGrid.Rows + 1
|
||
For i = 0 To TotalCampos - 1
|
||
miFGrid.Col = i
|
||
miFGrid.Row = miFGrid.Rows - 1
|
||
miFGrid.Text = IIf(dr.IsDBNull(i), "", dr.GetValue(i))
|
||
Next i
|
||
End While
|
||
miFGrid.Visible = True
|
||
End If
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaMSFGrid: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Finally
|
||
dr.Close()
|
||
sbCierraCn()
|
||
End Try
|
||
End Sub
|
||
|
||
Public Sub sbLlenaDataGrid(ByVal SQL As String, ByVal miDataGrid As DataGrid) 'AxMSDBGrid.AxDBGrid)
|
||
'ByVal miDataGrid As DataGrid
|
||
'llena un DBGrid con la sentencia SQL especificada
|
||
sbConectaBD()
|
||
'MsgBox("clsCompejo; sbLlenaDataGrid: " & SQL)
|
||
Try
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
dt.Clear() ' dt
|
||
ad.Fill(dt) 'dt
|
||
miDataGrid.DataSource = dt 'dt
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaDataGrid: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
Public Sub sbLlenaDataGridView(ByVal SQL As String, ByVal miDataGrid As DataGridView) 'AxMSDBGrid.AxDBGrid)
|
||
'ByVal miDataGrid As DataGrid
|
||
'llena un DBGrid con la sentencia SQL especificada
|
||
sbConectaBD()
|
||
'MsgBox("clsCompejo; sbLlenaDataGrid: " & SQL)
|
||
Try
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
dt.Clear() ' dt
|
||
ad.Fill(dt) 'dt
|
||
miDataGrid.DataSource = dt 'dt
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaDataGrid: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
|
||
|
||
Public Function OcultarColumna(ByVal NombreColumna As String)
|
||
'Oculta columnas al usuario
|
||
Try
|
||
ds.Tables("Tabla").Columns(NombreColumna).ColumnMapping = MappingType.Hidden
|
||
Catch ex As Exception
|
||
' MessageBox.Show("Error en la clase clComplejo en OcultarColumna " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Function
|
||
|
||
|
||
Public Sub sbLlenaDevExpress(ByVal SQL As String, ByVal miDevExpress As DevExpress.XtraGrid.GridControl)
|
||
|
||
Try
|
||
'llena un DevExpress con la sentencia SQL especificada
|
||
sbConectaBD()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
dt.Clear()
|
||
ad.Fill(dt)
|
||
miDevExpress.DataSource() = dt
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaDevExpress: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Finally
|
||
sbCierraCn()
|
||
End Try
|
||
End Sub
|
||
|
||
Public Sub sbConfiguraGrid(ByVal miDGrid As DataGrid, ByVal aiAncho() As Integer)
|
||
Try
|
||
Dim DGts As DataGridTableStyle = New DataGridTableStyle
|
||
Dim i As Integer
|
||
|
||
With miDGrid
|
||
DGts.MappingName = miDGrid.DataMember
|
||
.TableStyles.Clear()
|
||
.TableStyles.Add(DGts)
|
||
End With
|
||
|
||
For i = 1 To UBound(aiAncho) + 1
|
||
With miDGrid
|
||
.TableStyles(0).GridColumnStyles(i - 1).Width = aiAncho(i - 1)
|
||
End With
|
||
Next
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbConfiguraGrid: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Public Sub sbLlenaCombo(ByVal SQL As String, ByRef miCombo As ComboBox)
|
||
'funcion que me permite llenar combos a traves de un procedimiento almacenado
|
||
'On Error Resume Next
|
||
'llena un combo con la sentencia SQL especificada
|
||
|
||
sbConectaBD()
|
||
Try
|
||
miCombo.DataBindings.Clear()
|
||
miCombo.DataSource = Nothing
|
||
miCombo.Items.Clear()
|
||
dt.Clear()
|
||
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
cm.CommandTimeout = 0
|
||
ad.SelectCommand = cm
|
||
dt.Clear()
|
||
|
||
ad.Fill(dt)
|
||
|
||
miCombo.DataSource = dt
|
||
miCombo.DisplayMember = "nombre"
|
||
miCombo.ValueMember = "clave"
|
||
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Finally
|
||
sbCierraCn()
|
||
End Try
|
||
End Sub
|
||
|
||
Public Sub sbLlenaCheckListBox(ByVal SQL As String, ByRef miCheckedListBox As CheckedListBox)
|
||
'funcion que me permite llenar combos a traves de un procedimiento almacenado
|
||
'On Error Resume Next
|
||
'llena un combo con la sentencia SQL especificada
|
||
sbConectaBD()
|
||
Try
|
||
miCheckedListBox.DataBindings.Clear()
|
||
miCheckedListBox.DataSource = Nothing
|
||
miCheckedListBox.Items.Clear()
|
||
dt.Clear()
|
||
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
dt.Clear()
|
||
|
||
ad.Fill(dt)
|
||
miCheckedListBox.DataSource = dt
|
||
miCheckedListBox.DisplayMember = "nombre"
|
||
miCheckedListBox.ValueMember = "clave"
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaCheckListBox: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Finally
|
||
sbCierraCn()
|
||
End Try
|
||
End Sub
|
||
|
||
|
||
Public Sub sbLlenaCombo1(ByVal SQL As String, ByRef miCombo As ComboBox)
|
||
'funcion que me permite llenar combos a traves de un procedimiento almacenado
|
||
'On Error Resume Next
|
||
'llena un combo con la sentencia SQL especificada
|
||
sbConectaBD()
|
||
Try
|
||
miCombo.DataBindings.Clear()
|
||
miCombo.DataSource = Nothing
|
||
miCombo.Items.Clear()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
dt.Clear()
|
||
ad.Fill(dt)
|
||
miCombo.DataSource = dt
|
||
miCombo.DisplayMember = "Nombre"
|
||
miCombo.ValueMember = "Clave"
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo1: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
|
||
Public Sub sbBuscaEnCombo(ByVal Valor As String, ByVal miCombo As ComboBox)
|
||
'busca un elemento especìfico (Valor) en el combo
|
||
Indice = miCombo.FindStringExact(Valor)
|
||
miCombo.SelectedIndex = Indice
|
||
End Sub
|
||
|
||
Public Sub sbBuscaEnLista(ByVal Valor As String, ByVal miLista As ListBox)
|
||
'busca un elemento especìfico (Valor) en la lista
|
||
Indice = miLista.FindStringExact(Valor)
|
||
miLista.SelectedIndex = Indice
|
||
End Sub
|
||
|
||
|
||
Public Sub sbLimpiaControles(ByVal Forma As Form)
|
||
Dim lcCtrl As Object
|
||
|
||
For Each lcCtrl In Forma.Controls
|
||
If TypeOf lcCtrl Is TextBox Then
|
||
lcCtrl.text = ""
|
||
End If
|
||
|
||
If TypeOf lcCtrl Is ComboBox Then
|
||
lcCtrl.Selectedindex = -1
|
||
lcCtrl.text = ""
|
||
'MsgBox("limpio combo")
|
||
End If
|
||
|
||
If TypeOf lcCtrl Is CheckBox Then
|
||
lcCtrl.Checked = False
|
||
'MsgBox("limpio chcek")
|
||
End If
|
||
Next lcCtrl
|
||
End Sub
|
||
|
||
Public Sub sbDesHabilitaControles(ByVal Forma As Form)
|
||
'sub que deshabilita los controles de un formulario
|
||
Dim Ctrl As Object
|
||
For Each Ctrl In Forma.Controls
|
||
If TypeOf Ctrl Is TextBox Then
|
||
Ctrl.Enabled = False
|
||
End If
|
||
|
||
If TypeOf Ctrl Is CheckBox Then
|
||
Ctrl.Enabled = False
|
||
End If
|
||
|
||
If TypeOf Ctrl Is ComboBox Then
|
||
Ctrl.Enabled = False
|
||
End If
|
||
Next
|
||
End Sub
|
||
|
||
|
||
Public Sub sbHabilitaControles(ByVal Forma As Form)
|
||
'sub que habilita los controles de un formulario
|
||
Dim Ctrl As Object
|
||
For Each Ctrl In Forma.Controls
|
||
If TypeOf Ctrl Is TextBox Then
|
||
Ctrl.Enabled = True
|
||
End If
|
||
|
||
If TypeOf Ctrl Is CheckBox Then
|
||
Ctrl.Enabled = True
|
||
End If
|
||
|
||
If TypeOf Ctrl Is ComboBox Then
|
||
Ctrl.Enabled = True
|
||
End If
|
||
Next
|
||
End Sub
|
||
|
||
|
||
Public Function fbSoloNumeroEntero(ByVal Caja As TextBox, ByVal Tipo As Object) As Boolean
|
||
If Len(Caja.Text) = 0 Then
|
||
MessageBox.Show("Es obligatorio el campo", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Caja.Focus() 'Le da el foco
|
||
Return False 'Indica que la caja esta vacia
|
||
Exit Function
|
||
Else
|
||
If Not IsNumeric(Caja.Text) Then
|
||
MessageBox.Show("Debes escribir un numero", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Caja.Focus()
|
||
Return False
|
||
Exit Function
|
||
Else
|
||
Dim lcCaracteres() As Char
|
||
Dim lcUnCaracter As Char
|
||
Dim x, y As Integer
|
||
y = Caja.Text.Length - 1
|
||
' pasamos la cadena a convertir a un array Char
|
||
lcCaracteres = Caja.Text.ToCharArray()
|
||
For x = 0 To y
|
||
lcUnCaracter = lcCaracteres(x)
|
||
If Not Char.IsDigit(lcUnCaracter) Then
|
||
MessageBox.Show("Debes escribir un numero entero", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Caja.Focus()
|
||
Return False
|
||
Exit For
|
||
Exit Function
|
||
Else
|
||
MsgBox("si es un numero entero")
|
||
Return True 'Indica que si es numero
|
||
End If
|
||
Next
|
||
End If
|
||
End If
|
||
End Function
|
||
|
||
Public Function fbValidaTexto(ByVal Texto As TextBox, ByVal Var As Object, ByVal Tipo As String) As Boolean
|
||
If Len(Texto.Text) = 0 Then
|
||
Return False
|
||
Exit Function
|
||
Else
|
||
Select Case Tipo
|
||
Case Is = "int"
|
||
If Not IsNumeric(Texto.Text) Then
|
||
Return False
|
||
Exit Function
|
||
Else
|
||
Var = CInt(Texto.Text)
|
||
End If
|
||
Case Is = "str"
|
||
Var = Trim(CStr(Texto.Text))
|
||
Case Is = "dbl"
|
||
If Not IsNumeric(Texto.Text) Then
|
||
Return False
|
||
Exit Function
|
||
Else
|
||
Var = CDbl(Texto.Text)
|
||
End If
|
||
End Select
|
||
End If
|
||
Return True
|
||
End Function
|
||
|
||
Public Function fbValidaCombo(ByVal Combo As ComboBox, ByVal Var As Object) As Boolean
|
||
If Combo.SelectedIndex = -1 Then
|
||
Return False
|
||
Exit Function
|
||
Else
|
||
Var = Combo.SelectedValue
|
||
End If
|
||
Return True
|
||
End Function
|
||
Public Function VerificaCheckList(ByVal IdCliente As Long, ByVal IDDocto As Integer, ByRef FVer As String) As Boolean
|
||
|
||
Dim clcmj1 As New clsComplejo
|
||
Dim strChecacumple As String
|
||
Dim Fila As DataRow
|
||
|
||
strChecacumple = "SELECT Id_DoctoCheckList,cumple,fecha_prorroga FROM KYC_CheckList"
|
||
strChecacumple = strChecacumple & " WHERE idcliente = " & IdCliente
|
||
strChecacumple = strChecacumple & " AND Id_DoctoCheckList = " & IDDocto
|
||
strChecacumple = strChecacumple & " AND cumple = 1 "
|
||
' strChecacumple = strChecacumple & " AND cumple IS NOT NULL "
|
||
|
||
clcmj1.fdtDataSet(strChecacumple)
|
||
|
||
If clcmj1.ds.Tables(0).Rows.Count <> 0 Then
|
||
If IsDBNull(clcmj1.ds.Tables(0).Rows(0).Item("fecha_prorroga")) Then
|
||
FVer = ""
|
||
Else
|
||
FVer = clcmj1.ds.Tables(0).Rows(0).Item("fecha_prorroga")
|
||
End If
|
||
VerificaCheckList = True
|
||
Else
|
||
VerificaCheckList = False
|
||
End If
|
||
|
||
End Function
|
||
Public Function SumaDoctos(ByVal IdCliente As Long) As Long
|
||
|
||
Dim clcmj1 As New clsComplejo
|
||
Dim strChecacumple As String
|
||
Dim Fila As DataRow
|
||
|
||
strChecacumple = "SELECT tipopersona FROM cliente"
|
||
strChecacumple = strChecacumple & " WHERE idcliente = " & IdCliente
|
||
|
||
clcmj1.fdtDataSet(strChecacumple)
|
||
|
||
If clcmj1.ds.Tables(0).Rows.Count <> 0 Then
|
||
Fila = clcmj1.ds.Tables(0).Rows(0)
|
||
strChecacumple = "SELECT COUNT(*) as suma FROM DoctosCheckList "
|
||
strChecacumple = strChecacumple & " WHERE TipoPersona = " & Fila("Tipopersona")
|
||
clcmj1.fdtDataSet(strChecacumple)
|
||
|
||
Fila = Nothing
|
||
Fila = clcmj1.ds.Tables(0).Rows(0)
|
||
|
||
SumaDoctos = Fila("suma")
|
||
|
||
End If
|
||
|
||
End Function
|
||
Public Sub sbModifica2(ByVal SQL As String)
|
||
sbConectaBD() 'la original es sbConectaBD()
|
||
Try
|
||
dt.Clear()
|
||
'llena una lista con la sentencia SQL especificada
|
||
cm.Connection = cn
|
||
cm.Prepare()
|
||
'cm.CommandText = SQL
|
||
cm = New SqlClient.SqlCommand(SQL, cn)
|
||
'ad.UpdateCommand = cm
|
||
cm.ExecuteNonQuery()
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("error en ClsComplejo; sbModifica2: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
Public Sub sbInserta(ByVal SQL As String)
|
||
Try
|
||
dt.Clear()
|
||
'llena una lista con la sentencia SQL especificada
|
||
sbConectaBD()
|
||
'ConectaBD() 'la original es sbConectaBD()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
cm.ExecuteNonQuery()
|
||
cm.Connection.Close()
|
||
Catch ex As Exception
|
||
MessageBox.Show("error en ClsComplejo; sbInserta: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
Public Sub GeneraCarta(ByVal Ruta As String, ByVal NombreArchivo As String)
|
||
'Dim ObjWord As Word.Application
|
||
|
||
'Try
|
||
|
||
' ObjWord = New Word.Application
|
||
|
||
' If ObjWord Is Nothing Then
|
||
' ObjWord = CreateObject("word.application")
|
||
' Else
|
||
' ObjWord = GetObject(, "word.application")
|
||
' End If
|
||
|
||
' ObjWord.Documents.Open(Ruta & NombreArchivo)
|
||
|
||
' ObjWord.Selection.Find.ClearFormatting()
|
||
|
||
' Dim FechaComodin As String
|
||
' Dim FechaDia As String
|
||
' Dim FechaMes As String
|
||
' Dim FechaAno As String
|
||
' Dim Rp As Word.WdReplace
|
||
' Dim Wp As Word.WdFindWrap
|
||
|
||
' ObjWord.Selection.Find.ClearFormatting()
|
||
' ObjWord.Selection.Find.Replacement.ClearFormatting()
|
||
|
||
' With ObjWord.Selection.Find
|
||
' .Text = "DEL DIA DE CAPTURA"
|
||
|
||
' FechaComodin = Format(System.DateTime.Today, "dd/mmmm/yyyy")
|
||
|
||
' FechaDia = Mid(FechaComodin, 1, 2)
|
||
' FechaMes = Mid(FechaComodin, 4, Len(FechaComodin) - 5)
|
||
' FechaAno = Mid(FechaComodin, Len(FechaComodin) - 5, Len(FechaComodin))
|
||
|
||
' .Replacement.Text = FechaDia & " DE " & FechaMes & " DE " & FechaAno
|
||
' .Forward = True
|
||
' .Wrap = Wp.wdFindContinue
|
||
' .Format = False
|
||
' .MatchCase = False
|
||
' .MatchWholeWord = False
|
||
' .MatchWildcards = False
|
||
' .MatchSoundsLike = False
|
||
' .MatchAllWordForms = False
|
||
|
||
' End With
|
||
|
||
' ObjWord.Selection.Find.Execute(Replace:=Rp.wdReplaceAll)
|
||
|
||
' ObjWord.ActiveDocument.SaveAs(filename:="C:\prueba.doc")
|
||
' ObjWord.Documents.Close()
|
||
|
||
|
||
'Catch ex As Exception
|
||
' MessageBox.Show("error en ClsComplejo; sbLlenaLista: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
|
||
' If Not ObjWord Is Nothing Then
|
||
' ObjWord = Nothing
|
||
' ObjWord.Documents.Close()
|
||
' ObjWord.Application.Quit()
|
||
' End If
|
||
|
||
'End Try
|
||
|
||
End Sub
|
||
Public Sub sbLlenaComboESP(ByVal SQL As String, ByRef miCombo As ComboBox, ByRef ValDisplay As String)
|
||
'funcion que me permite llenar combos a traves de un procedimiento almacenado
|
||
'On Error Resume Next
|
||
'llena un combo con la sentencia SQL especificada
|
||
Dim MiDt As New DataTable
|
||
sbConectaBD()
|
||
Try
|
||
miCombo.DataBindings.Clear()
|
||
miCombo.DataSource = Nothing
|
||
miCombo.Items.Clear()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
MiDt.Clear()
|
||
ad.Fill(MiDt)
|
||
miCombo.DataSource = MiDt
|
||
miCombo.DisplayMember = ValDisplay
|
||
miCombo.ValueMember = "clave"
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaComboESP: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
'Sub RangesEsp(ByVal MyDoc As Word.Document)
|
||
|
||
' Dim FldRngGen(1, 17) As Word.Range
|
||
' Dim FldRngAct(1, 11) As Word.Range
|
||
' Dim FldRngApo1(1, 12) As Word.Range
|
||
' Dim FldRngApo2(1, 11) As Word.Range
|
||
' Dim FldRngApo3(1, 11) As Word.Range
|
||
' Dim FldRngApo4(1, 11) As Word.Range
|
||
|
||
' clsVaribles.FldRng1 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Cliente").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endCliente").Start - 1)
|
||
|
||
' clsVaribles.FldRng2 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Paterno").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endPaterno").Start - 1)
|
||
' clsVaribles.FldRng3 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Materno").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endMaterno").Start - 1)
|
||
' clsVaribles.FldRng4 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Direccion").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endDireccion").Start - 1)
|
||
' clsVaribles.FldRng5 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Exterior").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endExterior").Start - 1)
|
||
' clsVaribles.FldRng6 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Interior").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endInterior").Start - 1)
|
||
' clsVaribles.FldRng7 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Colonia").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endColonia").Start - 1)
|
||
' clsVaribles.FldRng8 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("CP").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endCP").Start - 1)
|
||
' clsVaribles.FldRng9 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Plaza").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endPlaza").Start - 1)
|
||
' clsVaribles.FldRng10 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Estado").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endEstado").Start - 1)
|
||
|
||
'End Sub
|
||
'Sub SaveFields(ByVal objWord As Word.Document, ByVal Grdbusqueda As DataGrid)
|
||
|
||
' 'NOMBRE
|
||
' If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 1)) Then
|
||
' clsVaribles.FldRng1.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 1)
|
||
' Else
|
||
' clsVaribles.FldRng1.Text = ""
|
||
' End If
|
||
' 'PATERNO
|
||
' If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 2)) Then
|
||
' clsVaribles.FldRng2.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 2)
|
||
' Else
|
||
' clsVaribles.FldRng2.Text = ""
|
||
' End If
|
||
' 'MATERNO
|
||
' If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 3)) Then
|
||
' clsVaribles.FldRng3.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 3)
|
||
' Else
|
||
' clsVaribles.FldRng3.Text = ""
|
||
' End If
|
||
' 'DIRECCION
|
||
' If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 4)) Then
|
||
' clsVaribles.FldRng4.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 4)
|
||
' Else
|
||
' clsVaribles.FldRng4.Text = ""
|
||
' End If
|
||
' 'EXTERIOR
|
||
' 'If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 5)) Then
|
||
' 'clsVaribles.FldRng5.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 5)
|
||
' 'Else
|
||
' clsVaribles.FldRng5.Text = ""
|
||
' 'End If
|
||
' 'INTERIOR
|
||
' 'If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 6)) Then
|
||
' 'clsVaribles.FldRng6.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 6)
|
||
' 'Else
|
||
' clsVaribles.FldRng6.Text = ""
|
||
' 'End If
|
||
|
||
' 'COLONIA
|
||
' If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 5)) Then
|
||
' clsVaribles.FldRng7.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 5)
|
||
' Else
|
||
' clsVaribles.FldRng7.Text = ""
|
||
' End If
|
||
' 'CP
|
||
' If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 6)) Then
|
||
' clsVaribles.FldRng8.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 6)
|
||
' Else
|
||
' clsVaribles.FldRng8.Text = ""
|
||
' End If
|
||
' 'PLAZA
|
||
' If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 7)) Then
|
||
' clsVaribles.FldRng9.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 7)
|
||
' Else
|
||
' clsVaribles.FldRng9.Text = ""
|
||
' End If
|
||
|
||
' 'ESTADO
|
||
' If Not IsDBNull(Grdbusqueda(Grdbusqueda.CurrentRowIndex, 8)) Then
|
||
' clsVaribles.FldRng10.Text = Grdbusqueda(Grdbusqueda.CurrentRowIndex, 8)
|
||
' Else
|
||
' clsVaribles.FldRng10.Text = ""
|
||
' End If
|
||
|
||
'End Sub
|
||
'Sub DatosGenerales(ByVal ObjWord As Word.Document)
|
||
' Dim Sql As String
|
||
' Dim Classcom As New clsComplejo
|
||
|
||
' Sql = "SELECT c.nombre,c.apaterno,c.amaterno,c.curp,c.rfc,c.domicilio,"
|
||
' Sql = Sql & "c.colonia,dat.cp,p.nombreplaza as plaza,e.nombreestado as estado,"
|
||
' Sql = Sql & "pa.nombre as pais,c.telefono,dat.fax,dat.telefonoext,dat.faxext "
|
||
' Sql = Sql & "FROM cliente c ,plaza p, estado e, pais pa ,kyc_datosgenerales dat "
|
||
' Sql = Sql & "WHERE c.id_plaza = p.id_plaza AND dat.id_estado = e.id_estado "
|
||
' Sql = Sql & "AND dat.id_pais = pa.id_pais AND c.idcliente = dat.idcliente "
|
||
' Sql = Sql & "AND dat.id_pais = pa.id_pais AND c.idcliente = dat.idcliente "
|
||
' Sql = Sql & "AND c.idcliente = " & clsVaribles.IDCliente
|
||
|
||
' Classcom.SetRangesGen(ObjWord)
|
||
' Classcom.SaveFieldsGen(ObjWord, Sql)
|
||
|
||
' Dim LaConsulta As String
|
||
' Dim Fila As DataRow
|
||
' Dim Fila2 As DataRow
|
||
|
||
' If clsVaribles.TipoPersona = 2 Then
|
||
' 'INFORMACION PARA EL ACTA CONSTITUTIVA
|
||
' LaConsulta = "SELECT a.NoActa,a.FechaActa,a.Notaria,a.notario,a.apaterno,a.amaterno,"
|
||
' LaConsulta = LaConsulta & "p.nombreplaza as plazaNot,a.NoRPC,a.FechaRPC,a.Id_PlazaRPC "
|
||
' LaConsulta = LaConsulta & "FROM kyc_actaconstitutiva a, plaza p "
|
||
' LaConsulta = LaConsulta & "WHERE a.Id_PlazaNot = p.id_plaza "
|
||
' LaConsulta = LaConsulta & "AND a.idcliente = " & clsVaribles.IDCliente
|
||
|
||
' Call Classcom.SetRangesAct(ObjWord)
|
||
' Call Classcom.SaveFieldsAct(ObjWord, LaConsulta)
|
||
|
||
' 'INFORMACION PARA LOS APODERADOS
|
||
' LaConsulta = "SELECT nombre,apaterno,amaterno,id_relacion,id_ejercicio,NoActa,"
|
||
' LaConsulta = LaConsulta & "FechaActa as fechaAct, NoNotaria,Notario,APaternoNot,AMaternoNot,"
|
||
' LaConsulta = LaConsulta & "PlazaNot,NoFolio,fechafolio as fechaRPC,plazarpc "
|
||
' LaConsulta = LaConsulta & "FROM kyc_apoderado "
|
||
' LaConsulta = LaConsulta & "WHERE idcliente = " & clsVaribles.IDCliente
|
||
' 'rstRecordSet1 = db_PLD.Execute(LaConsulta)
|
||
|
||
' Call Classcom.SaveFieldsApo(ObjWord, LaConsulta)
|
||
|
||
' End If
|
||
'End Sub
|
||
'Sub SetRangesGen(ByVal MyDoc As Word.Document)
|
||
|
||
' clsVaribles.FldRngGen1 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Nombre").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endNombre").Start - 1)
|
||
' clsVaribles.FldRngGen2 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Curp").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endCurp").Start - 1)
|
||
' clsVaribles.FldRngGen3 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Rfc").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endRfc").Start - 1)
|
||
' clsVaribles.FldRngGen4 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Calle").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endCalle").Start - 1)
|
||
' clsVaribles.FldRngGen5 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ColoniaGen").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endColoniaGen").Start - 1)
|
||
' clsVaribles.FldRngGen6 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("CPGen").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endCPGen").Start - 1)
|
||
' clsVaribles.FldRngGen7 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Ciudad").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endCiudad").Start - 1)
|
||
' clsVaribles.FldRngGen8 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("EstadoGen").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endEstadoGen").Start - 1)
|
||
' clsVaribles.FldRngGen9 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Pais").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endPais").Start - 1)
|
||
' clsVaribles.FldRngGen10 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Telefono").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endTelefono").Start - 1)
|
||
' clsVaribles.FldRngGen11 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Fax").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endFax").Start - 1)
|
||
|
||
'End Sub
|
||
'Sub SaveFieldsGen(ByVal MyDoc As Word.Document, ByVal SQl As String)
|
||
' Dim Classcom As New clsComplejo
|
||
' Dim Fila As DataRow
|
||
' Dim Clsvar As clsVaribles
|
||
|
||
' Try
|
||
|
||
' 'SQl = "SELECT c.nombre,c.apaterno,c.amaterno,c.curp,c.rfc,c.domicilio,"
|
||
' 'SQl = SQl & "c.colonia,dat.cp,p.nombre as plaza,e.nombre as estado,"
|
||
' 'SQl = SQl & "pa.paisnom,c.telefono,dat.fax,dat.telextension,dat.faxextension "
|
||
' 'SQl = SQl & "FROM cliente c ,plaza p, estado e, pais pa ,kyc_datosgenerales dat "
|
||
' 'SQl = SQl & "WHERE c.id_plaza = p.id_plaza AND dat.id_estado = e.id_estado "
|
||
' 'SQl = SQl & "AND dat.id_pais = pa.id_pais AND c.idcliente = dat.idcliente "
|
||
' 'SQl = SQl & "AND dat.id_pais = pa.id_pais AND c.idcliente = dat.idcliente "
|
||
' 'SQl = SQl & "AND c.idcliente = " & clsVaribles.IDCliente
|
||
|
||
' Classcom = New clsComplejo
|
||
|
||
' Classcom.fdtDataSet(SQl)
|
||
|
||
' If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
|
||
' Fila = Classcom.ds.Tables(0).Rows(0)
|
||
|
||
' clsVaribles.FldRngGen1.Text = Trim(Fila("clientenom") & "" & " " & Fila("apaterno") & "" & " " & Fila("amaterno") & "")
|
||
' If Not IsDBNull(Fila("curp")) Then
|
||
' clsVaribles.FldRngGen2.Text = Trim(Fila("curp")) & ""
|
||
' End If
|
||
' If Not IsDBNull(Fila("rfc")) Then
|
||
' clsVaribles.FldRngGen3.Text = Trim(Fila("rfc")) & ""
|
||
' End If
|
||
' If Not IsDBNull(Fila("domicilio")) Then
|
||
' clsVaribles.FldRngGen4.Text = Trim(Fila("domicilio")) & ""
|
||
' End If
|
||
' If Not IsDBNull(Fila("colonia")) Then
|
||
' clsVaribles.FldRngGen5.Text = Trim(Fila("colonia")) & ""
|
||
' End If
|
||
' If Not IsDBNull(Fila("cp")) Then
|
||
' clsVaribles.FldRngGen6.Text = Trim(Fila("cp"))
|
||
' End If
|
||
' If Not IsDBNull(Fila("plaza")) Then
|
||
' clsVaribles.FldRngGen7.Text = Trim(Fila("plaza"))
|
||
' End If
|
||
' If Not IsDBNull(Fila("estado")) Then
|
||
' clsVaribles.FldRngGen8.Text = Trim(Fila("estado"))
|
||
' End If
|
||
' If Not IsDBNull(Fila("pais")) Then
|
||
' clsVaribles.FldRngGen9.Text = Trim(Fila("pais"))
|
||
' End If
|
||
' If Not IsDBNull(Fila("telefono")) Then 'dat.telefonoext,dat.faxext "
|
||
' If Not IsDBNull(Trim(Fila("telefonoext"))) Then
|
||
' clsVaribles.FldRngGen10.Text = Trim(Fila("telefono")) & " EXT. " & Trim(Fila("telefonoext"))
|
||
' Else
|
||
' clsVaribles.FldRngGen10.Text = Trim(Fila("telefono"))
|
||
' End If
|
||
' End If
|
||
' If Not IsDBNull(Fila("fax")) Then
|
||
' If Not IsDBNull(Trim(Fila("faxext"))) Then
|
||
' clsVaribles.FldRngGen11.Text = Trim(Fila("fax")) & " EXT. " & Trim(Fila("faxext"))
|
||
' Else
|
||
' clsVaribles.FldRngGen11.Text = Trim(Fila("fax"))
|
||
' End If
|
||
|
||
' End If
|
||
|
||
' End If
|
||
|
||
' Catch ex As Exception
|
||
' MessageBox.Show("error en ClsComplejo; sbLlenaLista: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
|
||
' End Try
|
||
|
||
|
||
'End Sub
|
||
'Sub SaveFieldsAct(ByVal MyDoc As Word.Document, ByVal sql As String)
|
||
' Dim classcom As New clsComplejo
|
||
' Dim Fila As DataRow
|
||
' Dim Fila2 As DataRow
|
||
' Dim Sql2 As String
|
||
|
||
' 'LaConsulta = "SELECT a.NoActa,a.FechaActa,a.Notaria,a.notario,a.apaterno,a.amaterno,"
|
||
' 'LaConsulta = LaConsulta & "p.nombre as plazaNot,a.NoRPC,a.FechaRPC,a.Id_PlazaRPC "
|
||
' 'LaConsulta = LaConsulta & "FROM kyc_actaconstitutiva a, plaza p "
|
||
' 'LaConsulta = LaConsulta & "WHERE a.Id_PlazaNot = p.id_plaza "
|
||
' 'LaConsulta = LaConsulta & "AND a.idcliente = " & clsVaribles.IDCliente
|
||
|
||
' classcom.fdtDataSet(sql)
|
||
|
||
' If classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
' Fila = classcom.ds.Tables(0).Rows(0)
|
||
' 'Es necesario crear otra consulta para buscar la PlazaRPC
|
||
' Sql2 = "SELECT nombreplaza from plaza WHERE id_plaza = " & Fila("Id_PlazaRPC")
|
||
' classcom = New clsComplejo
|
||
|
||
' classcom.fdtDataSet(Sql2)
|
||
|
||
' If classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
' Fila2 = classcom.ds.Tables(0).Rows(0)
|
||
' End If
|
||
|
||
' clsVaribles.FldRngAct1.Text = Trim(Fila("NoActa") & "")
|
||
' clsVaribles.FldRngAct2.Text = Trim(Fila("FechaActa"))
|
||
' clsVaribles.FldRngAct3.Text = Trim(Fila("Notaria") & "")
|
||
' clsVaribles.FldRngAct4.Text = Trim(Fila("plazaNot"))
|
||
' clsVaribles.FldRngAct5.Text = Trim(Fila("notario") & "")
|
||
' clsVaribles.FldRngAct6.Text = Trim(Fila2("nombreplaza") & "")
|
||
' clsVaribles.FldRngAct7.Text = Trim(Fila("NoRPC") & "")
|
||
' clsVaribles.FldRngAct8.Text = Trim(Fila("FechaRPC"))
|
||
|
||
' End If
|
||
|
||
'End Sub
|
||
'Sub SaveFieldsApo(ByVal MyDoc As Word.Document, ByVal sql As String)
|
||
' Dim Classcom As New clsComplejo
|
||
' Dim Notario As String
|
||
' Dim Apoderado As String
|
||
' Dim Fila As DataRow
|
||
|
||
' Try
|
||
|
||
|
||
' 'LaConsulta = "SELECT nombre,apaterno,amaterno,id_relacion,id_ejercicio,NoActa,"
|
||
' 'LaConsulta = LaConsulta & "FechaActa as fechaAct, NoNotaria,Notario,APaternoNot,AMaternoNot,"
|
||
' 'LaConsulta = LaConsulta & "PlazaNot,NoFolio,fecha2 as fechaRPC,plazarpc "
|
||
' 'LaConsulta = LaConsulta & "FROM apoderados "
|
||
' 'LaConsulta = LaConsulta & "WHERE idcliente = " & clsVaribles.IDCliente
|
||
|
||
' Classcom.fdtDataSet(sql)
|
||
|
||
' If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
|
||
' For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1
|
||
' Fila = Classcom.ds.Tables(0).Rows(i)
|
||
' 'Es necesario crear otra consulta para buscar la PlazaRPC
|
||
' Notario = Fila("Notario") & "" & " " & Fila("APaternoNot") & "" & " " & Fila("AMaternoNot") & ""
|
||
' Apoderado = Fila("nombre") & "" & " " & Fila("apaterno") & "" & " " & Fila("amaterno") & ""
|
||
|
||
' Select Case i
|
||
' Case 0
|
||
' Call Classcom.SetRangesApo1(MyDoc)
|
||
' Call SaveFieldsApo1(Apoderado, Fila("id_relacion"), Fila("id_ejercicio"), Fila("NoActa"), Fila("fechaAct"), Fila("NoNotaria"), Notario, Fila("plazaNot"), Fila("NoFolio"), Fila("fechaRPC"), Fila("plazaRPC"))
|
||
' Case 1
|
||
' Call Classcom.SetRangesApo2(MyDoc)
|
||
' Call SaveFieldsApo2(Apoderado, Fila("id_relacion"), Fila("id_ejercicio"), Fila("NoActa"), Fila("fechaAct"), Fila("NoNotaria"), Notario, Fila("plazaNot"), Fila("NoFolio"), Fila("fechaRPC"), Fila("plazaRPC"))
|
||
' Case 2
|
||
' Call Classcom.SetRangesApo3(MyDoc)
|
||
' Call SaveFieldsApo3(Apoderado, Fila("id_relacion"), Fila("id_ejercicio"), Fila("NoActa"), Fila("fechaAct"), Fila("NoNotaria"), Notario, Fila("plazaNot"), Fila("NoFolio"), Fila("fechaRPC"), Fila("plazaRPC"))
|
||
' Case 3
|
||
' Call Classcom.SetRangesApo4(MyDoc)
|
||
' Call SaveFieldsApo4(Apoderado, Fila("id_relacion"), Fila("id_ejercicio"), Fila("NoActa"), Fila("fechaAct"), Fila("NoNotaria"), Notario, Fila("plazaNot"), Fila("NoFolio"), Fila("fechaRPC"), Fila("plazaRPC"))
|
||
' End Select
|
||
|
||
' Next
|
||
|
||
' End If
|
||
|
||
' Catch ex As Exception
|
||
|
||
' End Try
|
||
|
||
|
||
'End Sub
|
||
Sub SaveFieldsApo1(ByVal Nombre As Object, ByVal relacion As Object, ByVal ejercicio As Object, ByVal noActa As Object, ByVal fechaAct As Object, ByVal noNotaria As Object, ByVal Notario As Object, ByVal plazaNot As Object, ByVal rpc As Object, ByVal fechaRPC As Object, ByVal plazaRPC As Object)
|
||
'
|
||
Dim Nomb As String
|
||
Dim Rela As String
|
||
Dim Ejer As String
|
||
Dim Noac As String
|
||
Dim FeAc As String
|
||
Dim NNot As String
|
||
Dim Nota As String
|
||
Dim PlNo As String
|
||
Dim RRPC As String
|
||
Dim FeRP As String
|
||
Dim PlIs As String
|
||
Dim Apoderados As String
|
||
|
||
Nomb = "Nombre: "
|
||
Rela = "Relación: "
|
||
Ejer = "Ejercicio de Poderes: "
|
||
Noac = "No. Acta: "
|
||
FeAc = "Fecha de acta: "
|
||
NNot = "No. Notaria: "
|
||
Nota = "Notario: "
|
||
PlNo = "Plaza de la notaria: "
|
||
RRPC = "RPC: "
|
||
FeRP = "Fecha RPC: "
|
||
PlIs = "Plaza de inscripción: "
|
||
Apoderados = "APODERADOS"
|
||
|
||
'clsVaribles.FldRngApo11.Text = Nomb & Trim(Nombre)
|
||
'clsVaribles.FldRngApo12.Text = Rela & Trim(relacion)
|
||
'clsVaribles.FldRngApo13.Text = Ejer & Trim(ejercicio)
|
||
'clsVaribles.FldRngApo14.Text = Noac & Trim(noActa)
|
||
'clsVaribles.FldRngApo15.Text = FeAc & Trim(fechaAct)
|
||
'clsVaribles.FldRngApo16.Text = NNot & Trim(noNotaria)
|
||
'clsVaribles.FldRngApo17.Text = Nota & Trim(Notario)
|
||
'clsVaribles.FldRngApo18.Text = PlNo & Trim(plazaNot)
|
||
'clsVaribles.FldRngApo19.Text = RRPC & Trim(rpc)
|
||
'clsVaribles.FldRngApo110.Text = FeRP & Trim(fechaRPC)
|
||
'clsVaribles.FldRngApo111.Text = PlIs & Trim(plazaRPC)
|
||
'clsVaribles.FldRngApo112.Text = Apoderados
|
||
|
||
|
||
End Sub
|
||
Sub SaveFieldsApo2(ByVal Nombre As Object, ByVal relacion As Object, ByVal ejercicio As Object, ByVal noActa As Object, ByVal fechaAct As Object, ByVal noNotaria As Object, ByVal Notario As Object, ByVal plazaNot As Object, ByVal rpc As Object, ByVal fechaRPC As Object, ByVal plazaRPC As Object)
|
||
'
|
||
Dim Nomb As String
|
||
Dim Rela As String
|
||
Dim Ejer As String
|
||
Dim Noac As String
|
||
Dim FeAc As String
|
||
Dim NNot As String
|
||
Dim Nota As String
|
||
Dim PlNo As String
|
||
Dim RRPC As String
|
||
Dim FeRP As String
|
||
Dim PlIs As String
|
||
Dim Apoderados As String
|
||
|
||
Nomb = "Nombre: "
|
||
Rela = "Relación: "
|
||
Ejer = "Ejercicio de Poderes: "
|
||
Noac = "No. Acta: "
|
||
FeAc = "Fecha de acta: "
|
||
NNot = "No. Notaria: "
|
||
Nota = "Notario: "
|
||
PlNo = "Plaza de la notaria: "
|
||
RRPC = "RPC: "
|
||
FeRP = "Fecha RPC: "
|
||
PlIs = "Plaza de inscripción: "
|
||
Apoderados = "APODERADOS"
|
||
|
||
'clsVaribles.FldRngApo21.Text = Nomb & Trim(Nombre)
|
||
'clsVaribles.FldRngApo22.Text = Rela & Trim(relacion)
|
||
'clsVaribles.FldRngApo23.Text = Ejer & Trim(ejercicio)
|
||
'clsVaribles.FldRngApo24.Text = Noac & Trim(noActa)
|
||
'clsVaribles.FldRngApo25.Text = FeAc & Trim(fechaAct)
|
||
'clsVaribles.FldRngApo26.Text = NNot & Trim(noNotaria)
|
||
'clsVaribles.FldRngApo27.Text = Nota & Trim(Notario)
|
||
'clsVaribles.FldRngApo28.Text = PlNo & Trim(plazaNot)
|
||
'clsVaribles.FldRngApo29.Text = RRPC & Trim(rpc)
|
||
'clsVaribles.FldRngApo210.Text = FeRP & Trim(fechaRPC)
|
||
'clsVaribles.FldRngApo211.Text = PlIs & Trim(plazaRPC)
|
||
'clsVaribles.FldRngApo212.Text = Apoderados
|
||
|
||
End Sub
|
||
Sub SaveFieldsApo3(ByVal Nombre As Object, ByVal relacion As Object, ByVal ejercicio As Object, ByVal noActa As Object, ByVal fechaAct As Object, ByVal noNotaria As Object, ByVal Notario As Object, ByVal plazaNot As Object, ByVal rpc As Object, ByVal fechaRPC As Object, ByVal plazaRPC As Object)
|
||
'
|
||
Dim Nomb As String
|
||
Dim Rela As String
|
||
Dim Ejer As String
|
||
Dim Noac As String
|
||
Dim FeAc As String
|
||
Dim NNot As String
|
||
Dim Nota As String
|
||
Dim PlNo As String
|
||
Dim RRPC As String
|
||
Dim FeRP As String
|
||
Dim PlIs As String
|
||
Dim Apoderados As String
|
||
|
||
Nomb = "Nombre: "
|
||
Rela = "Relación: "
|
||
Ejer = "Ejercicio de Poderes: "
|
||
Noac = "No. Acta: "
|
||
FeAc = "Fecha de acta: "
|
||
NNot = "No. Notaria: "
|
||
Nota = "Notario: "
|
||
PlNo = "Plaza de la notaria: "
|
||
RRPC = "RPC: "
|
||
FeRP = "Fecha RPC: "
|
||
PlIs = "Plaza de inscripción: "
|
||
Apoderados = "APODERADOS"
|
||
|
||
'clsVaribles.FldRngApo31.Text = Nomb & Trim(Nombre)
|
||
'clsVaribles.FldRngApo32.Text = Rela & Trim(relacion)
|
||
'clsVaribles.FldRngApo33.Text = Ejer & Trim(ejercicio)
|
||
'clsVaribles.FldRngApo34.Text = Noac & Trim(noActa)
|
||
'clsVaribles.FldRngApo35.Text = FeAc & Trim(fechaAct)
|
||
'clsVaribles.FldRngApo36.Text = NNot & Trim(noNotaria)
|
||
'clsVaribles.FldRngApo37.Text = Nota & Trim(Notario)
|
||
'clsVaribles.FldRngApo38.Text = PlNo & Trim(plazaNot)
|
||
'clsVaribles.FldRngApo39.Text = RRPC & Trim(rpc)
|
||
'clsVaribles.FldRngApo310.Text = FeRP & Trim(fechaRPC)
|
||
'clsVaribles.FldRngApo311.Text = PlIs & Trim(plazaRPC)
|
||
'clsVaribles.FldRngApo312.Text = Apoderados
|
||
|
||
End Sub
|
||
Sub SaveFieldsApo4(ByVal Nombre As Object, ByVal relacion As Object, ByVal ejercicio As Object, ByVal noActa As Object, ByVal fechaAct As Object, ByVal noNotaria As Object, ByVal Notario As Object, ByVal plazaNot As Object, ByVal rpc As Object, ByVal fechaRPC As Object, ByVal plazaRPC As Object)
|
||
'
|
||
Dim Nomb As String
|
||
Dim Rela As String
|
||
Dim Ejer As String
|
||
Dim Noac As String
|
||
Dim FeAc As String
|
||
Dim NNot As String
|
||
Dim Nota As String
|
||
Dim PlNo As String
|
||
Dim RRPC As String
|
||
Dim FeRP As String
|
||
Dim PlIs As String
|
||
Dim Apoderados As String
|
||
|
||
Nomb = "Nombre: "
|
||
Rela = "Relación: "
|
||
Ejer = "Ejercicio de Poderes: "
|
||
Noac = "No. Acta: "
|
||
FeAc = "Fecha de acta: "
|
||
NNot = "No. Notaria: "
|
||
Nota = "Notario: "
|
||
PlNo = "Plaza de la notaria: "
|
||
RRPC = "RPC: "
|
||
FeRP = "Fecha RPC: "
|
||
PlIs = "Plaza de inscripción: "
|
||
Apoderados = "APODERADOS"
|
||
|
||
'clsVaribles.FldRngApo41.Text = Nomb & Trim(Nombre)
|
||
'clsVaribles.FldRngApo42.Text = Rela & Trim(relacion)
|
||
'clsVaribles.FldRngApo43.Text = Ejer & Trim(ejercicio)
|
||
'clsVaribles.FldRngApo44.Text = Noac & Trim(noActa)
|
||
'clsVaribles.FldRngApo45.Text = FeAc & Trim(fechaAct)
|
||
'clsVaribles.FldRngApo46.Text = NNot & Trim(noNotaria)
|
||
'clsVaribles.FldRngApo47.Text = Nota & Trim(Notario)
|
||
'clsVaribles.FldRngApo48.Text = PlNo & Trim(plazaNot)
|
||
'clsVaribles.FldRngApo49.Text = RRPC & Trim(rpc)
|
||
'clsVaribles.FldRngApo410.Text = FeRP & Trim(fechaRPC)
|
||
'clsVaribles.FldRngApo411.Text = PlIs & Trim(plazaRPC)
|
||
'clsVaribles.FldRngApo412.Text = Apoderados
|
||
|
||
End Sub
|
||
'Sub SetRangesApo1(ByVal MyDoc As Word.Document)
|
||
|
||
' clsVaribles.FldRngApo11 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNom1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNom1").Start - 1)
|
||
' clsVaribles.FldRngApo12 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoRel1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoRel1").Start - 1)
|
||
' clsVaribles.FldRngApo13 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoEjer1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoEjer1").Start - 1)
|
||
' clsVaribles.FldRngApo14 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNo1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNo1").Start - 1)
|
||
' clsVaribles.FldRngApo15 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoFA1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoFA1").Start - 1)
|
||
' clsVaribles.FldRngApo16 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNot1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNot1").Start - 1)
|
||
' clsVaribles.FldRngApo17 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNotario1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNotario1").Start - 1)
|
||
' clsVaribles.FldRngApo18 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoPN1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoPN1").Start - 1)
|
||
' clsVaribles.FldRngApo19 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoRPC1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoRPC1").Start - 1)
|
||
' clsVaribles.FldRngApo110 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoFR1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoFR1").Start - 1)
|
||
' clsVaribles.FldRngApo111 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoPR1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoPR1").Start - 1)
|
||
' clsVaribles.FldRngApo112 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Apoderados").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoderados").Start - 1)
|
||
|
||
|
||
'End Sub
|
||
'Sub SetRangesApo2(ByVal MyDoc As Word.Document)
|
||
|
||
' clsVaribles.FldRngApo21 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNom1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNom1").Start - 1)
|
||
' clsVaribles.FldRngApo22 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoRel1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoRel1").Start - 1)
|
||
' clsVaribles.FldRngApo23 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoEjer1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoEjer1").Start - 1)
|
||
' clsVaribles.FldRngApo24 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNo1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNo1").Start - 1)
|
||
' clsVaribles.FldRngApo25 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoFA1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoFA1").Start - 1)
|
||
' clsVaribles.FldRngApo26 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNot1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNot1").Start - 1)
|
||
' clsVaribles.FldRngApo27 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNotario1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNotario1").Start - 1)
|
||
' clsVaribles.FldRngApo28 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoPN1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoPN1").Start - 1)
|
||
' clsVaribles.FldRngApo29 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoRPC1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoRPC1").Start - 1)
|
||
' clsVaribles.FldRngApo210 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoFR1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoFR1").Start - 1)
|
||
' clsVaribles.FldRngApo211 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoPR1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoPR1").Start - 1)
|
||
' clsVaribles.FldRngApo212 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Apoderados").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoderados").Start - 1)
|
||
|
||
|
||
'End Sub
|
||
'Sub SetRangesApo3(ByVal MyDoc As Word.Document)
|
||
|
||
' clsVaribles.FldRngApo31 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNom1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNom1").Start - 1)
|
||
' clsVaribles.FldRngApo32 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoRel1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoRel1").Start - 1)
|
||
' clsVaribles.FldRngApo33 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoEjer1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoEjer1").Start - 1)
|
||
' clsVaribles.FldRngApo34 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNo1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNo1").Start - 1)
|
||
' clsVaribles.FldRngApo35 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoFA1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoFA1").Start - 1)
|
||
' clsVaribles.FldRngApo36 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNot1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNot1").Start - 1)
|
||
' clsVaribles.FldRngApo37 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNotario1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNotario1").Start - 1)
|
||
' clsVaribles.FldRngApo38 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoPN1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoPN1").Start - 1)
|
||
' clsVaribles.FldRngApo39 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoRPC1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoRPC1").Start - 1)
|
||
' clsVaribles.FldRngApo310 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoFR1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoFR1").Start - 1)
|
||
' clsVaribles.FldRngApo311 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoPR1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoPR1").Start - 1)
|
||
' clsVaribles.FldRngApo312 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Apoderados").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoderados").Start - 1)
|
||
|
||
|
||
'End Sub
|
||
'Sub SetRangesApo4(ByVal MyDoc As Word.Document)
|
||
|
||
' clsVaribles.FldRngApo41 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNom1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNom1").Start - 1)
|
||
' clsVaribles.FldRngApo42 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoRel1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoRel1").Start - 1)
|
||
' clsVaribles.FldRngApo43 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoEjer1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoEjer1").Start - 1)
|
||
' clsVaribles.FldRngApo44 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNo1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNo1").Start - 1)
|
||
' clsVaribles.FldRngApo45 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoFA1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoFA1").Start - 1)
|
||
' clsVaribles.FldRngApo46 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNot1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNot1").Start - 1)
|
||
' clsVaribles.FldRngApo47 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoNotario1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoNotario1").Start - 1)
|
||
' clsVaribles.FldRngApo48 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoPN1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoPN1").Start - 1)
|
||
' clsVaribles.FldRngApo49 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoRPC1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoRPC1").Start - 1)
|
||
' clsVaribles.FldRngApo410 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoFR1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoFR1").Start - 1)
|
||
' clsVaribles.FldRngApo411 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("ApoPR1").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoPR1").Start - 1)
|
||
' clsVaribles.FldRngApo412 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Apoderados").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endApoderados").Start - 1)
|
||
|
||
'End Sub
|
||
'Private Sub SetRangesAct(ByVal MyDoc As Word.Document)
|
||
' '
|
||
' clsVaribles.FldRngAct1 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("NumAct").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endNumAct").Start - 1)
|
||
' clsVaribles.FldRngAct2 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("FechaAct").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endFechaAct").Start - 1)
|
||
' clsVaribles.FldRngAct3 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Notaria").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endNotaria").Start - 1)
|
||
' clsVaribles.FldRngAct4 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("PlazaNotaria").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endPlazaNotaria").Start - 1)
|
||
' clsVaribles.FldRngAct5 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("Notario").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endNotario").Start - 1)
|
||
' clsVaribles.FldRngAct6 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("PlazaIns").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endPlazaIns").Start - 1)
|
||
' clsVaribles.FldRngAct7 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("NumIns").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endNumIns").Start - 1)
|
||
' clsVaribles.FldRngAct8 = MyDoc.Range(Start:=MyDoc.Bookmarks.Item("FechaIns").Range.End, _
|
||
' End:=MyDoc.Bookmarks.Item("endFechaIns").Start - 1)
|
||
'End Sub
|
||
Public Function BuscaValores(ByVal SqlSELECT As String, ByVal SqlFROM As String, ByVal SqlWHERE As String) As Object
|
||
Dim fila As DataRow
|
||
Dim SQL As String
|
||
Dim Classcom As New clsComplejo
|
||
Try
|
||
'SqlWHERE = ""
|
||
If SqlFROM = "MERCADO DE DINERO" Then SqlFROM = "MERCADO DE CAPITALES"
|
||
SQL = "SELECT " & SqlSELECT & " " & " FROM " & SqlFROM.Replace(" ", "")
|
||
If SqlWHERE <> "" Then
|
||
SQL = SQL & " WHERE " & SqlWHERE
|
||
End If
|
||
|
||
Classcom.fdtDataSet(SQL)
|
||
|
||
'cm.Connection = cn2.cn
|
||
'cm.CommandText = SQL
|
||
'ad.SelectCommand = cm
|
||
'ad.Fill(ds)
|
||
|
||
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
If IsDBNull(Classcom.ds.Tables(0).Rows(0)) Then
|
||
Return ""
|
||
Else
|
||
Return Classcom.ds.Tables(0).Rows(0).Item(0)
|
||
End If
|
||
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; BuscaValores: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Exit Function
|
||
End Try
|
||
|
||
End Function
|
||
Public Sub sbLlenaCombo2(ByVal SQL As String, ByRef miCombo As ComboBox)
|
||
'funcion que me permite llenar combos a traves de un procedimiento almacenado
|
||
'On Error Resume Next
|
||
'llena un combo con la sentencia SQL especificada
|
||
sbConectaBD()
|
||
Try
|
||
miCombo.DataBindings.Clear()
|
||
miCombo.DataSource = Nothing
|
||
miCombo.Items.Clear()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
dt.Clear()
|
||
ad.Fill(dt)
|
||
miCombo.DataSource = dt
|
||
miCombo.DisplayMember = "nombre"
|
||
miCombo.ValueMember = "clave"
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo2: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
|
||
Public Function ObtenFecha(ByVal FOriginal As Date, ByVal strFormato As String) As String
|
||
|
||
Dim strFechaRet As String
|
||
|
||
Select Case UCase(strFormato)
|
||
Case Is = "DD/MM/YYYY"
|
||
strFechaRet = Format(Microsoft.VisualBasic.Day(FOriginal), "00") & "/" & Format(Month(FOriginal), "00") & "/" & Year(FOriginal)
|
||
Case Is = "YYYY/MM/DD"
|
||
strFechaRet = Year(FOriginal) & "/" & Format(Month(FOriginal), "00") & "/" & Format(Microsoft.VisualBasic.Day(FOriginal), "00")
|
||
Case Is = "MM/DD/YYYY"
|
||
strFechaRet = Format(Month(FOriginal), "00") & "/" & Format(Microsoft.VisualBasic.Day(FOriginal), "00") & "/" & Year(FOriginal)
|
||
Case Is = "DDMMYYYY"
|
||
strFechaRet = Format(Microsoft.VisualBasic.Day(FOriginal), "00") & Format(Month(FOriginal), "00") & Year(FOriginal)
|
||
Case Is = "DD/MMM/YY"
|
||
strFechaRet = Format(Microsoft.VisualBasic.Day(FOriginal), "00") & "/" & Format(FOriginal, "MMM") & "/" & Year(FOriginal)
|
||
Case Is = "YYMMDD"
|
||
strFechaRet = Year(FOriginal) & Format(FOriginal, "MM") & Format(Microsoft.VisualBasic.Day(FOriginal), "00")
|
||
Case Is = "YYYYMMDD"
|
||
strFechaRet = Year(FOriginal) & Format(FOriginal, "MM") & Format(Microsoft.VisualBasic.Day(FOriginal), "00")
|
||
End Select
|
||
|
||
ObtenFecha = strFechaRet
|
||
|
||
End Function
|
||
Public Sub sbLlenaCombo1(ByVal SQL As String, ByRef miCombo As ComboBox, ByRef ValDisplay As String)
|
||
'funcion que me permite llenar combos a traves de un procedimiento almacenado
|
||
'On Error Resume Next
|
||
'llena un combo con la sentencia SQL especificada
|
||
sbConectaBD()
|
||
Try
|
||
miCombo.DataBindings.Clear()
|
||
miCombo.DataSource = Nothing
|
||
miCombo.Items.Clear()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
dt.Clear()
|
||
cm.CommandTimeout = 0
|
||
ad.Fill(dt)
|
||
miCombo.DataSource = dt
|
||
miCombo.DisplayMember = ValDisplay
|
||
miCombo.ValueMember = "clave"
|
||
Catch er As Exception
|
||
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo1: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
sbCierraCn()
|
||
End Sub
|
||
Public Function ValidaCampos(ByVal strParam As String, ByVal strCHAR As String) As String
|
||
|
||
Select Case UCase(strParam)
|
||
|
||
Case Is = "NUMEROS"
|
||
|
||
If InStr("0123456789", Mid(strCHAR, 1, 1).ToString, CompareMethod.Text) = 0 Then
|
||
ValidaCampos = Nothing
|
||
Else
|
||
ValidaCampos = strCHAR
|
||
End If
|
||
|
||
End Select
|
||
|
||
End Function
|
||
Public Function BuscaDatos(ByVal SQL As String) As Boolean
|
||
'Dim cn2 As ExecConexion.ClassCon = New ExecConexion.ClassCon
|
||
Try
|
||
|
||
BuscaDatos = False
|
||
|
||
ConectaBD()
|
||
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
ad.SelectCommand = cm
|
||
ad.Fill(ds)
|
||
|
||
If ds.Tables(0).Rows.Count <> 0 Then
|
||
BuscaDatos = True
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error en ClsComplejo; BuscaDatos: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
Exit Function
|
||
End Try
|
||
|
||
sbCierraCn()
|
||
|
||
End Function
|
||
'Public Sub ReemplazaTexto(ByVal ObjWord As Word.Application, ByVal TextoIni As String, ByVal TextoFin As String)
|
||
|
||
' Try
|
||
|
||
' If ObjWord Is Nothing Then
|
||
' ObjWord = CreateObject("word.application")
|
||
' Else
|
||
' ObjWord = GetObject(, "word.application")
|
||
' End If
|
||
|
||
' ObjWord.Selection.Find.ClearFormatting()
|
||
|
||
' Dim Rp As Word.WdReplace
|
||
' Dim Wp As Word.WdFindWrap
|
||
|
||
|
||
' ObjWord.Selection.Find.ClearFormatting()
|
||
' ObjWord.Selection.Find.Replacement.ClearFormatting()
|
||
|
||
' With ObjWord.Selection.Find
|
||
' .Text = TextoIni
|
||
|
||
' .Replacement.Text = TextoFin
|
||
' .Forward = True
|
||
' .Wrap = Wp.wdFindContinue
|
||
' .Format = False
|
||
' .MatchCase = False
|
||
' .MatchWholeWord = False
|
||
' .MatchWildcards = False
|
||
' .MatchSoundsLike = False
|
||
' .MatchAllWordForms = False
|
||
|
||
' End With
|
||
|
||
' ObjWord.Selection.Find.Execute(Replace:=Rp.wdReplaceAll)
|
||
|
||
' Catch ex As Exception
|
||
' MessageBox.Show("error en ClsComplejo; sbLlenaLista: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
|
||
' If Not ObjWord Is Nothing Then
|
||
' ObjWord = Nothing
|
||
' ObjWord.Documents.Close()
|
||
' ObjWord.Application.Quit()
|
||
' End If
|
||
|
||
' End Try
|
||
|
||
'End Sub
|
||
Public Sub LLenaCheckLis(ByVal Chklist As CheckedListBox, ByVal SQL As String, ByVal Valordefault As Boolean)
|
||
Dim Classcom As New clsComplejo
|
||
Dim Classcarga As New clsComplejo
|
||
Dim Fila As DataRow
|
||
|
||
Classcom.fdtDataSet(SQL)
|
||
|
||
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
|
||
For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1
|
||
Fila = Nothing
|
||
Fila = Classcom.ds.Tables(0).Rows(i)
|
||
Chklist.Items.Add(Fila(0), Valordefault)
|
||
Next
|
||
|
||
End If
|
||
|
||
End Sub
|
||
Public Sub LLenaCheckLisESP(ByVal Chklist As CheckedListBox, ByVal SQL As String, ByVal Valordefault As Boolean, ByVal FilaIN As Integer)
|
||
Dim Classcom As New clsComplejo
|
||
Dim Classcarga As New clsComplejo
|
||
Dim Fila As DataRow
|
||
|
||
Classcom.fdtDataSet(SQL)
|
||
|
||
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
|
||
For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1
|
||
Fila = Nothing
|
||
Fila = Classcom.ds.Tables(0).Rows(i)
|
||
Chklist.Items.Add(Fila(FilaIN), Valordefault)
|
||
Next
|
||
|
||
End If
|
||
|
||
End Sub
|
||
Public Sub sbLimpiaControlesEsp(ByVal Forma As GroupBox)
|
||
Dim lcCtrl As Object
|
||
|
||
For Each lcCtrl In Forma.Controls
|
||
If TypeOf lcCtrl Is TextBox Then
|
||
lcCtrl.text = ""
|
||
End If
|
||
|
||
If TypeOf lcCtrl Is ComboBox Then
|
||
lcCtrl.Selectedindex = -1
|
||
lcCtrl.text = ""
|
||
'MsgBox("limpio combo")
|
||
End If
|
||
|
||
If TypeOf lcCtrl Is CheckBox Then
|
||
lcCtrl.Checked = False
|
||
'MsgBox("limpio chcek")
|
||
End If
|
||
|
||
If TypeOf lcCtrl Is DateTimePicker Then
|
||
lcCtrl.value = Now
|
||
End If
|
||
|
||
Next lcCtrl
|
||
End Sub
|
||
Public Sub ColsGridAutosize(ByRef Grid As C1.Win.C1TrueDBGrid.C1TrueDBGrid)
|
||
Dim i As Integer
|
||
|
||
For i = 0 To Grid.Columns.Count - 1
|
||
|
||
Grid.Splits(0).DisplayColumns(i).AutoSize()
|
||
|
||
Next
|
||
|
||
End Sub
|
||
Protected Overrides Sub Finalize()
|
||
MyBase.Finalize()
|
||
End Sub
|
||
|
||
Public Function fnInserta(ByVal SQL As String) As String
|
||
Try
|
||
''Ejecuta un query. Retorna en una variable el mensaje de error. Si no hay error, no retorna nada.
|
||
ConectaBD()
|
||
cm.Connection = cn
|
||
cm.CommandText = SQL
|
||
cm.ExecuteNonQuery()
|
||
fnInserta = "" ''Operacion OK.
|
||
Catch ex As Exception
|
||
fnInserta = "Hubo un error al guardar los datos. " & vbCrLf & ex.Message
|
||
End Try
|
||
sbCierraCn()
|
||
End Function
|
||
|
||
Public Function fdtDataSetTablaESP(ByVal SQL As String) As DataSet
|
||
Dim Micm As New SqlClient.SqlCommand() 'declaraciòn de comando SQL
|
||
Dim Miad As New SqlClient.SqlDataAdapter() 'declaraciòn de adaptador
|
||
Dim Mids As New DataSet() 'declaracion de dataset
|
||
sbConectaBD()
|
||
Try
|
||
Micm.Connection = cn
|
||
Micm.CommandText = SQL
|
||
Micm.CommandTimeout = 0
|
||
Miad.SelectCommand = Micm
|
||
Mids.Clear()
|
||
Miad.Fill(Mids, "Tabla")
|
||
Micm.Connection.Close()
|
||
cn.Close()
|
||
Return Mids
|
||
Catch ex As Exception
|
||
MessageBox.Show("Problemas al recuperar los datos, en fdtDataSetTablaESP: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
End Try
|
||
cn.Close()
|
||
End Function
|
||
|
||
End Class
|