Ir para conteúdo
Fórum Script Brasil

Flávia Dirk

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    11

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Flávia Dirk

  1. Fechar janela ...

    em Ajax, JavaScript, XML, DOM

    Postado · Editado por Flávia Dirk

    Jonathan não funcionou =/ ...

    Vou postar o código q estou trabalhando (mostrar_ppt.asp):

    <script LANGUAGE="VBScript">
<%
dim chamada
chamada=limpaHTML(request.querystring("chamada"))
dim projeto
projeto=limpaHTML(request.querystring("projeto"))
dim obra
obra = limpaHTML(request.querystring("obra"))
select case chamada

'pega  informações das obras
aux_limpa_espacos = limpa_espacos("select campos from tabela where Chamada & Projeto & obra='" & chamada & projeto & obra & "';")
readsql (aux_limpa_espacos)
lixo = le_arquivo (tabela & ".txt", "    ")
if dados_size>0 then %>

    Dim objPPT
    Dim myPPTDoc

    Set objPPT = CreateObject("PowerPoint.application")
    objPPT.Visible = True 
    Set myPPTDoc = objPPT.presentations.open("\\diretorio\Ficha5mi.ppt")

    objPPT.ActiveWindow.Selection.SlideRange.Shapes("Título 3").Select
    objPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    objPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start=18, Length=0).Select
    With objPPT.ActiveWindow.Selection.TextRange
        .Text = "<%=dados(1,2) & " - " & dados(1,6) & " - " & dados(1,3) %>"
    End With

    objPPT.ActiveWindow.Selection.SlideRange.Shapes("Text Box 51").Select
    objPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    objPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start=1, Length=1).Select
    With objPPT.ActiveWindow.Selection.TextRange
        .Text = "<%=dados(1,6) %>"
    End With
[...]
   ' Release the memory to PPT
   Set objPPT = Nothing

<%
end if
%>
</script>
</head>
<body>
'SÓ APARECE QUANDO O PPT ESTÁ ABERTO
<h3>Processo finalizado!</h3>

<form method="post" action="fechar.asp">
<div><h3><font color="#0D3F99"><input type="submit" value=" fechar " class="btsubmit"></h3></font>
</form>
</body>
    Referência ao botão q abre o mostra_ppt.asp (principal.asp): 
    function mostra_ppt(projeto,chamada,obra)
 {
 ref_minha_janela3 = window.open("http://diretorio/mostra_ppt.asp?projeto=" + projeto + "&chamada=" + chamada + "&obra=" + obra, "minha_janela", "menubar=no,location=no,resizable=no,scrollbars=no,status=no,width=200,height=90,top=200,left=450,dependent=yes,dialog=yes");
 }

    Observe q o texto q consigo mostrar só parece no final, quando o ppt já está aberto.

    Como poderia mostrar alguma coisa na página q abre enquanto o código roda?????

  2. Fechar janela ...

    em Ajax, JavaScript, XML, DOM

    Postado

    Funcionou Jonathan!!

    Dúvida:

    Quando abro a página para rodar o código da automação OLE (vbscript), fica uma página em branco. Tentei colocar algo no <body> mas só aparece quando o ppt já abriu. Aí já não serve para nada já q quando o ppt abre fizemos q a página feche.

    Problema:

    O código do vbscript roda 1º q o html, teria como chamar o html, como um texto, por exemplo, dentro do vbscript?!?!?!

    OBS.: caso essa continuação não se enquadre nesse fórum, me avisem onde devo abrir um novo tópico.

    Obrigada!

  3. Fechar janela ...

    em Ajax, JavaScript, XML, DOM

    Postado

    Desculpe, por trabalhar com páginas .asp coloquei minha dúvida lá.

    Vou testar. Mas o problema é o da página principal saber quando deve fechar a outra, já q não terá como saber quando o código haverá terminado.

    relembrando: na página principal clico em um botão q abre uma página em branco q gera uma código OLE no power point, consequentemente abre um ppt. Mas ao abrir o ppt e preencher td a tal página em branco fica aberta no meio do nada. Gostaria de fechá-la.

  5. Fechar janela ...

    em Ajax, JavaScript, XML, DOM

    Postado

    Oi pessoal!

    Ao clicar em uma figura eu chamo o java script:

    <script language="javascript">
 var ref_minha_janela;

function mostra_ppt(projeto,chamada,obra)
 {
 ref_minha_janela = window.open("http://caminho/mostra_ppt.asp?projeto=" + projeto + "&chamada=" + chamada + "&obra=" + obra, "minha_janela", "menubar=no,location=no,resizable=no,scrollbars=no,status=no,width=800,height=600,dependent=yes,dialog=yes");
 }

    Na página mostra_ppt.asp roda uma automação OLE em um power point (onde trabalho com 'VBScript' e <% %>).

    Mas quando o código termina e o power point abre, a página q foi aberta fica na frente de td.

    Gostaria de saber como posso fechar essa página automaticamente?

  7. Página não encontrada..

    em ASP

    Postado

    Consegui puxar o nome do arquivo pelo:

    "(fs.GetFileName(file))"

    Erro: O arquivo existe mas o código está dizendo q não

    dim RAC
