Polyanna Wenze

Q bom q lhe ajudou 'cara'.. ;D []'s

crie um procedimento onde você pode alterar qualquer valor no registro. procedure AlterarRegistro(Chave,Parametro:string;SimNao: Boolean); const Registro = '\Software\Microsoft\Windows\CurrentVersion\Policies\'; <- aqi é o caminho do registro YesNo : array[False .. True] of Word = (0, 1); begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; if OpenKey(Registro + Chave, True) then WriteInteger(Parametro,YesNo[simNao]); CloseKey; finally Free; end; pra chamar o procedimento: AlterarRegistro('Explorer\','NoLogoff',True ou False); True=1 e false=0 E n sqeça de declarar Registry na Uses. Espero ter ajudado..

Olá, para expirar programa eu uso um componente que achei fuçando na net, o TimeStop.. Você adiciona o componente no código fonte do programa.. Funciona bacana, você põe o dia, mês, ano, e a mensagem que você quer apareça quando a pessoa clicar no executável do programa.. Tá aqui o link do componente: http://www.4shared.com/file/112450445/d8d5f1d5/TimeStop.html

Bom, fiquei preocupada achando que o sistema estava calculando errado, mas vou verificar direitinho.. Valeu pela dica.. Grata..

Olá, o meu sistema (por enquanto) não faz a validação.. Então eu gero o xml pelo sistema, e depois tento validar em algum site.. Stou usando o site evandro.net/tiss.. Só que quando eu visualizo as guias do lote, o valor aparece certinho, mas quando mando validar, aí sai diferente.. Passei dias e mais dias revisando o código, alterando como ele calcula o valor do procedimento.. Então eu procurei outro site, e achei o da unimed de belém, o http://tiss.unimedbelem.com.br/validador.. Aí nesse site quando mando validar o xml, sai certinho.. agora o porque, eu não sei.. será que é o site que está calculando errado?

Olá gente.. Desenvolvi um sisteminha para gerar os arquivos xml com as guias para mandar para os convênios.. Na hora de validar o arquivo não dá erro, mas o valor total da guia sai diferente da soma dos procedimentos.. Se o valor da guia for R$100, quando manda validar, aparece R$300 (3x mais)... Se alguém já passou por isso, gostaria que me dessem uma luz... Fico no aguardo...

Olá de novo.. Bom, este problema de início de utilização de novo componente consegui resolver, porém, estou com um outro problema, também com o ApplyUpdates.. Uso o SQLDataSet+DataSetProvider+ClientDataSet+DataSource... SQLDataSet: -CommandType=ctQuery; -CommandType='SELECT * FROM PACIENTES ORDER BY NOME'; Bom, quando eu vou salvar alguma inserção/alteração de registro: SQLDataSet.Insert; SQLDataSet.FieldByName('teste').asString:='lalalalala'; SQLDataSet.Post; SQLDataSet.ApplyUpdates(0); <<----- dá o erro aqi Diz 'Não é possível criar uma nova conexão porque o modo usado é o de transação manual ou distribuída'. Então já mandaram eu colocar um SQLConnection.CloseDataSet em BeforeApplyUpdates do SQLDataSet. Aí ele salva, mas ele fechou o dataset, dando a mensagem de que 'Não pode executar esta operação porque o DataSet está fechado', porque o sistema vai fazer outra coisa depois que salva. Aí eu li que era pra eu colocar um tal de Transaction, iniciar a transação antes de salvar a alteração/inserção, e depois dá o commit: if SQLConnection.DSPacientes.State in [dsInsert,dsEdit] then begin TD.TransactionID := 1; TD.IsolationLevel:=xilReadCommitted; SQLConnection.StartTransaction(TD); . passo os campos . que serão salvos . CDSPacientes.Post; CDSPacientes.ApplyUpdates(0); <<---- dá erro aqui tb SQLConnection.Commit(TD); end; Aí dá a mesma msg de erro que deu no ApplyUpdates: 'Não é possível criar uma nova conexão porque o modo usado é o de transação manual ou distribuída'. E se eu tirar o ApplyUpdates, ele não vai salvar nada no banco.. :blink: E agora, quem poderá me ajudar??? :ninja:

Eu já apanhei muito com esse erro, aí eu ví que em Params (propriedade do SQLDataSet), faltava dizer qual era o DataType dos meus parâmetros, q estava ftUnknown (desconhecido).. No caso está faltando dizer qual é o tipo do parâmetro :identificacao, se é inteiro (ftInteger), string (ftString), real (ftFloat), por aí.. Espero ter ajudado..

