Imports System.Data.SqlClient Public Class frmAcumuladoCliente Private Sub C1TrueDBGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub frmAcumuladoCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim intMes As Int32 = 0 Dim Classcom As New clsComplejo intMes = (Month(Date.Now())) 'Me.CmbTipoReporte.Items.Add("Clientes entre 500dls y 3 Mil dls") 'Me.CmbTipoReporte.Items.Add("Clietes desde 3 Mil dls en adelante") 'Me.CmbTipoReporte.Items.Add("Personas Física desde 300 mil pesos en adelante") 'Me.CmbTipoReporte.Items.Add("Personas Morales desde 500 mil pesos en adelante") 'Me.CmbTipoReporte.Items.Add("Cliente o Usuarios desde 1,000,000 de pesos o 100,000 dlls en adelante") Me.ComboMes.Items.Add("Enero") Me.ComboMes.Items.Add("Febrero") Me.ComboMes.Items.Add("Marzo") Me.ComboMes.Items.Add("Abril") Me.ComboMes.Items.Add("Mayo") Me.ComboMes.Items.Add("Junio") Me.ComboMes.Items.Add("Julio") Me.ComboMes.Items.Add("Agosto") Me.ComboMes.Items.Add("Septiembre") Me.ComboMes.Items.Add("Octubre") Me.ComboMes.Items.Add("Noviembre") Me.ComboMes.Items.Add("Diciembre") Me.ComboAño.Items.Add(Year(Date.Now())) Me.ComboAño.Items.Add(Year(Date.Now()) - 1) Me.ComboAño.Items.Add(Year(Date.Now()) - 2) Me.ComboAño.Items.Add(Year(Date.Now()) - 3) Me.ComboAño.Items.Add(Year(Date.Now()) - 4) Me.ComboAño.Items.Add(Year(Date.Now()) - 5) Me.ComboAño.Items.Add(Year(Date.Now()) - 6) Me.ComboAño.Items.Add(Year(Date.Now()) - 7) Me.ComboAño.Items.Add(Year(Date.Now()) - 8) Me.ComboAño.Items.Add(Year(Date.Now()) - 9) Me.ComboAño.Items.Add(Year(Date.Now()) - 10) Me.ComboAño.Items.Add(Year(Date.Now()) - 11) Me.ComboAño.Items.Add(Year(Date.Now()) - 12) Me.ComboAño.Items.Add(Year(Date.Now()) - 13) Me.ComboAño.Items.Add(Year(Date.Now()) - 14) Me.ComboAño.Items.Add(Year(Date.Now()) - 15) Me.ComboAño.Items.Add(Year(Date.Now()) - 16) Me.ComboAño.Items.Add(Year(Date.Now()) - 17) Me.ComboAño.Items.Add(Year(Date.Now()) - 18) Me.ComboAño.Items.Add(Year(Date.Now()) - 19) Me.ComboAño.Items.Add(Year(Date.Now()) - 20) Me.ComboMes.Text = "Seleccione Mes" Me.ComboAño.Text = "Selecccione Año" End Sub Private Sub cmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click Dim clCmp As clsComplejo = New clsComplejo Dim strConsulta As String Dim rsSql As ADODB.Recordset 'Dim StrFecha As String Dim fechaPaso As String Dim fechaIni As String Dim fechaFin As String ' On Error GoTo Ex If ComboMes.Text = "Seleccione Mes" Then MsgBox("Seleccione el Mes del Proceso") Exit Sub End If If ComboAño.Text = "Selecccione Año" Then MsgBox("Seleccione el Año para el Proceso") Exit Sub End If 'If CmbTipoReporte.Text = "Tipo de Reporte" Then ' MsgBox("Seleccione el tipo de Reporte") ' Exit Sub 'End If 'fechaIni = ComboAño.Text & "/" & Format(Me.ComboMes.SelectedIndex + 1, "00") & "/01" 'fechaPaso = DateAdd("d", -1, DateAdd("m", 1, fechaIni)) 'fechaFin = Year(fechaPaso) & "/" & Month(fechaPaso) & "/" & Mid(fechaPaso, 1, 2) fechaIni = ComboAño.Text & "/" & Format(Me.ComboMes.SelectedIndex + 1, "00") & "/01" 'fechaIni = ComboAño.Text & "/" & Format(Me.ComboMes.SelectedIndex + 1, "00") & "/01" fechaPaso = DateAdd("d", -1, DateAdd("m", 1, fechaIni)) fechaFin = Year(fechaPaso) & "/" & Month(fechaPaso).ToString("00") & "/" & DateAndTime.Day(fechaPaso).ToString("00") strConsulta = "sp_ConsultarAcumuladoMensual '" & ComboMes.Text & "/" & Me.ComboAño.Text & "','" & fechaIni & "','" & fechaFin & "'" 'strConsulta = "SELECT b.nic as NIC," 'strConsulta = strConsulta & " b.clientenom + ' ' + isnull(b.apaterno,'') + ' ' + isnull(b.amaterno,'') as CLIENTE," 'strConsulta = strConsulta & "'" & Me.ComboMes.Text & "/" & Me.ComboAño.Text & "' PERIODO," 'strConsulta = strConsulta & " a.montopesos MONTO_PESOS,a.montousd MONTO_USD," 'strConsulta = strConsulta & " a.TipoReporte " ''strConsulta = strConsulta & " case b.tipopersona when 1 then 'Persona Fisica' when 2 then 'Persona Moral' END TPPERSONA " ''strConsulta = strConsulta & " decode(b.ID_USUARIOCLIENTE,0,'CLIENTE',1,'USUARIO','') TIPO" 'strConsulta = strConsulta & " FROM AcumuladoMensualClientes a,cliente b" 'strConsulta = strConsulta & " WHERE a.id_cliente = b.id_cliente" ''Filtros '' StrFecha = "01/" & ComboMes.ListIndex + 1 & "/" & ComboAño.Text ''strConsulta = strConsulta & " and Fecha = to_date('" & StrFecha & "','dd/mm/yyyy')" 'strConsulta = strConsulta & " and Fecha between '" & fechaIni & "' and '" & fechaFin & "'" ''Usuarios entre 500dls y 3 Mil dls ''Usuarios desde 3 Mil dls en adelante ''Personas Física desde 300 mil pesos en adelante ''Personas Morales desde 500 mil pesos en adelante ''Cliente o Usuarios desde 1,000,000 de pesos o 100,000 dlls en adelante 'Select Case Trim(Me.CmbTipoReporte.Text) ' Case Is = "Clientes entre 500dls y 3 Mil dls" ' 'Usuarios entre 500dls y 3 Mil dls ' strConsulta = strConsulta & " and a.montousd >= 500 and a.montousd <= 3000 " ' Case Is = "Usuarios desde 3 Mil dls en adelante" ' 'Usuarios desde 3 Mil dls en adelante ' 'strConsulta = strConsulta & " and ID_USUARIOCLIENTE = 1 " ' strConsulta = strConsulta & " and a.montousd > 3000 " ' Case Is = "Personas Física desde 300 mil pesos en adelante" ' 'Personas Física desde 300 mil pesos en adelante ' 'strConsulta = strConsulta & " and b.tipopersona = 1 " ' strConsulta = strConsulta & " and a.montopesos >= 300000 " ' Case Is = "Personas Morales desde 500 mil pesos en adelante" ' 'Personas Morales desde 500 mil pesos en adelante ' 'strConsulta = strConsulta & " and b.tipopersona = 2 " ' strConsulta = strConsulta & " and a.montopesos >= 500000 " ' Case Is = "Cliente o Usuarios desde 1,000,000 de pesos o 100,000 dlls en adelante" ' 'Cliente o Usuarios desde 1,000,000 de pesos o 100,000 dlls en adelante ' strConsulta = strConsulta & " and (a.montopesos > 1000000 or a.montousd >= 100000)" 'End Select 'clsComplejo.fdtDataSetTabla(strConsulta) clCmp = New clsComplejo DataGrid1.DataSource = Nothing clcmp.fdtDataSetTabla(strConsulta) If clCmp.ds.Tables(0).Rows.Count <> 0 Then DataGrid1.SetDataBinding(clCmp.ds, "tabla") Else MsgBox("No existe información con este Rango Seleccionado") End If Exit Sub 'Catch ex As Exception ' 'MsgBox("error al cargar forma ") ' MsgBox("Error: " & Err.Description) End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) End Sub Private Sub ComboAño_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboAño.SelectedIndexChanged End Sub Private Sub cmdSalir_Click(sender As System.Object, e As System.EventArgs) Handles cmdSalir.Click Close() End Sub End Class