jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
298bea23d4
client/ClasesModulos/ClassSQL.vb

983 lines
43 KiB
VB.net
Raw Normal View History

Primera carga de Minds Cliente para el proyecto de blackrock
2019-07-05 13:43:55 -05:00
Imports Microsoft.VisualBasic
Namespace SenteciasSQL
Public Class ClassSQL
Public cn2 As ExecConexion.ClassCon = New ExecConexion.ClassCon
Public cm As New SqlClient.SqlCommand 'declaraci<63>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<63>n de adaptador
Public dt As New DataTable 'declaracion de datatable
Public Function IngresaArchivoAlarma(ByVal IdProducto As String, ByVal IdPatron As String,
ByVal IdTransaccion As String, ByVal NombreArchivo As String, ByVal Bytes As Byte()) As Boolean
Try
Dim strSQL As String = "INSERT INTO tbl_Evidencias(IdProducto, IdPatron, IdTransaccion, NombreArchivo, Bytes) VALUES(@IdProducto, @IdPatron, @IdTransaccion, @NombreArchivo, @Bytes)"
cm = New SqlClient.SqlCommand
clsVaribles.Conexion.Open()
cm.Connection = clsVaribles.Conexion
cm.CommandText = strSQL
cm.Parameters.Add("@IdProducto", SqlDbType.Int).Value = IdProducto
cm.Parameters.Add("@IdPatron", SqlDbType.Int).Value = IdPatron
cm.Parameters.Add("@IdTransaccion", SqlDbType.Int).Value = IdTransaccion
cm.Parameters.Add("@NombreArchivo", SqlDbType.VarChar).Value = NombreArchivo
cm.Parameters.Add("@Bytes", SqlDbType.VarBinary).Value = Bytes
cm.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show("Error en ClassSQL; IngresaArchivoAlarma: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
clsVaribles.Conexion.Close()
Return True
End Function
Public Function fdtDataSet(ByVal SQL As String) As DataSet
Try
'cn2.ConectaBD(VariablesGlobales.gbConexion)
cm.Connection = clsVaribles.Conexion
cm.CommandText = SQL
ad.SelectCommand = cm
ad.Fill(ds)
Return ds
Catch ex As Exception
MessageBox.Show("Error en ClsComplejo; fdtDataSet: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End Try
cn2.sbCierraCn()
End Function
Public Function BuscaDatos(ByVal SQL As String) As Boolean
Dim cn2 As ExecConexion.ClassCon = New ExecConexion.ClassCon
Try
BuscaDatos = False
'cn2.ConectaBD(VariablesGlobales.gbConexion)
cm.Connection = clsVaribles.Conexion
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; fdtDataSet: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End Try
cn2.sbCierraCn()
End Function
Public Function fdtDataSetTabla(ByVal SQL As String) As DataSet
'cn2.ConectaBD(VariablesGlobales.gbConexion)
Try
cm.Connection = clsVaribles.Conexion
cm.CommandText = SQL
ad.SelectCommand = cm
ds.Clear()
ad.Fill(ds, "Tabla")
Return ds
Catch ex As Exception
MessageBox.Show("error en ClsComplejo; fdtDataSetTabla: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End Try
cn2.sbCierraCn()
End Function
Public Function VerificaLIstas(ByVal Nombre As String) As Boolean
Dim SQLListas As String
Dim Classcom2 As New SenteciasSQL.ClassSQL
VerificaLIstas = False
SQLListas = "SELECT * FROM ListaRestringida "
'SQLListas = SQLListas & " WHERE Nombre LIKE '%" & Nombre & "%'"
SQLListas = SQLListas & " WHERE Nombre LIKE '" & Nombre & "'"
Classcom2.fdtDataSet(SQLListas)
If Classcom2.ds.Tables(0).Rows.Count <> 0 Then
VerificaLIstas = True
End If
End Function
Public Function ProcesoInsert2(ByRef PrefijoTexto As String, ByVal PrefijoCombo As String, ByVal Kyc_Respuestaopciones As String, ByVal PrefijoDatePicker As String, ByVal Tabla As String, ByVal Panel As Panel, ByVal Exception As String, ByVal Prefijolabel As String) As String
Dim NomCampo As String
Dim fila As DataRow
Dim clcmp As clsComplejo = New clsComplejo
Dim GRPBOX As GroupBox
Dim SentenciaInsert As String
Dim SentenciaValues As String
Dim Combo As Object
Dim SQLProcesoInsert As String
Dim PrefijoComodin As String
Dim lcCtrl As Object
Dim lcCtrlIN As Object
'sbConectaBD()
Try
Dim ARRAY() As String
Dim ArrValores() As String
ARRAY = Nothing
SentenciaInsert = ""
SentenciaValues = ""
If Exception <> "" Then
ARRAY = Split(Exception, "|", -1)
If ARRAY.LongLength <> 0 Then
For i As Integer = 0 To ARRAY.LongLength - 1
ArrValores = Nothing
ArrValores = Split(ARRAY(i), "=", -1)
If SentenciaInsert = "" Then
SentenciaInsert = SentenciaInsert & "INSERT INTO " & Tabla
SentenciaInsert = SentenciaInsert & " (" & ArrValores(0)
Else
SentenciaInsert = SentenciaInsert & "," & ArrValores(0)
End If
If SentenciaValues = "" Then
SentenciaValues = SentenciaValues & " VALUES ( "
SentenciaValues = SentenciaValues & ArrValores(1)
Else
SentenciaValues = SentenciaValues & "," & ArrValores(1)
End If
Next
End If
End If
For Each lcCtrl In Panel.Controls
If (TypeOf lcCtrl Is GroupBox Or TypeOf lcCtrl Is Panel) Then
For Each lcCtrlIN In lcCtrl.Controls
'Cuando los controles son Textos se arma la Variable sentenciaInsert
'Deacuerdo al Nombre Del control que debe de ser igual al nombre del campo
'omitiendo el prefijo ej. "TXT0"
'Al mismo Tiempo de Arma la SentenciaValues con los Datos de Cada control de Texto
If TypeOf lcCtrlIN Is TextBox Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoTexto Then
If SentenciaInsert = "" Then
SentenciaInsert = SentenciaInsert & "INSERT INTO " & Tabla
SentenciaInsert = SentenciaInsert & " (" & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & " VALUES ( "
If IsDate(lcCtrlIN.Text) Then
SentenciaValues = SentenciaValues & " CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.Text, "YYYYMMDD") & "',112)"
ElseIf IsNumeric(lcCtrlIN.Text) Then
SentenciaValues = SentenciaValues & lcCtrlIN.Text
ElseIf IsDate(lcCtrlIN.Text) Then
SentenciaValues = SentenciaValues & " CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.Text, "YYYYMMDD") & "',112)"
ElseIf lcCtrlIN.Text = "" Then
SentenciaValues = SentenciaValues & " NULL"
Else
SentenciaValues = SentenciaValues & " '" & Trim(lcCtrlIN.Text) & "'"
End If 'IsNumeric(lcCtrlIN.Text)
Else
SentenciaInsert = SentenciaInsert & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
If IsDate(lcCtrlIN.Text) Then
SentenciaValues = SentenciaValues & ",CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.Text, "YYYYMMDD") & "',112)"
ElseIf IsNumeric(lcCtrlIN.Text) Then
SentenciaValues = SentenciaValues & "," & lcCtrlIN.Text
ElseIf lcCtrlIN.Text = "" Then
SentenciaValues = SentenciaValues & "," & " NULL"
Else
SentenciaValues = SentenciaValues & "," & " '" & Trim(lcCtrlIN.Text) & "'"
End If 'IsNumeric(lcCtrlIN.Text)
End If 'SentenciaInsert = ""
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
ElseIf TypeOf lcCtrlIN Is ComboBox Then
PrefijoComodin = "Cbo" & Mid(PrefijoCombo, 4, 1)
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoCombo Then
If SentenciaInsert = "" Then
SentenciaInsert = SentenciaInsert & "INSERT INTO " & Tabla
SentenciaInsert = SentenciaInsert & " (" & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & " VALUES ( "
If lcCtrlIN.Text = "" Then
SentenciaValues = SentenciaValues & " NULL"
ElseIf lcCtrlIN.selectedvalue = Nothing Then
SentenciaValues = SentenciaValues & lcCtrlIN.selectedindex + 1
Else
SentenciaValues = SentenciaValues & lcCtrlIN.selectedvalue
End If
Else
SentenciaInsert = SentenciaInsert & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
If lcCtrlIN.Text = "" Then
SentenciaValues = SentenciaValues & "," & " NULL"
ElseIf lcCtrlIN.selectedvalue = Nothing Then
SentenciaValues = SentenciaValues & "," & lcCtrlIN.selectedindex + 1
Else
SentenciaValues = SentenciaValues & "," & lcCtrlIN.selectedvalue
End If
End If
ElseIf Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoComodin Then
If SentenciaInsert = "" Then
SentenciaInsert = SentenciaInsert & "INSERT INTO " & Tabla
SentenciaInsert = SentenciaInsert & " (" & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & " VALUES ( "
If lcCtrlIN.Text = "" Then
SentenciaValues = SentenciaValues & " NULL"
Else
SentenciaValues = SentenciaValues & lcCtrlIN.Text
End If
Else
SentenciaInsert = SentenciaInsert & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
If lcCtrlIN.Text = "" Then
SentenciaValues = SentenciaValues & "," & " NULL"
Else
SentenciaValues = SentenciaValues & ",'" & lcCtrlIN.text & "'"
End If
End If
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
ElseIf TypeOf lcCtrlIN Is CheckBox Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijolabel Then
If SentenciaInsert = "" Then
SentenciaInsert = SentenciaInsert & "INSERT INTO " & Tabla
SentenciaInsert = SentenciaInsert & " (" & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & " VALUES ( "
SentenciaValues = SentenciaValues & lcCtrlIN.CheckState
Else
SentenciaInsert = SentenciaInsert & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & "," & lcCtrlIN.CheckState
End If 'SentenciaInsert = ""
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
ElseIf TypeOf lcCtrlIN Is RadioButton Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijolabel Then
If SentenciaInsert = "" Then
SentenciaInsert = SentenciaInsert & "INSERT INTO " & Tabla
SentenciaInsert = SentenciaInsert & " (" & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & " VALUES ( "
SentenciaValues = SentenciaValues & IIf(lcCtrlIN.Checked = True, 1, 0)
Else
SentenciaInsert = SentenciaInsert & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & "," & IIf(lcCtrlIN.Checked = True, 1, 0)
End If 'SentenciaInsert = ""
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
'End If ''TypeOf lcCtrlIN Is TextBox or TypeOf lcCtrlIN Is combobox
ElseIf TypeOf lcCtrlIN Is DateTimePicker Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoDatePicker Then
If SentenciaInsert = "" Then ' MsgBox(DTP1FechaRegistro.Value.Date)
SentenciaInsert = SentenciaInsert & "INSERT INTO " & Tabla
SentenciaInsert = SentenciaInsert & " (" & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & " VALUES ( "
SentenciaValues = SentenciaValues & " CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.Value.Date, "YYYYMMDD") & "',112)"
Else
SentenciaInsert = SentenciaInsert & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaValues = SentenciaValues & "," & " CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.Value.Date, "YYYYMMDD") & "',112)"
End If 'SentenciaInsert = ""
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
End If ''TypeOf lcCtrlIN Is TextBox or TypeOf lcCtrlIN Is combobox
Next 'lcCtrlIN In GRPBOX.Controls
End If 'TypeOf lcCtrl Is GroupBox
Next 'GRPBOX In TabPage.Controls
SQLProcesoInsert = SentenciaInsert & ") " & SentenciaValues & ") "
Return SQLProcesoInsert
Catch er As Exception
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End Try
'sbCierraCn()
End Function
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
'cn2.ConectaBD(clsVaribles.Conexion)
Try
SQL = "SELECT " & SqlSELECT & " " & " FROM " & SqlFROM
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; fdtDataSet: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End Try
cn2.sbCierraCn()
End Function
Public Function ProcesoUpdate2(ByRef PrefijoTexto As String, ByVal PrefijoCombo As String, ByVal PrefijoCheckBox As String, ByVal PrefijoDatePicker As String, ByVal Tabla As String, ByVal Panel As Panel, ByVal SentenciaWHERE As String, ByVal Exception As String, ByVal PrefijoRadio As String) As String
Dim NomCampo As String
Dim fila As DataRow
Dim clcmp As clsComplejo = New clsComplejo
Dim GRPBOX As GroupBox
Dim SentenciaInsert As String
Dim SentenciaValues As String
Dim SentenciaUpdate As String
Dim Combo As Object
Dim SQLProcesoUpdate As String
Dim PrefijoComodin As String
Dim lcCtrl As Object
Dim lcCtrlIN As Object
'sbConectaBD()
Try
'SentenciaInsert = ""
'SentenciaValues = ""
SentenciaUpdate = ""
Dim ARRAY() As String
Dim ArrValores() As String
ARRAY = Nothing
SentenciaUpdate = ""
SentenciaValues = ""
If Exception <> "" Then
ARRAY = Split(Exception, "|", -1)
If ARRAY.LongLength <> 0 Then
For i As Integer = 0 To ARRAY.LongLength - 1
ArrValores = Nothing
ArrValores = Split(ARRAY(i), "=", -1)
If SentenciaUpdate = "" Then
SentenciaUpdate = SentenciaUpdate & "UPDATE " & Tabla & " SET "
SentenciaUpdate = SentenciaUpdate & ArrValores(0) & " = " & ArrValores(1)
Else
SentenciaUpdate = SentenciaUpdate & "," & ArrValores(0) & " = " & ArrValores(1)
End If
Next
End If
End If
For Each lcCtrl In Panel.Controls
If (TypeOf lcCtrl Is GroupBox Or TypeOf lcCtrl Is Panel) Then
For Each lcCtrlIN In lcCtrl.Controls
'Cuando los controles son Textos se arma la Variable sentenciaInsert
'Deacuerdo al Nombre Del control que debe de ser igual al nombre del campo
'omitiendo el prefijo ej. "TXT0"
'Al mismo Tiempo de Arma la SentenciaValues con los Datos de Cada control de Texto
If TypeOf lcCtrlIN Is TextBox Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoTexto Then
If SentenciaUpdate = "" Then
SentenciaUpdate = SentenciaUpdate & "UPDATE " & Tabla
SentenciaUpdate = SentenciaUpdate & " SET " & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
'SentenciaValues = SentenciaValues & " VALUES ( "
If IsNumeric(lcCtrlIN.Text) Then
SentenciaUpdate = SentenciaUpdate & "=" & lcCtrlIN.Text
ElseIf IsDate(lcCtrlIN.Text) Then
SentenciaUpdate = SentenciaUpdate & " = CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.Text, "YYYYMMDD") & "',112)"
ElseIf lcCtrlIN.Text = "" Then
SentenciaUpdate = SentenciaUpdate & " = NULL"
Else
SentenciaUpdate = SentenciaUpdate & "=" & " '" & Trim(lcCtrlIN.Text) & "'"
End If 'IsNumeric(lcCtrlIN.Text)
Else
SentenciaUpdate = SentenciaUpdate & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
If IsNumeric(lcCtrlIN.Text) Then
SentenciaUpdate = SentenciaUpdate & " = " & lcCtrlIN.Text
ElseIf IsDate(lcCtrlIN.Text) Then
SentenciaUpdate = SentenciaUpdate & " = CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.TEXT, "YYYYMMDD") & "',112)"
ElseIf lcCtrlIN.Text = "" Then
SentenciaUpdate = SentenciaUpdate & " = " & " NULL"
Else
SentenciaUpdate = SentenciaUpdate & " = " & " '" & Trim(lcCtrlIN.Text) & "'"
End If 'IsNumeric(lcCtrlIN.Text)
End If 'SentenciaInsert = ""
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
ElseIf TypeOf lcCtrlIN Is ComboBox Then
PrefijoComodin = "Cbo" & Mid(PrefijoCombo, 4, 1)
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoCombo Then
If SentenciaUpdate = "" Then
SentenciaUpdate = SentenciaUpdate & "UPDATE " & Tabla
SentenciaUpdate = SentenciaUpdate & " SET " & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
'SentenciaValues = SentenciaValues & " VALUES ( "
If lcCtrlIN.Text = "" Then
SentenciaUpdate = SentenciaUpdate & " = " & " NULL"
ElseIf lcCtrlIN.selectedvalue = Nothing Then
SentenciaUpdate = SentenciaUpdate & " = " & lcCtrlIN.selectedindex + 1
Else
SentenciaUpdate = SentenciaUpdate & " = " & lcCtrlIN.selectedvalue
End If
Else
SentenciaUpdate = SentenciaUpdate & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
If lcCtrlIN.Text = "" Then
SentenciaUpdate = SentenciaUpdate & " = " & " NULL"
ElseIf lcCtrlIN.selectedvalue = Nothing Then
SentenciaUpdate = SentenciaUpdate & " = " & lcCtrlIN.selectedindex + 1
Else
SentenciaUpdate = SentenciaUpdate & " = " & lcCtrlIN.selectedvalue
End If
End If
ElseIf Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoComodin Then
If SentenciaUpdate = "" Then
SentenciaUpdate = SentenciaUpdate & "UPDATE " & Tabla
SentenciaUpdate = SentenciaUpdate & " SET " & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
'SentenciaValues = SentenciaValues & " VALUES ( "
If lcCtrlIN.Text = "" Then
SentenciaUpdate = SentenciaUpdate & " = " & " NULL"
Else
SentenciaUpdate = SentenciaUpdate & " = '" & lcCtrlIN.text & "'"
End If
Else
SentenciaUpdate = SentenciaUpdate & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
If lcCtrlIN.Text = "" Then
SentenciaUpdate = SentenciaUpdate & " = " & " NULL"
Else
SentenciaUpdate = SentenciaUpdate & " = '" & lcCtrlIN.text & "'"
End If
End If
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
ElseIf TypeOf lcCtrlIN Is CheckBox Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoCheckBox Then
If SentenciaUpdate = "" Then
SentenciaUpdate = SentenciaUpdate & "UPDATE " & Tabla
SentenciaUpdate = SentenciaUpdate & " SET " & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
'SentenciaUpdate = SentenciaUpdate & " VALUES ( "
SentenciaUpdate = SentenciaUpdate & " = " & lcCtrlIN.CheckState
Else
SentenciaUpdate = SentenciaUpdate & ", " & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaUpdate = SentenciaUpdate & " = " & lcCtrlIN.CheckState
End If 'SentenciaInsert = ""
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
ElseIf TypeOf lcCtrlIN Is RadioButton Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoRadio Then
If SentenciaUpdate = "" Then
SentenciaUpdate = SentenciaUpdate & "UPDATE " & Tabla
SentenciaUpdate = SentenciaUpdate & " SET " & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
'SentenciaUpdate = SentenciaUpdate & " VALUES ( "
SentenciaUpdate = SentenciaUpdate & " = " & IIf(lcCtrlIN.checked = True, 1, 0)
Else
SentenciaUpdate = SentenciaUpdate & ", " & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaUpdate = SentenciaUpdate & " = " & IIf(lcCtrlIN.checked = True, 1, 0)
End If 'SentenciaInsert = ""
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
'End If ''TypeOf lcCtrlIN Is TextBox or TypeOf lcCtrlIN Is combobox
ElseIf TypeOf lcCtrlIN Is DateTimePicker Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoDatePicker Then
If SentenciaUpdate = "" Then ' MsgBox(DTP1FechaRegistro.Value.Date)
SentenciaUpdate = SentenciaUpdate & "UPDATE " & Tabla
SentenciaUpdate = SentenciaUpdate & " SET " & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
'SentenciaValues = SentenciaValues & " VALUES ( "
SentenciaUpdate = SentenciaUpdate & " = " & " CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.Value.Date, "YYYYMMDD") & "',112)"
Else
SentenciaUpdate = SentenciaUpdate & " ," & Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
SentenciaUpdate = SentenciaUpdate & " = " & " CONVERT(DATETIME,'" & clcmp.ObtenFecha(lcCtrlIN.Value.Date, "YYYYMMDD") & "',112)"
End If 'SentenciaInsert = ""
End If 'Mid(Trim(lcCtrlIN.Name), 1, 4) = Prefijo
End If ''TypeOf lcCtrlIN Is TextBox or TypeOf lcCtrlIN Is combobox
Next 'lcCtrlIN In GRPBOX.Controls
End If 'TypeOf lcCtrl Is GroupBox
Next 'GRPBOX In TabPage.Controls
'SQLProcesoUpdate = SentenciaUpdate & " WHERE id_cliente = " & ClsVariables.VarIdCliente
If SentenciaWHERE = "" Then
SQLProcesoUpdate = SentenciaUpdate
Else
SQLProcesoUpdate = SentenciaUpdate & " WHERE " & SentenciaWHERE
End If
Return SQLProcesoUpdate
Catch er As Exception
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End Try
'sbCierraCn()
End Function
Public Sub LLenaModelo(ByVal Panel As Panel, ByVal PrefijoRDB As String, ByVal SQL As String)
Dim NomCampo As String
Dim fila As DataRow
Dim Cl As SenteciasSQL.ClassSQL = New SenteciasSQL.ClassSQL
Dim GRPBOX As GroupBox
Dim SentenciaInsert As String
Dim SentenciaValues As String
Dim Combo As Object
Dim SQLProcesoInsert As String
Dim PrefijoComodin As String
Dim lcCtrl As Object
Dim lcCtrlIN As Object
'sbConectaBD()
Try
Cl.fdtDataSet(SQL)
fila = Cl.ds.Tables(0).Rows(0)
For Each lcCtrl In Panel.Controls
If (TypeOf lcCtrl Is GroupBox Or TypeOf lcCtrl Is Panel) Then
For Each lcCtrlIN In lcCtrl.Controls
If TypeOf lcCtrlIN Is RadioButton Then
If Mid(Trim(lcCtrlIN.Name), 1, 4) = PrefijoRDB Then
NomCampo = Mid(Trim(lcCtrlIN.Name), 5, Len(lcCtrlIN.Name))
If Not IsDBNull(fila(Trim$(NomCampo))) Then
If fila(Trim$(NomCampo)) = 1 Then
lcCtrlIN.checked = True
Else
lcCtrlIN.checked = False
End If
Else
lcCtrlIN.checked = False
End If
End If
End If
Next
End If
Next
Catch er As Exception
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Public Function VerificaPPE(ByVal Nombre As String) As Boolean
Dim SQLListas As String
Dim Classcom2 As New SenteciasSQL.ClassSQL
VerificaPPE = False
SQLListas = "SELECT * FROM ListaRestringida "
'SQLListas = SQLListas & " WHERE Nombre LIKE '%" & Nombre & "%'"
SQLListas = SQLListas & " WHERE Nombre LIKE '" & Nombre & "'"
SQLListas = SQLListas & " AND id_organismo = 9 "
Classcom2.fdtDataSet(SQLListas)
If Classcom2.ds.Tables(0).Rows.Count <> 0 Then
VerificaPPE = True
End If
End Function
Function ValidaRFC(ByVal Varnacionalidad As Integer, ByVal Vartipopersona As Integer, ByVal VarRFC As String) As Boolean
Try
ValidaRFC = False
If Varnacionalidad = 0 Then
Select Case Vartipopersona
Case Is = 0 'fisica
'valida la longitud
If Len(VarRFC) < 10 Then
ValidaRFC = False
Exit Function
Else
'valida los primeros 4 digitos deben de ser letras
For i As Integer = 1 To 4
Select Case Asc(Mid(VarRFC, i, 1))
Case Is < 65
ValidaRFC = False
Exit Function
Case Is > 90
ValidaRFC = False
Exit Function
End Select
Next
'valida la fecha
Dim VarFecha As String
VarFecha = Mid(Trim(VarRFC), 9, 2) & "/" & Mid(Trim(VarRFC), 7, 2) & "/" & Mid(Trim(VarRFC), 5, 2)
If Not (IsDate(VarFecha)) Then
ValidaRFC = False
Exit Function
End If
End If
Case Is = 1 'moral
'valida la longitud
If Len(VarRFC) < 12 Then
ValidaRFC = False
Exit Function
Else
'valida los primeros 3 digitos deben de ser letras
For i As Integer = 1 To 3
Select Case Asc(Mid(VarRFC, i, 1))
Case Is < 65
ValidaRFC = False
Exit Function
Case Is > 90
ValidaRFC = False
Exit Function
End Select
Next
'valida la fecha
Dim VarFecha As String
If Len(VarRFC) = 12 Then
VarFecha = Mid(Trim(VarRFC), 8, 2) & "/" & Mid(Trim(VarRFC), 6, 2) & "/" & Mid(Trim(VarRFC), 4, 2)
ElseIf Len(VarRFC) = 13 Then
VarFecha = Mid(Trim(VarRFC), 9, 2) & "/" & Mid(Trim(VarRFC), 7, 2) & "/" & Mid(Trim(VarRFC), 5, 2)
End If
If Not (IsDate(VarFecha)) Then
ValidaRFC = False
Exit Function
End If
End If
Case Is = 2 'fisica act emp
End Select
End If
ValidaRFC = True
Catch er As Exception
MessageBox.Show("Error en ClsComplejo; sbLlenaCombo: " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End Try
End Function
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 Isnull(ByVal varComodin As Object, ByVal varValorReturn As Object) As Object
If IsDBNull(varComodin) Then
Isnull = varValorReturn
Else
Isnull = varComodin
End If
End Function
Public Sub GuardaValoresLista(ByVal lngIDCliente As Long)
Dim sql As String
Dim Classcom As New clsComplejo
Dim Classcom2 As New SenteciasSQL.ClassSQL
Classcom.sbInserta("delete from DetLista where id_cliente = " & lngIDCliente)
If Not clsVaribles.ARR3 Is Nothing Then
sql = "INSERT INTO DetLista (id_cliente,lista,strmenu) "
sql = sql & " VALUES (" & lngIDCliente & ",'ChkPaisNacionalidad','" & Classcom2.ObtieneCadena(clsVaribles.ARR3) & "')"
Classcom = New clsComplejo
Classcom.sbInserta(sql)
End If
If Not clsVaribles.ARR4 Is Nothing Then
sql = "INSERT INTO DetLista (id_cliente,lista,strmenu) "
sql = sql & " VALUES (" & lngIDCliente & ",'CHKPaisRes','" & Classcom2.ObtieneCadena(clsVaribles.ARR4) & "')"
Classcom = New clsComplejo
Classcom.sbInserta(sql)
End If
If Not clsVaribles.ARR1 Is Nothing Then
sql = "INSERT INTO DetLista (id_cliente,lista,strmenu) "
sql = sql & " VALUES (" & lngIDCliente & ",'CHKProductos','" & Classcom2.ObtieneCadena(clsVaribles.ARR1) & "')"
Classcom = New clsComplejo
Classcom.sbInserta(sql)
End If
If Not clsVaribles.ARR2 Is Nothing Then
sql = "INSERT INTO DetLista (id_cliente,lista,strmenu) "
sql = sql & " VALUES (" & lngIDCliente & ",'CHKGiro','" & Classcom2.ObtieneCadena(clsVaribles.ARR2) & "')"
Classcom = New clsComplejo
Classcom.sbInserta(sql)
End If
End Sub
Public Function ObtieneCadena(ByVal arr As System.Array) As String
Dim Cadena As String
Dim i As Integer
For i = 0 To UBound(arr)
Cadena = Cadena & arr(i) + "|"
Next
Cadena = Mid(Cadena, 1, Cadena.Length - 1)
ObtieneCadena = Cadena
End Function
Public Sub LlenaLista(ByRef Listas As CheckedListBox, ByVal varIDCliente As Long, ByVal strNombre As String)
Dim Classcom As New SenteciasSQL.ClassSQL
Dim SQL As String
Dim Cadena As String
Dim i As Integer
'Cadena = Classcom.BuscaValores("p.Orden", "Kyc_Respuestaopciones r inner join Kyc_PreguntaOpciones p on r.Id_PreguntaOpcion = p.Id_PreguntaOpcion ", "id_cliente = " & varIDCliente & " and alias = '" & strNombre & "'")
Dim fila As DataRow
SQL = "SELECT p.orden FROM Kyc_Respuestaopciones r inner join Kyc_PreguntaOpciones p on r.Id_PreguntaOpcion = p.Id_PreguntaOpcion "
SQL = SQL & "WHERE r.id_cliente = " & varIDCliente & "and alias = '" & strNombre & "'"
Classcom.fdtDataSet(SQL)
For i = 0 To Classcom.ds.Tables(0).Rows.Count - 1
fila = Classcom.ds.Tables(0).Rows(i)
Cadena = fila("orden") - 1
Listas.SetItemChecked(Cadena, True)
Next
End Sub
Public Sub LlenaLista2(ByRef Listas As CheckedListBox, ByVal varIDCliente As Long, ByVal strNombre As String)
Dim Classcom As New SenteciasSQL.ClassSQL
Dim SQL As String
Dim Cadena As String
Dim i As Integer
Dim fila As DataRow
SQL = "SELECT p.orden FROM Kyc_Respuestaopciones r inner join Kyc_PreguntaOpciones p on r.Id_PreguntaOpcion = p.Id_PreguntaOpcion "
SQL = SQL & "WHERE r.id_cliente = " & varIDCliente & "and alias = '" & strNombre & "'"
Classcom.fdtDataSet(SQL)
For i = 0 To Classcom.ds.Tables(0).Rows.Count - 1
fila = Classcom.ds.Tables(0).Rows(i)
Cadena = fila("orden") - 1
Listas.SetItemChecked(Cadena, True)
Next
End Sub
Public Function ObtenerArchivoAlarma(ByVal IdArchivo As String) As Byte()
Dim resultado As Byte()
Try
Dim strSQL As String = "Select bytes from tbl_evidencias where idarchivo =" & IdArchivo
clsVaribles.Conexion.Open()
cm.Connection = clsVaribles.Conexion
cm.CommandText = strSQL
resultado = cm.ExecuteScalar()
Catch ex As Exception
MessageBox.Show("Error en ClassSQL; ObtenerArchivoAlarma: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
clsVaribles.Conexion.Close()
Return resultado
End Function
End Class
End Namespace
Reference in New Issue Copy Permalink