nardo

Galera,

Tenho uma tela de Cadastro de Ordem de serviço(arquivo cad_os_inst.asp). Nesta tela, tem um botão para
a tela de Cadastro de clientes. O usuário irá clicar neste botão para alterar os dados do Cliente.

Preciso verificar no arquivo cad_cliente.asp (que será chamado pelo arquivo cad_os_inst.asp)
que o chamou. Acho q terei de usar request.servervariables.

Esta tela de Cadastro de Clientes será chamada por outras páginas e não somente pela tela
de cadastro de ordem de serviço. Então terei que verificar nesta tela de cadastro de cliente
qual foi o arquivo .asp que o chamou.

Se alguém pude me ajudar, agradeço.

Rafael

G Galera,

Tô com problema: Não consigo gravar os dados de um formulário que tem varios checkboxes em uma tabela relacionada.

Tenho um formulario com tres campos:

nome (caixa de texto)
endereco (caixa de texto
departamentos (varios checkboxes)

Funciona assim: O usuário digite o nome, cho endereco e marca os ckeboxes correspondentes aos departamentos (estes departamentos estão cadastrados na tabela departamentos).

Para explicar melhor coloquei a estrutura das tabelas, logo abaixo:

Tabela: associado
codigo int not null,
nome varchar(80) not null,
endereco varchar(80) not null,
constraint pk_cod_associado primary key(codigo)

Tabela: departamento
cod_depto int not null,
nome varchar(80) not null
constraint pk_cod_depto primary key(cod_depto)

Tabela: associado_depto
associado int not null,
departamento int not null,
constraint pk_associado_departamento primary key(associado,departamento)
constraint fk_associadodep_associado foreign key(associado) references associado(codigo) on update cascade
constraint fk_associadodep_departamento foreign key(departamento) references departamento(cod_depto) on update cascade


Tô com problema na gravação dos dados !

Lógica:
1º: Tenho que gravar o nome e o endereco do associado na tabela associado (Consigo fazer, está funcionando)
2º: Tenho que gravar na tabela associado_depto(que possui a chave primária composta pelo codigo do departamento e o codigo do associado) o codigo e os departamentos escolhidos pelo usuario.

o problema está no 2º passo. Não estou conseguindo gravar na tabela associado_depto o nome e os departamentos escolhidos por cada associado.

<%
nome=Request.form("nome")
session("nome")=nome
Dim con,rs
set con =server.CreateObject("ADODB.Connection")
set rs =server.CreateObject("adodb.recordset")
con.open "provider=Microsoft.jet.oledb.4.0; Data source=" & server.MapPath("./bd/teste.mdb")
sql="select codigo, nome from associado"
rs.open sql,con,3,3
rs.addnew()
rs.fields("nome")=session("nome")
rs.Update
set rs_obtem_cod_associado = server.CreateObject("adodb.recordset")
sql_obtem_cod_associado="Select codigo from associado where nome='" & session("nome") & "'"
rs_obtem_cod_associado.open sql_obtem_cod_associado,con,3,3
%>
<%cod_associado=rs.fields("codigo").value
'exibe o codigo do associado recém gravado.
response.write cod_associado%>

O código acima grava os dados (coloquei só para gravar o nome) do associado na tabela associado. Funciona. Só que depois de gravar os dados do associado na tabela associado tenho que gravar na tabela
associado_depto, codigo do associado(por isso criei: rs_obtem_cod_associado.open sql_obtem_cod_associado,con,3,3
%>
<%cod_associado=rs.fields("codigo").value
'exibe o codigo do associado recém gravado.
response.write cod_associado%>

para poder pegar o codigo do associado recem gravado na tabela associado) e os departamentos que ele escolheu. Então depois que o usuário marcar os departamentos e clicar no botão gravar do formulário os dados ficarão armazenados assim:

Tabela: associado_depto

associado departamento
1 1
1 2
1 3
2 1
2 2
2 3

O meu problema é gravar os dados na tabela associado_depto.

Agradeço a ajuda

Rafael

E ae Galera,

Gostaria de saber se existe um tempo limite (uma espécie de tempo máximo) para o session.timeout.

Agradeço a ajuda.

Rafael

e ae Galera !!

Tenho uma pagina de cadastro com dois frames:

No frame superior tenho um formulario com dois campos: codigo e nome do defeito. O código é gerado pelo sistema enquanto que a descricao é informada pelo usuario.

O frame inferior exibe todos os defeitos cadastrados, com links para exclusao e alteração do respectivo defeito. (as paginas de exclusao e alteracao estao funcionando).

Quando o usuário clicar no botao gravar (no frame superir) queria que o frame inferior fosse atualizado para exibir o novo registro.

Agradeço a Ajuda

Rafael

Galera, estou com um pequeno grande problema no update


Esta página recebe o codigo e a descricao (que sao enviados via post por outra pagina)


<%
'Ativa tratamento de Erros

on error resume next

Dim con,rs

atualiza_cod_defeito=Request.Form("altera_cod_defeito")
atualiza_desc_defeito=Cstr(Trim(Request.Form("altera_desc_defeito")))

session("atualiza_cod_defeito")=Cint(atualiza_cod_defeito)
session("atualiza_desc_defeito")=atualiza_desc_defeito

Set con = Server.CreateObject("ADODB.CONNECTION")

con.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("./bd/teste.mdb")

sql_altera="Update defeito set descricao=" & session("atualiza_desc_defeito")
sql_altera= sql_altera & " where cod_defeito=" & cint(session("atualiza_cod_defeito"))

set rs=con.execute(sql_altera)

'se houver algum erro, detalha

if err.number > 0 then

With response

.write "Ocorreram os seguintes erros:" & "<p>"
.write "Erro número:" & err.number & "<p>"
.write "Descrição:" & err.helpcontext & "<p>"
.write "Contexto de Ajuda:" & err.helppath & "<p>"
.write "Caminho de Ajuda:" & err.nativeerro & "<p>"
.write "Erro Nativo:" & err.source & "<p>"
.write "Fonte:" & err.source & "<p>"
.write "SQLState" & err.sqlstate & "<p>"

End With
End If

If conn.errors.count > 0 then
With response
.write "Ocorreu um erro no Banco de Dados " & "<p>"
.write sql_altera & "<p>"
End With
for counter=0 to errors.count
With response
.write "Error #" & con.errors(counter).number & "<p>"
.write "Error Descri. ->" & con.errors(counter).description & "<p>"
End With
next
Else
Response.write "Dados Gravados com Sucesso ! "

End If
%>

Eis o problemin...


Ocorreu um erro no Banco de Dados
Update defeito set descricao=aaaa where cod_defeito=21

O que pode ser isto ??

Agradeço a Ajuda !

Rafael