Jump to content

  2. → Viewing Profile: Tópicos: Martinsrj

Martinsrj

Member Since 03/08/2009
Offline Last Active 06/09/2010, 21:56
-----

Topics I've Started

Não É Possível Mover O Foco Para O Controle Porque Este É Invisível

06/09/2010, 10:01

Olá pessoal, boa noite!
Possuo um formulario onde o usuario utiliza o enter para navegar entre os campos. Em certo campo do formulario eu verifico se determinado campo foi preenchido com o codigo 03 e caso positivo um determindado campo dinamicamente eu coloco disable, porem se o usuario quiser corrigir o campo que foi preenchido com com o codigo 03 e mude para outro codigo aparece a seguinte mensagem de erro:

Detalhes dos erros da página da Web

Agente de Usuário: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.5; InfoPath.2; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET CLR 1.1.4322; OfficeLiveConnector.1.4; OfficeLivePatch.1.3; yie8)
Carimbo de data/hora: Mon, 6 Sep 2010 01:01:58 UTC


Mensagem: Não é possível mover o foco para o controle porque este é invisível, não habilitado ou de um tipo que não aceita foco.
Linha: 420
Caractere: 307
Código: 0
URI: http://www.dominio.c...peracao=incluir

Código de java script abaixo:
          response.write "<script>" 
          response.write "function EnterFocaProximo(obj, e) {  "
          response.write "	if (e.keyCode == 13) {"
          response.write "		var i = 0;"
          response.write "		while (i < obj.form.length)"
          response.write "			if (obj.form[i++] == obj)"
          response.write "				break;"
  		  'response.write "				alert(i);"
		  'response.write "     	while ((obj.form[i % obj.form.length].type == 'hidden' || obj.form[i % obj.form.length].name.substr(0,4) == 'Ex1_') && (i < obj.form.length) )"
          response.write "     	while ((obj.form[i % obj.form.length].type == 'hidden' || obj.form[i % obj.form.length].name.substr(0,4) == 'Ex1_') && (i < obj.form.length) )"
          response.write "             i++;"
          response.write "		obj.form[i % obj.form.length].focus();"
		  'response.write "				alert(i);"
		  'Response.Write " (document.getElementById('campo').disabled==true);"
		  
		  'response.write "              if (obj.form[i % obj.form.length].focus().disabled==true)"
		  'response.write "				{ "
		  'response.write "	            	alert('Inativo'); "
  		  'response.write "				} "
		  		  
          response.write "		e.keyCode = 0;"
          response.write "	}"
          response.write "}"
         response.write "</script>"

Como que eu posso mover focus para o campo que nao esteja desabilitado.

Dificuldade Em Session

13/06/2010, 19:24

Olá pessoal, boa noite!
Estou migrando um sistema que está em ASP e estou passando para PHP, porem estou apanhando na parte de SESSION.
Irei disponibilizar todos os links que contem o meu codigo na parte login e senha.
Segue:
index.php: http://pastebin.com/LZhuda55
logar: http://pastebin.com/H5RT5hLQ
logout.php: http://pastebin.com/FiRt2W3J
principal.php: http://pastebin.com/vSYkQNVc
validar.php: http://pastebin.com/NXTSKfVe

Pessoal, segue o endereco do meu sistema: http://scap.martinsrj.com/index.php
Obs.: o meu sistema está hospedado nesse endereco: http://www.kinghost.com.br/
PAra acessar o sistema o login é: admin e a senha: 123

Verifiquem que na pagina principal não aparece o nome de quem esta logado: Bem Vindo,
e automaticamente a pagina é direcionada automaticamente para a pagina login(index.php) novamente.

Abraços.

Vbscript Com Html + Sup Do Asp?

05/02/2010, 14:54

Olá pessoal, boa tarde!
Preciso utilizar o VBscript em uma aplicação que roda no IE, porem estou com dificuldade.
Irei colocar abaixo um script simples que funciona normalmente.
A ideia do script abaixo é que enquando o usuario está em frente a tela aguardando apareça uma imagem em tela informando isso (loading...)
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style>
	#loading{
		text-align:center;
		position:absolute;
		top:6%;
		left:10%;
		font-family::Arial, Helvetica, sans-serif;
		font-size:12px;
		font-weight:bold;
		color:#666666;
	
	}
