34 lines
1.3 KiB
VB.net
34 lines
1.3 KiB
VB.net
Public Class FrmDetallesUmbral
|
|
|
|
Private Sub FrmDetallesUmbral_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Sub Busquedas(ByVal Where As String, Nombre As DataGrid)
|
|
Dim CLCMP As New clsComplejo
|
|
Dim VarComodin As Long
|
|
Dim SQL As String = vbEmpty
|
|
|
|
Try
|
|
|
|
|
|
SQL = "SELECT int_id_cliente as IDCLIENTE,Str_Fecha AS FECHA, Str_Nombre AS NOMBRE, Str_Umbral AS UMBRAL, Str_Mes_Anterior AS MES_ANTERIOR"
|
|
SQL = SQL & " ,Str_Estatus_Umbral AS STATUS_UMBRAL, Mon_Monto_Pesos AS MONTO_PESOS, Mon_Monto_USD AS MONTO_USD,"
|
|
SQL = SQL & " case when Str_Componente_Inversion=1 then 'Con Componete' when Str_Componente_Inversion=0 then 'Sin Componete' end "
|
|
SQL = SQL & "AS COMP_INVERSIÓN, Str_No_Polizas AS NÚMERO_POLIZAS"
|
|
SQL = SQL & " FROM Umbral where Str_Fecha= '" & Where & "'"
|
|
|
|
clsVaribles.VarSQL = SQL 'Solo Guarda el query para hacer la emportacion
|
|
|
|
CLCMP.fdtDataSetTabla(SQL)
|
|
'Me.Nombre.SetDataBinding(CLCMP.ds, "Tabla")
|
|
'Me.Nombre.Visible = True
|
|
Dim Cont As Integer
|
|
Cont = CLCMP.ds.Tables(0).Rows.Count
|
|
Nombre.Text = "Número de Registros : " & Cont
|
|
|
|
Catch er As Exception
|
|
MessageBox.Show("Error al Buscar " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End Try
|
|
End Sub
|
|
End Class |