Ir para conteúdo
Fórum Script Brasil

Douglas Zacharias

Membros
  • Total de itens

    23
  • Registro em

  • Última visita

Tudo que Douglas Zacharias postou

  1. Opa! Consegui resolver o problema! MAS APARECEU OUTRO!!! hauahuahauhau. ngm merece... rs Seguinte: Eu estava declarando funções entre <% e %>. Descobri agora que preciso declarar minhas funções entre &lt;script runat=server> e </script>. Mas estou tendo um problema do além. Coisa do Jason: Server Error in '/' Application. -------------------------------------------------------------------------------- Compilation Error Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately. Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed. Source Error: Line 67: #End ExternalSource Line 68: Line 69: Public Sub New() Line 70: MyBase.New Line 71: Dim dependencies As System.Collections.ArrayList Source File: C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\61493785\e01aae32\ssallrlb.0.vb Line: 69 Tipo... tá dando erro em um arquivo .vb que o JASON criou, não EU!!! Nem tenho idéia de como arrumar. Segue meu código completo da página: <%@ Import namespace="System.Data" %> <%@ Import namespace="System.Data.OleDb" %> <%@ Page Language="VB" Debug="true" %> <% TERMINAL_ATRASADO("TA BELEM") TERMINAL_ATRASADO("TA OSORIO") %> &lt;script runat=server> Function TERMINAL_ATRASADO(TERMINAL) Dim Conn As OleDbConnection Dim strCaminho As String = Server.MapPath("siscope.mdb") Conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";") Conn.Open() Dim sql As New OleDbCommand("SELECT TEMPO_AGORA, TEMPO_PREVISTO, PIER, NAVIO, NOR, TEMPO_SOBREESTADIA, CUSTO_SOBREESTADIA From Sobreestadia where TA="& chr(34)&terminal &chr(34)&" ORDER BY TEMPO_SOBREESTADIA DESC", Conn) Dim reader As OleDbDataReader = sql.ExecuteReader() dim PIER, qcar, nterm2, NAVIO as String dim TSOB, CSOB as double reader.Read() response.write("label") QCAR=LEN(TERMINAL) QCAR=QCAR - 3 NTERM2=MID(TERMINAL,4,QCAR) NAVIO = reader(3).ToString() PIER = reader(2).ToString() TSOB = reader(5)*24 CSOB = reader(6) response.write(nterm2 & "= Navio " & NAVIO & " atracado no pier " & PIER & " com tempo de sobreestadia de " & TSOB & " ao custo de " & CSOB & ".&") </script>
  2. Falaê kuroi! Malz... Usei como exemplo somente, mas para desencargo de consciência verifiquei meu código e rodei uma página aspx com essa função sem espaço no nome da função. Deu o mesmo erro :( Server Error in '/' Application. -------------------------------------------------------------------------------- Compilation Error Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately. Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed. Source Error: Line 16: Line 17: <% Line 18: function TERMINAL_ATRASADO(TERMINAL) Line 19: dim terminal = "TA OSORIO" Line 20: Dim sql As New OleDbCommand("SELECT TEMPO_AGORA, TEMPO_PREVISTO, PIER, NAVIO, NOR, TEMPO_SOBREESTADIA, CUSTO_SOBREESTADIA From Sobreestadia where TA="& chr(34)&terminal &chr(34)&" ORDER BY TEMPO_SOBREESTADIA DESC", Conn) Source File: E:\wwwroot\Transpetro\Gasoduto\sobreestadia\a01\processamento.aspx Line: 18 Lembrando que minhas funções funcionavam perfeitamente em asp. :/
  3. Vlw galera! Esse é só um exemplo de função. Tenho várias funções de pesquisas em banco de dados, contas e etc... O meu maior problema é que ele reclama da linha Function. Segue o Erro: Server Error in '/' Application. -------------------------------------------------------------------------------- Compilation Error Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately. Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed. Source Error: Line 16: Line 17: <% Line 18: function TERMINAL ATRASADO(TERMINAL) Line 19: dim terminal = "TA OSORIO" Line 20: Dim sql As New OleDbCommand("SELECT TEMPO_AGORA From Sobreestadia where TA="& chr(34)&terminal &chr(34)&" ORDER BY TEMPO_SOBREESTADIA DESC", Conn) Source File: E:\wwwroot\Transpetro\Gasoduto\sobreestadia\a01\processamento.aspx Line: 18
  4. Mais problemas :( Eu usava muitas funções em ASP, por exemplo a seguinte: FUNCTION FORMATA_DATA_HORA(DATAHORA) if DATAHORA > 0 then valor = DATAHORA /24 dia = FormatNumber(valor,0) hora = valor - dia hora = hora * 24 if hora < 0 then dia = dia -1 hora = 24 + hora end if min = hora hora = FormatNumber(hora,0) min = min - hora min = 60 * min if min < 0 then hora = hora - 1 min = 60 + min end if min = FormatNumber (min,0) if min < 10 then min = "0"&min end if if dia >1 then response.write(dia&" dias") else if dia = 1 then response.write(dia&" dia") end if end if if hora>0 or min>0 then if dia>0 then response.write(", ") end if response.write(hora&":"&min&"h") else end if else response.write("ND") end if END FUNCTION Ela servia para me retornar a data formatada como "X dias, hh:mm" à partir de dias com decimais. Tem algum jeito de eu fazer assim na própria página aspx? como? se não tiver como, como deverei fazer? Abraços galera!
  5. Vlw meu brother! Mais uma etapa avançada (Já estou começando a me lembrar das aulas de vb 6 da escola técnica... rs) mais uma coisa: Nessas funções, eu puxava os dados dos campos da tabela usando RS2.FIELDS(x).VALUE onde x é a posição do campo na minha query. Como puxo agora? Abração!!!
  6. Fala galera! Estou penando aqui pra resolver essa questão da migração para asp.net. Como o tempo tá curto, estou mantendo em vb mas depois vou escrever em c#. Seguindo estou com um problema porque ele não aceita meu "set". A minha query era executada da seguinte forma: Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER=Microsoft Excel Driver (*.xls); ReadOnly=1; DBQ=" & Server.MapPath("SISCOPE.xls") SQL2 = "SELECT [TEMPO AGORA] From [Plan1$] where TA='"&TERMINAL&"'ORDER BY [TEMPO DE SOBREESTADIA AGORA] DESC" Set rs2 = conn.Execute(SQL2) IF NOT RS2.EOF THEN 'FUNÇÕES END IF Cheguei no seguinte ponto: <%@ Import namespace="System.Data" %> <%@ Import namespace="System.Data.OleDb" %> <% Dim objConn As OleDbConnection Dim strCaminho As String = Server.MapPath("siscope1.mdb") objConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";") objConn.Open() Dim SQL2 As String = "SELECT [TEMPO AGORA] From [Plan1$] where TA='"&TERMINAL&"'ORDER BY [TEMPO DE SOBREESTADIA AGORA] DESC" Como consigo navegar pelos registros como em destacado em vermelho acima , já que o asp.net não aceita set??? (Compiler Error Message: BC30807: 'Let' and 'Set' assignment statements are no longer supported.)
  7. Fala galera! Tenho um mc inserido no meu swf. Nesse mc, o primeiro frame tem um stop();. quero usá-lo como um botão, para que quando eu clique ele dê o play();. já tentei colocar uma action para esse botão mas eu clico e não aparece nada. como eu faço?
  8. RESOLVIDO!!!!!!!! uma coisinha pequena, mas que fez toda a diferença: em vez de cxtexto01.text, colocquei cxtexto01.htmlText. Valeu pela galera que vem me ajudando!!! Abraços
  9. Falaê!!! esse vai no frame 0: loadVariables("processamento.asp", "_root", "POST"); no frame correspondente vai: cxtexto01.text=label01; sendo cxtexto01 a instância da minha cx de texto e label01 a variável em processamento.asp O estranho é que abrindo o arquivo asp o arquivo está ok, com os links funcionando perfeitamente. já no swf aparece as tags html como texto comum. :/
  10. opa! consegui colocar aspas duplas. usei chr(34)!!! coloquei mas mesmo assim não funciona. o asp lê certinho mas quando o swf lê ele não entende as tags html e me retorna o código html. O texto que aparece é <a href="asdasda.htm">asdasdasd</a> porque isso? ah... e marquei "Render text as HTM" como você falou!
  11. valeu!!! mas tem duas coisinhas: como faço para retornar aspas duplas no asp? coloquei sem aspas e acontece que no texto aparece todo o código html. o texto ficou assim: <a href=blablabla.htm>dasjndajsdnaskj</a> se eu abrir o asp, os links funcionam perfeitamente, mas no swf nada de funcionar... ajuuudaaaa! hauahua vlw
  12. de nada! :D concordo... melhor o release. por isso deixei como opção na discriminação da função o release. Aí fica a critério do Rodrigo.
  13. É importante saber se é em AS2 ou AS3. Vou fazer um exemplo em AS2: em actions do botão, digitar: on (press){ getURL("http://www.google.com.br","_self"); } em on(press){ o press indica que o evento ocorrerá quando você clicar no botão com o mouse. você pode alterar esse evento para release (o evento acontecerá quando você soltar o botão do mouse após clicar sobre o botão) entre outros. em getURL("http://www.google.com.br","_self"); existe o endereço, no caso o google e depois o método para chamar o link. _self vai abrir o google na própria página. se usasse _blank abriria em uma página nova. OK? Quaisquer dúvidas... Abraços
  14. Como faço para esconder um botão. seria algo como visible=false? mas como?
  15. Fala galera! Tenho uma caixa de texto dinamico que exibe o texto provenienete do meu arquivo ASP. Até aí perfeito, o texto aparece certinho. Mas ele perde o link que tinha antes. eu configurei a caixa de texto para um link, mas quando ele recebe essas informações do asp o novo texto vem sem link. Recebo do asp: &status=blablabla& Aparece na caixa: blablabla como faço para esse texto vir com link??? vlw!!!
  16. valeu meu brother! seguinte... ainda não consegui, rs... mas com a sua ajuda to chegando lá. coloquei o seu código, substitui as arrays 'A','B','C','D' pelos nome dos meus symbols aqui só que não funciona. se invés de atachar eu carregar um mc externo funciona, mas pra symbol interno não funciona... O código que eu usei: _root.stop(); //DECLARAÇÕES var cond:Number=1; var bts:Array=new Array('btA','btB','btC','btD'); var reference:Array = new Array('sb1','sb2','sb3','sb4'); _root.createEmptyMovieClip('container',0); //FIM DECLARAÇÕES //---------------------------------- //FUNÇÕES function mudaCor(mc:MovieClip,num:Number) { _root.mc.attachMovie(reference[num],bts[num],this.getNextHighestDepth()); // ESSE ATTACH MOVIE não funciona //mc.loadMovie("brasil-3d.swf") // ESSE LOADMOVIE FUNCIONA PERFEITAMENTE } //FIM FUNÇÕES //---------------------------------- //INIT mudaCor(container,0);
  17. OPA! Eu já havia resolvido o problema, mas só achei esse meu post agora que fui na minha conta! As soluções que encontrei foram: Para buscar em campos que possuem espaços em seus nomes, coloquei os nomes entre [ ]. Para formatação de data e hora, inclui uma função no meu código: <% FUNCTION FORMATA_DATA_HORA(DATAHORA) if DATAHORA > 0 then valor = DATAHORA /24 dia = FormatNumber(valor,0) hora = valor - dia hora = hora * 24 if hora < 0 then dia = dia -1 hora = 24 + hora end if min = hora hora = FormatNumber(hora,0) min = min - hora min = 60 * min if min < 0 then hora = hora - 1 min = 60 + min end if min = FormatNumber (min,0) if min < 10 then min = "0"&min end if if dia >1 then response.write(dia&" dias") else if dia = 1 then response.write(dia&" dia") end if end if if hora>0 or min>0 then if dia>0 then response.write(", ") end if response.write(hora&":"&min&"h") else end if else response.write("ND") end if END FUNCTION %> Vlw galera! Que sirva para tirar a duvida de alguém! Abraços
  18. Opa! Estou usando AS2. Não consegui linkar exatamente o meu problema com a sua idéia. Vou tentar explicar melhor. É o seguinte: Tenho 20 botões animados no flash. Quando abro ele lê um arquivo .asp e retorna o status para cada botão. tipo: bt1=verde&bt2=amarelo&bt3=azul até aí tranquilo. Eu faço um stop no frame 1 e carrego as variáveis: stop(); loadVariables("processamento.asp", "_root", "POST"); as variáveis estão chegando belezinha, mas para teste eu não estou puxando do asp. estou declarando as variaveis. esses meus 20 botões estão com seus nomes como bt1, bt2, bt3 e assim por diante. já os meus "symbols" estão como sb1, sb2, sb3 e sb4 (são quatro status possíveis). preciso de algo como: mudar-symbol.botao-bt1.para-sb4. Cada botão recebe um status, podendo cada um receber qualquer desses 4 status. Pelo que entendi, esse codigo alteraria todos os meus botões ao mesmo tempo (TB LI QUE EU NÃO HAVIA MENCIONADO A NECESSIDADE DE STATUS INDIVIDUAL POR BOTÃO :/. Malzzzz)
  19. Fala galera boa! Esse é o meu primeiro post! Sou programador e não gosto de ficar trabalhando tanto no visual quanto o flash demanda. Mas trabalho é trabalho... Bem... depois da apresentação: Seguinte... a trancos e barrancos vou resolvendo minhas diferenças com o flash. rs Atualmente travei em uma etapa. Preciso variar a cor de meus botões de acordo com variáveis recebidas do meu arquivo asp. As variáveis estão chegando, já que existem alguns campos de texto que estão recebendo corretamente variaveis asp. Tenho duas possibilidades para fazer o que quero: Trocar a cor do meu botão (mais daria mais trabalho por ser dois poligonos agrupados e degradês) ou trocar o simbolo. Criei simbolos das 4 cores que preciso. Quero que na inicialização do flash o asp seja lido (isso eu consegui fazer! :closedeyes: ) e os meus botões se alterem para o simbolo apropriado. Simbolo padrão: Tanque Simbolo cor 1: ATanque Simbolo cor 2: BTanque Simbolo cor 3: CTanque alguém tem alguma idéia? Não sei se fui sucinto suficiente, mas perguntem se for o caso. Já agradecendo imensamente a ajuda, Doug
  20. Fala galera! Estou fazendo uma query em cima de uma planilha excel. Até agora está tudo ok, mas não consigo maneira de buscar em um campo que possui espaço no nome. Outra coisa. Quando pesquiso data aparece 1/1/1900 4:34 em vez de 28:34. Como faço pra corrigir? Vlw!
  21. opa! escrevi assim: SQL= "Select Pier,NOR From [Plan1$] where TERMINAL='"&VARIAVEL&"'" e funcionou!
  22. Fala galera! Meu primeiro post! Me formei como tecnico de informatica em 2001, mas desde a época não trabalhei com programação. estou relembrando asp e queria alguma ajuda se possível. Minha dúvida: >> Como faço para mudar a constante BELEM por uma variável ? SQL= "Select Pier, NOR From [Plan1$] where TERMINAL='BELEM'" Assim funciona perfeitamente Mudei assim: SQL= "Select Pier, NOR From [Plan1$] where TERMINAL="VARIAVEL SQL= "Select Pier, NOR From [Plan1$] where TERMINAL=VARIAVEL" Todas estão dando erro (500 Internal error). SOS!!!
×
×
  • Criar Novo...