Relação de Clientes em caixa de listagem

[Alberto Mota]

Prezados colegas, criei um form para alteração de vendas.

O usuário escolhe o numero da venda e filtra os dados.

Vai aparecer claro, apenas 1 cliente,

mas preciso que escolha um novo caso queira e isso

tem que estar numa combo.

Mas o que gostaria é que já no filtro viesse essa combo

com o cliente já nela e caso o usuário quisesse mudar,

seria ali mesmo.

Já tentei de diversas formas e não consegui.

Desde já obrigado.

[fabiolima4217]

Desculpe, mas não entendi direito o que você deseja nem como está sua estrutura.

Veja se é isso: você tem uma text onde o usuário digita o número do pedido e, provavelmente, clica num botão para visualizar os dados do pedido.

Bem, e depois, o que é que deve aparecer numa combo? Todos os clientes? Com o cliente inicial que fez o pedido selecionado. É isso?

[Alberto Mota]

Agradeço a atenção.

Inicialmente ele vai digitar num form o numero do pedido: Ex: 6722 e depois submeter

Vai aparecer todos os dados da venda: Data, Cliente, Transportadora, ect.

E vamos supor que ele queira mudar o Cliente ArtInox que já está num input por outro cliente, ex: Ind. Macedo:

Então deve existir uma combo com a relação de todos os clientes para ele escolher um novo.

Posso fazer isso, mas não sei se existe algo mais prático.

Imagine a tela de um sistema desktop em que o cliente atual já é mostrado numa combo.

O usuário ali mesmo já altera.

[Rafael Spilki]

Então, imaginei aqui duas formas:

1) Usando AJAX, no momento em que alterar o combo para outro cliente ele automaticamente altera os dados dos valores dos outros inputs;

2) Exibir apenas um combo simplesão escrito, alterar outro cadastro, com a listagem de clientes e um submit específico, ou seja, dois forms na mesma tela...

[]'s

[Alberto Mota]

Rafael, seria ideal, mas não manjo nada de Ajax.

Poderia colocar um script de exemplo?

Agradeço a atenção.

[fercosmig]

na hora de montar o combo com todos os clientes verifica com um if se o id do cliente do pedido é igual ao id do cliente que está no select, se for marca como selected.

ex:

<%
v_numero_pedido = requert.querystring("numero_pedido")
v_id_cliente = requert.querystring("id_cliente")
%>

<select name="cliente">
<%
    v_sql = "select id,nome from tb_clientes"
    set objrs = objConn.execute(v_sql)
    objrs.movefirst
    v_aux = ""
    do while not objrs.eof
        if ( objrs("id") = v_id_cliente ) then v_aux = "selected='selected'"
        response.write("<option value='" & objrs("id") & "' " & v_aux & ">" & objrs("nome") & "</option>"
        objrs.movenext
    loop
    objrs.Close
%>
</select>

[Alberto Mota]

Fercos, vou testar o script e depois retorno.

Um abraço.

[Alberto Mota]

Fecos, adaptei mas não resolveu

não aparece selecionado.

Mostra todos os clientes apenas.

Segue o script

<%

set cliente = Server.CreateObject("ADODB.Recordset")

cliente.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

Server.MapPath("dados/februmar.mdb")

cliente.Source = "SELECT * FROM TblClientes order by ClienteNome"

cliente.CursorType = 0

cliente.CursorLocation = 2

cliente.LockType = 1

cliente.Open()

cliente_numRows = 0

v_id_cliente = varcli

cliente.movefirst

v_aux = ""

do while not cliente.eof

if ( cliente("Código2") = v_id_cliente ) then v_aux = "selected='selected'"

response.write("<option value='" & cliente("Código2") & "' " & v_aux & ">" & cliente("ClienteNome") & "</option>")

cliente.movenext

loop

cliente.Close

%>

[fercosmig]

então converte os valores dentro do If

cliente("Código2") é integer?

se for converte o valor da variavel, tipo assim

if ( cliente("Código2") = cInt(v_id_cliente) ) then v_aux = "selected='selected'"

[Alberto Mota]

Fecos, quase lá. Mostra infelizmente o último da listagem.

A variavel v_id_cliente esta no fim deste desse script

<%

cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

Server.MapPath("dados/februmar.mdb")

set conn = CreateObject("ADODB.Connection")

conn.open cst

Session("base") = Request.Form("txtvda")

seleciona = cod

sql = "select TblVendaSaidaNovo.bytParcelas2, TblVendaSaidaNovo.Vendedor, TblVendaSaidaNovo.Transportadora, TblVendaSaidaNovo.FornecedorPedido, TblTransportadoras.RegTransp, TblTransportadoras.NomeTransportadora, TblVendaSaidaNovo.ClientePedido2, tblFornecededores.códigoempresa, tblFornecededores.RazãoSocial, TblVendaSaidaNovo.lngNumContrato, TblVendaSaidaNovo.NumeroPedido2, TblVendaSaidaNovo.Condições2, TblVendaSaidaNovo.DataEmissão, TblVendaSaidaNovo.Cobrança, TblVendaSaidaNovo.ConcatenaData, TblVendaSaidaNovo.obs, TblVendaSaidaNovo.NumeroPedidoNovo as NN, TblVendaSaidaNovo.Bonificação1, TblClientes.Código2, TblClientes.ClienteNome from TblVendaSaidaNovo, TblClientes, tblFornecededores, TblTransportadoras where TblTransportadoras.RegTransp = TblVendaSaidaNovo.Transportadora And tblFornecededores.códigoempresa = TblVendaSaidaNovo.FornecedorPedido And TblVendaSaidaNovo.ClientePedido2 = TblClientes.Código2 And lngNumContrato = " + seleciona + " "

set consulta = conn.execute(sql)

v_id_cliente = consulta("Código2")

%>

E onde fica a combo coloquei assim:

<select name="cliente">

<%

cliente.movefirst

v_aux = ""

do while not cliente.eof

if ( cliente("Código2") = cInt(v_id_cliente) ) then v_aux = "selected='selected'"

response.write("<option value='" & cliente("Código2") & "' " & v_aux & ">" & cliente("ClienteNome") & "</option>")

cliente.movenext

loop

cliente.Close

%>

</select>

Obrigado pela atenção.

Editado Junho 19, 2010 por Alberto Mota

[bareta]

mude sua instrução sql... use inner/ left ou right join

[Alberto Mota]

Infelizmente Bareta continua retornando o ultimo registro.

Eis o script:

<%

cod = request.Form("txtpedido")

%>

<%

cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

Server.MapPath("dados/februmar.mdb")

set conn = CreateObject("ADODB.Connection")

conn.open cst

seleciona = cod

sql = "SELECT TblVendaSaidaNovo.ClientePedido2, TblClientes.Código2, TblVendaSaidaNovo.lngNumContrato FROM TblClientes left JOIN TblVendaSaidaNovo ON TblClientes.Código2 = TblVendaSaidaNovo.ClientePedido2 Where lngNumContrato = " + seleciona + ""

set consulta = conn.execute(sql)

v_id_cliente = consulta("Código2")

%>

Obrigado.

[bareta]

são quantos registros????

se mais de 1:

use order;

percorra o recordset e veja os resultados.

[Alberto Mota]

Bareta, é apenas 1 registro. A Venda Atual e o nome do cliente atual.

Issa faz parte do cabeçalho da venda.