client/FrmDetallesUmbral.vb

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