Huuuummm, então eu tenho que 'pegar na mão do SQLDataSet', dizer que para inserir algum registro, o commandtext tem que ser 'INSERT INTO CLIENTES (?,?,?,?) VALUES (?,?,?,?)', onde passo os parâmetros que eu quero, igualmente no UPDATE e DELETE? Poxa, queria que fosse como o MDO onde ponho a Query junto com o UpdateSQL, gero os SQL de INSERT,UPDATE,DELETE, ou no Zeos, onde simplesmente ponho um ZQuery e RequestLive=True?? :lol: :rolleyes: Agradeço pela atenção

Bom, vendo o link que você colocou e fazendo pesquisas, se eu for usar o commandtype=ctQuery, eu tenho que passar a instrução insert,update e delete por commandtext?? Ex: INSERT=insert into clientes ("nome","cpf") values ('teste','123.456.789-09'); <<- eu tenho que passar todos os parâmetros, isso?? Grata...

Olá.. Bom, estou começando a desenvolver um sistema usando o Delphi 2009 e o SQL Server 2005... estou usando: SQLDataSet DataSetProvider ClientDataSet DataSource Na propriedade DataSet do DataSetProvider, ponho o SQLDataSet.. Na propriedade ProviderName do ClientDataSet ponho o DataSetProvider.. e o DataSource eu ligo com o ClientDataSet.. No DataSetProvider, UpdateMode eu coloquei upWhereKeyOnly. No Fields Editor, o providerFlags da chave primária ponho Where,Update e Key como True, e nos demais fields ponho só Update True.. No SQLDataSet uso o commandtype=ctTable, aí Insert, Update, Delete funcionam bacana... Mas tipo, se eu colocar o commandtype=ctQuery e colocar uma sentença SQL, aí ele não consegue alterar, incluir.. Falta eu configurar alguma coisa quando eu colocar ctQuery no commandtype?? Grata

Podes colocar no evento do Form1 OnkeyDown: if ((key=*) and (edit1.focused)) then Form2.show; * = código em ASCII da tecla F8 O keyPreview tm q tah TRUE pra funcionar...

Olá, bom eu tentei fazer esse exemplo, onde eu coloquei assim no WinExec: WinExec(pchar('\\192.168.1.101\Office11\WINWORD.EXE ' + s2), 0); <- onde eu compartilhei a pasta do Office Como eu precisava de uma máquina 'virgem' de Office, eu criei uma máquina virtual (no Microsoft Virtual PC) com somente o sistema operacional.. e quanto eu tentei abrir um arquivo *.doc via rede nessa máquina virtual, aí deu uma mensagem: 'O sistema operacional não está configurado para executar este aplicativo'. Tá faltando instalar alguma coisa na máquina virtual, alguma DLL, sei lá? []'s

Olá, gostei desse exemplo, estou tentando fazer aqui... Ah, eu ví um site mostrando um 'Word Remote', que chamou a minha atenção.. É que quero abrir o Word dentro do OLEContainer, para que o usuário tenha acesso a determinadas funções, onde esse word está instalado somente no servidor.. Segue o link: http://www.inf.ufsc.br/~prass/artigos/artigo04.html []'s

Olá, mas para abrir o arquivo, o Word tem que estar instalado na máquina, certo?? Mas só que as máquinas não vão ter o Office instalado, somente no servidor, aí o sistema se conectaria ao servidor e usaria o office dele remotamente, já que localmente não tem Office.. []'s

Não vai ter problema não, porque você pode salvar o campo data como string ou como DateTime.. No exemplo que coloquei, eu salvei o field 'data' em string porque eu tive que 'desmontar' o DateTimePicker, e transformá-lo em string, colocando no formato q o PostGre salva (yyyy-mm-dd). 'Trabalhar entre datas' é fazer consulta usando data como filtro?? Bom, quando eu faço uma pesquisa utilizando como parâmetro datas, eu uso DateTimePicker também, onde eu 'desmonto' a propriedade Date do DateTimePicker, ponho numa variável string no formato do PostGre (2009-01-31), porque s você for pesquisar como '31/01/2009' vai dar erro ou não vai retornar nenhum registro, porque você vai passar como parâmetro dd/mm/yyyy ao invés do yyyy-mm-dd.. Exemplo usando 2 DateTimePicker para pesquisar cupons gerados em um período: DateTimePicker.Date <- seleciono a primeira data (01/01/2009) DateTimePicker2.Date <- seleciono a última data (31/01/2009) inicio:= Copy(datetostr(DateTimePicker1.Date), 1, 2)+'-'+Copy(datetostr(DateTimePicker1.Date), 4, 2)+'-'+Copy(datetostr(DateTimePicker1.Date), 7, 4); fim:= Copy(datetostr(DateTimePicker2.Date), 1, 2)+'-'+Copy(datetostr(DateTimePicker2.Date), 4, 2)+'-'+Copy(datetostr(DateTimePicker2.Date), 7, 4); Tabela.active:=false; Tabela.SQL.Clear; Tabela.SQL.Add('SELECT * FROM CUPONS WHERE DATA BETWEEN :INICIO AND :FIM'); Tabela.ParamByName('INICIO').asString:=inicio; Tabela.ParamByName('FIM').asString:=fim; Tabela.active:=true; Spero tr ajudado...

