184 lines
7.7 KiB
VB.net
184 lines
7.7 KiB
VB.net
|
|
|||
|
|
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<EFBFBD>o.Items.Add(Year(Date.Now()))
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 1)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 2)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 3)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 4)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 5)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 6)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 7)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 8)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 9)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 10)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 11)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 12)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 13)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 14)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 15)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 16)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 17)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 18)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 19)
|
|||
|
|
Me.ComboA<EFBFBD>o.Items.Add(Year(Date.Now()) - 20)
|
|||
|
|
|
|||
|
|
Me.ComboMes.Text = "Seleccione Mes"
|
|||
|
|
Me.ComboA<EFBFBD>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<EFBFBD>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<6F>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<EFBFBD>o.Text & "/" & Format(Me.ComboMes.SelectedIndex + 1, "00") & "/01"
|
|||
|
|
'fechaIni = ComboA<6F>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<EFBFBD>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<6F>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<6F>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<63>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<EFBFBD>o_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboA<EFBFBD>o.SelectedIndexChanged
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cmdSalir_Click(sender As System.Object, e As System.EventArgs) Handles cmdSalir.Click
|
|||
|
|
Close()
|
|||
|
|
End Sub
|
|||
|
|
End Class
|