TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Planilha de Compras

Por:   •  8/5/2016  •  Resenha  •  1.959 Palavras (8 Páginas)  •  227 Visualizações

Página 1 de 8

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

...

Baixar como (para membros premium)  txt (6.3 Kb)   pdf (55.8 Kb)   docx (11 Kb)  
Continuar por mais 7 páginas »
Disponível apenas no TrabalhosGratuitos.com