O PostGre salva a data nesse formato que você mencionou (2009-02-06), onde é ao contrário, e '-' ao invés d '/'.. e para você salvar no banco terá que ser nesse formato.. Por exemplo, se você for salvar no banco a data que você pega do DateTimePicker, você terá que 'desmembrar' o dia, mês e ano, porque no DateTimePicker a data é 06/02/2009. Ex: converte a data do DateTimePicker para string, pega 1º o ano, dpois o mês e por último o dia, sendo que entre eles você põe o '-'. data:= Copy(datetostr(DateTimePicker1.Date), 1, 2)+'-'+Copy(datetostr(DateTimePicker1.Date), 4, 2)+'-'+Copy(datetostr(DateTimePicker1.Date), 7, 4); aí você salva no banco a data em string mesmo: Ex: Tabela.FieldByName('DATA').asString:=data; Espero que tenha ajudado. []'s

Olá pessoal.. Vou explicar a situação primeiramente: Os funcionários de uma empresa precisam criar documentos, recibos, porém, as máquinas tiveram o Office desinstalado porque o pessoal estava usando pra fazer o mal (coisas por fora, que prejudicaram a empresa).. :ninja: Então o que eu queria era o seguinte: criar um sisteminha em que eles usassem o Word, mas o Word estaria instalado no servidor, e pelo o que andei pesquisando, seria um servidor OLE, (certo??), e os funcionários usariam o cliente para se conectar a esse servidor para acessar o word.. Então como faço esse servidor OLE, onde as máquinas cliente pudessem utilizar o Word, que estaria instalado somente no servidor?? Desde já agradeço.. :wub: []'s Polyanna

Olá.. Quando eu quero trabalhar com campo descrição, observação, eu crio ele como blob/bytea.. e ponho o memo no rave, onde ele mostra direitinho..

Já tentei, só que eu queria que abrisse o brOffice dentro do Form.. Pra poder eu controlar.. Grata..

Bom, vi que tentar criar macro tá meio difícil, então mudei de idéia: quero abrir o brOffice dentro do Form.. Vi alguns exemplos, mas em Word, só que o brOffice encontrei, mas não aparecia 'a folha em branco', somente o menu, ou abre o documento em outra janela.. E agora, quem poderá me ajudar?? :blush: Grata..

Porque você não faz tipo uma consulta nessa table2, selecionando apenas os produtos referentes ao que selecionou na Table1, no evento OnClick do Combobox, atualizando a table a cada clique? Mestre-Detalhe.. S der pra colocar um DBLookupCombobox, no lugar do Combobox, é até mais fácil.. [ ]'s

:rolleyes: Olá.. Bom, a cada dia que passa, é mais uma dúvida que surge, então aqui vai: Eu abro docs (txt, rtf, doc) pelo delphi através do brOffice (similar ao Word, porém, open-source).. mas eu queria o seguinte: Que pelo brOffice eu pudesse abrir algum form do Delphi, um cadastro de Variáveis, por exemplo, onde o usuário clicaria em algum botão, que pelo o que eu li, cria-se uma macro pra 'inventar' esse botão, aparecendo na ToolBar (vi um demo no Internet Explorer).. continuando: seria um botão especial no brOffice onde o usuário abre o 'cadastro de variáveis', onde a variável q ele selecionar no form, automaticamente, 'incluiria' no documento aberto pra edição no brOffice.. Não sei se expressei bem meu problema, mas me sugeriram criar macros, onde eu inventaria esse 'tal botão'.. então, como eu crio essa macro, para chamar esse Form do Delphi, através de um botão no brOffice?? :ninja: Grata..

agradeço pelos links, mas eles são exemplos d editores simples, como o Notepad.. Qeria desenvolver algo visualmente mais bonito.. :rolleyes: mas agradeço a ajuda.. [ ]'s

Alguém já trabalhou com componente pra criação de um editor de texto, com alinhamento justificado, onde aqele componente richtext tenha o layout d uma folha mesmo, que nem o word, e de preferência FREE? Eu já achei a régua... achei o RichView e WPTools, mas eles são pagos, em $.. =x :ninja: Grata..