Planilha de Compras
Por: Weverton Souza • 8/5/2016 • Resenha • 1.959 Palavras (8 Páginas) • 227 Visualizações
Private Sub preenche_motivo_filtro(ByVal Npedido)
cmb_motivo_pesquisa.Items.Clear()
Dim cmd As New OleDbCommand
Conectar(banco_dados)
Dim reader As OleDbDataReader
If chc_exibir_tudo.Checked = f Then
cmd = New OleDbCommand("select motivo, pedido from Registros where pedido = '" & Npedido & "'", conecta)
reader = cmd.ExecuteReader
Dim valor As String = Nothing
While reader.Read
valor = reader.Item("motivo")
If cmb_motivo_pesquisa.Items.IndexOf(valor) <= -1 Then
cmb_motivo_pesquisa.Items.Add(reader.Item("motivo"))
cmb_motivo_pesquisa.Items.Remove("Não atribuido")
End If
End While
Else
cmd = New OleDbCommand("select motivo, cliente from Registros where cliente = '" & txt_CPF_cli.Text & "'", conecta)
reader = cmd.ExecuteReader
Dim valor As String = Nothing
While reader.Read
valor = reader.Item("motivo")
If cmb_motivo_pesquisa.Items.IndexOf(valor) <= -1 Then
cmb_motivo_pesquisa.Items.Add(reader.Item("motivo"))
cmb_motivo_pesquisa.Items.Remove("Não atribuido")
End If
End While
End If
Desconectar()
End Sub
Private Sub preenche_status_filtro(ByVal Npedido)
cmb_status_pesquisa.Items.Clear()
Dim cmd As New OleDbCommand
Conectar(banco_dados) : conecta.Open()
Dim reader As OleDbDataReader
Dim valor As String = Nothing
Dim valor_tarefa As String = Nothing
If chc_exibir_tudo.Checked = f Then
cmd = New OleDbCommand("select status_atendimento, status_tarefa, pedido from Registros where pedido = '" & Npedido & "'", conecta)
reader = cmd.ExecuteReader
While reader.Read
valor = reader.Item("status_atendimento")
If cmb_status_pesquisa.Items.IndexOf(valor) <= -1 Then
cmb_status_pesquisa.Items.Add(reader.Item("status_atendimento"))
cmb_status_pesquisa.Items.Remove("-")
End If
valor_tarefa = reader.Item("status_tarefa")
If cmb_status_pesquisa.Items.IndexOf(valor_tarefa) <= -1 And valor_tarefa <> "Não aplicavel" Then
cmb_status_pesquisa.Items.Add(reader.Item("status_tarefa"))
cmb_status_pesquisa.Items.Remove("-")
End If
End While
Else
cmd = New OleDbCommand("select status_atendimento, status_tarefa, pedido, cliente from Registros where Cliente = '" & txt_CPF_cli.Text & "'", conecta)
reader = cmd.ExecuteReader
While reader.Read
valor = reader.Item("status_atendimento")
If cmb_status_pesquisa.Items.IndexOf(valor) <= -1 Then
cmb_status_pesquisa.Items.Add(reader.Item("status_atendimento"))
cmb_status_pesquisa.Items.Remove("-")
End If
valor_tarefa = reader.Item("status_tarefa")
If cmb_status_pesquisa.Items.IndexOf(valor_tarefa) <= -1 And valor_tarefa <> "Não aplicavel" Then
cmb_status_pesquisa.Items.Add(reader.Item("status_tarefa"))
cmb_status_pesquisa.Items.Remove("-")
End If
End While
End If
Desconectar()
End Sub
Private Sub preenche_canal_filtro(ByVal Npedido)
cmb_canal_atendimento.Items.Clear()
Dim cmd As New OleDbCommand
Conectar(banco_dados) : conecta.Open()
Dim reader As OleDbDataReader
If chc_exibir_tudo.Checked = f Then
...