kuroi

movido pra .net

estranho, aqui funciona normal, por exemplo: Shell "notepad", vbNormalFocus SendKeys "{F1}"[/code] ele chama a ajuda do bloco de notas. quanto tempo ta esse seu timer?? sera q ele não ta rapido demais?? ai entre o enter anterior e o f1 não taria dando tempo de carregar a proxima tela e por isso você não ta tendo resposta?? EDITADO: pensando agora, se o F1 não funciona na tela anterior, o timer não tem nd a ver ne... mas então... sera q não é alguma coisa no seu programa q ta bloqueando o F1?? experimenta abrir um vbp novo em branco e poe somente o codigo de abrir o outro programa e o sendkeys pra ver se o f1 vai funcionar. se não funcionar, teste então aquele codigo do notepad q passei acima, porque pelo menos aquele tem q funcionar.

acho q não tem muito sentido você pegar as informacoes do form caso ele não esteja aberto sempre. mas qual a mensagem do erro??

tem razao, não deveria perder o foco. so não entendi o q você quis dizer com isso aqui: e quanto a essa parte aqui: você quis dizer q o sendkeys não funciona, ou ele funciona mas não serve pra fazer o q você quer??

highbass, depois daquele enter, ele abre uma nova janela no outro programa, certo?? então, acho q é como eu tava dizendo, você não tem o foco da janela q deve receber as teclas, por isso não funciona. ai entra o SetForegroundWindow como eu tava dizendo, olha la o tópico q eu passei. você vai ter q implementear juntamente com o FindWindow. espero q o texto da janela q você precisa passar o sendkeys seja sempre o mesmo... so q implementar esse FindWindow tb é um poco chato... em vez disso, você pudia tb tentar usar o Alt + TAB pra dar o foco no seu programa. tipo assim: SendKeys "%{TAB}" mas isso ai é uma gde gambiarra q so vai funcionar se você tiver certeza q o usuario não esta usando outros programas ao mesmo tempo, senao, você pode se perder nas janelas e ai já era.

você declarou as variaveis como resut e soma1 e ta tentando acessar como result e som1. alem do mais ele soma os dois numeros mas não ta mostrando na tela e não tem uma opcao pra sair do programa e eu não entendi o q era pra opcao 2 fazer.

você tentou o teste q eu falei de passar o sendkeys de qualquer caractere pra ver se vai?? mas posta o codigo todo q você ta usando pra gente ver.

mas tipo assim, você abre o programa e imediatamente já da o sendkeys?? ou você abre e depois de a janela estar aberta, você espera o usuario clicar em um botao ou coisa assim pra fazer o sendkeys?? porque se o usuario clicar em um botao ou coisa assim, a janela perde o foco e ai você precisaria do SetForegroundWindow como eu disse. mas de teste tente fazer o sendkeys de qualquer otra coisa. faca um tab pra ver se não acontece nd, ou de algum caracter q você possa ver alguma reposta no outro programa, pra gente ver se ele recebe sendkeys de outras coisas.

hehe, você falo q ia explica melhor, mas so copiou o mesmo texto do outro post exatamente como tava. mas eu reli com mais atencao seu tópico, e acho q entendi melhor, pra fazer a ordenacao, você teria q entrar no menu Report -> Sort Records... e selecionar esse seu campo formula ai (desde q não ele não seja baseado em agrupamento, etc) e clicar em Add. veja ai se não é isso, qualquer coisa poste.

hum, agora q olhei o seu codigo olha so: cboPosto = rs("nome") você disse q quer preencher os otros campos, mas ta preenchendo o proprio combo q ele clicou... qual o sentido?? acho q devia ser txtNome ou qualquer coisa assim ali, não??

é impressao minha ou você ta tentando por espaco no nome da function?? não pode ne.

tenta por no evento click.

acho q antes de usar o SendKeys você tera q usar chamar o SetForegroundWindow como no exemplo acima.

bstar, acho q você consegue fazer isso com o crosstab. ou então, você podia fazer um grupo pro ano e ai você faria esses seus running total fields e na opcao Evaluate, você punha em Use a Formula e e punha essa formula q você passou ai e na opcao Reset, você punha em On change of group e selecionava o agrupamento anual (isso porque imagino q você teja querendo dividir por mes e por ano, mas se você quiser somar todos os anos juntos, então nem precisaria selecionar a opcao Reset).

acho q antes de usar o SendKeys você tera q usar chamar o SetForegroundWindow como no exemplo acima.

acho q o nome da algum campo ta errado, cheque a digitacao. se não conseguir descobrir, faca o seguinte: ponha o cursor na linha BancoDeDados.Execute ssql e aperte F9. então aperte F5 pra executar o programa e faca o update normalmente. quando chegar na linha acima ele vai parar. então aperte Ctrl + G pra abrir a janelinha do Immediate. dentro dela, digite ? ssql e aperte ENTER q ele vai te mostrar qual o codigo da query completo q ele ta tentando executar, e ai você pode analisar pra ver se encontra o erro. se não conseguir encontrar, poste esse codigo ai pra ver se a gente descobre.

fizemos isso certa vez nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=124445

ai o problema acho q é na hora de montar a string no delphi. como não sei direito a sintaxe do delphi, não posso ajudar, mas vo mover o tópico pra sala de delphi, q la devem te ajudar.

se você entrou em menu Components -> Designers, a opcao Data Environment tem q ta selecionada ai (o padra é q teja selecionada), senao você não consegue adicionar. depois pra adicionar, você tem q ir no menu Project -> More ActiveX Designers... -> Data Environment. se a opcao não aparece pra você em algum desses momentos, eu nunca vi isso.

não entendi essa parte. o melhor é fazer com session mesmo. agora, da forma como você ta fazendo, pra zerar a variavel no unload, acho q daria com ajax, mas não sei o codigo.

marcelo, "não deu certo" não significa mta coisa, se você não explica o q acontece de errado, fica dificil. mas olhando, agora, eu esqueci de fechar uma } no codigo q passei, tem q ser Day({Forpag.vencimen}), você corrigiu isso??

uma pergunta. o q exatamente você quer fazer?? porque você quer executar algum codigo na hora q ele fechar a pagina??

tente isso: Principal.Report.SelectionFormula = "{Forpag.vencimen} >= #" + Format(Txt_DtInic, "mm/dd/yyyy") + "# and {Forpag.vencimen} <= #" + Format(Txt_DtFin, "mm/dd/yyyy") + "# And Day({Forpag.vencimen) = " & TxtDia.Text & _ " AND ISNULL ({FORPAG.DATAPG}) AND ({FORPAG.BAIXA}) = 'N' "[/code]

a funcao Day() pega o dia, a funcao Month() pega o mes e a funcao Year() pega o ano.

então. mas esse codigo aqui: cnnOleopl.CursorLocation = adUseClient não é pra por nessa sub. é pra por antes de abrir a conexao. tipo, deve ter algum lugar no programa q você usa esse codigo pra abrir a conexao: cnnOleopl.Open é antes dessa linha q você tem q por aquela otra q passei acima. e quanto ao seek: rsSelecao.Seek "Numero_OS=", ProcuraCodigo não é pra por essa virgula. o segundo parametro serve pra passar o sentido da busca. você teria q concatenar a string: rsSelecao.Seek "Numero_OS=" & ProcuraCodigo de qualquer forma, não costumo usar o Seek, se você tiver otros problemas com ele, use o Find q é garantido, sempre faco assim: rsSelecao.Find "Numero_OS = " & ProcuraCodigo