</style>

<title>:::...Digite o Numero - Gerando o numero de 0 até o numero digitado...:::</title>
</head>

<body>
<script language="vbscript">

Dim modelo

varNumero = InputBox("Entre com o numero: ")

if varNumero <> "" then
	//document.write("<div id='loading'><img src='figura/loading.gif' boder=0><br />Gerando os numeros de 0 ...</div>")
	varLoadingIMG = "<div id='loading'><img src='figura/loading.gif' boder=0><br />Gerando os numeros de 0 ...</div>"
	document.write(varLoadingIMG)

	For i = 1 to varNumero	
		MsgBox "Numero"& i
	Next
	
	Mens = MsgBox("Concluido!",64,"Mensagem")
	
End if	

</script>
</body>
</html>
Abaixo segue a minha aplicação de verdade, porem não funciona porque o ASP executa primeiro a SUB e assim não exibindo a imagem na tela informando para o usuario que as etiquetas estão sendo geradas.
<!-----#include file="includes/Extras.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Gera Etiqueta</title>
<style>
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #F3FBFE;
}
div{
	text-align:center;
	margin:auto;
	font-family:tahoma;
	font-size:16px;
	padding-top:20%;
	color:#0099CC;
	font-weight:bold;
}
</style>
<script>

function carregaIMG(){
// Pré-Carrega a imagem da ampulheta
amp = new Image();
amp.src = "figuras/ocupado_42.gif";
}

</script>
</head>

<body onload="carregaIMG()">

<div><img src="figuras/ocupado_42.gif" height="40"  /><br /><p>Gerando Etiquetas...</p></div>

<script language="vbscript">

Dim modelo

modelo = InputBox("Digite o modelo da Etiqueta:","GEtiqueta","Pimaco 6081/6181/6281 Branca")

if modelo <> "" then
	
	//gEtiqueta "SELECT top 10 nome, endereco, bairro, cidade, estado, cep FROM cadastro", ""&modelo&""
	gEtiqueta "<%=session("filtroSQL") %>", ""&modelo&""
	
	
	Mens = MsgBox("Concluido!",64,"Mensagem")
	
	Set wrd = CreateObject("Word.Application")
	wrd.Visible = True
	wrd.Documents.Open "C:\etiquetas.doc"
	Set wrd = Nothing

	
	window.close
else
	Mens = MsgBox("Precisa informar um modelo de etiqueta!",48,"Atenção")
	
	window.close
end if 

</script>

</body>
</html>
Desde já agradeço.

Como Forçar Downloads?

03/02/2010, 09:43

