Planilha de Compras
Por: Lidieisa • 2/2/2018 • 1.960 Palavras (8 Páginas) • 360 Visualizações
...
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
cmd = New OleDbCommand("select canal_atendimento , pedido from Registros where pedido = ’" & Npedido & "’", conecta)
reader = cmd.ExecuteReader
Dim valor As String = Nothing
While reader.Read
valor = reader.Item("canal_atendimento")
If cmb_canal_atendimento.Items.IndexOf(valor) <= -1 Then
cmb_canal_atendimento.Items.Add(reader.Item("canal_atendimento"))
cmb_canal_atendimento.Items.Remove("Não atribuido")
End If
End While
Else
cmd = New OleDbCommand("select canal_atendimento, cliente from Registros where cliente = ’" & txt_CPF_cli.Text & "’", conecta)
reader = cmd.ExecuteReader
Dim valor As String = Nothing
While reader.Read
valor = reader.Item("canal_atendimento")
If cmb_canal_atendimento.Items.IndexOf(valor) <= -1 Then
cmb_canal_atendimento.Items.Add(reader.Item("canal_atendimento"))
cmb_canal_atendimento.Items.Remove("Não atribuido")
End If
End While
End If
Desconectar()
End Sub
Private Sub preenche_data_filtro(ByVal Npedido)
cmb_data_pesquisa.Items.Clear()
Dim cmd As New OleDbCommand
Conectar(banco_dados) : conecta.Open()
Dim reader As OleDbDataReader
If chc_exibir_tudo.Checked = f Then
cmd = New OleDbCommand("select data_abertura, pedido from Registros where pedido = ’" & Npedido & "’", conecta)
reader = cmd.ExecuteReader
Dim valor As String = Nothing
While reader.Read
valor = reader.Item("data_abertura")
If cmb_data_pesquisa.Items.IndexOf(valor) <= -1 Then
cmb_data_pesquisa.Items.Add(reader.Item("data_abertura"))
End If
End While
Else
cmd = New OleDbCommand("select data_abertura, cliente from Registros where cliente = ’" & txt_CPF_cli.Text & "’", conecta)
reader = cmd.ExecuteReader
...