1122 lines
50 KiB
VB.net
1122 lines
50 KiB
VB.net
|
|
Imports System.Threading
|
|
|
|
Public Class FRMListasR
|
|
|
|
Public lbFullTextIndex As Boolean
|
|
|
|
Private Sub FRMListasR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
Dim CLasscom As New clsComplejo
|
|
Dim strSQL As String
|
|
|
|
Try
|
|
|
|
'strSQL = "SELECT id_organismo clave,nombreorganismo nombre FROM organismointernacional WHERE activo = 1 ORDER BY 1"
|
|
|
|
'CLasscom.sbLlenaComboESP(strSQL, Me.cmbOrganismo, "nombre")
|
|
|
|
CLasscom.sbLlenaCombo("sp_ConsultarOrgInternacionales ", cmbOrganismo)
|
|
|
|
CLasscom = New clsComplejo
|
|
'strSQL = "SELECT id_pais clave,nombre FROM pais order by nombre "
|
|
'CLasscom.sbLlenaComboESP(strSQL, Me.cmbPaises, "nombre")
|
|
|
|
CLasscom.sbLlenaCombo("sp_ConsultarPais ", cmbPaises)
|
|
|
|
Me.cmbOrganismo.SelectedIndex = -1
|
|
Me.cmbPaises.SelectedIndex = -1
|
|
|
|
Call ValidateFullTextIndex()
|
|
|
|
If Not lbFullTextIndex Then
|
|
opt_Free.Enabled = False
|
|
opt_Contents.Enabled = True
|
|
opt_Exact.Checked = True
|
|
|
|
End If
|
|
opt_Free.Enabled = True
|
|
opt_Contents.Enabled = True
|
|
opt_Exact.Checked = True
|
|
chk_Field0.Checked = True ''Campo Nombre
|
|
chk_Field3.Checked = True ''Campo Observaciones
|
|
opt_EstatusTodos.Checked = True ''Todos; activos e inactivos.
|
|
Me.Text = "Búsqueda en Listas Restringidas"
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Public Sub ValidateFullTextIndex()
|
|
|
|
Dim Classcom1 As New clsComplejo
|
|
Dim sSQL As String
|
|
Dim iRecords As Integer
|
|
|
|
Try
|
|
lbFullTextIndex = True
|
|
|
|
sSQL = "Select FULLTEXTSERVICEPROPERTY('IsFullTextInstalled ')"
|
|
Classcom1.fdtDataSet(sSQL)
|
|
|
|
If Classcom1.ds.Tables(0).Rows.Count <> 0 Then
|
|
If Classcom1.ds.Tables(0).Rows.Count <> 1 Then
|
|
lbFullTextIndex = False
|
|
End If
|
|
Else
|
|
lbFullTextIndex = False
|
|
End If
|
|
|
|
If Not lbFullTextIndex Then
|
|
MsgBox("No se ha instalado el servicio 'Full Text Index' en el servidor de base de datos." & vbCrLf & "Las opciones de búsqueda avanzada no estarán disponibles.", vbOKOnly + vbInformation, "Minds")
|
|
Exit Sub
|
|
End If
|
|
|
|
sSQL = "Select DATABASEPROPERTYEX('" & Classcom1.cn.Database & "','IsFulltextEnabled')"
|
|
Classcom1.fdtDataSet(sSQL)
|
|
|
|
If Classcom1.ds.Tables(0).Rows.Count <> 0 Then
|
|
If Classcom1.ds.Tables(0).Rows.Count <> 1 Then
|
|
'lbFullTextIndex = False
|
|
End If
|
|
Else
|
|
lbFullTextIndex = False
|
|
End If
|
|
|
|
If Not lbFullTextIndex Then
|
|
MsgBox("El servicio 'Full Text Index' está instalado, pero no se ha habilitado para la base de datos de Minds." & vbCrLf & "Las opciones de búsqueda avanzada no estarán disponibles.", vbOKOnly + vbInformation, "Minds")
|
|
Exit Sub
|
|
End If
|
|
|
|
Exit Sub
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Public Function My_CleanStr(ByVal strTheString As String, Optional ByVal strTheChars As String = "",
|
|
Optional ByVal blnIncluded As Boolean = False) As String
|
|
|
|
Dim i As Integer, l As Integer
|
|
|
|
Dim strReturn As String, strSpecials As String
|
|
strSpecials = ""
|
|
strReturn = Trim$(strTheString)
|
|
|
|
If "" = strReturn Then
|
|
|
|
Else
|
|
|
|
If "" = Trim$(strTheChars) Then
|
|
|
|
strSpecials = Chr(34) & "'|;"
|
|
|
|
ElseIf blnIncluded Then
|
|
|
|
strSpecials = Chr(34) & "'|;" & Trim$(strTheChars)
|
|
|
|
ElseIf Not blnIncluded Then
|
|
|
|
strSpecials = Trim$(strTheChars)
|
|
|
|
End If
|
|
|
|
l = Len(strSpecials)
|
|
|
|
For i = 1 To l
|
|
|
|
strReturn = Replace(strReturn, Mid(strSpecials, i, 1), " ")
|
|
|
|
Next i
|
|
|
|
End If
|
|
|
|
My_CleanStr = strReturn
|
|
|
|
End Function
|
|
|
|
Public Function My_ExtractFix(ByVal strTheString As String) As String
|
|
|
|
Dim i As Integer, intPos As Integer
|
|
Dim strReturn As String
|
|
Dim strList As String
|
|
|
|
Dim astrList() As String
|
|
|
|
strList = " AC ; A C ; CV ; C V ; DE ; DEL ; INC ; LA ; LAS ; OF ; S A ; SA ; SC ; S C ; SRL "
|
|
|
|
astrList = Split(strList, ";")
|
|
|
|
strReturn = strTheString & " "
|
|
|
|
For i = 0 To UBound(astrList)
|
|
|
|
intPos = InStr(1, strReturn, astrList(i))
|
|
|
|
If intPos > 0 Then
|
|
|
|
strReturn = Replace(strReturn, astrList(i), Space(Len(astrList(i))))
|
|
|
|
End If
|
|
|
|
Next i
|
|
|
|
My_ExtractFix = strReturn
|
|
|
|
End Function
|
|
|
|
Public Function My_OnlyOneSpc(ByVal strTheString As String) As String
|
|
'
|
|
Dim i As Integer
|
|
Dim bln1stOne As Boolean
|
|
Dim strFoo As String
|
|
Dim strReturn As String
|
|
|
|
strFoo = Trim$(strTheString)
|
|
|
|
strReturn = ""
|
|
|
|
For i = 1 To Len(strFoo)
|
|
|
|
If Mid(strFoo, i, 1) = " " Then
|
|
|
|
If bln1stOne Then
|
|
strReturn = strReturn & " "
|
|
bln1stOne = False
|
|
Else
|
|
GoTo Next_i
|
|
End If
|
|
|
|
Else
|
|
strReturn = strReturn & Mid(strFoo, i, 1)
|
|
bln1stOne = True
|
|
End If
|
|
|
|
Next_i:
|
|
Next i
|
|
|
|
My_OnlyOneSpc = Trim$(strReturn)
|
|
|
|
End Function
|
|
|
|
Public Function VerificacionListasRestringidasRiesgo(ByVal cadenaSql As String, ByVal Tipo As Integer, ByVal Porcentaje As Long, ByVal Proceso As String, ByVal FiguraFin As String, ByVal strNIC As String, ByVal strProceso As String, ByVal strWHERE As String) As Boolean
|
|
|
|
'CadenaSql : determina si es una persona o un querie con muchas personas tomadas de una tabla
|
|
'Tipo: variable entera para distinguir si se trata de un query o de una cadena (1 = query, 2 = cadena)
|
|
'Porcentaje: variable que define el porcentaje a partir del cual se van a reportar los clientes
|
|
' Fabiola Vega G.
|
|
' Carlos Cantero R.
|
|
' 15/04/2004
|
|
|
|
|
|
Dim a, nombre As Object
|
|
Dim num, num1 As Integer
|
|
Dim tam, porcen, Porcen1 As Double
|
|
Dim Tam1 As Integer, Tam2 As Integer
|
|
Dim TotalList As Long
|
|
Dim i As Long
|
|
Dim CadenaCON As String
|
|
Dim CmdSQL As String
|
|
Dim Porcen2 As Double
|
|
Dim Cadena As String
|
|
|
|
Dim strNombre As String
|
|
Dim lngId As Long
|
|
|
|
Dim l As Long
|
|
|
|
|
|
|
|
Try
|
|
|
|
VerificacionListasRestringidasRiesgo = False
|
|
|
|
porcen = 0
|
|
Porcen1 = 0
|
|
|
|
CmdSQL = "SELECT MIN(id_ListaRestringida), nombre " &
|
|
"FROM listasRestringidas " &
|
|
"WHERE nombre is NOT NULL GROUP BY nombre "
|
|
|
|
If strWHERE <> "" Then
|
|
|
|
CmdSQL = CmdSQL & " AND " & strWHERE
|
|
|
|
End If
|
|
|
|
cadenaSql = My_OnlyOneSpc(My_ExtractFix((My_CleanStr(cadenaSql & " ", "*."))))
|
|
|
|
cadenaSql = UCase(cadenaSql)
|
|
|
|
nombre = Split(cadenaSql, " ")
|
|
num1 = UBound(nombre)
|
|
|
|
|
|
'cambio que se realizo para optimizar la busqueda de nombres en listasrestringidas
|
|
'busca dentro de las conincidencias encontradas no dentro TODA la tabla de listas
|
|
CadenaCON = ""
|
|
If num1 > 0 Then
|
|
|
|
For i = 0 To num1 - 1
|
|
|
|
If i <> 0 Then
|
|
CadenaCON = CadenaCON & " OR nombre like '%" & nombre(i) & "%'"
|
|
Else
|
|
CadenaCON = CadenaCON & " AND (nombre like '%" & nombre(i) & "%'"
|
|
End If
|
|
|
|
Next i
|
|
Else
|
|
'CadenaCON = " and Nombre "
|
|
|
|
End If
|
|
|
|
CmdSQL = "SELECT id_listarestringida, nombre "
|
|
CmdSQL = CmdSQL & "FROM ListaRestringida"
|
|
CmdSQL = CmdSQL & " WHERE nombre is not null "
|
|
If num1 > 0 Then
|
|
CmdSQL = CmdSQL & CadenaCON & ") "
|
|
End If
|
|
CmdSQL = CmdSQL & " AND estatus <> 0 "
|
|
|
|
If strWHERE <> "" Then
|
|
|
|
CmdSQL = CmdSQL & " AND " & strWHERE
|
|
|
|
End If
|
|
|
|
'CmdSQL = CmdSQL & " AND nombre = 'syria'"
|
|
'CmdSQL = CmdSQL & "GROUP BY nombre "
|
|
|
|
Dim Classcom As New SenteciasSQL.ClassSQL
|
|
|
|
Classcom.fdtDataSet(CmdSQL)
|
|
|
|
If Not Classcom.ds.Tables(0).Rows.Count = 0 Then
|
|
|
|
TotalList = Classcom.ds.Tables(0).Rows.Count
|
|
|
|
Dim nombresLista(,) As Object = {{}, {}}
|
|
|
|
For i = 0 To TotalList - 1
|
|
|
|
lngId = Classcom.ds.Tables(0).Rows(i).Item(0)
|
|
strNombre = My_OnlyOneSpc(My_ExtractFix((My_CleanStr(Classcom.ds.Tables(0).Rows(i).Item(1) & " ", "*."))))
|
|
|
|
strNombre = UCase(strNombre)
|
|
|
|
'a = Split(Trim(nombresLista(1, i)), " ")
|
|
a = Split(Trim(strNombre), " ")
|
|
|
|
num = UBound(a)
|
|
|
|
porcen = 0
|
|
|
|
If num1 > -1 Then
|
|
Porcen1 = 100 / (num1 + 1)
|
|
Porcen2 = Porcen1 / 5
|
|
Porcen1 = Porcen1 - Porcen2
|
|
|
|
For l = 0 To num1
|
|
If InStr(1, strNombre, nombre(l)) <> 0 Then
|
|
porcen = porcen + Porcen1
|
|
End If
|
|
tam = (Len(nombre(l)) \ 2) + IIf(Len(nombre(l)) Mod 2 = 0, 0, 1)
|
|
Cadena = Mid(nombre(l), 1, tam)
|
|
If InStr(1, strNombre, Cadena) <> 0 Then
|
|
porcen = porcen + Porcen2
|
|
End If
|
|
Next
|
|
|
|
Tam1 = UBound(Split(Trim(cadenaSql), " ")) + 1
|
|
Tam2 = UBound(Split((strNombre), " ")) + 1
|
|
|
|
If Tam2 > Tam1 And porcen > 0 Then
|
|
porcen = porcen * (1 - ((1 / IIf(Tam2 > Tam1, Tam2, Tam1))))
|
|
Else
|
|
Tam1 = Len(Trim(cadenaSql))
|
|
Tam2 = Len(Trim(strNombre))
|
|
|
|
If Tam2 <> Tam1 And porcen > 0 Then
|
|
porcen = porcen * (1 - ((1 / IIf(Tam2 > Tam1, Tam2, Tam1))))
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
If porcen > 100 Then
|
|
porcen = 99
|
|
End If
|
|
|
|
If porcen >= 95 Then
|
|
|
|
VerificacionListasRestringidasRiesgo = True
|
|
End If
|
|
|
|
Next
|
|
|
|
porcen = 0
|
|
Porcen1 = 0
|
|
Porcen2 = 0
|
|
|
|
|
|
End If 'Existen listas restringidas
|
|
|
|
Salir:
|
|
Exit Function
|
|
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Function
|
|
Private Sub Consultar()
|
|
|
|
Try
|
|
Dim sSQL As String
|
|
Dim sSql2 As String
|
|
Dim iField As Integer
|
|
Dim iRecords As Long
|
|
Dim iRecordsFound As Long
|
|
Dim sText As String
|
|
Dim iPais As Integer
|
|
Dim iOrganismo As Integer
|
|
Dim aText() As String
|
|
Dim sSrchChain As String
|
|
Dim iStrings As Integer
|
|
Dim sSearchFields As String
|
|
Dim Classcom1 As New clsComplejo
|
|
|
|
sText = Trim(Text_Busqueda.Text)
|
|
|
|
If sText = "" Then
|
|
MsgBox("Suministre un texto a buscar.", vbOKOnly + vbInformation)
|
|
Exit Sub
|
|
End If
|
|
|
|
If chk_Field0.CheckState = CheckState.Unchecked And chk_Field1.CheckState = CheckState.Unchecked And chk_Field2.CheckState = CheckState.Unchecked And chk_Field3.CheckState = CheckState.Unchecked Then
|
|
MsgBox("Debe seleccionar en qué campo desea buscar.", vbOKOnly + vbInformation)
|
|
chk_Field0.Focus()
|
|
Exit Sub
|
|
End If
|
|
|
|
iPais = -1
|
|
iOrganismo = -1
|
|
If cmbOrganismo.SelectedIndex <> -1 Then iOrganismo = cmbOrganismo.SelectedValue
|
|
If cmbPaises.SelectedIndex <> -1 Then iPais = cmbPaises.SelectedValue
|
|
|
|
'Campos en los que se buscará
|
|
sSearchFields = ""
|
|
|
|
If sSearchFields <> "" And chk_Field0.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & ","
|
|
If chk_Field0.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & chk_Field0.Tag
|
|
If sSearchFields <> "" And chk_Field1.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & ","
|
|
If chk_Field1.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & chk_Field1.Tag
|
|
If sSearchFields <> "" And chk_Field2.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & ","
|
|
If chk_Field2.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & chk_Field2.Tag
|
|
If sSearchFields <> "" And chk_Field3.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & ","
|
|
If chk_Field3.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & chk_Field3.Tag
|
|
|
|
If opt_Free.Checked = True Then
|
|
|
|
|
|
sSQL = "sp_ConsultarLRBuscarAproximada " & IIf(cmbOrganismo.SelectedValue <> Nothing, cmbOrganismo.SelectedValue, "NULL")
|
|
'sSQL = sSQL & "," & IIf(cmbPaises.SelectedValue <> Nothing, cmbPaises.SelectedValue & ",NULL", "NULL,''")
|
|
sSQL = sSQL & ",NULL," & IIf(txtpais.Text.Trim().Length = 0, "NULL", "'" & txtpais.Text.Trim() & "'")
|
|
sSQL = sSQL & ",'" & Text_Busqueda.Text & "'"
|
|
sSQL = sSQL & "," & chk_Field0.CheckState
|
|
sSQL = sSQL & "," & chk_Field3.CheckState
|
|
If opt_EstatusActivo.Checked Then
|
|
sSQL = sSQL & "," & 1
|
|
ElseIf opt_EstatusInactivo.Checked Then
|
|
sSQL = sSQL & "," & 0
|
|
End If
|
|
|
|
|
|
'sSQL = "SELECT"
|
|
'sSQL = sSQL & " IsNull(case LISTARESTRINGIDA.Estatus WHEN 0 THEN 'Inactivo' ELSE 'Activo' END, '') AS Estatus,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.Nombre,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.observaciones,"
|
|
'sSQL = sSQL & " ORGANISMOINTERNACIONAL.nombreorganismo as Organismo,"
|
|
''sSQL = sSQL & " PAIS.PaisNom as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.PaisTxt as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux01 as FNac,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux02 as Puesto,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux03 as Direccion1"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.CmpAux04 as Direccion2,"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.Observaciones"
|
|
'sSQL = sSQL & " From"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA"
|
|
'sSQL = sSQL & " INNER JOIN FREETEXTTABLE(LISTARESTRINGIDA,(" & sSearchFields & "), '" & sText & "') AS KEY_TBL ON LISTARESTRINGIDA.Id_ListaRestringida = KEY_TBL.[KEY]"
|
|
'sSQL = sSQL & " left outer join ORGANISMOINTERNACIONAL ON LISTARESTRINGIDA.ID_Organismo = ORGANISMOINTERNACIONAL.ID_Organismo"
|
|
'sSQL = sSQL & " Left outer join PAIS ON LISTARESTRINGIDA.ID_Pais = PAIS.ID_Pais"
|
|
'If iOrganismo <> -1 Or iPais <> -1 Or opt_EstatusActivo.Checked Or opt_EstatusInactivo.Checked Then sSQL = sSQL & " WHERE"
|
|
'If iOrganismo <> -1 And iOrganismo = 0 Then sSQL = sSQL & " (LISTARESTRINGIDA.ID_Organismo = 0 OR LISTARESTRINGIDA.ID_Organismo IS NULL)"
|
|
'If iOrganismo <> -1 And iOrganismo <> 0 Then sSQL = sSQL & " LISTARESTRINGIDA.ID_Organismo = " & CStr(iOrganismo)
|
|
'If iOrganismo <> -1 And iPais <> -1 Then sSQL = sSQL & " AND"
|
|
'If iPais <> -1 Then
|
|
' sSQL = sSQL & " (PAIS.ID_Pais= " & CStr(iPais)
|
|
' sSQL = sSQL & " OR UPPER(LISTARESTRINGIDA.PaisTxt) = '" & UCase(Trim(cmbPaises.Text)) & "' )"
|
|
'End If
|
|
'If opt_EstatusActivo.Checked Or opt_EstatusInactivo.Checked Then
|
|
' If iOrganismo <> -1 Or iPais <> -1 Then sSQL = sSQL & " AND"
|
|
' If opt_EstatusActivo.Checked Then sSQL = sSQL & " LISTARESTRINGIDA.Estatus = 1"
|
|
' If opt_EstatusInactivo.Checked Then sSQL = sSQL & " LISTARESTRINGIDA.Estatus = 0"
|
|
'End If
|
|
'sSQL = sSQL & " order by KEY_TBL.rank desc"
|
|
ElseIf opt_Contents.Checked = True Then
|
|
''Parametros del store
|
|
'@NomBuscar as varchar(200),
|
|
'@IdOrganismo as int = NULL,
|
|
'@IdPais as int = NULL,
|
|
'@IdEstatus as int = NULL,
|
|
'@Campos as varchar(200) = NULL
|
|
|
|
sSQL = "EXEC spListaRPorcentaje60 "
|
|
sSQL = sSQL & Chr(39) & sText & Chr(39) 'KAZUHIRO HARAGUCHI', NULL, NULL, NULL, NULL"
|
|
If cmbOrganismo.SelectedIndex <> -1 Then
|
|
sSQL = sSQL & "," & cmbOrganismo.SelectedValue
|
|
Else
|
|
sSQL = sSQL & ",NULL "
|
|
End If
|
|
|
|
If cmbPaises.SelectedIndex <> -1 Then
|
|
sSQL = sSQL & "," & cmbPaises.SelectedValue
|
|
Else
|
|
sSQL = sSQL & ",NULL "
|
|
End If
|
|
|
|
If opt_EstatusActivo.Checked Then
|
|
sSQL = sSQL & ",1 "
|
|
ElseIf opt_EstatusInactivo.Checked Then
|
|
sSQL = sSQL & ",0 "
|
|
ElseIf opt_EstatusTodos.Checked Then
|
|
sSQL = sSQL & ",NULL "
|
|
Else
|
|
sSQL = sSQL & ",NULL "
|
|
End If
|
|
|
|
'Buscar en el campo Nombre o observaciones'
|
|
If chk_Field0.Checked = True And chk_Field3.Checked = True Then
|
|
sSQL = sSQL & ", 'NombreCompleto, Observaciones'"
|
|
ElseIf chk_Field0.Checked = True And chk_Field3.Checked = False Then
|
|
sSQL = sSQL & ", 'NombreCompleto'"
|
|
ElseIf chk_Field0.Checked = False And chk_Field3.Checked = True Then
|
|
sSQL = sSQL & ", 'Observaciones'"
|
|
ElseIf chk_Field0.Checked = False And chk_Field3.Checked = False Then
|
|
sSQL = sSQL & ", 'NULL' "
|
|
End If
|
|
|
|
''Arma la búsqueda separando las palabras
|
|
'aText = Split(sText, " ", , vbTextCompare)
|
|
'sSrchChain = "'("
|
|
'For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then sSrchChain = sSrchChain & " NEAR "
|
|
' sSrchChain = sSrchChain & """" & aText(iStrings) & "*"""
|
|
'Next iStrings
|
|
'sSrchChain = sSrchChain & ")'"
|
|
|
|
'sSQL = "SELECT"
|
|
'sSQL = sSQL & " IsNull(case LISTARESTRINGIDA.Estatus WHEN 0 THEN 'Inactivo' ELSE 'Activo' END, '') AS Estatus,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.Nombre,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.observaciones,"
|
|
'sSQL = sSQL & " ORGANISMOINTERNACIONAL.nombreorganismo as Organismo,"
|
|
''sSQL = sSQL & " PAIS.PaisNom as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.PaisTxt as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux01 as FNac,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux02 as Puesto,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux03 as Direccion1"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.CmpAux04 as Direccion2,"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.observaciones"
|
|
'sSQL = sSQL & " From"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA"
|
|
'sSQL = sSQL & " INNER JOIN CONTAINSTABLE(LISTARESTRINGIDA, (" & sSearchFields & "), " & sSrchChain & ") AS KEY_TBL ON LISTARESTRINGIDA.Id_ListaRestringida = KEY_TBL.[KEY]"
|
|
'sSQL = sSQL & " left outer join ORGANISMOINTERNACIONAL ON LISTARESTRINGIDA.ID_Organismo = ORGANISMOINTERNACIONAL.ID_Organismo"
|
|
'sSQL = sSQL & " Left outer join PAIS ON LISTARESTRINGIDA.ID_Pais = PAIS.ID_Pais"
|
|
|
|
'If iOrganismo <> -1 Or iPais <> -1 Or opt_EstatusActivo.Checked Or opt_EstatusInactivo.Checked Then sSQL = sSQL & " WHERE"
|
|
'If iOrganismo <> -1 And iOrganismo = 0 Then sSQL = sSQL & " (LISTARESTRINGIDA.ID_Organismo = 0 OR LISTARESTRINGIDA.ID_Organismo IS NULL)"
|
|
'If iOrganismo <> -1 And iOrganismo <> 0 Then sSQL = sSQL & " LISTARESTRINGIDA.ID_Organismo = " & CStr(iOrganismo)
|
|
|
|
'If iOrganismo <> -1 And iPais <> -1 Then sSQL = sSQL & " AND"
|
|
|
|
'If iPais <> -1 Then
|
|
' sSQL = sSQL & " (PAIS.ID_Pais= " & CStr(iPais)
|
|
' sSQL = sSQL & " OR UPPER(LISTARESTRINGIDA.PaisTxt) = '" & UCase(Trim(cmbPaises.Text)) & "' )"
|
|
'End If
|
|
|
|
'If opt_EstatusActivo.Checked Or opt_EstatusInactivo.Checked Then
|
|
' If iOrganismo <> -1 Or iPais <> -1 Then sSQL = sSQL & " AND"
|
|
' If opt_EstatusActivo.Checked Then sSQL = sSQL & " LISTARESTRINGIDA.Estatus = 1"
|
|
' If opt_EstatusInactivo.Checked Then sSQL = sSQL & " LISTARESTRINGIDA.Estatus = 0"
|
|
'End If
|
|
|
|
'sSQL = sSQL & " order by KEY_TBL.rank desc"
|
|
ElseIf opt_Exact.Checked = True Then
|
|
'sp_ConsultarLRBuscarAproximada
|
|
sSQL = "sp_ConsultarLRBuscarExacta " & IIf(cmbOrganismo.SelectedValue <> Nothing, cmbOrganismo.SelectedValue, "NULL")
|
|
sSQL = sSQL & "," & IIf(cmbPaises.SelectedValue <> Nothing, cmbPaises.SelectedValue & ",NULL", "NULL,''")
|
|
sSQL = sSQL & ",'" & Text_Busqueda.Text & "'"
|
|
sSQL = sSQL & "," & chk_Field0.CheckState
|
|
sSQL = sSQL & "," & chk_Field3.CheckState
|
|
If opt_EstatusActivo.Checked Then
|
|
sSQL = sSQL & "," & 1
|
|
ElseIf opt_EstatusInactivo.Checked Then
|
|
sSQL = sSQL & "," & 0
|
|
End If
|
|
|
|
|
|
|
|
'sSQL = "SELECT"
|
|
'sSQL = sSQL & " IsNull(case LISTARESTRINGIDA.Estatus WHEN 0 THEN 'Inactivo' ELSE 'Activo' END, '') AS Estatus,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.Nombre,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.observaciones,"
|
|
'sSQL = sSQL & " ORGANISMOINTERNACIONAL.nombreorganismo as Organismo,"
|
|
''sSQL = sSQL & " PAIS.PaisNom as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.PaisTxt as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux01 as FNac,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux02 as Puesto,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux03 as Direccion1"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.CmpAux04 as Direccion2,"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.Observaciones"
|
|
'sSQL = sSQL & " From"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA"
|
|
'sSQL = sSQL & " Left outer join ORGANISMOINTERNACIONAL ON LISTARESTRINGIDA.ID_Organismo = ORGANISMOINTERNACIONAL.ID_Organismo"
|
|
'sSQL = sSQL & " Left outer join PAIS ON LISTARESTRINGIDA.ID_Pais = PAIS.ID_Pais"
|
|
'sSQL = sSQL & " WHERE "
|
|
|
|
''Separamos las palabras para poder buscar con un and
|
|
'aText = Split(sText, " ", , vbTextCompare)
|
|
'sSql2 = ""
|
|
|
|
'If sSql2 <> "" And chk_Field0.CheckState = CheckState.Checked Then sSql2 = sSql2 & " OR "
|
|
|
|
'If chk_Field0.CheckState = CheckState.Checked Then
|
|
|
|
' sSql2 = sSql2 & " ("
|
|
|
|
' For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then
|
|
' sSql2 = sSql2 & " AND UPPER(LISTARESTRINGIDA." & chk_Field0.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' Else
|
|
' sSql2 = sSql2 & "UPPER(LISTARESTRINGIDA." & chk_Field0.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' End If
|
|
' Next iStrings
|
|
' sSql2 = sSql2 & ")"
|
|
|
|
'End If
|
|
|
|
'If sSql2 <> "" And chk_Field1.CheckState = CheckState.Checked Then sSql2 = sSql2 & " OR "
|
|
|
|
'If chk_Field1.CheckState = CheckState.Checked Then
|
|
|
|
' sSql2 = sSql2 & " ("
|
|
|
|
' For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then
|
|
' sSql2 = sSql2 & " AND UPPER(LISTARESTRINGIDA." & chk_Field1.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' Else
|
|
' sSql2 = sSql2 & "UPPER(LISTARESTRINGIDA." & chk_Field1.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' End If
|
|
' Next iStrings
|
|
' sSql2 = sSql2 & ")"
|
|
|
|
'End If
|
|
|
|
'If sSql2 <> "" And chk_Field2.CheckState = CheckState.Checked Then sSql2 = sSql2 & " OR "
|
|
|
|
'If chk_Field2.CheckState = CheckState.Checked Then
|
|
|
|
' sSql2 = sSql2 & " ("
|
|
|
|
' For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then
|
|
' sSql2 = sSql2 & " AND UPPER(LISTARESTRINGIDA." & chk_Field2.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' Else
|
|
' sSql2 = sSql2 & "UPPER(LISTARESTRINGIDA." & chk_Field2.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' End If
|
|
' Next iStrings
|
|
' sSql2 = sSql2 & ")"
|
|
|
|
'End If
|
|
|
|
'If sSql2 <> "" And chk_Field3.CheckState = CheckState.Checked Then sSql2 = sSql2 & " OR "
|
|
|
|
'If chk_Field3.CheckState = CheckState.Checked Then
|
|
|
|
' sSql2 = sSql2 & " ("
|
|
|
|
' For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then
|
|
' sSql2 = sSql2 & " AND UPPER(LISTARESTRINGIDA." & chk_Field3.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' Else
|
|
' sSql2 = sSql2 & "UPPER(LISTARESTRINGIDA." & chk_Field3.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' End If
|
|
' Next iStrings
|
|
' sSql2 = sSql2 & ")"
|
|
|
|
'End If
|
|
|
|
'sSQL = sSQL & "(" & sSql2 & ")"
|
|
|
|
'If iOrganismo <> -1 And iOrganismo = 0 Then sSQL = sSQL & " AND (LISTARESTRINGIDA.ID_Organismo = 0 OR LISTARESTRINGIDA.ID_Organismo IS NULL)"
|
|
'If iOrganismo <> -1 And iOrganismo <> 0 Then sSQL = sSQL & " AND LISTARESTRINGIDA.ID_Organismo = " & CStr(iOrganismo)
|
|
|
|
'If iPais <> -1 Then
|
|
' sSQL = sSQL & " AND (PAIS.ID_Pais= " & CStr(iPais)
|
|
' sSQL = sSQL & " OR UPPER(LISTARESTRINGIDA.PaisTxt) = '" & UCase(Trim(cmbPaises.Text)) & "' )"
|
|
'End If
|
|
|
|
'If opt_EstatusActivo.Checked Then sSQL = sSQL & " AND LISTARESTRINGIDA.Estatus = 1"
|
|
'If opt_EstatusInactivo.Checked Then sSQL = sSQL & " AND LISTARESTRINGIDA.Estatus = 0"
|
|
'sSQL = sSQL & " order by LISTARESTRINGIDA.Nombre"
|
|
End If
|
|
|
|
'recSearch = Nothing
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim ds As DataSet
|
|
'Screen.MousePointer = vbHourglass
|
|
clsVaribles.strSQL = sSQL
|
|
'ds = Classcom1.fdtDataSetTabla(sSQL)
|
|
'grBox.Visible = True
|
|
Classcom1.sbLlenaDataGridView(sSQL, DGVResultados)
|
|
' grBox.Visible = False
|
|
'DGVResultados.DataSource = ds.Tables(0).DefaultView
|
|
'ClassCatalogos.LlenaGrid(sSQL, Me.dataGrid1)
|
|
'Dim s1 As New C1.Win.C1TrueDBGrid.Style
|
|
's1.ForeColor = Color.Black
|
|
'dataGrid1.Splits(0).DisplayColumns(1).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s1, "NOMBRECOMPLETO")
|
|
'DataGridView1.DataSource = Classcom1.ds
|
|
|
|
'Me.dataGrid1.SetDataBinding(Classcom1.ds, "tabla")
|
|
'dataGrid1.Visible = True
|
|
|
|
' grd_Busqueda.ForeColor = Color.Black
|
|
iRecordsFound = 0
|
|
If Classcom1.ds.Tables(0).Rows.Count = 0 Then
|
|
MsgBox("No se encontraron datos para los criterios de búsqueda suministrados.", vbOKOnly + vbInformation)
|
|
Else
|
|
iRecordsFound = Classcom1.ds.Tables(0).Rows.Count
|
|
End If
|
|
lbl_Records.Text = CStr(iRecordsFound) & " Registros."
|
|
lbl_Records.Visible = True
|
|
|
|
Exit Sub
|
|
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub CmdBusqueda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBusqueda.Click
|
|
Dim trd As Thread
|
|
|
|
Try
|
|
Dim sSQL As String
|
|
Dim sSql2 As String
|
|
Dim iField As Integer
|
|
Dim iRecords As Long
|
|
Dim iRecordsFound As Long
|
|
Dim sText As String
|
|
Dim iPais As Integer
|
|
Dim iOrganismo As Integer
|
|
Dim aText() As String
|
|
Dim sSrchChain As String
|
|
Dim iStrings As Integer
|
|
Dim sSearchFields As String
|
|
Dim Classcom1 As New clsComplejo
|
|
Dim c As Cursor = Me.Cursor
|
|
sText = Trim(Text_Busqueda.Text.Trim)
|
|
|
|
If sText = "" Then
|
|
MsgBox("Suministre un texto a buscar.", vbOKOnly + vbInformation)
|
|
Exit Sub
|
|
End If
|
|
|
|
If chk_Field0.CheckState = CheckState.Unchecked And chk_Field1.CheckState = CheckState.Unchecked And chk_Field2.CheckState = CheckState.Unchecked And chk_Field3.CheckState = CheckState.Unchecked Then
|
|
MsgBox("Debe seleccionar en qué campo desea buscar.", vbOKOnly + vbInformation)
|
|
chk_Field0.Focus()
|
|
Exit Sub
|
|
End If
|
|
|
|
iPais = -1
|
|
iOrganismo = -1
|
|
If cmbOrganismo.SelectedIndex <> -1 Then iOrganismo = cmbOrganismo.SelectedValue
|
|
If cmbPaises.SelectedIndex <> -1 Then iPais = cmbPaises.SelectedValue
|
|
|
|
'Campos en los que se buscará
|
|
sSearchFields = ""
|
|
|
|
If sSearchFields <> "" And chk_Field0.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & ","
|
|
If chk_Field0.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & chk_Field0.Tag
|
|
If sSearchFields <> "" And chk_Field1.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & ","
|
|
If chk_Field1.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & chk_Field1.Tag
|
|
If sSearchFields <> "" And chk_Field2.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & ","
|
|
If chk_Field2.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & chk_Field2.Tag
|
|
If sSearchFields <> "" And chk_Field3.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & ","
|
|
If chk_Field3.CheckState = CheckState.Checked Then sSearchFields = sSearchFields & chk_Field3.Tag
|
|
|
|
If opt_Free.Checked = True Then
|
|
|
|
|
|
sSQL = "sp_ConsultarLRBuscarAproximada " & IIf(cmbOrganismo.SelectedValue <> Nothing, cmbOrganismo.SelectedValue, "NULL")
|
|
'sSQL = sSQL & "," & IIf(cmbPaises.SelectedValue <> Nothing, cmbPaises.SelectedValue & ",NULL", "NULL,''")
|
|
sSQL = sSQL & ",NULL," & IIf(txtpais.Text.Trim().Length = 0, "NULL", "'" & txtpais.Text.Trim() & "'")
|
|
sSQL = sSQL & ",'" & Text_Busqueda.Text.Trim & "'"
|
|
sSQL = sSQL & "," & chk_Field0.CheckState
|
|
sSQL = sSQL & "," & chk_Field3.CheckState
|
|
If opt_EstatusActivo.Checked Then
|
|
sSQL = sSQL & "," & 1
|
|
ElseIf opt_EstatusInactivo.Checked Then
|
|
sSQL = sSQL & "," & 0
|
|
End If
|
|
|
|
|
|
'sSQL = "SELECT"
|
|
'sSQL = sSQL & " IsNull(case LISTARESTRINGIDA.Estatus WHEN 0 THEN 'Inactivo' ELSE 'Activo' END, '') AS Estatus,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.Nombre,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.observaciones,"
|
|
'sSQL = sSQL & " ORGANISMOINTERNACIONAL.nombreorganismo as Organismo,"
|
|
''sSQL = sSQL & " PAIS.PaisNom as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.PaisTxt as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux01 as FNac,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux02 as Puesto,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux03 as Direccion1"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.CmpAux04 as Direccion2,"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.Observaciones"
|
|
'sSQL = sSQL & " From"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA"
|
|
'sSQL = sSQL & " INNER JOIN FREETEXTTABLE(LISTARESTRINGIDA,(" & sSearchFields & "), '" & sText & "') AS KEY_TBL ON LISTARESTRINGIDA.Id_ListaRestringida = KEY_TBL.[KEY]"
|
|
'sSQL = sSQL & " left outer join ORGANISMOINTERNACIONAL ON LISTARESTRINGIDA.ID_Organismo = ORGANISMOINTERNACIONAL.ID_Organismo"
|
|
'sSQL = sSQL & " Left outer join PAIS ON LISTARESTRINGIDA.ID_Pais = PAIS.ID_Pais"
|
|
'If iOrganismo <> -1 Or iPais <> -1 Or opt_EstatusActivo.Checked Or opt_EstatusInactivo.Checked Then sSQL = sSQL & " WHERE"
|
|
'If iOrganismo <> -1 And iOrganismo = 0 Then sSQL = sSQL & " (LISTARESTRINGIDA.ID_Organismo = 0 OR LISTARESTRINGIDA.ID_Organismo IS NULL)"
|
|
'If iOrganismo <> -1 And iOrganismo <> 0 Then sSQL = sSQL & " LISTARESTRINGIDA.ID_Organismo = " & CStr(iOrganismo)
|
|
'If iOrganismo <> -1 And iPais <> -1 Then sSQL = sSQL & " AND"
|
|
'If iPais <> -1 Then
|
|
' sSQL = sSQL & " (PAIS.ID_Pais= " & CStr(iPais)
|
|
' sSQL = sSQL & " OR UPPER(LISTARESTRINGIDA.PaisTxt) = '" & UCase(Trim(cmbPaises.Text)) & "' )"
|
|
'End If
|
|
'If opt_EstatusActivo.Checked Or opt_EstatusInactivo.Checked Then
|
|
' If iOrganismo <> -1 Or iPais <> -1 Then sSQL = sSQL & " AND"
|
|
' If opt_EstatusActivo.Checked Then sSQL = sSQL & " LISTARESTRINGIDA.Estatus = 1"
|
|
' If opt_EstatusInactivo.Checked Then sSQL = sSQL & " LISTARESTRINGIDA.Estatus = 0"
|
|
'End If
|
|
'sSQL = sSQL & " order by KEY_TBL.rank desc"
|
|
ElseIf opt_Contents.Checked = True Then
|
|
''Parametros del store
|
|
'@NomBuscar as varchar(200),
|
|
'@IdOrganismo as int = NULL,
|
|
'@IdPais as int = NULL,
|
|
'@IdEstatus as int = NULL,
|
|
'@Campos as varchar(200) = NULL
|
|
|
|
sSQL = "EXEC spListaRPorcentaje60 "
|
|
sSQL = sSQL & Chr(39) & sText & Chr(39) 'KAZUHIRO HARAGUCHI', NULL, NULL, NULL, NULL"
|
|
If cmbOrganismo.SelectedIndex <> -1 Then
|
|
sSQL = sSQL & "," & cmbOrganismo.SelectedValue
|
|
Else
|
|
sSQL = sSQL & ",NULL "
|
|
End If
|
|
|
|
If cmbPaises.SelectedIndex <> -1 Then
|
|
sSQL = sSQL & "," & cmbPaises.SelectedValue
|
|
Else
|
|
sSQL = sSQL & ",NULL "
|
|
End If
|
|
|
|
If opt_EstatusActivo.Checked Then
|
|
sSQL = sSQL & ",1 "
|
|
ElseIf opt_EstatusInactivo.Checked Then
|
|
sSQL = sSQL & ",0 "
|
|
ElseIf opt_EstatusTodos.Checked Then
|
|
sSQL = sSQL & ",NULL "
|
|
Else
|
|
sSQL = sSQL & ",NULL "
|
|
End If
|
|
|
|
'Buscar en el campo Nombre o observaciones'
|
|
If chk_Field0.Checked = True And chk_Field3.Checked = True Then
|
|
sSQL = sSQL & ", 'NombreCompleto, Observaciones'"
|
|
ElseIf chk_Field0.Checked = True And chk_Field3.Checked = False Then
|
|
sSQL = sSQL & ", 'NombreCompleto'"
|
|
ElseIf chk_Field0.Checked = False And chk_Field3.Checked = True Then
|
|
sSQL = sSQL & ", 'Observaciones'"
|
|
ElseIf chk_Field0.Checked = False And chk_Field3.Checked = False Then
|
|
sSQL = sSQL & ", 'NULL' "
|
|
End If
|
|
|
|
''Arma la búsqueda separando las palabras
|
|
'aText = Split(sText, " ", , vbTextCompare)
|
|
'sSrchChain = "'("
|
|
'For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then sSrchChain = sSrchChain & " NEAR "
|
|
' sSrchChain = sSrchChain & """" & aText(iStrings) & "*"""
|
|
'Next iStrings
|
|
'sSrchChain = sSrchChain & ")'"
|
|
|
|
'sSQL = "SELECT"
|
|
'sSQL = sSQL & " IsNull(case LISTARESTRINGIDA.Estatus WHEN 0 THEN 'Inactivo' ELSE 'Activo' END, '') AS Estatus,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.Nombre,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.observaciones,"
|
|
'sSQL = sSQL & " ORGANISMOINTERNACIONAL.nombreorganismo as Organismo,"
|
|
''sSQL = sSQL & " PAIS.PaisNom as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.PaisTxt as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux01 as FNac,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux02 as Puesto,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux03 as Direccion1"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.CmpAux04 as Direccion2,"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.observaciones"
|
|
'sSQL = sSQL & " From"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA"
|
|
'sSQL = sSQL & " INNER JOIN CONTAINSTABLE(LISTARESTRINGIDA, (" & sSearchFields & "), " & sSrchChain & ") AS KEY_TBL ON LISTARESTRINGIDA.Id_ListaRestringida = KEY_TBL.[KEY]"
|
|
'sSQL = sSQL & " left outer join ORGANISMOINTERNACIONAL ON LISTARESTRINGIDA.ID_Organismo = ORGANISMOINTERNACIONAL.ID_Organismo"
|
|
'sSQL = sSQL & " Left outer join PAIS ON LISTARESTRINGIDA.ID_Pais = PAIS.ID_Pais"
|
|
|
|
'If iOrganismo <> -1 Or iPais <> -1 Or opt_EstatusActivo.Checked Or opt_EstatusInactivo.Checked Then sSQL = sSQL & " WHERE"
|
|
'If iOrganismo <> -1 And iOrganismo = 0 Then sSQL = sSQL & " (LISTARESTRINGIDA.ID_Organismo = 0 OR LISTARESTRINGIDA.ID_Organismo IS NULL)"
|
|
'If iOrganismo <> -1 And iOrganismo <> 0 Then sSQL = sSQL & " LISTARESTRINGIDA.ID_Organismo = " & CStr(iOrganismo)
|
|
|
|
'If iOrganismo <> -1 And iPais <> -1 Then sSQL = sSQL & " AND"
|
|
|
|
'If iPais <> -1 Then
|
|
' sSQL = sSQL & " (PAIS.ID_Pais= " & CStr(iPais)
|
|
' sSQL = sSQL & " OR UPPER(LISTARESTRINGIDA.PaisTxt) = '" & UCase(Trim(cmbPaises.Text)) & "' )"
|
|
'End If
|
|
|
|
'If opt_EstatusActivo.Checked Or opt_EstatusInactivo.Checked Then
|
|
' If iOrganismo <> -1 Or iPais <> -1 Then sSQL = sSQL & " AND"
|
|
' If opt_EstatusActivo.Checked Then sSQL = sSQL & " LISTARESTRINGIDA.Estatus = 1"
|
|
' If opt_EstatusInactivo.Checked Then sSQL = sSQL & " LISTARESTRINGIDA.Estatus = 0"
|
|
'End If
|
|
|
|
'sSQL = sSQL & " order by KEY_TBL.rank desc"
|
|
ElseIf opt_Exact.Checked = True Then
|
|
'sp_ConsultarLRBuscarAproximada
|
|
sSQL = "sp_ConsultarLRBuscarExacta " & IIf(cmbOrganismo.SelectedValue <> Nothing, cmbOrganismo.SelectedValue, "NULL")
|
|
sSQL = sSQL & "," & IIf(cmbPaises.SelectedValue <> Nothing, cmbPaises.SelectedValue & ",NULL", "NULL,''")
|
|
sSQL = sSQL & ",'" & Text_Busqueda.Text.Trim & "'"
|
|
sSQL = sSQL & "," & chk_Field0.CheckState
|
|
sSQL = sSQL & "," & chk_Field3.CheckState
|
|
If opt_EstatusActivo.Checked Then
|
|
sSQL = sSQL & "," & 1
|
|
ElseIf opt_EstatusInactivo.Checked Then
|
|
sSQL = sSQL & "," & 0
|
|
End If
|
|
|
|
|
|
|
|
'sSQL = "SELECT"
|
|
'sSQL = sSQL & " IsNull(case LISTARESTRINGIDA.Estatus WHEN 0 THEN 'Inactivo' ELSE 'Activo' END, '') AS Estatus,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.Nombre,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.observaciones,"
|
|
'sSQL = sSQL & " ORGANISMOINTERNACIONAL.nombreorganismo as Organismo,"
|
|
''sSQL = sSQL & " PAIS.PaisNom as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.PaisTxt as Pais,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux01 as FNac,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux02 as Puesto,"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA.CmpAux03 as Direccion1"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.CmpAux04 as Direccion2,"
|
|
''sSQL = sSQL & " LISTARESTRINGIDA.Observaciones"
|
|
'sSQL = sSQL & " From"
|
|
'sSQL = sSQL & " LISTARESTRINGIDA"
|
|
'sSQL = sSQL & " Left outer join ORGANISMOINTERNACIONAL ON LISTARESTRINGIDA.ID_Organismo = ORGANISMOINTERNACIONAL.ID_Organismo"
|
|
'sSQL = sSQL & " Left outer join PAIS ON LISTARESTRINGIDA.ID_Pais = PAIS.ID_Pais"
|
|
'sSQL = sSQL & " WHERE "
|
|
|
|
''Separamos las palabras para poder buscar con un and
|
|
'aText = Split(sText, " ", , vbTextCompare)
|
|
'sSql2 = ""
|
|
|
|
'If sSql2 <> "" And chk_Field0.CheckState = CheckState.Checked Then sSql2 = sSql2 & " OR "
|
|
|
|
'If chk_Field0.CheckState = CheckState.Checked Then
|
|
|
|
' sSql2 = sSql2 & " ("
|
|
|
|
' For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then
|
|
' sSql2 = sSql2 & " AND UPPER(LISTARESTRINGIDA." & chk_Field0.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' Else
|
|
' sSql2 = sSql2 & "UPPER(LISTARESTRINGIDA." & chk_Field0.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' End If
|
|
' Next iStrings
|
|
' sSql2 = sSql2 & ")"
|
|
|
|
'End If
|
|
|
|
'If sSql2 <> "" And chk_Field1.CheckState = CheckState.Checked Then sSql2 = sSql2 & " OR "
|
|
|
|
'If chk_Field1.CheckState = CheckState.Checked Then
|
|
|
|
' sSql2 = sSql2 & " ("
|
|
|
|
' For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then
|
|
' sSql2 = sSql2 & " AND UPPER(LISTARESTRINGIDA." & chk_Field1.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' Else
|
|
' sSql2 = sSql2 & "UPPER(LISTARESTRINGIDA." & chk_Field1.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' End If
|
|
' Next iStrings
|
|
' sSql2 = sSql2 & ")"
|
|
|
|
'End If
|
|
|
|
'If sSql2 <> "" And chk_Field2.CheckState = CheckState.Checked Then sSql2 = sSql2 & " OR "
|
|
|
|
'If chk_Field2.CheckState = CheckState.Checked Then
|
|
|
|
' sSql2 = sSql2 & " ("
|
|
|
|
' For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then
|
|
' sSql2 = sSql2 & " AND UPPER(LISTARESTRINGIDA." & chk_Field2.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' Else
|
|
' sSql2 = sSql2 & "UPPER(LISTARESTRINGIDA." & chk_Field2.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' End If
|
|
' Next iStrings
|
|
' sSql2 = sSql2 & ")"
|
|
|
|
'End If
|
|
|
|
'If sSql2 <> "" And chk_Field3.CheckState = CheckState.Checked Then sSql2 = sSql2 & " OR "
|
|
|
|
'If chk_Field3.CheckState = CheckState.Checked Then
|
|
|
|
' sSql2 = sSql2 & " ("
|
|
|
|
' For iStrings = 0 To UBound(aText)
|
|
' If iStrings <> 0 Then
|
|
' sSql2 = sSql2 & " AND UPPER(LISTARESTRINGIDA." & chk_Field3.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' Else
|
|
' sSql2 = sSql2 & "UPPER(LISTARESTRINGIDA." & chk_Field3.Tag & ") like '%" & UCase(aText(iStrings)) & "%'"
|
|
' End If
|
|
' Next iStrings
|
|
' sSql2 = sSql2 & ")"
|
|
|
|
'End If
|
|
|
|
'sSQL = sSQL & "(" & sSql2 & ")"
|
|
|
|
'If iOrganismo <> -1 And iOrganismo = 0 Then sSQL = sSQL & " AND (LISTARESTRINGIDA.ID_Organismo = 0 OR LISTARESTRINGIDA.ID_Organismo IS NULL)"
|
|
'If iOrganismo <> -1 And iOrganismo <> 0 Then sSQL = sSQL & " AND LISTARESTRINGIDA.ID_Organismo = " & CStr(iOrganismo)
|
|
|
|
'If iPais <> -1 Then
|
|
' sSQL = sSQL & " AND (PAIS.ID_Pais= " & CStr(iPais)
|
|
' sSQL = sSQL & " OR UPPER(LISTARESTRINGIDA.PaisTxt) = '" & UCase(Trim(cmbPaises.Text)) & "' )"
|
|
'End If
|
|
|
|
'If opt_EstatusActivo.Checked Then sSQL = sSQL & " AND LISTARESTRINGIDA.Estatus = 1"
|
|
'If opt_EstatusInactivo.Checked Then sSQL = sSQL & " AND LISTARESTRINGIDA.Estatus = 0"
|
|
'sSQL = sSQL & " order by LISTARESTRINGIDA.Nombre"
|
|
End If
|
|
|
|
'recSearch = Nothing
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim ds As DataSet
|
|
'Screen.MousePointer = vbHourglass
|
|
clsVaribles.strSQL = sSQL
|
|
'ds = Classcom1.fdtDataSetTabla(sSQL)
|
|
' grBox.Visible = True
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
'Classcom1.sbLlenaDataGridView(sSQL, DGVResultados)
|
|
' grBox.Visible = False
|
|
'DGVResultados.DataSource = ds.Tables(0).DefaultView
|
|
ClassCatalogos.LlenaGrid(sSQL, Me.dataGrid1)
|
|
'Dim s1 As New C1.Win.C1TrueDBGrid.Style
|
|
's1.ForeColor = Color.Black
|
|
'dataGrid1.Splits(0).DisplayColumns(1).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s1, "NOMBRECOMPLETO")
|
|
'DataGridView1.DataSource = Classcom1.ds
|
|
|
|
'Me.dataGrid1.SetDataBinding(Classcom1.ds, "tabla")
|
|
'dataGrid1.Visible = True
|
|
|
|
' grd_Busqueda.ForeColor = Color.Black
|
|
'iRecordsFound = 0
|
|
' If Classcom1.ds.Tables(0).Rows.Count = 0 Then
|
|
'MsgBox("No se encontraron datos para los criterios de búsqueda suministrados.", vbOKOnly + vbInformation)
|
|
'Else
|
|
' iRecordsFound = Classcom1.ds.Tables(0).Rows.Count
|
|
'End If
|
|
If dataGrid1.RowCount = 0 Then
|
|
MsgBox("No se encontraron datos para los criterios de búsqueda suministrados.", vbOKOnly + vbInformation)
|
|
End If
|
|
|
|
lbl_Records.Text = CStr(dataGrid1.RowCount) & " Registros."
|
|
lbl_Records.Visible = True
|
|
Me.Cursor = c
|
|
' Cursor.Hide()
|
|
Me.Cursor = Cursors.Default
|
|
Exit Sub
|
|
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClose.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub CmdExportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdExportar.Click
|
|
|
|
Dim CLASSCOM = New clsComplejo
|
|
|
|
CLASSCOM.fdtDataSetTabla(clsVaribles.strSQL)
|
|
|
|
If CLASSCOM.ds.Tables.Count = 0 Then
|
|
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
Else
|
|
If CLASSCOM.ds.Tables(0).Rows.Count = 0 Then
|
|
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
Else
|
|
Dim Resul As DialogResult
|
|
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
|
If Resul = DialogResult.Yes Then
|
|
'Creamos una copia del dataset
|
|
Dim copyDS As DataSet = CLASSCOM.ds.Copy()
|
|
'Quitamos las siguientes columnas para no exportarlas
|
|
'copyDS.Tables(0).Columns.Remove("Id_Transaccion")
|
|
'copyDS.Tables(0).Columns.Remove("Id_Producto")
|
|
'copyDS.Tables(0).Columns.Remove("Id_Subproducto")
|
|
'copyDS.Tables(0).Columns.Remove("Id_Patron")
|
|
'copyDS.Tables(0).Columns.Remove("Id_EstatusTransaccion")
|
|
'Creo una instancia de la clase aExcel
|
|
Dim clsExcel As aExcel = New aExcel
|
|
'Obtenemos el nombre o el titulo del form
|
|
clsExcel.Titulo = Me.Text
|
|
'Utilizo la funcion ExportDataset de la clase aExcel
|
|
clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnLimpiar_Click(sender As Object, e As EventArgs) Handles btnLimpiar.Click
|
|
Me.cmbOrganismo.SelectedIndex = -1
|
|
Me.cmbPaises.SelectedIndex = -1
|
|
txtpais.Text = ""
|
|
Text_Busqueda.Text = ""
|
|
opt_Free.Checked = False
|
|
opt_Contents.Checked = False
|
|
opt_Exact.Checked = True
|
|
opt_EstatusActivo.Checked = False
|
|
opt_EstatusInactivo.Checked = False
|
|
opt_EstatusTodos.Checked = True
|
|
chk_Field0.Checked = True
|
|
chk_Field1.Checked = False
|
|
chk_Field2.Checked = False
|
|
chk_Field3.Checked = True
|
|
dataGrid1.DataSource = Nothing
|
|
dataGrid1.Refresh()
|
|
End Sub
|
|
End Class |