Prof. Jonatas
Membros-
Total de itens
221 -
Registro em
-
Última visita
Tudo que Prof. Jonatas postou
-
Estava com o mesmo problema, só acrescentei: Funcionou
-
Então bareta, enquanto a este assunto consegui resolver com o POST no próprio GET URL. Ficou assim: getURL("cadastro3.asp", 0,"POST") valeu pela força mano, brigadão mesmo ! :rolleyes: valeu !!!! É nóis !!! :ninja:
-
Bom dia Galera, Não to conseguindo de jeito nenhum mandar uma variável para uma página ASP e que esta mesma página seja executada com a variável como um valor. Ou seja, quando eu digito o nome no login do flash, eu quero abrir a página de cadastro de clientes listando apenas o conteúdo deste nome que eu digitei. Na hora de selecionar a tabela, vou colocar um exemplo abaixo que funciona perfeitamente sem a interação com o flash: nome = "Fulano" RS_Max.Open "SELECT * FROM servicos where cliente= '"&nome&"' ", Conn Ou seja na hora que abro a página funciona certinho, ele me mostra todos os serviços do cliente " fulano ". Mas quando eu peço para abrir buscando esta variável da página anterior que está em flash não rola, no código ASP ta assim: RS_Max.Open "SELECT * FROM servicos where cliente='" & request("nome") & "'", Conn Ao meu ver este código está correto, mas não consigo mandar a variável e executar a página dando o comando pelo flash. A ação do meu botão no flash é esta: if (success) { if (this.varAccess == "ok") { loginMessage.text = "Acesso Permitido"; nome = username_field.text; senha = password_field.text; // (1º ou 2º opção) Aí eu tenho dúvida em qual ação devo usar para mandar, já tentei usar as duas formas a seguir e nenhuma funciona: 1º opção loadVariablesNum("cadastro2.asp", 0,"POST") Esta aparece na barra de status que está carregando os dados, acho q envia as variáveis mas continua na mesma página. 2º opção getURL("cadastro2.asp") Esta abre a página cadastro2, mas ela fica em branco ou seja é como se a variável nome não tivesse vindo. Já tentei usar até as 2 opções, primeiro o lad e depois o geturl, rs, também não rola. :mellow: Galera alguém sabe me dizer oque estou fazendo de errado!!!?????? Eu acho que não é nenhuma destas duas ações mas eu não sei qual éh Alguémmmm pode me ajudarrrr por favor !????????? :blink: valeu galera, té +
-
Bom dia Galera, Não to conseguindo de jeito nenhum mandar uma variável para uma página ASP e que esta mesma página seja executada com a variável como um valor. Ou seja, quando eu digito o nome no login do flash, eu quero abrir a página de cadastro de clientes listando apenas o conteúdo deste nome que eu digitei. Na hora de selecionar a tabela, vou colocar um exemplo abaixo que funciona perfeitamente sem a interação com o flash: nome = "Fulano" RS_Max.Open "SELECT * FROM servicos where cliente= '"&nome&"' ", Conn Ou seja na hora que abro a página funciona certinho, ele me mostra todos os serviços do cliente " fulano ". Mas quando eu peço para abrir buscando esta variável da página anterior que está em flash não rola, no código ASP ta assim: RS_Max.Open "SELECT * FROM servicos where cliente='" & request("nome") & "'", Conn Ao meu ver este código está correto, mas não consigo mandar a variável e executar a página dando o comando pelo flash. A ação do meu botão no flash é esta: if (success) { if (this.varAccess == "ok") { loginMessage.text = "Acesso Permitido"; nome = username_field.text; senha = password_field.text; // (1º ou 2º opção) Aí eu tenho dúvida em qual ação devo usar para mandar, já tentei usar as duas formas a seguir e nenhuma funciona: 1º opção loadVariablesNum("cadastro2.asp", 0,"POST") Esta aparece na barra de status que está carregando os dados, acho q envia as variáveis mas continua na mesma página. 2º opção getURL("cadastro2.asp") Esta abre a página cadastro2, mas ela fica em branco ou seja é como se a variável nome não tivesse vindo. Já tentei usar até as 2 opções, primeiro o lad e depois o geturl, rs, também não rola. :mellow: Galera alguém sabe me dizer oque estou fazendo de errado!!!?????? Eu acho que não é nenhuma destas duas ações mas eu não sei qual éh Alguémmmm pode me ajudarrrr por favor !????????? :blink: valeu galera, té +
-
Olá Bareta, No caso onde eu mudo essa parada ????? Eu pesquisei na internet sobre o método cdosys e todos aparecem igual ao meu atual: Set MyMail = CreateObject("CDO.Message") Detalhe: a variável não está vazia porque a função MyMail.ReplyTo = MyEmail funciona perfeitamente. Se clicar em responder vai para o email certo, então significa que a informação ta chegando néh!? E sobre o ASP enviar uma resposta para o flash executar uma ação, alguma idéia ????? Abçs, valeu pela força
-
Boa tarde galera, tenho um código em ASP que envia um e-mail com os dados preenchidos de um formulário em flash. Utilizo o método CDO. 1º Minha dúvida é a seguinte, porque eu não consigo colocar como remetente a pessoa que preencheu o formulário ???? No caso seria a variável : MyEmail Quando coloco: MyMail.From = MyEmail O Email não é enviado, não funciona mais. Para burlar este problema eu coloquei meu próprio email como remetente, aí funciona, mas não é correto meu cliente ta questionando porque não chega como se tivesse enviado pela pessoa q preencheu o formulário. Segue abaixo o código: 2º Minha outra dúvida é, como disparar uma chamada de ação no flash. No caso a unica coisa q acontece é que no campo mess paraece, Thank you, nome da pessoa. Gostaria de enviar para o flash alguma coisa para o flash execultar qualquer ação, aí lá dentro do flash eu resolvo o que fazer com esta resposta porque eu quero limpar os campos após o envio ou fazer com que o botão fique inativo, qualquer coisa. A questão é que se eu repetir o comando Response.Write mandando tipo um "oK" para outro campo, este ok entra dentro do mesmo campo mess. Me dando uma resposta do tipo: Thank you, nome da pessoa. contact0.mess2=ok :blink: Fica tudo junto. Alguém sabe me dizer como faço para disparar um evento lá no flash após o envio ??????? :wacko: Aguardo respostas. valeu galera, té +
-
Dúvida com Resize - AS2
pergunta respondeu ao Prof. Jonatas de Prof. Jonatas em Flash & ActionScript
Resolvido ! Ao invés de eu carregar as imagens em um mc já existente no caso "alvo", eu carrego em um novo mc criado em as com "createEmptyMovieClip". Aí carrega certinho independente do ajuste da janela, se está restaurada, maximizada e etc.... Até + :rolleyes: -
Dúvida com Resize - AS2
pergunta respondeu ao Prof. Jonatas de Prof. Jonatas em Flash & ActionScript
Galera a função de Resize na imagem estava errada, não calculava direito a proporção. Havia um outro problema que é quando a imagem estava ficava menor que 80% de largura da tela e altura maior, a altura ultrapassava a tela, oque não é o objetivo, independente da imagem q abrir eu quero que sobre sempre uma margem de segurança a imagem não pode ultrapassar a mesma. Segue abaixo apenas a função corrigida, há me ajudem no item de cima por favooorrrr.... quando dou um resize antes de qualquer coisa as imagens não carregammmmm !!!!::: valeu galera, continuo aguardando respostas!!!! -
Galera, Montei um script que carrega as imagens e ajusta de acordo com o tamanho da tela do usuário. Se o usuário der um resize na tela depois que a imagem já está aberta, legal, ele executa a função e funciona certinho. Mas acontece o seguinte, se o usuário dá um resize primeiro e depois abre a imagem a mesma não carrega. Não consigo corrigir este erro nem por reza braba, para visualizar o exemplo segue link: http://www.i9ideias.com.br/dani3 Segue abaixo o código, lembrando que a função que ajusta o tamanho da imagem chama-se: minhaFuncao() a mesma está sendo chamada dentro do resize. Eu pesso para a imagem ser aberta fora do palco na função acbt(), em sw e sh e dou um setTimeout, porque a imagem quando é carregada ela vem com os tamanhos 0 (zero), só depois de um tempo ela fica com o tamanho original, então eu do um tempo de 3 mile segundos pra execultar a função minhaFuncao() que reajusta o tamanho da imagem e centraliza. Segue abaixo o código: Alguém saberia me dizer por favor porque se eu der um resize antes de abrir a imagem ela não carrega !!!??????? :blink: valeu galera. Este código só tem este pauzinho, serve para alguém que precise trabalhar com site 100% da tela e imagens centralizadas. No meu conceito ta bem elaborado, está livre pra copiarem aí, bom proveito. E se possível, me ajudemmmmm por favoooooorrrrr !!!!!!!!! :rolleyes: Aguardo respostas.
-
Boa tarde Galera, Estou tentando fazer um banco de Imagens em AS3. A lógica q estou usando é a seguinte: Se o código encontrar a img 1 ele dá um tempo e localiza a 2, quando eu fiz sem o tempo, ele localiza automático e não na ordem como está o código. Ou seja se ele não carregar o botão 1 não tem como ele carregar o dois, porque um usa a posição do outro. Queria saber se há outra forma de fazer este código. Lógica Se a imagem 1 for localizada, mostrar o botão 1. Se a imagem 2 for localizada, mostrar botão 2 acima do botão 1. E assim vai. :wacko: Este código q eu fiz está me dando muito problemas: O primeiro é q eu não consigo brecar a leitura do código se ele não encontrar a imagem X. A segunda é que eu preciso das as ações no botão para carregar a imagem, mas a anterior que estava sendo exibida precisa sumir ( descarregar ) Segue abaixo o código para que entendam oque eu expliquei, se alguém souber um outro jeito para eu fazer esta parada eu agradeço muito, segue: Aguardo galera, por favor me ajudem. :wub: Este é um banco de imagem que preciso fazer meio urgente. Abçs
-
Imagem do tamanho do palco
pergunta respondeu ao Prof. Jonatas de Prof. Jonatas em Flash & ActionScript
Resolvido, Coloquei a imagem dentro de um mc e deu tudo certo, segue o código: -
Simples assim como no título: sw = stage.stageWidth carregador.width = sw Algém sabe me dizer porque não funciona ????? Quando dou um trace para ver o tamanho da imagem q foi carregada ele me retorna como zero. :angry: A parte em que eu tento colocar a imagem com o tamanho do palco está comentado pois quando eu deixo no As a imagem não aparece. Segue abaixo meu código para verem: Fico aguardo uma resposta, valeu galera! :blink:
-
valeu Cara, funcionou!
-
Galera, é assim. Eu já tenho o código de envio de formulário do flash em AS3 + PHP e ASP também. Mas preciso que os dados sejam armazenados em um banco de dados antes do envio, alguém sabe como posso iniciar este código ou tem algum exemplo onde explica como se faz isto ???? :huh: Aguardo. valeu :blush:
-
Site em Flash compatível com qualquer monitor
pergunta respondeu ao mrg de Prof. Jonatas em Flash & ActionScript
Cara é difícil adaptar um site já criado para se auto-ajustar em qualquer resolução, você teria que já criar o site usando as opções. Os objetos ficam soltos na tela organizados com AS. Dá uma procura como "Resize AS3". Abçs -
Estou trabalhando com AS3, tem um código na página que faz alguns objetos trocarem de cores, este código carrega as funções da Main.as ( eu acho ), não foi eu q desenvolvi, por isso a maior dificuldade. Mas então, eu preciso colocar um código nesta página para carregar um swf externo, mas dá erro na página. Tentei fazer a mudança de páginas através de cenas, colocar cada conteúdo em sua cena separadamente, mas dá pau no menu, não sei se é porque dentro do filme tem um código que carrega o as da barra de rolagem e usa mask e tudo mais, só sei q fica com bug, as vezes aparece a mascara e dependendo da cena q eu estou alguns botões simplesmente param de funcionar, então a melhor solução q acho q tenho a fazer é dividir em filmes diferentes, mas não consigo colocar o código pra carregar. Quando eu coloco o código no quadro, as funções da mudança de cor que está em arquivo AS separado param de funcionar, e quando tento colocar o código dentro do AS externo que também muda de cor, me dá um erro no URLRequest. Segue abaixo o código do arquivo AS que muda a cor: package { import com.greensock.*; import com.greensock.plugins.*; import flash.display.* import flash.events.* import flash.text.* public class externalColor extends MovieClip { public function externalColor() { } public function setColor(e:String) { TweenPlugin.activate([TintPlugin]); TweenLite.to(titulo_txt, 1, {tint:e}); TweenLite.to(icone_mc, 1, {tint:e}); TweenLite.to(icone2_mc, 1, {tint:e}); TweenLite.to(blmenu, 1, {tint:e}); TweenLite.to(scrollbar.ruler.center, 1, {tint:e}); } } } Agora segue código que eu fiz para a mudança de swf: var carregar:Loader = new Loader(); var url:URLRequest = new URLRequest("teste.swf"); carregar.load(url); carregar.x = carregar.y = 0; teste.addEventListener(MouseEvent.CLICK, callNextFrame) function callNextFrame(e:MouseEvent):void { addChild(carregar) } E sempre dá erro, aparece a mensagem de erro: 1046: Type was not found or was not a compile-time constant: URLRequest 1180: Call to a possibly undefined method URLRequest. Alguém saberia me ajudar por favor ??????? :wacko: valeu galera, aguardo respostas. Té +
-
Ao longo da programação são vários on error resume next que se encontra, devo remover todos ?
-
Olá Bareta, obrigado pela força... Aparece este erro: Erro no Sistema! N°. do erro:424 Descrição do erro:Object required Se você estiver inserindo dados em sua loja NÃO use: aspas simples ('), barra (/) e parêntes (()) Voltar para página anterior
-
Galera, Não consigo colocar um novo campo no cadastro do produto no sistema virtualstore. :unsure: O campo seria de imagem, igual aos campos, imagem grande, imagem pequena. Para quem não conhece este sistema, estes campso são de bt para anexar arquivo, aí o sistema faz o upload da img para a pasta certa. Estou tentando colocar um novo campo deste, aluém pode me dizer o que estou fazendo de errado !? :blink: valeu galera segue abaixo o código, espero que alguma alma caridosa consiga me ajudar, rs. Segue: infnut = Trim(UploadRequest.Item("infnt").Item("Value")) If parcelamento = "v" Then juros = "0" Else juros = juros End If If nome = "" Or peso = "" Or precov = "" Or precon = "" Or parcelamento = "" Or juros = "" Or juropor = "" Or fabricante = "" Or descricao = "" Or estoq = "" Or figurg = "" Or figurp = "" Or infnut = "" Then If parcelamento = "" Then erro14 = "sim" Else erro14 = parcelamento End If If juropor = "" Then erro13 = "sim" Else erro13 = juropor End If If categ = "" Then erro10 = "sim" Else erro10 = categ End If If estoq = "" Then erro11 = "sim" Else erro11 = estoq End If If figurg = "" Then erro8 = "sim" Else erro8 = figurg End If If figurp = "" Then erro9 = "sim" Else erro9 = figurp End If If nome = "" Then erro1 = "sim" Else erro1 = nome End If If peso = "" Then erro2 = "sim" Else erro2 = peso End If If precov = "" Then erro3 = "sim" Else erro3 = precov End If If precon = "" Then erro4 = "sim" Else erro4 = precon End If If fabricante = "" Then erro5 = "sim" Else erro5 = fabricante End If If descricao = "" Then erro6 = "sim" Session("adm_descprod") = "" Else Session("adm_descprod") = descricao End If If juros = "" Then erro12 = "sim" Else erro12 = juros End If Response.Redirect "?link=produtos&acao=inserir&erro14=" & erro14 & "&erro88=" & erro88 & "&erro99=" & erro99 & "&erro10=" & erro10 & "&erro11=" & erro11 & "&erro12=" & erro12 & "&erro13=" & erro13 & "&erro1=" & erro1 & "&erro2=" & erro2 & "&erro3=" & erro3 & "&erro4=" & erro4 & "&erro5=" & erro5 & "&erro6=" & erro6 & "&erro8=" & erro8 & "&erro9=" & erro9 End If strString = descricao strString = Codifica(strString) descricao = "" descricao = strString Set selectfig = conexao.Execute("SELECT * FROM produtos WHERE imgra = '" & FileName & "';") ContentType = UploadRequest.Item("figurag").Item("ContentType") filepathname = UploadRequest.Item("figurag").Item("FileName") FileName = Right(filepathname, Len(filepathname) - InStrRev(filepathname, "\")) Set selectfig = conexao.Execute("SELECT * FROM produtos WHERE imgra = '" & FileName & "';") Value = UploadRequest.Item("figurag").Item("Value") Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") numero1 = instrrev(Request.servervariables("Path_Info"), "/") var3 = left(Request.servervariables("Path_Info"),numero1) Set MyFile = ScriptObject.CreateTextFile(Server.mappath(var3) & "\produtos\g_" & FileName) For i = 1 To LenB(Value) MyFile.Write Chr(AscB(MidB(Value, i, 1))) Next MyFile.Close contentType2 = UploadRequest.Item("figurap").Item("ContentType") filepathname2 = UploadRequest.Item("figurap").Item("FileName") filename2 = Right(filepathname2, Len(filepathname2) - InStrRev(filepathname2, "\")) value2 = UploadRequest.Item("figurap").Item("Value") Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") numero2 = instrrev(Request.servervariables("Path_Info"), "/") var32 = left(Request.servervariables("Path_Info"),numero2) Set MyFile2 = ScriptObject.CreateTextFile(Server.mappath(var32) & "\produtos\p_" & filename2) For i = 1 To LenB(value2) MyFile2.Write Chr(AscB(MidB(value2, i, 1))) Next MyFile2.Close contentType3 = UploadRequest.Item("infnt").Item("ContentType")filepathname3 = UploadRequest.Item("infnt").Item("FileName") filename3 = Right(filepathname3, Len(filepathname3) - InStrRev(filepathname3, "\")) value3 = UploadRequest.Item("infnt").Item("Value") Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") numero3 = instrrev(Request.servervariables("Path_Info"), "/") var33 = left(Request.servervariables("Path_Info"),numero3) Set MyFile3 = ScriptObject.CreateTextFile(Server.mappath(var33) & "\produtos\n_" & filename3) For i = 1 To LenB(value3) MyFile3.Write Chr(AscB(MidB(value3, i, 1))) Next MyFile3.Close textosql = "INSERT INTO produtos (nome, fabricante, detalhe, preço, precovelho, parcela" _ & ", juro, aomes, estoque, idsessao, data, peso, imgra, impeq, iminf, status) VALUES ('" & nome & "', " _ & "'" & fabricante & "', '" & descricao & "', '" & precon & "', '" & precov & "', '" & parcelamento & "'" _ & ", '" & juros & "', '" & juropor & "', '" & estoq & "', '" & categ & "', '" & dia & "/" & mez & "/" & Year(Date) & "'," _ & " '" & peso & "', 'g_" & FileName & "', 'p_" & filename2 & "', 'n_" & filename3 & "', 'não')" Set gravaprod = conexao.Execute(textosql)
-
Oi Silvio, também estou trabalhando com o sistema virtuastore está acontecendo o mesmo comigo se eu conseguir solucionar te aviso. Peço por genteleza que me avise também caso consiga. Aproveito o tópico para deixar uma dúvida também, não sei se você está fazendo manutenção também mas lá vai: Estou colocando um campo á mais no cadastro de produtos, um campo de imagem, igual imagem grande, imagem pequena, seria mais um jpg. Não to conseguindo, irei postar o código em um novo tópico, caso já tenha passado por isso peço sua ajuda. Segue link do tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=147119 Abçs
-
Bom galera baixei uma loja virtual que tem um arquivo chamado config.asp, para poder mudar a configuração, tipos de conexões etc. Gostaria de saber qual linha devo alterar para a loja funcionar corretamente em um servidor IIS. Já publiquei a loja na web : http://www.i9ideias.com.br/lj01 funciona corretamente, mas qd é para rodar local em IIS não funciona. Segue abaixo o código da página config.asp espero q alguém possa me ajudar. Espero q alguém possa me ajudar, valewsssssssssssss
-
Boa tarde galera. To quebrando a cabeça pra personalizar o DANFE da nossa NF-e ( Nota Fiscal Eletrônica ), e não to conseguindo. É o seguinte, eu só quero personalizar o DANFE, é como se fosse um relatório. Eu já desmbembrei o programa da receita, o arquivo do DANFE é o EmitirDanfeGUI.java Preciso de um programa q abra a intergace desta página para eu poder só alterar as posições dos campos. Já tentei com Eclipse mas não consegui, não sei usar, baixei o JFrameBuilder mas ele diz q não suporta a versão do arquivo EmitirDanfeGUI.java. Não sei mais como resolver. Já tentei de tudo na internet não encontro nada q mostre como personalizar o DANFE, só fala q é possível mas não mostra como o fazer. Alguém pode me ajudar neste caso ? alguém já conseguiu personalizar o DANFE do programa emissor gratuito da receita? Ajudem por favor ! Obrigado
-
Voltando ao erro da condição: Descobri o que estava acontecendo de errado. O campo da segunda condição é XML da nf-e. Ou seja meu sistema é um sistema de acompanhamento de produção ou seja, a nota fiscal é o ultimo campo a ser preenchido. Eu inocentemente não coloquei este campo no cadastro do pedido, coloquei apenas na página de edição. Ou seja, quando cadastrava este campo xml ia com um valor padrão q não sei qual é, só sei a programação não entendia como vazio, quando pedia para editar este pedido e salvava, ele já entendia como vazio e funcionava. A solução foi colocar este campo no cadastro do pedido para que seja preenchido ( mesmo q vazio ) no cadastro do pedido. Agora a programação está perfeita e entende o campo como vazio. Segue abaixo o código, espero q isto possa ajudar alguém ainda porque quebrei a cabeça: 1º condição <%=rs_max("CodigoRastreamento")%> <%rs =rs_max("CodigoRastreamento") if rs="" then response.write"Aguardando" %> <%else response.write" <a href=#><img src=img/corre.jpg width=89 height=19 border=0 onClick=MM_openBrWindow('http://websro.correios.com.br/sro_bin/txect01$.startup?P_LINGUA=001&P_TIPO=001','','scrollbars=yes,width=550,height=400')></a></font></b></font>" end if %> 2º condição <% Dim rsl rsl=rs_max("xmlnf") if rsl="" then response.Write("Aguardando") else response.Write("<a href='http://www.begbrasil.com.br/xml/"&rsl&"'><img src='http://www.begbrasil.com.br/prod2/img/down_xml.jpg' border=0></a>") end if %> Quem quiser conhecer o sistema é só acessar: http://www.begbrasil.com.br Na página inicial clique em acompanhar a produção do seu pedido. Teste Usuário : scriptbrasil código : 12059 Qualquer dúvida sobre este sistema, me comuniquem. Obrigado pela ajuda ! :rolleyes:
-
no código da página coloquei certo, é que tive q redigir aqui por isso ficou assim, mas no meu código está correto.