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