dim idRAC
dim espaco
dim teste

RAC = "\\SS\Bs_publico$\Teste\intranet\documentos\RAC" & dados(k,3) & dados(k,1)& ".doc"

idRAC = "RAC" & dados(k,3) & dados(k,1) & ".doc"

Set fs=Server.CreateObject("Scripting.FileSystemObject")

if not (fs.FileExists(RAC)=true) then
Response.Write("não existe")
else

teste = (fs.GetFileName(RAC))

if teste = idRAC then

espaco = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.Write("<td><a href='" & RAC & "'  id='" & idRAC & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>")    

end if
    
end If
set fs=nothing

    São ao td 20 contratos, o 1º existe um doc. Mas esse código acima está dizendo q nenhum existe. O q pode estar acontecendo?!?!?!

  8. Página não encontrada..

    em ASP

    Postado · Editado por Flávia Dirk

    Dúvida:

    dim RAC
dim idRAC
dim espaco
dim teste

RAC = "\\SS\Bs_publico$\Teste\intranet\documentos\RAC" & dados(k,3) & dados(k,1)& ".doc"

idRAC = "RAC" & dados(k,3) & dados(k,1) & ".doc"

Set fs=Server.CreateObject("Scripting.FileSystemObject")

teste = (fs.FileExists(RAC))

if teste = idRAC then
espaco = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.Write("<td><a href='" & RAC & "'  id='" & idRAC & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>")    
else
'não mostra nada    
end If

set fs=nothing

    Baseado na minha idéia postada acima.

    No momento estou com somente um arquivo existe, referido ao 1º contrato. Então pela lógica o 1º contrato deveria mostrar o "botão" (imagem) para clicar e abrir o documento.

    Erro: o código acima está tirando a imagem de todos.

    O q está errado nele?!?!!

  9. Página não encontrada..

    em ASP

    Postado

    Oi Jow! Pensei melhor e a idéia do Bareta fica ótima junto a tua!

    Aí ficaria assim:

    Pretendo colocar em cada imagem um id com o mesmo nome do arquivo q pretendo abrir.

    Quando a página for aberta irei listar todos os arquivos existentes, se caso o id da imagem não bater com o com algum arquivo não mostrarei akela imagem.

    Vou testar os seus códigos e já volto para postar o resultado (dúvida ou solução) =]

  10. Página não encontrada..

    em ASP

    Postado · Editado por Flávia Dirk

    Oi gente! Obrigada pela ajuda!!

    Mas tenho uma dúvida, como ficaria isso no response.write???

    Coloquei com o exemplo do Jow:

    teste = "<td><a href='"
                     if Not (fs.FileExists(camCont)=true) then 
                          teste=teste & "#"'><img src='relatorio3.gif' alt='Relatorio'></a></td>")
                     else 
                          teste=teste & camCont & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>")
     end if        

Response.Write (teste)
    if Not (fs.FileExists(camCont)=true) then 
    camCont = "#"
else 
    camCont = camCont
end if
Response.Write    
("<td><a href='" & camCont & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>")

    Fiz com o código do Rafael também, na mesma colocação. Mas em nenhum dos 2 aparece a figura. Assim q você abre a página as figuras não aparecem

    A imagem a ser clicada tem q aparecer sempre, e a verificação só será rodada quando clicarem na imagem.

    OBS.: a minha página mostra todos os contratos (principais dados) q tenho (q nem um form contínuo) do lado de cada contrato tem uma imagem q abre o contrato em word. É esse o meu caso, caso o contrato não exista em word gostaria q não acontece nada, no lugar de ficar abrindo a "Página não pode ser exibida".

  11. Página não encontrada..

    em ASP

    Postado

    Oi!!

    Estou trabalhando com o seguinte exemplo:

    dim camCont   
  
camCont = "\\SS\Bs_publico$\Teste\intranet\documentos\RAC" & dados(k,3) & dados(k,1)& ".doc"   
  
Response.Write    
("<td><a href='" & camCont & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>")

    Ao clicar na imagem abre um doc em word nomeado pelos dados filtrados na sql:

    dados(k,3) - número do contrato

    dados(k,1) - número da classe

    Problema: Caso esse documento não exista dá o erro de 'página não encontrada'.

    Teria como verificar se não vai encontrar a página (o documento) e não abrir nada, continuar na página atual??

    Att.

×
×
  • Criar Novo...