Consigo realizar o download das extensões DOC, XLS, porem as extensões ppt, pptm continua dando erro, pois além de não abrir no browser não permite o downloads.
        <% 
			i = 0
			do while not rs.eof
				i = 1 - i
		%>
        <tr class=gcpParImpar<%=i%> >
            <td valign="middle">							
				

				
	     'o link abaixo é o responsavel para direcionar para o arquivo desejado		  
             <a href='documentos/<%=rs.fields("nome")%>?arquivo=<%=rs.fields("nome")%>' target="_blank"><%=rs.fields("nome_orig")%></a>
				

				<!-- /background/html/teste/sistema/BAC54_arqareadocliente.asp, line 339 -->


			</td>
					
			<td>
				<% 
				'29/01/2010 - atenção, a variavel arquivo declarado no link acima não recebe o nome do arquivo
				'Response.Write arquivo & "Imprimindo o arquivo"
				'Response.End()
				'cria o objeto Scripting.FileSystemObject e atribui a variável objFSO
				Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
				
				'pega o caminho e características da pasta "documentos" e atribui a objFolder
				Set objFolder = objFSO.GetFolder(Server.MapPath("documentos"))
				
				'Escreve no navegador o caminho completo da pasta (Ex: E:\inetpub\wwwdata\background\html\Teste\sistema\documentos
				'Response.write objFolder.Path
				
                'Response.Write objFolder.Size & "em byte" 'Retorna o tamanho total da pasta, incluindo todos os seus arquivos.
			    Set fc = objFolder.Files
			    totalArq = fc.count
				
				tamArq = Server.MapPath (".") & "\" & objFolder.Name 
				'Response.Write(tamArq)
				Set arqObj = objFSO.GetFile(tamArq&"\"&rs.fields("nome"))
				'Response.Write round(arqObj.Size / 1024) & " KB"
				'varDataUacesso = varDataUacesso & arqObj.DateLastAccessed
				
				'imprimo o nome do arquivo.
				'Response.write arqObj.Name
				'Response.write objFolder.Name &"\"& arqObj.Name
				
				
			if Request("arquivo") <> "" then								
				'--------------------------------------------------------------------------
				Response.Buffer = True
				Dim strFilePath, strFileSize, strFileName
				
				Const adTypeBinary = 2
				
				'strFilePath = "C:\ whatever the path is "
				strFilePath = objFolder.Path
				'strFileSize = ... the size of file .. optional
				strFileName = arqObj.Name
				
				Response.Clear
				
				'8*******************************8
				' Requires MDAC 2.5 to be stable
				' I recommend MDAC 2.6 or 2.7
				'8*******************************8
				'Response.AddHeader "Content-Type","application/x-msdownload"
				Response.AddHeader "Content-Disposition","attachment; filename="&rs.fields("nome_orig")
				Set objStream = Server.CreateObject("ADODB.Stream")
				objStream.Open
				'objStream.Type = adTypeBinary
'				Response.Write arquivo & "Imprimindo o arquivo"
'				Response.End()
				objStream.LoadFromFile strFilePath
				
				strFileType = lcase(Right(strFileName, 4))
				
				
				' Feel Free to Add Your Own Content-Types Here
				Select Case strFileType
				Case ".asf"
				ContentType = "video/x-ms-asf"
				Case ".avi"
				ContentType = "video/avi"
				Case ".doc"
				ContentType = "application/msword"
				case ".ppt", ".pps",".pptm"
				'ContentType = "application/mspowerpoint"
				'ContentType = "application/vnd.ms-powerpoint"
				ContentType = "application/x-powerpoint"	
				'Informação sobre forçar o downloads em arquivo .txt
				'http://www.plugmasters.com.br/forum/lofiversion/index.php/t8047.html
				Case ".txt" 
				ContentType = "text/plain"
				Case ".zip"
				ContentType = "application/zip"
				Case ".xls"
				ContentType = "application/vnd.ms-excel"
				Case ".gif"
				ContentType = "image/gif"
				Case ".jpg", "jpeg"
				ContentType = "image/jpeg"
	
				Case ".wav"
				ContentType = "audio/wav"
				Case ".mp3"
				ContentType = "audio/mpeg3"
				Case ".mpg", "mpeg"
				ContentType = "video/mpeg"
				Case ".rtf"
				ContentType = "application/rtf"
				Case ".htm", "html"
				ContentType = "text/html"
				Case ".asp"
				ContentType = "text/asp"
				Case ".pdf"
				ContentType = "application/pdf"
				

				Case Else
				'Handle All Other Files
				ContentType = "application/octet-stream"
				End Select
				
				'Response.AddHeader("Content-type: Application/Octet-stream")
				'Response.AddHeader "Content-Disposition", "attachment; filename="& rs.fields("nome_orig")
				Response.AddHeader "Content-Length", strFileSize
				' In a Perfect World, Your Client would also have UTF-8 as the default 
				' In Their Browser
				Response.Charset = "UTF-8"
				Response.ContentType = ContentType
				
				Response.BinaryWrite objStream.Read
				Response.Flush
				
				objStream.Close
				Set objStream = Nothing
				
				'------------------------------------------------------------------------------
			End if
Possuo essa tela onde o usuario clica para realizar o downloads:
Posted Image

E abaixo é o erro gerado quando o usuario clica no link: 2009 -ceg na imprensa-dezembro.pptm, porem se o usuario clicar no link: arquivo do word - teste.doc automaticamente aparece uma janelinha perguntando se eu quero abrir, salvar ou cancelar.
Posted Image

Desde já agradeço.

  1. Fórum WMO
  2. → Viewing Profile: Tópicos: Martinsrj
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq